LMDZ
parrtm1d.F90
Go to the documentation of this file.
1 MODULE parrtm1d
2 
3 #include "tsmbkind.h"
4 
5 IMPLICIT NONE
6 
7 SAVE
8 
9 ! ------------------------------------------------------------------
10 ! Parameters for 1-D radiation only computations from operational
11 ! library routines
12 ! 991007 JJMorcrette
13 ! ------------------------------------------------------------------
14 
15 integer_m, PARAMETER :: jp_lon = 13538
16 integer_m, PARAMETER :: jp_idia = 1
17 integer_m, PARAMETER :: jp_fdia = jp_lon-jp_idia+1
18 integer_m, PARAMETER :: jp_tdia = 1
19 
20 !-- standard tropical INTEGER_M, PARAMETER :: JP_LEV = 64
21 !-- ATEX INTEGER_M, PARAMETER :: JP_LEV = 83
22 !-- BOMEX INTEGER_M, PARAMETER :: JP_LEV = 84
23 !-- OPEN_CELLS INTEGER_M, PARAMETER :: JP_LEV = 63
24 !-- GATE_A,B,C INTEGER_M, PARAMETER :: JP_LEV = 46
25 
26 integer_m, PARAMETER :: jp_lev = 39
27 
28 integer_m, PARAMETER :: jp_lw = 6
29 integer_m, PARAMETER :: jp_sw = 6
30 integer_m, PARAMETER :: jp_nua = 24
31 integer_m, PARAMETER :: jp_mode = 1
32 integer_m, PARAMETER :: jp_aer = 6
33 integer_m, PARAMETER :: jp_levp1= jp_lev+1
34 
35 ! ------------------------------------------------------------------
36 END MODULE parrtm1d