source: LMDZ6/branches/Ocean_skin/libf/phylmd/ecrad/yoerrtm.F90 @ 4096

Last change on this file since 4096 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: 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.