source: LMDZ6/trunk/libf/phylmd/ecrad.v1.5.1/yoerrtftr.F90 @ 5065

Last change on this file since 5065 was 3908, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
    • interface routine : radiation_scheme.F90
  • Adaptation of compilation scripts :
    • compilation under CPP key CPP_ECRAD
    • compilation with option "-rad ecard" or "-ecard true"
    • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
  • Runing LMDZ simulations with ecrad, you need :
    • logical key iflag_rrtm = 2 in physiq.def
    • namelist_ecrad (DefLists?)
    • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
  • Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...
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.