source: LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/parrrtm.F90 @ 3564

Last change on this file since 3564 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.0 KB
Line 
1MODULE PARRRTM
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!     Parameters relevant to AER's RRTM-LW radiation scheme
11
12!     980714  JJMorcrette
13!     ------------------------------------------------------------------
14
15INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
16
17INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
18INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 16
19INTEGER(KIND=JPIM), PARAMETER :: JPXSEC = 4
20INTEGER(KIND=JPIM), PARAMETER :: JPINPX = 35
21INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 140
22
23INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
24INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
25INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
26INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
27INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
28INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
29INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
30INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
31INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
32INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
33INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
34INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
35INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
36INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
37INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
38INTEGER(KIND=JPIM), PARAMETER :: NG16 = 8
39
40INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 8
41INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 22
42INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 38
43INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 52
44INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 68
45INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 76
46INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 88
47INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 96
48INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 108
49INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 114
50INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 122
51INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 130
52INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 134
53INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 136
54INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 138
55
56!     ------------------------------------------------------------------
57END MODULE PARRRTM
Note: See TracBrowser for help on using the repository browser.