source: LMDZ6/branches/Ocean_skin/libf/phylmd/ecrad/parrrtm.F90 @ 5407

Last change on this file since 5407 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: 4.0 KB
Line 
1MODULE PARRRTM
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     ------------------------------------------------------------------
12!     Parameters relevant to AER's RRTM-LW radiation scheme
13
14!     19980714  JJMorcrette
15!     20110322  JJMorcrette : additional comments
16!     20110603  JJMorcrette reduced number of g-points
17!     ------------------------------------------------------------------
18
19!-- basic spectral information unrelated to number of g-points
20! JPG    : maximum possible number of g-points in each band of RRTM_LW
21! JPBAND : number of longwave spectral bands
22! JPXSEC : number of cross-sections for active trace gases
23! JPINPX : maximum dimension of the array of active trace gases
24! JPGPT  : total number of g-points in the (operational) spectrally-reduced RRTM_LW
25
26INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
27INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 16
28INTEGER(KIND=JPIM), PARAMETER :: JPXSEC = 4
29INTEGER(KIND=JPIM), PARAMETER :: JPINPX = 35
30INTEGER(KIND=JPIM), PARAMETER :: JPGMAX = 256
31
32!-- configuration for EPS with 70 g-points
33
34!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 70
35
36!INTEGER(KIND=JPIM), PARAMETER :: NG1  = 4
37!INTEGER(KIND=JPIM), PARAMETER :: NG2  = 7
38!INTEGER(KIND=JPIM), PARAMETER :: NG3  = 8
39!INTEGER(KIND=JPIM), PARAMETER :: NG4  = 7
40!INTEGER(KIND=JPIM), PARAMETER :: NG5  = 8
41!INTEGER(KIND=JPIM), PARAMETER :: NG6  = 4
42!INTEGER(KIND=JPIM), PARAMETER :: NG7  = 6
43!INTEGER(KIND=JPIM), PARAMETER :: NG8  = 4
44!INTEGER(KIND=JPIM), PARAMETER :: NG9  = 6
45!INTEGER(KIND=JPIM), PARAMETER :: NG10 = 3
46!INTEGER(KIND=JPIM), PARAMETER :: NG11 = 4
47!INTEGER(KIND=JPIM), PARAMETER :: NG12 = 4
48!INTEGER(KIND=JPIM), PARAMETER :: NG13 = 2
49!INTEGER(KIND=JPIM), PARAMETER :: NG14 = 1
50!INTEGER(KIND=JPIM), PARAMETER :: NG15 = 1
51!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 1
52
53!INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 4
54!INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 11
55!INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 19
56!INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 26
57!INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 34
58!INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 38
59!INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 44
60!INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 48
61!INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 54
62!INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 57
63!INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 61
64!INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 65
65!INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 67
66!INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 68
67!INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 69
68
69
70!-- configuration with 140 g-points
71
72!INTEGER(KIND=JPIM), PARAMETER :: JPGPTF = 140
73!INTEGER(KIND=JPIM), PARAMETER :: JPGPTR = 140
74!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 140
75
76!INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
77!INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
78!INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
79!INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
80!INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
81!INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
82!INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
83!INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
84!INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
85!INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
86!INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
87!INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
88!INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
89!INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
90!INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
91!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 2
92
93!INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 8
94!INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 22
95!INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 38
96!INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 52
97!INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 68
98!INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 76
99!INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 88
100!INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 96
101!INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 108
102!INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 114
103!INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 122
104!INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 130
105!INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 134
106!INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 136
107!INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 138
108
109!     ------------------------------------------------------------------
110END MODULE PARRRTM
Note: See TracBrowser for help on using the repository browser.