source: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90

Last change on this file was 5159, checked in by abarral, 3 months ago

Put dimensions.h and paramet.h into modules

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.