source: LMDZ6/branches/cirrus/libf/phylmd/ecrad.v1.5.1/yoesrtm.F90 @ 4945

Last change on this file since 4945 was 3908, checked in by idelkadi, 4 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.8 KB
Line 
1MODULE YOESRTM
2
3USE PARKIND1  ,ONLY : JPIM
4USE PARSRTM   ,ONLY : JPGMAX
5
6IMPLICIT NONE
7
8PUBLIC
9
10SAVE
11
12!     ------------------------------------------------------------------
13!     Parameters relevant to AER's RRTM-SW radiation scheme: Part 2
14
15!     20110610 JJMorcrette
16
17!     Modified to allow possibilities of different g-point numbers. 
18!     ------------------------------------------------------------------
19
20!INTEGER(KIND=JPIM) :: JPGPT
21!INTEGER(KIND=JPIM) :: JPGSW
22
23!INTEGER(KIND=JPIM) :: NG16
24!INTEGER(KIND=JPIM) :: NG17
25!INTEGER(KIND=JPIM) :: NG18
26!INTEGER(KIND=JPIM) :: NG19
27!INTEGER(KIND=JPIM) :: NG20
28!INTEGER(KIND=JPIM) :: NG21
29!INTEGER(KIND=JPIM) :: NG22
30!INTEGER(KIND=JPIM) :: NG23
31!INTEGER(KIND=JPIM) :: NG24
32!INTEGER(KIND=JPIM) :: NG25
33!INTEGER(KIND=JPIM) :: NG26
34!INTEGER(KIND=JPIM) :: NG27
35!INTEGER(KIND=JPIM) :: NG28
36!INTEGER(KIND=JPIM) :: NG29
37
38!-- NGnn : number of g-points in bands nn=16 to 29
39!- as used for the (operational) 112 g-points version of RRTM_SW
40INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
41INTEGER(KIND=JPIM), PARAMETER :: JPGSW  = 112
42
43INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
44INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
45INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8
46INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8
47INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10
48INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10
49INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2
50INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10
51INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8
52INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6
53INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6
54INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8
55INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6
56INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12
57
58
59INTEGER(KIND=JPIM) :: NGN(JPGMAX), NGBSW(JPGMAX)
60
61!     ------------------------------------------------------------------
62END MODULE YOESRTM
63
Note: See TracBrowser for help on using the repository browser.