module_state_description.F
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'frame/module_state_description.F'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 MODULE module_state_description
8 ! package constants
9 INTEGER, PARAMETER :: dyn_nodyn = 0
10 INTEGER, PARAMETER :: dyn_em = 2
11 INTEGER, PARAMETER :: dyn_em_sn = 102
12 INTEGER, PARAMETER :: dyn_em_tl = 202
13 INTEGER, PARAMETER :: dyn_em_ad = 302
14 INTEGER, PARAMETER :: dyn_em_tst = 402
15 INTEGER, PARAMETER :: dyn_em_var = 502
16 INTEGER, PARAMETER :: passivec1 = 0
17 INTEGER, PARAMETER :: passiveqv = 0
18 INTEGER, PARAMETER :: kesslerscheme = 1
19 INTEGER, PARAMETER :: linscheme = 2
20 INTEGER, PARAMETER :: wsm3scheme = 3
21 INTEGER, PARAMETER :: wsm5scheme = 4
22 INTEGER, PARAMETER :: etampnew = 5
23 INTEGER, PARAMETER :: wsm6scheme = 6
24 INTEGER, PARAMETER :: ncepcloud3 = 98
25 INTEGER, PARAMETER :: ncepcloud5 = 99
26 INTEGER, PARAMETER :: thompson = 8
27 INTEGER, PARAMETER :: rrtmscheme = 1
28 INTEGER, PARAMETER :: gfdllwscheme = 99
29 INTEGER, PARAMETER :: swradscheme = 1
30 INTEGER, PARAMETER :: gsfcswscheme = 2
31 INTEGER, PARAMETER :: gfdlswscheme = 99
32 INTEGER, PARAMETER :: sfclayscheme = 1
33 INTEGER, PARAMETER :: myjsfcscheme = 2
34 INTEGER, PARAMETER :: gfssfcscheme = 3
35 INTEGER, PARAMETER :: slabscheme = 1
36 INTEGER, PARAMETER :: lsmscheme = 2
37 INTEGER, PARAMETER :: ruclsmscheme = 3
38 INTEGER, PARAMETER :: ysuscheme = 1
39 INTEGER, PARAMETER :: myjpblscheme = 2
40 INTEGER, PARAMETER :: gfsscheme = 3
41 INTEGER, PARAMETER :: mrfscheme = 99
42 INTEGER, PARAMETER :: kfetascheme = 1
43 INTEGER, PARAMETER :: bmjscheme = 2
44 INTEGER, PARAMETER :: gdscheme = 3
45 INTEGER, PARAMETER :: sasscheme = 4
46 INTEGER, PARAMETER :: kfscheme = 99
47 INTEGER, PARAMETER :: io_intio = 1
48 INTEGER, PARAMETER :: io_netcdf = 2
49 INTEGER, PARAMETER :: io_hdf = 3
50 INTEGER, PARAMETER :: io_phdf5 = 4
51 INTEGER, PARAMETER :: io_grib1 = 5
52 INTEGER, PARAMETER :: io_mcel = 6
53 INTEGER, PARAMETER :: io_esmf = 7
54 INTEGER, PARAMETER :: io_yyy = 8
55 INTEGER, PARAMETER :: io_zzz = 9
56 INTEGER, PARAMETER :: io_grib2 = 10
57 INTEGER, PARAMETER :: io_pnetcdf = 11
58 ! 4D array constants
59 INTEGER, PARAMETER :: PARAM_qv = 1
60 INTEGER :: P_qv = 1
61 LOGICAL :: F_qv = .FALSE.
62 INTEGER, PARAMETER :: PARAM_qc = 2
63 INTEGER :: P_qc = 1
64 LOGICAL :: F_qc = .FALSE.
65 INTEGER, PARAMETER :: PARAM_qr = 3
66 INTEGER :: P_qr = 1
67 LOGICAL :: F_qr = .FALSE.
68 INTEGER, PARAMETER :: PARAM_qi = 4
69 INTEGER :: P_qi = 1
70 LOGICAL :: F_qi = .FALSE.
71 INTEGER, PARAMETER :: PARAM_qs = 5
72 INTEGER :: P_qs = 1
73 LOGICAL :: F_qs = .FALSE.
74 INTEGER, PARAMETER :: PARAM_qg = 6
75 INTEGER :: P_qg = 1
76 LOGICAL :: F_qg = .FALSE.
77 INTEGER, PARAMETER :: PARAM_NUM_moist = 7
78 INTEGER :: NUM_moist = 1
79 INTEGER, PARAMETER :: PARAM_a_qv = 1
80 INTEGER :: P_a_qv = 1
81 LOGICAL :: F_a_qv = .FALSE.
82 INTEGER, PARAMETER :: PARAM_a_qc = 2
83 INTEGER :: P_a_qc = 1
84 LOGICAL :: F_a_qc = .FALSE.
85 INTEGER, PARAMETER :: PARAM_a_qr = 3
86 INTEGER :: P_a_qr = 1
87 LOGICAL :: F_a_qr = .FALSE.
88 INTEGER, PARAMETER :: PARAM_a_qi = 4
89 INTEGER :: P_a_qi = 1
90 LOGICAL :: F_a_qi = .FALSE.
91 INTEGER, PARAMETER :: PARAM_a_qs = 5
92 INTEGER :: P_a_qs = 1
93 LOGICAL :: F_a_qs = .FALSE.
94 INTEGER, PARAMETER :: PARAM_a_qg = 6
95 INTEGER :: P_a_qg = 1
96 LOGICAL :: F_a_qg = .FALSE.
97 INTEGER, PARAMETER :: PARAM_NUM_a_moist = 7
98 INTEGER :: NUM_a_moist = 1
99 INTEGER, PARAMETER :: PARAM_g_qv = 1
100 INTEGER :: P_g_qv = 1
101 LOGICAL :: F_g_qv = .FALSE.
102 INTEGER, PARAMETER :: PARAM_g_qc = 2
103 INTEGER :: P_g_qc = 1
104 LOGICAL :: F_g_qc = .FALSE.
105 INTEGER, PARAMETER :: PARAM_g_qr = 3
106 INTEGER :: P_g_qr = 1
107 LOGICAL :: F_g_qr = .FALSE.
108 INTEGER, PARAMETER :: PARAM_g_qi = 4
109 INTEGER :: P_g_qi = 1
110 LOGICAL :: F_g_qi = .FALSE.
111 INTEGER, PARAMETER :: PARAM_g_qs = 5
112 INTEGER :: P_g_qs = 1
113 LOGICAL :: F_g_qs = .FALSE.
114 INTEGER, PARAMETER :: PARAM_g_qg = 6
115 INTEGER :: P_g_qg = 1
116 LOGICAL :: F_g_qg = .FALSE.
117 INTEGER, PARAMETER :: PARAM_NUM_g_moist = 7
118 INTEGER :: NUM_g_moist = 1
119 INTEGER, PARAMETER :: PARAM_qni = 1
120 INTEGER :: P_qni = 1
121 LOGICAL :: F_qni = .FALSE.
122 INTEGER, PARAMETER :: PARAM_qt = 2
123 INTEGER :: P_qt = 1
124 LOGICAL :: F_qt = .FALSE.
125 INTEGER, PARAMETER :: PARAM_NUM_scalar = 3
126 INTEGER :: NUM_scalar = 1
127 INTEGER, PARAMETER :: PARAM_NUM_a_scalar = 1
128 INTEGER :: NUM_a_scalar = 1
129 INTEGER, PARAMETER :: PARAM_NUM_g_scalar = 1
130 INTEGER :: NUM_g_scalar = 1
131 INTEGER, PARAMETER :: P_XSB = 1
132 INTEGER, PARAMETER :: P_XEB = 2
133 INTEGER, PARAMETER :: P_YSB = 3
134 INTEGER, PARAMETER :: P_YEB = 4
135 INTEGER, PARAMETER :: NUM_TIME_LEVELS = 2
136 INTEGER , PARAMETER :: PARAM_FIRST_SCALAR = 2
137 CONTAINS
138 SUBROUTINE init_module_state_description
139 END SUBROUTINE init_module_state_description
140 END MODULE module_state_description
141 !ENDOFREGISTRYGENERATEDINCLUDE