scalar_indices.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/scalar_indices.inc'
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 P_qv = 1 ; F_qv = .FALSE.
8 P_qc = 1 ; F_qc = .FALSE.
9 P_qr = 1 ; F_qr = .FALSE.
10 P_qi = 1 ; F_qi = .FALSE.
11 P_qs = 1 ; F_qs = .FALSE.
12 P_qg = 1 ; F_qg = .FALSE.
13 P_a_qv = 1 ; F_a_qv = .FALSE.
14 P_a_qc = 1 ; F_a_qc = .FALSE.
15 P_a_qr = 1 ; F_a_qr = .FALSE.
16 P_a_qi = 1 ; F_a_qi = .FALSE.
17 P_a_qs = 1 ; F_a_qs = .FALSE.
18 P_a_qg = 1 ; F_a_qg = .FALSE.
19 P_g_qv = 1 ; F_g_qv = .FALSE.
20 P_g_qc = 1 ; F_g_qc = .FALSE.
21 P_g_qr = 1 ; F_g_qr = .FALSE.
22 P_g_qi = 1 ; F_g_qi = .FALSE.
23 P_g_qs = 1 ; F_g_qs = .FALSE.
24 P_g_qg = 1 ; F_g_qg = .FALSE.
25 P_qni = 1 ; F_qni = .FALSE.
26 P_qt = 1 ; F_qt = .FALSE.
27 IF (model_config_rec%dyn_opt==0)THEN
28 END IF
29 IF (model_config_rec%dyn_opt==2)THEN
30 END IF
31 IF (model_config_rec%dyn_opt==102)THEN
32 END IF
33 IF (model_config_rec%dyn_opt==202)THEN
34 END IF
35 IF (model_config_rec%dyn_opt==302)THEN
36 END IF
37 IF (model_config_rec%dyn_opt==402)THEN
38 END IF
39 IF (model_config_rec%dyn_opt==502)THEN
40 END IF
41 IF (model_config_rec%chem_opt(idomain)==0)THEN
42 END IF
43 IF (model_config_rec%mp_physics(idomain)==0)THEN
44 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
45 moist_num_table(idomain) = moist_num_table(idomain) + 1
46 P_qv = moist_num_table(idomain)
47 moist_index_table( PARAM_qv , idomain ) = P_qv
48 ELSE
49 P_qv = moist_index_table( PARAM_qv , idomain )
50 END IF
51 moist_stream_table( idomain, P_qv ) = 2113953794
52 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
53 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
54 moist_units_table( idomain, P_qv ) = 'kg kg-1'
55 F_qv = .TRUE.
56 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
57 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
58 P_a_qv = a_moist_num_table(idomain)
59 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
60 ELSE
61 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
62 END IF
63 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
64 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
65 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
66 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
67 F_a_qv = .TRUE.
68 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
69 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
70 P_g_qv = g_moist_num_table(idomain)
71 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
72 ELSE
73 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
74 END IF
75 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
76 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
77 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
78 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
79 F_g_qv = .TRUE.
80 END IF
81 IF (model_config_rec%mp_physics(idomain)==1)THEN
82 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
83 moist_num_table(idomain) = moist_num_table(idomain) + 1
84 P_qv = moist_num_table(idomain)
85 moist_index_table( PARAM_qv , idomain ) = P_qv
86 ELSE
87 P_qv = moist_index_table( PARAM_qv , idomain )
88 END IF
89 moist_stream_table( idomain, P_qv ) = 2113953794
90 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
91 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
92 moist_units_table( idomain, P_qv ) = 'kg kg-1'
93 F_qv = .TRUE.
94 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
95 moist_num_table(idomain) = moist_num_table(idomain) + 1
96 P_qc = moist_num_table(idomain)
97 moist_index_table( PARAM_qc , idomain ) = P_qc
98 ELSE
99 P_qc = moist_index_table( PARAM_qc , idomain )
100 END IF
101 moist_stream_table( idomain, P_qc ) = 2113953794
102 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
103 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
104 moist_units_table( idomain, P_qc ) = 'kg kg-1'
105 F_qc = .TRUE.
106 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
107 moist_num_table(idomain) = moist_num_table(idomain) + 1
108 P_qr = moist_num_table(idomain)
109 moist_index_table( PARAM_qr , idomain ) = P_qr
110 ELSE
111 P_qr = moist_index_table( PARAM_qr , idomain )
112 END IF
113 moist_stream_table( idomain, P_qr ) = 2113953794
114 moist_dname_table( idomain, P_qr ) = 'QRAIN'
115 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
116 moist_units_table( idomain, P_qr ) = 'kg kg-1'
117 F_qr = .TRUE.
118 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
119 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
120 P_a_qv = a_moist_num_table(idomain)
121 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
122 ELSE
123 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
124 END IF
125 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
126 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
127 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
128 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
129 F_a_qv = .TRUE.
130 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
131 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
132 P_a_qc = a_moist_num_table(idomain)
133 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
134 ELSE
135 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
136 END IF
137 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
138 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
139 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
140 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
141 F_a_qc = .TRUE.
142 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
143 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
144 P_a_qr = a_moist_num_table(idomain)
145 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
146 ELSE
147 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
148 END IF
149 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
150 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
151 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
152 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
153 F_a_qr = .TRUE.
154 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
155 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
156 P_g_qv = g_moist_num_table(idomain)
157 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
158 ELSE
159 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
160 END IF
161 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
162 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
163 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
164 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
165 F_g_qv = .TRUE.
166 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
167 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
168 P_g_qc = g_moist_num_table(idomain)
169 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
170 ELSE
171 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
172 END IF
173 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
174 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
175 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
176 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
177 F_g_qc = .TRUE.
178 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
179 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
180 P_g_qr = g_moist_num_table(idomain)
181 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
182 ELSE
183 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
184 END IF
185 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
186 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
187 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
188 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
189 F_g_qr = .TRUE.
190 END IF
191 IF (model_config_rec%mp_physics(idomain)==2)THEN
192 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
193 moist_num_table(idomain) = moist_num_table(idomain) + 1
194 P_qv = moist_num_table(idomain)
195 moist_index_table( PARAM_qv , idomain ) = P_qv
196 ELSE
197 P_qv = moist_index_table( PARAM_qv , idomain )
198 END IF
199 moist_stream_table( idomain, P_qv ) = 2113953794
200 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
201 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
202 moist_units_table( idomain, P_qv ) = 'kg kg-1'
203 F_qv = .TRUE.
204 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
205 moist_num_table(idomain) = moist_num_table(idomain) + 1
206 P_qc = moist_num_table(idomain)
207 moist_index_table( PARAM_qc , idomain ) = P_qc
208 ELSE
209 P_qc = moist_index_table( PARAM_qc , idomain )
210 END IF
211 moist_stream_table( idomain, P_qc ) = 2113953794
212 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
213 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
214 moist_units_table( idomain, P_qc ) = 'kg kg-1'
215 F_qc = .TRUE.
216 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
217 moist_num_table(idomain) = moist_num_table(idomain) + 1
218 P_qr = moist_num_table(idomain)
219 moist_index_table( PARAM_qr , idomain ) = P_qr
220 ELSE
221 P_qr = moist_index_table( PARAM_qr , idomain )
222 END IF
223 moist_stream_table( idomain, P_qr ) = 2113953794
224 moist_dname_table( idomain, P_qr ) = 'QRAIN'
225 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
226 moist_units_table( idomain, P_qr ) = 'kg kg-1'
227 F_qr = .TRUE.
228 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
229 moist_num_table(idomain) = moist_num_table(idomain) + 1
230 P_qi = moist_num_table(idomain)
231 moist_index_table( PARAM_qi , idomain ) = P_qi
232 ELSE
233 P_qi = moist_index_table( PARAM_qi , idomain )
234 END IF
235 moist_stream_table( idomain, P_qi ) = 2113953794
236 moist_dname_table( idomain, P_qi ) = 'QICE'
237 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
238 moist_units_table( idomain, P_qi ) = 'kg kg-1'
239 F_qi = .TRUE.
240 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
241 moist_num_table(idomain) = moist_num_table(idomain) + 1
242 P_qs = moist_num_table(idomain)
243 moist_index_table( PARAM_qs , idomain ) = P_qs
244 ELSE
245 P_qs = moist_index_table( PARAM_qs , idomain )
246 END IF
247 moist_stream_table( idomain, P_qs ) = 2113953794
248 moist_dname_table( idomain, P_qs ) = 'QSNOW'
249 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
250 moist_units_table( idomain, P_qs ) = 'kg kg-1'
251 F_qs = .TRUE.
252 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
253 moist_num_table(idomain) = moist_num_table(idomain) + 1
254 P_qg = moist_num_table(idomain)
255 moist_index_table( PARAM_qg , idomain ) = P_qg
256 ELSE
257 P_qg = moist_index_table( PARAM_qg , idomain )
258 END IF
259 moist_stream_table( idomain, P_qg ) = 2113953794
260 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
261 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
262 moist_units_table( idomain, P_qg ) = 'kg kg-1'
263 F_qg = .TRUE.
264 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
265 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
266 P_a_qv = a_moist_num_table(idomain)
267 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
268 ELSE
269 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
270 END IF
271 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
272 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
273 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
274 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
275 F_a_qv = .TRUE.
276 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
277 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
278 P_a_qc = a_moist_num_table(idomain)
279 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
280 ELSE
281 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
282 END IF
283 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
284 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
285 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
286 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
287 F_a_qc = .TRUE.
288 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
289 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
290 P_a_qr = a_moist_num_table(idomain)
291 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
292 ELSE
293 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
294 END IF
295 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
296 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
297 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
298 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
299 F_a_qr = .TRUE.
300 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
301 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
302 P_a_qi = a_moist_num_table(idomain)
303 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
304 ELSE
305 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
306 END IF
307 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
308 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
309 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
310 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
311 F_a_qi = .TRUE.
312 IF ( a_moist_index_table( PARAM_a_qs , idomain ) .lt. 1 ) THEN
313 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
314 P_a_qs = a_moist_num_table(idomain)
315 a_moist_index_table( PARAM_a_qs , idomain ) = P_a_qs
316 ELSE
317 P_a_qs = a_moist_index_table( PARAM_a_qs , idomain )
318 END IF
319 a_moist_stream_table( idomain, P_a_qs ) = 2113953794
320 a_moist_dname_table( idomain, P_a_qs ) = 'A_QSNOW'
321 a_moist_desc_table( idomain, P_a_qs ) = 'Snow mixing ratio'
322 a_moist_units_table( idomain, P_a_qs ) = 'kg kg-1'
323 F_a_qs = .TRUE.
324 IF ( a_moist_index_table( PARAM_a_qg , idomain ) .lt. 1 ) THEN
325 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
326 P_a_qg = a_moist_num_table(idomain)
327 a_moist_index_table( PARAM_a_qg , idomain ) = P_a_qg
328 ELSE
329 P_a_qg = a_moist_index_table( PARAM_a_qg , idomain )
330 END IF
331 a_moist_stream_table( idomain, P_a_qg ) = 2113953794
332 a_moist_dname_table( idomain, P_a_qg ) = 'A_QGRAUP'
333 a_moist_desc_table( idomain, P_a_qg ) = 'Graupel mixing ratio'
334 a_moist_units_table( idomain, P_a_qg ) = 'kg kg-1'
335 F_a_qg = .TRUE.
336 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
337 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
338 P_g_qv = g_moist_num_table(idomain)
339 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
340 ELSE
341 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
342 END IF
343 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
344 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
345 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
346 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
347 F_g_qv = .TRUE.
348 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
349 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
350 P_g_qc = g_moist_num_table(idomain)
351 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
352 ELSE
353 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
354 END IF
355 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
356 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
357 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
358 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
359 F_g_qc = .TRUE.
360 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
361 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
362 P_g_qr = g_moist_num_table(idomain)
363 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
364 ELSE
365 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
366 END IF
367 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
368 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
369 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
370 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
371 F_g_qr = .TRUE.
372 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
373 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
374 P_g_qi = g_moist_num_table(idomain)
375 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
376 ELSE
377 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
378 END IF
379 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
380 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
381 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
382 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
383 F_g_qi = .TRUE.
384 IF ( g_moist_index_table( PARAM_g_qs , idomain ) .lt. 1 ) THEN
385 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
386 P_g_qs = g_moist_num_table(idomain)
387 g_moist_index_table( PARAM_g_qs , idomain ) = P_g_qs
388 ELSE
389 P_g_qs = g_moist_index_table( PARAM_g_qs , idomain )
390 END IF
391 g_moist_stream_table( idomain, P_g_qs ) = 2113953794
392 g_moist_dname_table( idomain, P_g_qs ) = 'G_QSNOW'
393 g_moist_desc_table( idomain, P_g_qs ) = 'Snow mixing ratio'
394 g_moist_units_table( idomain, P_g_qs ) = 'kg kg-1'
395 F_g_qs = .TRUE.
396 IF ( g_moist_index_table( PARAM_g_qg , idomain ) .lt. 1 ) THEN
397 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
398 P_g_qg = g_moist_num_table(idomain)
399 g_moist_index_table( PARAM_g_qg , idomain ) = P_g_qg
400 ELSE
401 P_g_qg = g_moist_index_table( PARAM_g_qg , idomain )
402 END IF
403 g_moist_stream_table( idomain, P_g_qg ) = 2113953794
404 g_moist_dname_table( idomain, P_g_qg ) = 'G_QGRAUP'
405 g_moist_desc_table( idomain, P_g_qg ) = 'Graupel mixing ratio'
406 g_moist_units_table( idomain, P_g_qg ) = 'kg kg-1'
407 F_g_qg = .TRUE.
408 END IF
409 IF (model_config_rec%mp_physics(idomain)==3)THEN
410 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
411 moist_num_table(idomain) = moist_num_table(idomain) + 1
412 P_qv = moist_num_table(idomain)
413 moist_index_table( PARAM_qv , idomain ) = P_qv
414 ELSE
415 P_qv = moist_index_table( PARAM_qv , idomain )
416 END IF
417 moist_stream_table( idomain, P_qv ) = 2113953794
418 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
419 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
420 moist_units_table( idomain, P_qv ) = 'kg kg-1'
421 F_qv = .TRUE.
422 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
423 moist_num_table(idomain) = moist_num_table(idomain) + 1
424 P_qc = moist_num_table(idomain)
425 moist_index_table( PARAM_qc , idomain ) = P_qc
426 ELSE
427 P_qc = moist_index_table( PARAM_qc , idomain )
428 END IF
429 moist_stream_table( idomain, P_qc ) = 2113953794
430 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
431 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
432 moist_units_table( idomain, P_qc ) = 'kg kg-1'
433 F_qc = .TRUE.
434 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
435 moist_num_table(idomain) = moist_num_table(idomain) + 1
436 P_qr = moist_num_table(idomain)
437 moist_index_table( PARAM_qr , idomain ) = P_qr
438 ELSE
439 P_qr = moist_index_table( PARAM_qr , idomain )
440 END IF
441 moist_stream_table( idomain, P_qr ) = 2113953794
442 moist_dname_table( idomain, P_qr ) = 'QRAIN'
443 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
444 moist_units_table( idomain, P_qr ) = 'kg kg-1'
445 F_qr = .TRUE.
446 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
447 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
448 P_a_qv = a_moist_num_table(idomain)
449 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
450 ELSE
451 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
452 END IF
453 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
454 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
455 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
456 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
457 F_a_qv = .TRUE.
458 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
459 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
460 P_a_qc = a_moist_num_table(idomain)
461 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
462 ELSE
463 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
464 END IF
465 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
466 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
467 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
468 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
469 F_a_qc = .TRUE.
470 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
471 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
472 P_a_qr = a_moist_num_table(idomain)
473 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
474 ELSE
475 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
476 END IF
477 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
478 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
479 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
480 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
481 F_a_qr = .TRUE.
482 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
483 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
484 P_g_qv = g_moist_num_table(idomain)
485 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
486 ELSE
487 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
488 END IF
489 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
490 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
491 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
492 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
493 F_g_qv = .TRUE.
494 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
495 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
496 P_g_qc = g_moist_num_table(idomain)
497 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
498 ELSE
499 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
500 END IF
501 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
502 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
503 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
504 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
505 F_g_qc = .TRUE.
506 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
507 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
508 P_g_qr = g_moist_num_table(idomain)
509 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
510 ELSE
511 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
512 END IF
513 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
514 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
515 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
516 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
517 F_g_qr = .TRUE.
518 END IF
519 IF (model_config_rec%mp_physics(idomain)==4)THEN
520 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
521 moist_num_table(idomain) = moist_num_table(idomain) + 1
522 P_qv = moist_num_table(idomain)
523 moist_index_table( PARAM_qv , idomain ) = P_qv
524 ELSE
525 P_qv = moist_index_table( PARAM_qv , idomain )
526 END IF
527 moist_stream_table( idomain, P_qv ) = 2113953794
528 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
529 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
530 moist_units_table( idomain, P_qv ) = 'kg kg-1'
531 F_qv = .TRUE.
532 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
533 moist_num_table(idomain) = moist_num_table(idomain) + 1
534 P_qc = moist_num_table(idomain)
535 moist_index_table( PARAM_qc , idomain ) = P_qc
536 ELSE
537 P_qc = moist_index_table( PARAM_qc , idomain )
538 END IF
539 moist_stream_table( idomain, P_qc ) = 2113953794
540 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
541 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
542 moist_units_table( idomain, P_qc ) = 'kg kg-1'
543 F_qc = .TRUE.
544 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
545 moist_num_table(idomain) = moist_num_table(idomain) + 1
546 P_qr = moist_num_table(idomain)
547 moist_index_table( PARAM_qr , idomain ) = P_qr
548 ELSE
549 P_qr = moist_index_table( PARAM_qr , idomain )
550 END IF
551 moist_stream_table( idomain, P_qr ) = 2113953794
552 moist_dname_table( idomain, P_qr ) = 'QRAIN'
553 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
554 moist_units_table( idomain, P_qr ) = 'kg kg-1'
555 F_qr = .TRUE.
556 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
557 moist_num_table(idomain) = moist_num_table(idomain) + 1
558 P_qi = moist_num_table(idomain)
559 moist_index_table( PARAM_qi , idomain ) = P_qi
560 ELSE
561 P_qi = moist_index_table( PARAM_qi , idomain )
562 END IF
563 moist_stream_table( idomain, P_qi ) = 2113953794
564 moist_dname_table( idomain, P_qi ) = 'QICE'
565 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
566 moist_units_table( idomain, P_qi ) = 'kg kg-1'
567 F_qi = .TRUE.
568 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
569 moist_num_table(idomain) = moist_num_table(idomain) + 1
570 P_qs = moist_num_table(idomain)
571 moist_index_table( PARAM_qs , idomain ) = P_qs
572 ELSE
573 P_qs = moist_index_table( PARAM_qs , idomain )
574 END IF
575 moist_stream_table( idomain, P_qs ) = 2113953794
576 moist_dname_table( idomain, P_qs ) = 'QSNOW'
577 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
578 moist_units_table( idomain, P_qs ) = 'kg kg-1'
579 F_qs = .TRUE.
580 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
581 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
582 P_a_qv = a_moist_num_table(idomain)
583 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
584 ELSE
585 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
586 END IF
587 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
588 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
589 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
590 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
591 F_a_qv = .TRUE.
592 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
593 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
594 P_a_qc = a_moist_num_table(idomain)
595 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
596 ELSE
597 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
598 END IF
599 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
600 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
601 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
602 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
603 F_a_qc = .TRUE.
604 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
605 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
606 P_a_qr = a_moist_num_table(idomain)
607 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
608 ELSE
609 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
610 END IF
611 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
612 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
613 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
614 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
615 F_a_qr = .TRUE.
616 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
617 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
618 P_a_qi = a_moist_num_table(idomain)
619 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
620 ELSE
621 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
622 END IF
623 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
624 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
625 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
626 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
627 F_a_qi = .TRUE.
628 IF ( a_moist_index_table( PARAM_a_qs , idomain ) .lt. 1 ) THEN
629 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
630 P_a_qs = a_moist_num_table(idomain)
631 a_moist_index_table( PARAM_a_qs , idomain ) = P_a_qs
632 ELSE
633 P_a_qs = a_moist_index_table( PARAM_a_qs , idomain )
634 END IF
635 a_moist_stream_table( idomain, P_a_qs ) = 2113953794
636 a_moist_dname_table( idomain, P_a_qs ) = 'A_QSNOW'
637 a_moist_desc_table( idomain, P_a_qs ) = 'Snow mixing ratio'
638 a_moist_units_table( idomain, P_a_qs ) = 'kg kg-1'
639 F_a_qs = .TRUE.
640 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
641 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
642 P_g_qv = g_moist_num_table(idomain)
643 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
644 ELSE
645 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
646 END IF
647 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
648 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
649 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
650 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
651 F_g_qv = .TRUE.
652 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
653 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
654 P_g_qc = g_moist_num_table(idomain)
655 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
656 ELSE
657 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
658 END IF
659 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
660 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
661 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
662 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
663 F_g_qc = .TRUE.
664 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
665 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
666 P_g_qr = g_moist_num_table(idomain)
667 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
668 ELSE
669 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
670 END IF
671 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
672 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
673 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
674 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
675 F_g_qr = .TRUE.
676 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
677 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
678 P_g_qi = g_moist_num_table(idomain)
679 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
680 ELSE
681 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
682 END IF
683 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
684 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
685 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
686 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
687 F_g_qi = .TRUE.
688 IF ( g_moist_index_table( PARAM_g_qs , idomain ) .lt. 1 ) THEN
689 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
690 P_g_qs = g_moist_num_table(idomain)
691 g_moist_index_table( PARAM_g_qs , idomain ) = P_g_qs
692 ELSE
693 P_g_qs = g_moist_index_table( PARAM_g_qs , idomain )
694 END IF
695 g_moist_stream_table( idomain, P_g_qs ) = 2113953794
696 g_moist_dname_table( idomain, P_g_qs ) = 'G_QSNOW'
697 g_moist_desc_table( idomain, P_g_qs ) = 'Snow mixing ratio'
698 g_moist_units_table( idomain, P_g_qs ) = 'kg kg-1'
699 F_g_qs = .TRUE.
700 END IF
701 IF (model_config_rec%mp_physics(idomain)==5)THEN
702 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
703 moist_num_table(idomain) = moist_num_table(idomain) + 1
704 P_qv = moist_num_table(idomain)
705 moist_index_table( PARAM_qv , idomain ) = P_qv
706 ELSE
707 P_qv = moist_index_table( PARAM_qv , idomain )
708 END IF
709 moist_stream_table( idomain, P_qv ) = 2113953794
710 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
711 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
712 moist_units_table( idomain, P_qv ) = 'kg kg-1'
713 F_qv = .TRUE.
714 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
715 moist_num_table(idomain) = moist_num_table(idomain) + 1
716 P_qc = moist_num_table(idomain)
717 moist_index_table( PARAM_qc , idomain ) = P_qc
718 ELSE
719 P_qc = moist_index_table( PARAM_qc , idomain )
720 END IF
721 moist_stream_table( idomain, P_qc ) = 2113953794
722 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
723 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
724 moist_units_table( idomain, P_qc ) = 'kg kg-1'
725 F_qc = .TRUE.
726 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
727 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
728 P_a_qv = a_moist_num_table(idomain)
729 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
730 ELSE
731 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
732 END IF
733 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
734 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
735 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
736 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
737 F_a_qv = .TRUE.
738 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
739 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
740 P_a_qc = a_moist_num_table(idomain)
741 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
742 ELSE
743 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
744 END IF
745 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
746 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
747 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
748 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
749 F_a_qc = .TRUE.
750 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
751 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
752 P_g_qv = g_moist_num_table(idomain)
753 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
754 ELSE
755 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
756 END IF
757 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
758 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
759 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
760 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
761 F_g_qv = .TRUE.
762 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
763 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
764 P_g_qc = g_moist_num_table(idomain)
765 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
766 ELSE
767 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
768 END IF
769 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
770 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
771 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
772 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
773 F_g_qc = .TRUE.
774 END IF
775 IF (model_config_rec%mp_physics(idomain)==6)THEN
776 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
777 moist_num_table(idomain) = moist_num_table(idomain) + 1
778 P_qv = moist_num_table(idomain)
779 moist_index_table( PARAM_qv , idomain ) = P_qv
780 ELSE
781 P_qv = moist_index_table( PARAM_qv , idomain )
782 END IF
783 moist_stream_table( idomain, P_qv ) = 2113953794
784 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
785 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
786 moist_units_table( idomain, P_qv ) = 'kg kg-1'
787 F_qv = .TRUE.
788 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
789 moist_num_table(idomain) = moist_num_table(idomain) + 1
790 P_qc = moist_num_table(idomain)
791 moist_index_table( PARAM_qc , idomain ) = P_qc
792 ELSE
793 P_qc = moist_index_table( PARAM_qc , idomain )
794 END IF
795 moist_stream_table( idomain, P_qc ) = 2113953794
796 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
797 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
798 moist_units_table( idomain, P_qc ) = 'kg kg-1'
799 F_qc = .TRUE.
800 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
801 moist_num_table(idomain) = moist_num_table(idomain) + 1
802 P_qr = moist_num_table(idomain)
803 moist_index_table( PARAM_qr , idomain ) = P_qr
804 ELSE
805 P_qr = moist_index_table( PARAM_qr , idomain )
806 END IF
807 moist_stream_table( idomain, P_qr ) = 2113953794
808 moist_dname_table( idomain, P_qr ) = 'QRAIN'
809 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
810 moist_units_table( idomain, P_qr ) = 'kg kg-1'
811 F_qr = .TRUE.
812 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
813 moist_num_table(idomain) = moist_num_table(idomain) + 1
814 P_qi = moist_num_table(idomain)
815 moist_index_table( PARAM_qi , idomain ) = P_qi
816 ELSE
817 P_qi = moist_index_table( PARAM_qi , idomain )
818 END IF
819 moist_stream_table( idomain, P_qi ) = 2113953794
820 moist_dname_table( idomain, P_qi ) = 'QICE'
821 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
822 moist_units_table( idomain, P_qi ) = 'kg kg-1'
823 F_qi = .TRUE.
824 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
825 moist_num_table(idomain) = moist_num_table(idomain) + 1
826 P_qs = moist_num_table(idomain)
827 moist_index_table( PARAM_qs , idomain ) = P_qs
828 ELSE
829 P_qs = moist_index_table( PARAM_qs , idomain )
830 END IF
831 moist_stream_table( idomain, P_qs ) = 2113953794
832 moist_dname_table( idomain, P_qs ) = 'QSNOW'
833 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
834 moist_units_table( idomain, P_qs ) = 'kg kg-1'
835 F_qs = .TRUE.
836 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
837 moist_num_table(idomain) = moist_num_table(idomain) + 1
838 P_qg = moist_num_table(idomain)
839 moist_index_table( PARAM_qg , idomain ) = P_qg
840 ELSE
841 P_qg = moist_index_table( PARAM_qg , idomain )
842 END IF
843 moist_stream_table( idomain, P_qg ) = 2113953794
844 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
845 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
846 moist_units_table( idomain, P_qg ) = 'kg kg-1'
847 F_qg = .TRUE.
848 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
849 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
850 P_a_qv = a_moist_num_table(idomain)
851 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
852 ELSE
853 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
854 END IF
855 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
856 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
857 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
858 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
859 F_a_qv = .TRUE.
860 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
861 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
862 P_a_qc = a_moist_num_table(idomain)
863 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
864 ELSE
865 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
866 END IF
867 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
868 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
869 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
870 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
871 F_a_qc = .TRUE.
872 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
873 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
874 P_a_qr = a_moist_num_table(idomain)
875 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
876 ELSE
877 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
878 END IF
879 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
880 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
881 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
882 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
883 F_a_qr = .TRUE.
884 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
885 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
886 P_a_qi = a_moist_num_table(idomain)
887 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
888 ELSE
889 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
890 END IF
891 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
892 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
893 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
894 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
895 F_a_qi = .TRUE.
896 IF ( a_moist_index_table( PARAM_a_qs , idomain ) .lt. 1 ) THEN
897 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
898 P_a_qs = a_moist_num_table(idomain)
899 a_moist_index_table( PARAM_a_qs , idomain ) = P_a_qs
900 ELSE
901 P_a_qs = a_moist_index_table( PARAM_a_qs , idomain )
902 END IF
903 a_moist_stream_table( idomain, P_a_qs ) = 2113953794
904 a_moist_dname_table( idomain, P_a_qs ) = 'A_QSNOW'
905 a_moist_desc_table( idomain, P_a_qs ) = 'Snow mixing ratio'
906 a_moist_units_table( idomain, P_a_qs ) = 'kg kg-1'
907 F_a_qs = .TRUE.
908 IF ( a_moist_index_table( PARAM_a_qg , idomain ) .lt. 1 ) THEN
909 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
910 P_a_qg = a_moist_num_table(idomain)
911 a_moist_index_table( PARAM_a_qg , idomain ) = P_a_qg
912 ELSE
913 P_a_qg = a_moist_index_table( PARAM_a_qg , idomain )
914 END IF
915 a_moist_stream_table( idomain, P_a_qg ) = 2113953794
916 a_moist_dname_table( idomain, P_a_qg ) = 'A_QGRAUP'
917 a_moist_desc_table( idomain, P_a_qg ) = 'Graupel mixing ratio'
918 a_moist_units_table( idomain, P_a_qg ) = 'kg kg-1'
919 F_a_qg = .TRUE.
920 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
921 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
922 P_g_qv = g_moist_num_table(idomain)
923 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
924 ELSE
925 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
926 END IF
927 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
928 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
929 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
930 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
931 F_g_qv = .TRUE.
932 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
933 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
934 P_g_qc = g_moist_num_table(idomain)
935 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
936 ELSE
937 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
938 END IF
939 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
940 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
941 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
942 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
943 F_g_qc = .TRUE.
944 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
945 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
946 P_g_qr = g_moist_num_table(idomain)
947 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
948 ELSE
949 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
950 END IF
951 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
952 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
953 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
954 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
955 F_g_qr = .TRUE.
956 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
957 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
958 P_g_qi = g_moist_num_table(idomain)
959 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
960 ELSE
961 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
962 END IF
963 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
964 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
965 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
966 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
967 F_g_qi = .TRUE.
968 IF ( g_moist_index_table( PARAM_g_qs , idomain ) .lt. 1 ) THEN
969 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
970 P_g_qs = g_moist_num_table(idomain)
971 g_moist_index_table( PARAM_g_qs , idomain ) = P_g_qs
972 ELSE
973 P_g_qs = g_moist_index_table( PARAM_g_qs , idomain )
974 END IF
975 g_moist_stream_table( idomain, P_g_qs ) = 2113953794
976 g_moist_dname_table( idomain, P_g_qs ) = 'G_QSNOW'
977 g_moist_desc_table( idomain, P_g_qs ) = 'Snow mixing ratio'
978 g_moist_units_table( idomain, P_g_qs ) = 'kg kg-1'
979 F_g_qs = .TRUE.
980 IF ( g_moist_index_table( PARAM_g_qg , idomain ) .lt. 1 ) THEN
981 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
982 P_g_qg = g_moist_num_table(idomain)
983 g_moist_index_table( PARAM_g_qg , idomain ) = P_g_qg
984 ELSE
985 P_g_qg = g_moist_index_table( PARAM_g_qg , idomain )
986 END IF
987 g_moist_stream_table( idomain, P_g_qg ) = 2113953794
988 g_moist_dname_table( idomain, P_g_qg ) = 'G_QGRAUP'
989 g_moist_desc_table( idomain, P_g_qg ) = 'Graupel mixing ratio'
990 g_moist_units_table( idomain, P_g_qg ) = 'kg kg-1'
991 F_g_qg = .TRUE.
992 END IF
993 IF (model_config_rec%mp_physics(idomain)==98)THEN
994 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
995 moist_num_table(idomain) = moist_num_table(idomain) + 1
996 P_qv = moist_num_table(idomain)
997 moist_index_table( PARAM_qv , idomain ) = P_qv
998 ELSE
999 P_qv = moist_index_table( PARAM_qv , idomain )
1000 END IF
1001 moist_stream_table( idomain, P_qv ) = 2113953794
1002 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
1003 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
1004 moist_units_table( idomain, P_qv ) = 'kg kg-1'
1005 F_qv = .TRUE.
1006 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
1007 moist_num_table(idomain) = moist_num_table(idomain) + 1
1008 P_qc = moist_num_table(idomain)
1009 moist_index_table( PARAM_qc , idomain ) = P_qc
1010 ELSE
1011 P_qc = moist_index_table( PARAM_qc , idomain )
1012 END IF
1013 moist_stream_table( idomain, P_qc ) = 2113953794
1014 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
1015 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
1016 moist_units_table( idomain, P_qc ) = 'kg kg-1'
1017 F_qc = .TRUE.
1018 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
1019 moist_num_table(idomain) = moist_num_table(idomain) + 1
1020 P_qr = moist_num_table(idomain)
1021 moist_index_table( PARAM_qr , idomain ) = P_qr
1022 ELSE
1023 P_qr = moist_index_table( PARAM_qr , idomain )
1024 END IF
1025 moist_stream_table( idomain, P_qr ) = 2113953794
1026 moist_dname_table( idomain, P_qr ) = 'QRAIN'
1027 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
1028 moist_units_table( idomain, P_qr ) = 'kg kg-1'
1029 F_qr = .TRUE.
1030 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
1031 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1032 P_a_qv = a_moist_num_table(idomain)
1033 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
1034 ELSE
1035 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
1036 END IF
1037 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
1038 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
1039 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
1040 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
1041 F_a_qv = .TRUE.
1042 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
1043 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1044 P_a_qc = a_moist_num_table(idomain)
1045 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
1046 ELSE
1047 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
1048 END IF
1049 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
1050 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
1051 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
1052 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
1053 F_a_qc = .TRUE.
1054 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
1055 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1056 P_a_qr = a_moist_num_table(idomain)
1057 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
1058 ELSE
1059 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
1060 END IF
1061 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
1062 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
1063 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
1064 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
1065 F_a_qr = .TRUE.
1066 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
1067 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1068 P_g_qv = g_moist_num_table(idomain)
1069 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
1070 ELSE
1071 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
1072 END IF
1073 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
1074 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
1075 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
1076 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
1077 F_g_qv = .TRUE.
1078 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
1079 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1080 P_g_qc = g_moist_num_table(idomain)
1081 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
1082 ELSE
1083 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
1084 END IF
1085 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
1086 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
1087 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
1088 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
1089 F_g_qc = .TRUE.
1090 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
1091 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1092 P_g_qr = g_moist_num_table(idomain)
1093 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
1094 ELSE
1095 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
1096 END IF
1097 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
1098 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
1099 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
1100 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
1101 F_g_qr = .TRUE.
1102 END IF
1103 IF (model_config_rec%mp_physics(idomain)==99)THEN
1104 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
1105 moist_num_table(idomain) = moist_num_table(idomain) + 1
1106 P_qv = moist_num_table(idomain)
1107 moist_index_table( PARAM_qv , idomain ) = P_qv
1108 ELSE
1109 P_qv = moist_index_table( PARAM_qv , idomain )
1110 END IF
1111 moist_stream_table( idomain, P_qv ) = 2113953794
1112 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
1113 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
1114 moist_units_table( idomain, P_qv ) = 'kg kg-1'
1115 F_qv = .TRUE.
1116 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
1117 moist_num_table(idomain) = moist_num_table(idomain) + 1
1118 P_qc = moist_num_table(idomain)
1119 moist_index_table( PARAM_qc , idomain ) = P_qc
1120 ELSE
1121 P_qc = moist_index_table( PARAM_qc , idomain )
1122 END IF
1123 moist_stream_table( idomain, P_qc ) = 2113953794
1124 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
1125 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
1126 moist_units_table( idomain, P_qc ) = 'kg kg-1'
1127 F_qc = .TRUE.
1128 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
1129 moist_num_table(idomain) = moist_num_table(idomain) + 1
1130 P_qr = moist_num_table(idomain)
1131 moist_index_table( PARAM_qr , idomain ) = P_qr
1132 ELSE
1133 P_qr = moist_index_table( PARAM_qr , idomain )
1134 END IF
1135 moist_stream_table( idomain, P_qr ) = 2113953794
1136 moist_dname_table( idomain, P_qr ) = 'QRAIN'
1137 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
1138 moist_units_table( idomain, P_qr ) = 'kg kg-1'
1139 F_qr = .TRUE.
1140 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
1141 moist_num_table(idomain) = moist_num_table(idomain) + 1
1142 P_qi = moist_num_table(idomain)
1143 moist_index_table( PARAM_qi , idomain ) = P_qi
1144 ELSE
1145 P_qi = moist_index_table( PARAM_qi , idomain )
1146 END IF
1147 moist_stream_table( idomain, P_qi ) = 2113953794
1148 moist_dname_table( idomain, P_qi ) = 'QICE'
1149 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
1150 moist_units_table( idomain, P_qi ) = 'kg kg-1'
1151 F_qi = .TRUE.
1152 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
1153 moist_num_table(idomain) = moist_num_table(idomain) + 1
1154 P_qs = moist_num_table(idomain)
1155 moist_index_table( PARAM_qs , idomain ) = P_qs
1156 ELSE
1157 P_qs = moist_index_table( PARAM_qs , idomain )
1158 END IF
1159 moist_stream_table( idomain, P_qs ) = 2113953794
1160 moist_dname_table( idomain, P_qs ) = 'QSNOW'
1161 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
1162 moist_units_table( idomain, P_qs ) = 'kg kg-1'
1163 F_qs = .TRUE.
1164 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
1165 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1166 P_a_qv = a_moist_num_table(idomain)
1167 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
1168 ELSE
1169 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
1170 END IF
1171 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
1172 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
1173 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
1174 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
1175 F_a_qv = .TRUE.
1176 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
1177 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1178 P_a_qc = a_moist_num_table(idomain)
1179 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
1180 ELSE
1181 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
1182 END IF
1183 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
1184 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
1185 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
1186 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
1187 F_a_qc = .TRUE.
1188 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
1189 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1190 P_a_qr = a_moist_num_table(idomain)
1191 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
1192 ELSE
1193 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
1194 END IF
1195 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
1196 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
1197 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
1198 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
1199 F_a_qr = .TRUE.
1200 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
1201 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1202 P_a_qi = a_moist_num_table(idomain)
1203 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
1204 ELSE
1205 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
1206 END IF
1207 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
1208 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
1209 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
1210 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
1211 F_a_qi = .TRUE.
1212 IF ( a_moist_index_table( PARAM_a_qs , idomain ) .lt. 1 ) THEN
1213 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1214 P_a_qs = a_moist_num_table(idomain)
1215 a_moist_index_table( PARAM_a_qs , idomain ) = P_a_qs
1216 ELSE
1217 P_a_qs = a_moist_index_table( PARAM_a_qs , idomain )
1218 END IF
1219 a_moist_stream_table( idomain, P_a_qs ) = 2113953794
1220 a_moist_dname_table( idomain, P_a_qs ) = 'A_QSNOW'
1221 a_moist_desc_table( idomain, P_a_qs ) = 'Snow mixing ratio'
1222 a_moist_units_table( idomain, P_a_qs ) = 'kg kg-1'
1223 F_a_qs = .TRUE.
1224 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
1225 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1226 P_g_qv = g_moist_num_table(idomain)
1227 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
1228 ELSE
1229 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
1230 END IF
1231 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
1232 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
1233 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
1234 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
1235 F_g_qv = .TRUE.
1236 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
1237 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1238 P_g_qc = g_moist_num_table(idomain)
1239 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
1240 ELSE
1241 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
1242 END IF
1243 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
1244 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
1245 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
1246 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
1247 F_g_qc = .TRUE.
1248 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
1249 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1250 P_g_qr = g_moist_num_table(idomain)
1251 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
1252 ELSE
1253 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
1254 END IF
1255 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
1256 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
1257 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
1258 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
1259 F_g_qr = .TRUE.
1260 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
1261 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1262 P_g_qi = g_moist_num_table(idomain)
1263 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
1264 ELSE
1265 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
1266 END IF
1267 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
1268 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
1269 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
1270 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
1271 F_g_qi = .TRUE.
1272 IF ( g_moist_index_table( PARAM_g_qs , idomain ) .lt. 1 ) THEN
1273 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1274 P_g_qs = g_moist_num_table(idomain)
1275 g_moist_index_table( PARAM_g_qs , idomain ) = P_g_qs
1276 ELSE
1277 P_g_qs = g_moist_index_table( PARAM_g_qs , idomain )
1278 END IF
1279 g_moist_stream_table( idomain, P_g_qs ) = 2113953794
1280 g_moist_dname_table( idomain, P_g_qs ) = 'G_QSNOW'
1281 g_moist_desc_table( idomain, P_g_qs ) = 'Snow mixing ratio'
1282 g_moist_units_table( idomain, P_g_qs ) = 'kg kg-1'
1283 F_g_qs = .TRUE.
1284 END IF
1285 IF (model_config_rec%mp_physics(idomain)==8)THEN
1286 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
1287 moist_num_table(idomain) = moist_num_table(idomain) + 1
1288 P_qv = moist_num_table(idomain)
1289 moist_index_table( PARAM_qv , idomain ) = P_qv
1290 ELSE
1291 P_qv = moist_index_table( PARAM_qv , idomain )
1292 END IF
1293 moist_stream_table( idomain, P_qv ) = 2113953794
1294 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
1295 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
1296 moist_units_table( idomain, P_qv ) = 'kg kg-1'
1297 F_qv = .TRUE.
1298 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
1299 moist_num_table(idomain) = moist_num_table(idomain) + 1
1300 P_qc = moist_num_table(idomain)
1301 moist_index_table( PARAM_qc , idomain ) = P_qc
1302 ELSE
1303 P_qc = moist_index_table( PARAM_qc , idomain )
1304 END IF
1305 moist_stream_table( idomain, P_qc ) = 2113953794
1306 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
1307 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
1308 moist_units_table( idomain, P_qc ) = 'kg kg-1'
1309 F_qc = .TRUE.
1310 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
1311 moist_num_table(idomain) = moist_num_table(idomain) + 1
1312 P_qr = moist_num_table(idomain)
1313 moist_index_table( PARAM_qr , idomain ) = P_qr
1314 ELSE
1315 P_qr = moist_index_table( PARAM_qr , idomain )
1316 END IF
1317 moist_stream_table( idomain, P_qr ) = 2113953794
1318 moist_dname_table( idomain, P_qr ) = 'QRAIN'
1319 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
1320 moist_units_table( idomain, P_qr ) = 'kg kg-1'
1321 F_qr = .TRUE.
1322 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
1323 moist_num_table(idomain) = moist_num_table(idomain) + 1
1324 P_qi = moist_num_table(idomain)
1325 moist_index_table( PARAM_qi , idomain ) = P_qi
1326 ELSE
1327 P_qi = moist_index_table( PARAM_qi , idomain )
1328 END IF
1329 moist_stream_table( idomain, P_qi ) = 2113953794
1330 moist_dname_table( idomain, P_qi ) = 'QICE'
1331 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
1332 moist_units_table( idomain, P_qi ) = 'kg kg-1'
1333 F_qi = .TRUE.
1334 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
1335 moist_num_table(idomain) = moist_num_table(idomain) + 1
1336 P_qs = moist_num_table(idomain)
1337 moist_index_table( PARAM_qs , idomain ) = P_qs
1338 ELSE
1339 P_qs = moist_index_table( PARAM_qs , idomain )
1340 END IF
1341 moist_stream_table( idomain, P_qs ) = 2113953794
1342 moist_dname_table( idomain, P_qs ) = 'QSNOW'
1343 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
1344 moist_units_table( idomain, P_qs ) = 'kg kg-1'
1345 F_qs = .TRUE.
1346 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
1347 moist_num_table(idomain) = moist_num_table(idomain) + 1
1348 P_qg = moist_num_table(idomain)
1349 moist_index_table( PARAM_qg , idomain ) = P_qg
1350 ELSE
1351 P_qg = moist_index_table( PARAM_qg , idomain )
1352 END IF
1353 moist_stream_table( idomain, P_qg ) = 2113953794
1354 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
1355 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
1356 moist_units_table( idomain, P_qg ) = 'kg kg-1'
1357 F_qg = .TRUE.
1358 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
1359 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1360 P_a_qv = a_moist_num_table(idomain)
1361 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
1362 ELSE
1363 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
1364 END IF
1365 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
1366 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
1367 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
1368 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
1369 F_a_qv = .TRUE.
1370 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
1371 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1372 P_a_qc = a_moist_num_table(idomain)
1373 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
1374 ELSE
1375 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
1376 END IF
1377 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
1378 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
1379 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
1380 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
1381 F_a_qc = .TRUE.
1382 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
1383 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1384 P_a_qr = a_moist_num_table(idomain)
1385 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
1386 ELSE
1387 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
1388 END IF
1389 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
1390 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
1391 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
1392 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
1393 F_a_qr = .TRUE.
1394 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
1395 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1396 P_a_qi = a_moist_num_table(idomain)
1397 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
1398 ELSE
1399 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
1400 END IF
1401 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
1402 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
1403 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
1404 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
1405 F_a_qi = .TRUE.
1406 IF ( a_moist_index_table( PARAM_a_qs , idomain ) .lt. 1 ) THEN
1407 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1408 P_a_qs = a_moist_num_table(idomain)
1409 a_moist_index_table( PARAM_a_qs , idomain ) = P_a_qs
1410 ELSE
1411 P_a_qs = a_moist_index_table( PARAM_a_qs , idomain )
1412 END IF
1413 a_moist_stream_table( idomain, P_a_qs ) = 2113953794
1414 a_moist_dname_table( idomain, P_a_qs ) = 'A_QSNOW'
1415 a_moist_desc_table( idomain, P_a_qs ) = 'Snow mixing ratio'
1416 a_moist_units_table( idomain, P_a_qs ) = 'kg kg-1'
1417 F_a_qs = .TRUE.
1418 IF ( a_moist_index_table( PARAM_a_qg , idomain ) .lt. 1 ) THEN
1419 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1420 P_a_qg = a_moist_num_table(idomain)
1421 a_moist_index_table( PARAM_a_qg , idomain ) = P_a_qg
1422 ELSE
1423 P_a_qg = a_moist_index_table( PARAM_a_qg , idomain )
1424 END IF
1425 a_moist_stream_table( idomain, P_a_qg ) = 2113953794
1426 a_moist_dname_table( idomain, P_a_qg ) = 'A_QGRAUP'
1427 a_moist_desc_table( idomain, P_a_qg ) = 'Graupel mixing ratio'
1428 a_moist_units_table( idomain, P_a_qg ) = 'kg kg-1'
1429 F_a_qg = .TRUE.
1430 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
1431 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1432 P_g_qv = g_moist_num_table(idomain)
1433 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
1434 ELSE
1435 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
1436 END IF
1437 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
1438 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
1439 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
1440 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
1441 F_g_qv = .TRUE.
1442 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
1443 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1444 P_g_qc = g_moist_num_table(idomain)
1445 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
1446 ELSE
1447 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
1448 END IF
1449 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
1450 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
1451 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
1452 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
1453 F_g_qc = .TRUE.
1454 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
1455 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1456 P_g_qr = g_moist_num_table(idomain)
1457 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
1458 ELSE
1459 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
1460 END IF
1461 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
1462 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
1463 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
1464 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
1465 F_g_qr = .TRUE.
1466 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
1467 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1468 P_g_qi = g_moist_num_table(idomain)
1469 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
1470 ELSE
1471 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
1472 END IF
1473 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
1474 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
1475 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
1476 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
1477 F_g_qi = .TRUE.
1478 IF ( g_moist_index_table( PARAM_g_qs , idomain ) .lt. 1 ) THEN
1479 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1480 P_g_qs = g_moist_num_table(idomain)
1481 g_moist_index_table( PARAM_g_qs , idomain ) = P_g_qs
1482 ELSE
1483 P_g_qs = g_moist_index_table( PARAM_g_qs , idomain )
1484 END IF
1485 g_moist_stream_table( idomain, P_g_qs ) = 2113953794
1486 g_moist_dname_table( idomain, P_g_qs ) = 'G_QSNOW'
1487 g_moist_desc_table( idomain, P_g_qs ) = 'Snow mixing ratio'
1488 g_moist_units_table( idomain, P_g_qs ) = 'kg kg-1'
1489 F_g_qs = .TRUE.
1490 IF ( g_moist_index_table( PARAM_g_qg , idomain ) .lt. 1 ) THEN
1491 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1492 P_g_qg = g_moist_num_table(idomain)
1493 g_moist_index_table( PARAM_g_qg , idomain ) = P_g_qg
1494 ELSE
1495 P_g_qg = g_moist_index_table( PARAM_g_qg , idomain )
1496 END IF
1497 g_moist_stream_table( idomain, P_g_qg ) = 2113953794
1498 g_moist_dname_table( idomain, P_g_qg ) = 'G_QGRAUP'
1499 g_moist_desc_table( idomain, P_g_qg ) = 'Graupel mixing ratio'
1500 g_moist_units_table( idomain, P_g_qg ) = 'kg kg-1'
1501 F_g_qg = .TRUE.
1502 IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN
1503 scalar_num_table(idomain) = scalar_num_table(idomain) + 1
1504 P_qni = scalar_num_table(idomain)
1505 scalar_index_table( PARAM_qni , idomain ) = P_qni
1506 ELSE
1507 P_qni = scalar_index_table( PARAM_qni , idomain )
1508 END IF
1509 scalar_stream_table( idomain, P_qni ) = 2113953794
1510 scalar_dname_table( idomain, P_qni ) = 'QNICE'
1511 scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration'
1512 scalar_units_table( idomain, P_qni ) = ' kg(-1)'
1513 F_qni = .TRUE.
1514 END IF
1515 IF (model_config_rec%ra_lw_physics(idomain)==1)THEN
1516 END IF
1517 IF (model_config_rec%ra_lw_physics(idomain)==99)THEN
1518 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
1519 moist_num_table(idomain) = moist_num_table(idomain) + 1
1520 P_qv = moist_num_table(idomain)
1521 moist_index_table( PARAM_qv , idomain ) = P_qv
1522 ELSE
1523 P_qv = moist_index_table( PARAM_qv , idomain )
1524 END IF
1525 moist_stream_table( idomain, P_qv ) = 2113953794
1526 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
1527 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
1528 moist_units_table( idomain, P_qv ) = 'kg kg-1'
1529 F_qv = .TRUE.
1530 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
1531 moist_num_table(idomain) = moist_num_table(idomain) + 1
1532 P_qc = moist_num_table(idomain)
1533 moist_index_table( PARAM_qc , idomain ) = P_qc
1534 ELSE
1535 P_qc = moist_index_table( PARAM_qc , idomain )
1536 END IF
1537 moist_stream_table( idomain, P_qc ) = 2113953794
1538 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
1539 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
1540 moist_units_table( idomain, P_qc ) = 'kg kg-1'
1541 F_qc = .TRUE.
1542 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
1543 moist_num_table(idomain) = moist_num_table(idomain) + 1
1544 P_qr = moist_num_table(idomain)
1545 moist_index_table( PARAM_qr , idomain ) = P_qr
1546 ELSE
1547 P_qr = moist_index_table( PARAM_qr , idomain )
1548 END IF
1549 moist_stream_table( idomain, P_qr ) = 2113953794
1550 moist_dname_table( idomain, P_qr ) = 'QRAIN'
1551 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
1552 moist_units_table( idomain, P_qr ) = 'kg kg-1'
1553 F_qr = .TRUE.
1554 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
1555 moist_num_table(idomain) = moist_num_table(idomain) + 1
1556 P_qi = moist_num_table(idomain)
1557 moist_index_table( PARAM_qi , idomain ) = P_qi
1558 ELSE
1559 P_qi = moist_index_table( PARAM_qi , idomain )
1560 END IF
1561 moist_stream_table( idomain, P_qi ) = 2113953794
1562 moist_dname_table( idomain, P_qi ) = 'QICE'
1563 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
1564 moist_units_table( idomain, P_qi ) = 'kg kg-1'
1565 F_qi = .TRUE.
1566 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
1567 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1568 P_a_qv = a_moist_num_table(idomain)
1569 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
1570 ELSE
1571 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
1572 END IF
1573 a_moist_stream_table( idomain, P_a_qv ) = 2113953794
1574 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
1575 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
1576 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
1577 F_a_qv = .TRUE.
1578 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
1579 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1580 P_a_qc = a_moist_num_table(idomain)
1581 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
1582 ELSE
1583 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
1584 END IF
1585 a_moist_stream_table( idomain, P_a_qc ) = 2113953794
1586 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
1587 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
1588 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
1589 F_a_qc = .TRUE.
1590 IF ( a_moist_index_table( PARAM_a_qr , idomain ) .lt. 1 ) THEN
1591 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1592 P_a_qr = a_moist_num_table(idomain)
1593 a_moist_index_table( PARAM_a_qr , idomain ) = P_a_qr
1594 ELSE
1595 P_a_qr = a_moist_index_table( PARAM_a_qr , idomain )
1596 END IF
1597 a_moist_stream_table( idomain, P_a_qr ) = 2113953794
1598 a_moist_dname_table( idomain, P_a_qr ) = 'A_QRAIN'
1599 a_moist_desc_table( idomain, P_a_qr ) = 'Rain water mixing ratio'
1600 a_moist_units_table( idomain, P_a_qr ) = 'kg kg-1'
1601 F_a_qr = .TRUE.
1602 IF ( a_moist_index_table( PARAM_a_qi , idomain ) .lt. 1 ) THEN
1603 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
1604 P_a_qi = a_moist_num_table(idomain)
1605 a_moist_index_table( PARAM_a_qi , idomain ) = P_a_qi
1606 ELSE
1607 P_a_qi = a_moist_index_table( PARAM_a_qi , idomain )
1608 END IF
1609 a_moist_stream_table( idomain, P_a_qi ) = 2113953794
1610 a_moist_dname_table( idomain, P_a_qi ) = 'A_QICE'
1611 a_moist_desc_table( idomain, P_a_qi ) = 'Ice mixing ratio'
1612 a_moist_units_table( idomain, P_a_qi ) = 'kg kg-1'
1613 F_a_qi = .TRUE.
1614 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
1615 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1616 P_g_qv = g_moist_num_table(idomain)
1617 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
1618 ELSE
1619 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
1620 END IF
1621 g_moist_stream_table( idomain, P_g_qv ) = 2113953794
1622 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
1623 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
1624 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
1625 F_g_qv = .TRUE.
1626 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
1627 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1628 P_g_qc = g_moist_num_table(idomain)
1629 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
1630 ELSE
1631 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
1632 END IF
1633 g_moist_stream_table( idomain, P_g_qc ) = 2113953794
1634 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
1635 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
1636 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
1637 F_g_qc = .TRUE.
1638 IF ( g_moist_index_table( PARAM_g_qr , idomain ) .lt. 1 ) THEN
1639 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1640 P_g_qr = g_moist_num_table(idomain)
1641 g_moist_index_table( PARAM_g_qr , idomain ) = P_g_qr
1642 ELSE
1643 P_g_qr = g_moist_index_table( PARAM_g_qr , idomain )
1644 END IF
1645 g_moist_stream_table( idomain, P_g_qr ) = 2113953794
1646 g_moist_dname_table( idomain, P_g_qr ) = 'G_QRAIN'
1647 g_moist_desc_table( idomain, P_g_qr ) = 'Rain water mixing ratio'
1648 g_moist_units_table( idomain, P_g_qr ) = 'kg kg-1'
1649 F_g_qr = .TRUE.
1650 IF ( g_moist_index_table( PARAM_g_qi , idomain ) .lt. 1 ) THEN
1651 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
1652 P_g_qi = g_moist_num_table(idomain)
1653 g_moist_index_table( PARAM_g_qi , idomain ) = P_g_qi
1654 ELSE
1655 P_g_qi = g_moist_index_table( PARAM_g_qi , idomain )
1656 END IF
1657 g_moist_stream_table( idomain, P_g_qi ) = 2113953794
1658 g_moist_dname_table( idomain, P_g_qi ) = 'G_QICE'
1659 g_moist_desc_table( idomain, P_g_qi ) = 'Ice mixing ratio'
1660 g_moist_units_table( idomain, P_g_qi ) = 'kg kg-1'
1661 F_g_qi = .TRUE.
1662 END IF
1663 IF (model_config_rec%ra_sw_physics(idomain)==1)THEN
1664 END IF
1665 IF (model_config_rec%ra_sw_physics(idomain)==2)THEN
1666 END IF
1667 IF (model_config_rec%ra_sw_physics(idomain)==99)THEN
1668 END IF
1669 IF (model_config_rec%sf_sfclay_physics(idomain)==1)THEN
1670 END IF
1671 IF (model_config_rec%sf_sfclay_physics(idomain)==2)THEN
1672 END IF
1673 IF (model_config_rec%sf_sfclay_physics(idomain)==3)THEN
1674 END IF
1675 IF (model_config_rec%sf_surface_physics(idomain)==1)THEN
1676 END IF
1677 IF (model_config_rec%sf_surface_physics(idomain)==2)THEN
1678 END IF
1679 IF (model_config_rec%sf_surface_physics(idomain)==3)THEN
1680 END IF
1681 IF (model_config_rec%bl_pbl_physics(idomain)==1)THEN
1682 END IF
1683 IF (model_config_rec%bl_pbl_physics(idomain)==2)THEN
1684 END IF
1685 IF (model_config_rec%bl_pbl_physics(idomain)==3)THEN
1686 END IF
1687 IF (model_config_rec%bl_pbl_physics(idomain)==99)THEN
1688 END IF
1689 IF (model_config_rec%cu_physics(idomain)==1)THEN
1690 END IF
1691 IF (model_config_rec%cu_physics(idomain)==2)THEN
1692 END IF
1693 IF (model_config_rec%cu_physics(idomain)==3)THEN
1694 END IF
1695 IF (model_config_rec%cu_physics(idomain)==4)THEN
1696 END IF
1697 IF (model_config_rec%cu_physics(idomain)==99)THEN
1698 END IF
1699 IF (model_config_rec%io_form_restart==1)THEN
1700 END IF
1701 IF (model_config_rec%io_form_restart==2)THEN
1702 END IF
1703 IF (model_config_rec%io_form_restart==3)THEN
1704 END IF
1705 IF (model_config_rec%io_form_restart==4)THEN
1706 END IF
1707 IF (model_config_rec%io_form_restart==5)THEN
1708 END IF
1709 IF (model_config_rec%io_form_restart==6)THEN
1710 END IF
1711 IF (model_config_rec%io_form_restart==7)THEN
1712 END IF
1713 IF (model_config_rec%io_form_restart==8)THEN
1714 END IF
1715 IF (model_config_rec%io_form_restart==9)THEN
1716 END IF
1717 IF (model_config_rec%io_form_restart==10)THEN
1718 END IF
1719 IF (model_config_rec%io_form_restart==11)THEN
1720 END IF
1721 !ENDOFREGISTRYGENERATEDINCLUDE