source: LMDZ6/trunk/libf/phylmd/ecrad/parsrtm.F90 @ 4629

Last change on this file since 4629 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: 5.0 KB
Line 
1MODULE PARSRTM
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     ------------------------------------------------------------------
12!     Parameters relevant to AER's RRTM-SW radiation scheme
13
14!     030224  JJMorcrette
15
16!     Modified for g-point reduction from 224 to 112. 
17!     Swap code below to restore 224 g-point set.
18!     Mar2004 MJIacono, AER
19!     20110322 JJMorcrette : additional comments
20!     20110603 JJMorcrette reduced number of g-points
21!     ------------------------------------------------------------------
22
23!-- basic spectral information unrelated to number of g-points
24! JPG     : INTEGER : maximum number of g-points in a given spectral band
25! JPBAND  : INTEGER : total number of spectral bands
26! JPSW    : INTEGER : total number of shortwave spectral bands
27! JPB1    : INTEGER : starting index of shortwave spectrum
28! JPB2    : INTEGER : end index of shortwave spectrum
29
30INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
31INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 29
32INTEGER(KIND=JPIM), PARAMETER :: JPSW   = 14
33INTEGER(KIND=JPIM), PARAMETER :: JPB1   = 16
34INTEGER(KIND=JPIM), PARAMETER :: JPB2   = 29
35INTEGER(KIND=JPIM), PARAMETER :: JPGMAX = 224
36
37!-- other information that could be relevant for RRTM_SW
38!-- NB: The following parameters are unused within the ECMWF IFS.
39!       They relate to the description of the optical properties
40!       in the original cloud model embedded in RRTM_SW
41!INTEGER(KIND=JPIM), PARAMETER :: JMCMU  = 32
42!INTEGER(KIND=JPIM), PARAMETER :: JMUMU  = 32
43!INTEGER(KIND=JPIM), PARAMETER :: JMPHI  = 3
44!INTEGER(KIND=JPIM), PARAMETER :: JMXANG = 4
45!INTEGER(KIND=JPIM), PARAMETER :: JMXSTR = 16
46
47!-- original spectral grid before spectral averaging
48!-- original from AER, Inc with 224 g-points
49INTEGER(KIND=JPIM), PARAMETER :: NGS16 = 0
50INTEGER(KIND=JPIM), PARAMETER :: NGS17 = 16
51INTEGER(KIND=JPIM), PARAMETER :: NGS18 = 32
52INTEGER(KIND=JPIM), PARAMETER :: NGS19 = 48
53INTEGER(KIND=JPIM), PARAMETER :: NGS20 = 64
54INTEGER(KIND=JPIM), PARAMETER :: NGS21 = 80
55INTEGER(KIND=JPIM), PARAMETER :: NGS22 = 96
56INTEGER(KIND=JPIM), PARAMETER :: NGS23 = 112
57INTEGER(KIND=JPIM), PARAMETER :: NGS24 = 128
58INTEGER(KIND=JPIM), PARAMETER :: NGS25 = 144
59INTEGER(KIND=JPIM), PARAMETER :: NGS26 = 160
60INTEGER(KIND=JPIM), PARAMETER :: NGS27 = 176
61INTEGER(KIND=JPIM), PARAMETER :: NGS28 = 192
62INTEGER(KIND=JPIM), PARAMETER :: NGS29 = 208
63
64!-------------------------------------------------------------------------------
65!-- NGnn : number of g-points in bands nn=16 to 29
66!- as used in the Ng g-points version of RRTM_SW
67!-------------------------------------------------------------------------------
68!-- configuration with 14 spectral intervals
69!   and a total of 56 g-points (14xvariable number)
70
71!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 56
72!
73!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 3
74!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 6
75!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 4
76!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 4
77!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 5
78!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 5
79!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 1
80!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 5
81!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 4
82!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 3
83!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 3
84!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 4
85!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 3
86!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 6
87!-------------------------------------------------------------------------------
88!-- configuration with 14 spectral intervals
89!   and a total of 112 g-points (14xvariable number)
90!
91!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
92!
93!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
94!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
95!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8
96!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8
97!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10
98!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10
99!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2
100!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10
101!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8
102!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6
103!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6
104!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8
105!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6
106!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12
107
108!-------------------------------------------------------------------------------
109!-- configuration with 14 spectral intervals
110!   and a total of 224 g-points (14x16)
111!
112!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 224
113
114!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 16
115!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 16
116!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 16
117!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 16
118!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 16
119!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 16
120!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 16
121!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 16
122!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 16
123!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 16
124!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 16
125!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 16
126!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 16
127!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 16
128
129!     ------------------------------------------------------------------
130END MODULE PARSRTM
131
Note: See TracBrowser for help on using the repository browser.