source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/yoerrtftr.F90 @ 4109

Last change on this file since 4109 was 3880, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in LMDZ.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
  • Adaptation of compilation scripts (CPP_ECRAD keys)
  • Call of ecrad in radlwsw_m.F90 under the logical key iflag_rrtm = 2
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.