source: LMDZ5/trunk/libf/phylmd/rrtm/parsrtm.F90 @ 5224

Last change on this file since 5224 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: 3.0 KB
Line 
1MODULE PARSRTM
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!     Parameters relevant to AER's RRTM-SW radiation scheme
11
12!     030224  JJMorcrette
13
14!     Modified for g-point reduction from 224 to 112. 
15!     Swap code below to restore 224 g-point set.
16!     Mar2004 MJIacono, AER
17!     ------------------------------------------------------------------
18
19INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
20
21INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
22INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 29
23INTEGER(KIND=JPIM), PARAMETER :: JPSW   = 14
24INTEGER(KIND=JPIM), PARAMETER :: JPB1   = 16
25INTEGER(KIND=JPIM), PARAMETER :: JPB2   = 29
26! Use for 112 g-points
27INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
28! Use for 224 g-points
29!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 224
30
31INTEGER(KIND=JPIM), PARAMETER :: JMCMU  = 32
32INTEGER(KIND=JPIM), PARAMETER :: JMUMU  = 32
33INTEGER(KIND=JPIM), PARAMETER :: JMPHI  = 3
34INTEGER(KIND=JPIM), PARAMETER :: JMXANG = 4
35INTEGER(KIND=JPIM), PARAMETER :: JMXSTR = 16
36
37! Use for 112 g-points
38INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
39INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
40INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8
41INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8
42INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10
43INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10
44INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2
45INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10
46INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8
47INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6
48INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6
49INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8
50INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6
51INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12
52
53! Use for 224 g-points
54!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 16
55!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 16
56!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 16
57!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 16
58!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 16
59!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 16
60!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 16
61!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 16
62!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 16
63!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 16
64!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 16
65!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 16
66!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 16
67!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 16
68
69INTEGER(KIND=JPIM), PARAMETER :: NGS16 = 0
70INTEGER(KIND=JPIM), PARAMETER :: NGS17 = 16
71INTEGER(KIND=JPIM), PARAMETER :: NGS18 = 32
72INTEGER(KIND=JPIM), PARAMETER :: NGS19 = 48
73INTEGER(KIND=JPIM), PARAMETER :: NGS20 = 64
74INTEGER(KIND=JPIM), PARAMETER :: NGS21 = 80
75INTEGER(KIND=JPIM), PARAMETER :: NGS22 = 96
76INTEGER(KIND=JPIM), PARAMETER :: NGS23 = 112
77INTEGER(KIND=JPIM), PARAMETER :: NGS24 = 128
78INTEGER(KIND=JPIM), PARAMETER :: NGS25 = 144
79INTEGER(KIND=JPIM), PARAMETER :: NGS26 = 160
80INTEGER(KIND=JPIM), PARAMETER :: NGS27 = 176
81INTEGER(KIND=JPIM), PARAMETER :: NGS28 = 192
82INTEGER(KIND=JPIM), PARAMETER :: NGS29 = 208
83
84!     ------------------------------------------------------------------
85END MODULE PARSRTM
86
Note: See TracBrowser for help on using the repository browser.