source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90 @ 5450

Last change on this file since 5450 was 4728, checked in by idelkadi, 15 months ago

Update of ecrad in the LMDZ_ECRad branch of LMDZ:

  • version 1.6.1 of ecrad
  • files are no longer grouped in the same ecrad directory.
  • the structure of ecrad offline is preserved to facilitate updating in LMDZ
  • cfg.bld modified to take into account the new added subdirectories.
  • the interface routines and those added in ecrad are moved to the phylmd directory
File size: 1.2 KB
Line 
1MODULE YOERRTFTR
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5!USE PARRRTM, ONLY : JPBAND, JPG, JPGMAX
6!USE YOERRTM, ONLY : JPGPT
7
8IMPLICIT NONE
9
10PUBLIC
11
12SAVE
13
14!    -------------------------------------------------------------------
15
16!    -------------------------------------------------------------------
17
18INTEGER(KIND=JPIM) :: NGC(16)
19INTEGER(KIND=JPIM) :: NGS(16)
20
21INTEGER(KIND=JPIM) :: NGN(256)
22INTEGER(KIND=JPIM) :: NGB(256)
23
24INTEGER(KIND=JPIM) :: NGM(256)
25REAL(KIND=JPRB) ::    WT(16)
26
27!INTEGER(KIND=JPIM) :: NGC(JPBAND)
28!INTEGER(KIND=JPIM) :: NGS(JPBAND)
29!
30!INTEGER(KIND=JPIM) :: NGN(JPGMAX)
31!INTEGER(KIND=JPIM) :: NGB(JPGMAX)
32!
33!INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
34!REAL(KIND=JPRB) ::    WT(JPG)
35
36!     -----------------------------------------------------------------
37!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
38
39!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
40
41!  NAME     TYPE     PURPOSE
42!  ----  :  ----   : ---------------------------------------------------
43!  NGC   : INTEGER :
44!  NGS   : INTEGER :
45!  NGN   : INTEGER :
46!  NGB   : INTEGER :
47!  NGM   : INTEGER :
48!  WT    : REAL    :
49!    -------------------------------------------------------------------
50END MODULE YOERRTFTR
51
Note: See TracBrowser for help on using the repository browser.