source: LMDZ6/branches/contrails/libf/phylmd/ecrad/ifsrrtm/yoerrtm.F90 @ 5440

Last change on this file since 5440 was 4773, checked in by idelkadi, 12 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


File size: 3.0 KB
Line 
1MODULE YOERRTM
2
3USE PARKIND1  ,ONLY : JPIM
4USE PARRRTM   ,ONLY : JPGMAX
5
6IMPLICIT NONE
7
8PUBLIC
9
10SAVE
11
12!     ------------------------------------------------------------------
13!     Parameters relevant to AER's RRTM-LW radiation scheme: Part 2
14
15!     20110613 JJMorcrette
16
17!     Modified to allow possibilities of different g-point numbers. 
18!     ------------------------------------------------------------------
19
20!INTEGER(KIND=JPIM) :: JPGPT
21!INTEGER(KIND=JPIM) :: JPGLW
22
23!INTEGER(KIND=JPIM) :: NG1
24!INTEGER(KIND=JPIM) :: NG2
25!INTEGER(KIND=JPIM) :: NG3
26!INTEGER(KIND=JPIM) :: NG4
27!INTEGER(KIND=JPIM) :: NG5
28!INTEGER(KIND=JPIM) :: NG6
29!INTEGER(KIND=JPIM) :: NG7
30!INTEGER(KIND=JPIM) :: NG8
31!INTEGER(KIND=JPIM) :: NG9
32!INTEGER(KIND=JPIM) :: NG10
33!INTEGER(KIND=JPIM) :: NG11
34!INTEGER(KIND=JPIM) :: NG12
35!INTEGER(KIND=JPIM) :: NG13
36!INTEGER(KIND=JPIM) :: NG14
37!INTEGER(KIND=JPIM) :: NG15
38!INTEGER(KIND=JPIM) :: NG16
39
40!INTEGER(KIND=JPIM) :: NGS1
41!INTEGER(KIND=JPIM) :: NGS2
42!INTEGER(KIND=JPIM) :: NGS3
43!INTEGER(KIND=JPIM) :: NGS4
44!INTEGER(KIND=JPIM) :: NGS5
45!INTEGER(KIND=JPIM) :: NGS6
46!INTEGER(KIND=JPIM) :: NGS7
47!INTEGER(KIND=JPIM) :: NGS8
48!INTEGER(KIND=JPIM) :: NGS9
49!INTEGER(KIND=JPIM) :: NGS10
50!INTEGER(KIND=JPIM) :: NGS11
51!INTEGER(KIND=JPIM) :: NGS12
52!INTEGER(KIND=JPIM) :: NGS13
53!INTEGER(KIND=JPIM) :: NGS14
54!INTEGER(KIND=JPIM) :: NGS15
55!INTEGER(KIND=JPIM) :: NGS16
56
57INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 140
58INTEGER(KIND=JPIM), PARAMETER :: JPGLW  = 140
59
60!-- NGnn : number of g-points in each longwave spectral band
61INTEGER(KIND=JPIM), PARAMETER :: NG1  = 10
62INTEGER(KIND=JPIM), PARAMETER :: NG2  = 12
63INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
64INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
65INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
66INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
67INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
68INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
69INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
70INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
71INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
72INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
73INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
74INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
75INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
76INTEGER(KIND=JPIM), PARAMETER :: NG16 = 2
77!-- NGSnn: accumulated number of g-points at the beginning of spectral band nn+1
78INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 10
79INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 22
80INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 38
81INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 52
82INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 68
83INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 76
84INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 88
85INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 96
86INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 108
87INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 114
88INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 122
89INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 130
90INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 134
91INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 136
92INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 138
93
94
95INTEGER(KIND=JPIM) :: NGN(JPGMAX), NGBLW(JPGMAX)
96
97!     ------------------------------------------------------------------
98END MODULE YOERRTM
99
Note: See TracBrowser for help on using the repository browser.