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_g_qv = 1 ; F_g_qv = .FALSE.
16 P_g_qc = 1 ; F_g_qc = .FALSE.
17 P_qni = 1 ; F_qni = .FALSE.
18 P_qt = 1 ; F_qt = .FALSE.
19 IF (model_config_rec%dyn_opt==0)THEN
20 END IF
21 IF (model_config_rec%dyn_opt==2)THEN
22 END IF
23 IF (model_config_rec%dyn_opt==102)THEN
24 END IF
25 IF (model_config_rec%dyn_opt==202)THEN
26 END IF
27 IF (model_config_rec%dyn_opt==302)THEN
28 END IF
29 IF (model_config_rec%dyn_opt==402)THEN
30 END IF
31 IF (model_config_rec%dyn_opt==502)THEN
32 END IF
33 IF (model_config_rec%chem_opt(idomain)==0)THEN
34 END IF
35 IF (model_config_rec%mp_physics(idomain)==0)THEN
36 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
37 moist_num_table(idomain) = moist_num_table(idomain) + 1
38 P_qv = moist_num_table(idomain)
39 moist_index_table( PARAM_qv , idomain ) = P_qv
40 ELSE
41 P_qv = moist_index_table( PARAM_qv , idomain )
42 END IF
43 moist_stream_table( idomain, P_qv ) = 2113953794
44 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
45 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
46 moist_units_table( idomain, P_qv ) = 'kg kg-1'
47 F_qv = .TRUE.
48 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
49 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
50 P_a_qv = a_moist_num_table(idomain)
51 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
52 ELSE
53 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
54 END IF
55 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
56 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
57 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
58 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
59 F_a_qv = .TRUE.
60 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
61 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
62 P_g_qv = g_moist_num_table(idomain)
63 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
64 ELSE
65 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
66 END IF
67 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
68 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
69 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
70 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
71 F_g_qv = .TRUE.
72 END IF
73 IF (model_config_rec%mp_physics(idomain)==1)THEN
74 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
75 moist_num_table(idomain) = moist_num_table(idomain) + 1
76 P_qv = moist_num_table(idomain)
77 moist_index_table( PARAM_qv , idomain ) = P_qv
78 ELSE
79 P_qv = moist_index_table( PARAM_qv , idomain )
80 END IF
81 moist_stream_table( idomain, P_qv ) = 2113953794
82 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
83 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
84 moist_units_table( idomain, P_qv ) = 'kg kg-1'
85 F_qv = .TRUE.
86 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
87 moist_num_table(idomain) = moist_num_table(idomain) + 1
88 P_qc = moist_num_table(idomain)
89 moist_index_table( PARAM_qc , idomain ) = P_qc
90 ELSE
91 P_qc = moist_index_table( PARAM_qc , idomain )
92 END IF
93 moist_stream_table( idomain, P_qc ) = 2113953794
94 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
95 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
96 moist_units_table( idomain, P_qc ) = 'kg kg-1'
97 F_qc = .TRUE.
98 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
99 moist_num_table(idomain) = moist_num_table(idomain) + 1
100 P_qr = moist_num_table(idomain)
101 moist_index_table( PARAM_qr , idomain ) = P_qr
102 ELSE
103 P_qr = moist_index_table( PARAM_qr , idomain )
104 END IF
105 moist_stream_table( idomain, P_qr ) = 2113953794
106 moist_dname_table( idomain, P_qr ) = 'QRAIN'
107 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
108 moist_units_table( idomain, P_qr ) = 'kg kg-1'
109 F_qr = .TRUE.
110 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
111 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
112 P_a_qv = a_moist_num_table(idomain)
113 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
114 ELSE
115 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
116 END IF
117 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
118 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
119 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
120 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
121 F_a_qv = .TRUE.
122 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
123 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
124 P_a_qc = a_moist_num_table(idomain)
125 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
126 ELSE
127 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
128 END IF
129 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
130 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
131 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
132 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
133 F_a_qc = .TRUE.
134 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
135 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
136 P_g_qv = g_moist_num_table(idomain)
137 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
138 ELSE
139 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
140 END IF
141 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
142 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
143 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
144 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
145 F_g_qv = .TRUE.
146 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
147 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
148 P_g_qc = g_moist_num_table(idomain)
149 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
150 ELSE
151 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
152 END IF
153 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
154 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
155 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
156 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
157 F_g_qc = .TRUE.
158 END IF
159 IF (model_config_rec%mp_physics(idomain)==2)THEN
160 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
161 moist_num_table(idomain) = moist_num_table(idomain) + 1
162 P_qv = moist_num_table(idomain)
163 moist_index_table( PARAM_qv , idomain ) = P_qv
164 ELSE
165 P_qv = moist_index_table( PARAM_qv , idomain )
166 END IF
167 moist_stream_table( idomain, P_qv ) = 2113953794
168 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
169 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
170 moist_units_table( idomain, P_qv ) = 'kg kg-1'
171 F_qv = .TRUE.
172 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
173 moist_num_table(idomain) = moist_num_table(idomain) + 1
174 P_qc = moist_num_table(idomain)
175 moist_index_table( PARAM_qc , idomain ) = P_qc
176 ELSE
177 P_qc = moist_index_table( PARAM_qc , idomain )
178 END IF
179 moist_stream_table( idomain, P_qc ) = 2113953794
180 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
181 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
182 moist_units_table( idomain, P_qc ) = 'kg kg-1'
183 F_qc = .TRUE.
184 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
185 moist_num_table(idomain) = moist_num_table(idomain) + 1
186 P_qr = moist_num_table(idomain)
187 moist_index_table( PARAM_qr , idomain ) = P_qr
188 ELSE
189 P_qr = moist_index_table( PARAM_qr , idomain )
190 END IF
191 moist_stream_table( idomain, P_qr ) = 2113953794
192 moist_dname_table( idomain, P_qr ) = 'QRAIN'
193 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
194 moist_units_table( idomain, P_qr ) = 'kg kg-1'
195 F_qr = .TRUE.
196 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
197 moist_num_table(idomain) = moist_num_table(idomain) + 1
198 P_qi = moist_num_table(idomain)
199 moist_index_table( PARAM_qi , idomain ) = P_qi
200 ELSE
201 P_qi = moist_index_table( PARAM_qi , idomain )
202 END IF
203 moist_stream_table( idomain, P_qi ) = 2113953794
204 moist_dname_table( idomain, P_qi ) = 'QICE'
205 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
206 moist_units_table( idomain, P_qi ) = 'kg kg-1'
207 F_qi = .TRUE.
208 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
209 moist_num_table(idomain) = moist_num_table(idomain) + 1
210 P_qs = moist_num_table(idomain)
211 moist_index_table( PARAM_qs , idomain ) = P_qs
212 ELSE
213 P_qs = moist_index_table( PARAM_qs , idomain )
214 END IF
215 moist_stream_table( idomain, P_qs ) = 2113953794
216 moist_dname_table( idomain, P_qs ) = 'QSNOW'
217 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
218 moist_units_table( idomain, P_qs ) = 'kg kg-1'
219 F_qs = .TRUE.
220 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
221 moist_num_table(idomain) = moist_num_table(idomain) + 1
222 P_qg = moist_num_table(idomain)
223 moist_index_table( PARAM_qg , idomain ) = P_qg
224 ELSE
225 P_qg = moist_index_table( PARAM_qg , idomain )
226 END IF
227 moist_stream_table( idomain, P_qg ) = 2113953794
228 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
229 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
230 moist_units_table( idomain, P_qg ) = 'kg kg-1'
231 F_qg = .TRUE.
232 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
233 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
234 P_a_qv = a_moist_num_table(idomain)
235 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
236 ELSE
237 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
238 END IF
239 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
240 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
241 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
242 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
243 F_a_qv = .TRUE.
244 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
245 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
246 P_a_qc = a_moist_num_table(idomain)
247 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
248 ELSE
249 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
250 END IF
251 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
252 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
253 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
254 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
255 F_a_qc = .TRUE.
256 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
257 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
258 P_g_qv = g_moist_num_table(idomain)
259 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
260 ELSE
261 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
262 END IF
263 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
264 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
265 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
266 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
267 F_g_qv = .TRUE.
268 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
269 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
270 P_g_qc = g_moist_num_table(idomain)
271 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
272 ELSE
273 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
274 END IF
275 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
276 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
277 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
278 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
279 F_g_qc = .TRUE.
280 END IF
281 IF (model_config_rec%mp_physics(idomain)==3)THEN
282 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
283 moist_num_table(idomain) = moist_num_table(idomain) + 1
284 P_qv = moist_num_table(idomain)
285 moist_index_table( PARAM_qv , idomain ) = P_qv
286 ELSE
287 P_qv = moist_index_table( PARAM_qv , idomain )
288 END IF
289 moist_stream_table( idomain, P_qv ) = 2113953794
290 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
291 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
292 moist_units_table( idomain, P_qv ) = 'kg kg-1'
293 F_qv = .TRUE.
294 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
295 moist_num_table(idomain) = moist_num_table(idomain) + 1
296 P_qc = moist_num_table(idomain)
297 moist_index_table( PARAM_qc , idomain ) = P_qc
298 ELSE
299 P_qc = moist_index_table( PARAM_qc , idomain )
300 END IF
301 moist_stream_table( idomain, P_qc ) = 2113953794
302 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
303 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
304 moist_units_table( idomain, P_qc ) = 'kg kg-1'
305 F_qc = .TRUE.
306 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
307 moist_num_table(idomain) = moist_num_table(idomain) + 1
308 P_qr = moist_num_table(idomain)
309 moist_index_table( PARAM_qr , idomain ) = P_qr
310 ELSE
311 P_qr = moist_index_table( PARAM_qr , idomain )
312 END IF
313 moist_stream_table( idomain, P_qr ) = 2113953794
314 moist_dname_table( idomain, P_qr ) = 'QRAIN'
315 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
316 moist_units_table( idomain, P_qr ) = 'kg kg-1'
317 F_qr = .TRUE.
318 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
319 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
320 P_a_qv = a_moist_num_table(idomain)
321 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
322 ELSE
323 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
324 END IF
325 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
326 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
327 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
328 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
329 F_a_qv = .TRUE.
330 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
331 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
332 P_a_qc = a_moist_num_table(idomain)
333 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
334 ELSE
335 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
336 END IF
337 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
338 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
339 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
340 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
341 F_a_qc = .TRUE.
342 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
343 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
344 P_g_qv = g_moist_num_table(idomain)
345 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
346 ELSE
347 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
348 END IF
349 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
350 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
351 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
352 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
353 F_g_qv = .TRUE.
354 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
355 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
356 P_g_qc = g_moist_num_table(idomain)
357 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
358 ELSE
359 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
360 END IF
361 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
362 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
363 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
364 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
365 F_g_qc = .TRUE.
366 END IF
367 IF (model_config_rec%mp_physics(idomain)==4)THEN
368 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
369 moist_num_table(idomain) = moist_num_table(idomain) + 1
370 P_qv = moist_num_table(idomain)
371 moist_index_table( PARAM_qv , idomain ) = P_qv
372 ELSE
373 P_qv = moist_index_table( PARAM_qv , idomain )
374 END IF
375 moist_stream_table( idomain, P_qv ) = 2113953794
376 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
377 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
378 moist_units_table( idomain, P_qv ) = 'kg kg-1'
379 F_qv = .TRUE.
380 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
381 moist_num_table(idomain) = moist_num_table(idomain) + 1
382 P_qc = moist_num_table(idomain)
383 moist_index_table( PARAM_qc , idomain ) = P_qc
384 ELSE
385 P_qc = moist_index_table( PARAM_qc , idomain )
386 END IF
387 moist_stream_table( idomain, P_qc ) = 2113953794
388 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
389 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
390 moist_units_table( idomain, P_qc ) = 'kg kg-1'
391 F_qc = .TRUE.
392 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
393 moist_num_table(idomain) = moist_num_table(idomain) + 1
394 P_qr = moist_num_table(idomain)
395 moist_index_table( PARAM_qr , idomain ) = P_qr
396 ELSE
397 P_qr = moist_index_table( PARAM_qr , idomain )
398 END IF
399 moist_stream_table( idomain, P_qr ) = 2113953794
400 moist_dname_table( idomain, P_qr ) = 'QRAIN'
401 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
402 moist_units_table( idomain, P_qr ) = 'kg kg-1'
403 F_qr = .TRUE.
404 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
405 moist_num_table(idomain) = moist_num_table(idomain) + 1
406 P_qi = moist_num_table(idomain)
407 moist_index_table( PARAM_qi , idomain ) = P_qi
408 ELSE
409 P_qi = moist_index_table( PARAM_qi , idomain )
410 END IF
411 moist_stream_table( idomain, P_qi ) = 2113953794
412 moist_dname_table( idomain, P_qi ) = 'QICE'
413 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
414 moist_units_table( idomain, P_qi ) = 'kg kg-1'
415 F_qi = .TRUE.
416 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
417 moist_num_table(idomain) = moist_num_table(idomain) + 1
418 P_qs = moist_num_table(idomain)
419 moist_index_table( PARAM_qs , idomain ) = P_qs
420 ELSE
421 P_qs = moist_index_table( PARAM_qs , idomain )
422 END IF
423 moist_stream_table( idomain, P_qs ) = 2113953794
424 moist_dname_table( idomain, P_qs ) = 'QSNOW'
425 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
426 moist_units_table( idomain, P_qs ) = 'kg kg-1'
427 F_qs = .TRUE.
428 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
429 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
430 P_a_qv = a_moist_num_table(idomain)
431 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
432 ELSE
433 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
434 END IF
435 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
436 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
437 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
438 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
439 F_a_qv = .TRUE.
440 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
441 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
442 P_a_qc = a_moist_num_table(idomain)
443 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
444 ELSE
445 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
446 END IF
447 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
448 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
449 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
450 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
451 F_a_qc = .TRUE.
452 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
453 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
454 P_g_qv = g_moist_num_table(idomain)
455 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
456 ELSE
457 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
458 END IF
459 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
460 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
461 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
462 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
463 F_g_qv = .TRUE.
464 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
465 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
466 P_g_qc = g_moist_num_table(idomain)
467 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
468 ELSE
469 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
470 END IF
471 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
472 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
473 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
474 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
475 F_g_qc = .TRUE.
476 END IF
477 IF (model_config_rec%mp_physics(idomain)==5)THEN
478 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
479 moist_num_table(idomain) = moist_num_table(idomain) + 1
480 P_qv = moist_num_table(idomain)
481 moist_index_table( PARAM_qv , idomain ) = P_qv
482 ELSE
483 P_qv = moist_index_table( PARAM_qv , idomain )
484 END IF
485 moist_stream_table( idomain, P_qv ) = 2113953794
486 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
487 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
488 moist_units_table( idomain, P_qv ) = 'kg kg-1'
489 F_qv = .TRUE.
490 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
491 moist_num_table(idomain) = moist_num_table(idomain) + 1
492 P_qc = moist_num_table(idomain)
493 moist_index_table( PARAM_qc , idomain ) = P_qc
494 ELSE
495 P_qc = moist_index_table( PARAM_qc , idomain )
496 END IF
497 moist_stream_table( idomain, P_qc ) = 2113953794
498 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
499 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
500 moist_units_table( idomain, P_qc ) = 'kg kg-1'
501 F_qc = .TRUE.
502 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
503 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
504 P_a_qv = a_moist_num_table(idomain)
505 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
506 ELSE
507 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
508 END IF
509 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
510 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
511 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
512 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
513 F_a_qv = .TRUE.
514 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
515 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
516 P_a_qc = a_moist_num_table(idomain)
517 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
518 ELSE
519 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
520 END IF
521 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
522 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
523 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
524 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
525 F_a_qc = .TRUE.
526 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
527 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
528 P_g_qv = g_moist_num_table(idomain)
529 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
530 ELSE
531 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
532 END IF
533 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
534 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
535 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
536 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
537 F_g_qv = .TRUE.
538 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
539 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
540 P_g_qc = g_moist_num_table(idomain)
541 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
542 ELSE
543 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
544 END IF
545 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
546 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
547 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
548 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
549 F_g_qc = .TRUE.
550 END IF
551 IF (model_config_rec%mp_physics(idomain)==6)THEN
552 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
553 moist_num_table(idomain) = moist_num_table(idomain) + 1
554 P_qv = moist_num_table(idomain)
555 moist_index_table( PARAM_qv , idomain ) = P_qv
556 ELSE
557 P_qv = moist_index_table( PARAM_qv , idomain )
558 END IF
559 moist_stream_table( idomain, P_qv ) = 2113953794
560 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
561 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
562 moist_units_table( idomain, P_qv ) = 'kg kg-1'
563 F_qv = .TRUE.
564 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
565 moist_num_table(idomain) = moist_num_table(idomain) + 1
566 P_qc = moist_num_table(idomain)
567 moist_index_table( PARAM_qc , idomain ) = P_qc
568 ELSE
569 P_qc = moist_index_table( PARAM_qc , idomain )
570 END IF
571 moist_stream_table( idomain, P_qc ) = 2113953794
572 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
573 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
574 moist_units_table( idomain, P_qc ) = 'kg kg-1'
575 F_qc = .TRUE.
576 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
577 moist_num_table(idomain) = moist_num_table(idomain) + 1
578 P_qr = moist_num_table(idomain)
579 moist_index_table( PARAM_qr , idomain ) = P_qr
580 ELSE
581 P_qr = moist_index_table( PARAM_qr , idomain )
582 END IF
583 moist_stream_table( idomain, P_qr ) = 2113953794
584 moist_dname_table( idomain, P_qr ) = 'QRAIN'
585 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
586 moist_units_table( idomain, P_qr ) = 'kg kg-1'
587 F_qr = .TRUE.
588 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
589 moist_num_table(idomain) = moist_num_table(idomain) + 1
590 P_qi = moist_num_table(idomain)
591 moist_index_table( PARAM_qi , idomain ) = P_qi
592 ELSE
593 P_qi = moist_index_table( PARAM_qi , idomain )
594 END IF
595 moist_stream_table( idomain, P_qi ) = 2113953794
596 moist_dname_table( idomain, P_qi ) = 'QICE'
597 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
598 moist_units_table( idomain, P_qi ) = 'kg kg-1'
599 F_qi = .TRUE.
600 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
601 moist_num_table(idomain) = moist_num_table(idomain) + 1
602 P_qs = moist_num_table(idomain)
603 moist_index_table( PARAM_qs , idomain ) = P_qs
604 ELSE
605 P_qs = moist_index_table( PARAM_qs , idomain )
606 END IF
607 moist_stream_table( idomain, P_qs ) = 2113953794
608 moist_dname_table( idomain, P_qs ) = 'QSNOW'
609 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
610 moist_units_table( idomain, P_qs ) = 'kg kg-1'
611 F_qs = .TRUE.
612 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
613 moist_num_table(idomain) = moist_num_table(idomain) + 1
614 P_qg = moist_num_table(idomain)
615 moist_index_table( PARAM_qg , idomain ) = P_qg
616 ELSE
617 P_qg = moist_index_table( PARAM_qg , idomain )
618 END IF
619 moist_stream_table( idomain, P_qg ) = 2113953794
620 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
621 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
622 moist_units_table( idomain, P_qg ) = 'kg kg-1'
623 F_qg = .TRUE.
624 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
625 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
626 P_a_qv = a_moist_num_table(idomain)
627 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
628 ELSE
629 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
630 END IF
631 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
632 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
633 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
634 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
635 F_a_qv = .TRUE.
636 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
637 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
638 P_a_qc = a_moist_num_table(idomain)
639 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
640 ELSE
641 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
642 END IF
643 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
644 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
645 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
646 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
647 F_a_qc = .TRUE.
648 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
649 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
650 P_g_qv = g_moist_num_table(idomain)
651 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
652 ELSE
653 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
654 END IF
655 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
656 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
657 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
658 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
659 F_g_qv = .TRUE.
660 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
661 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
662 P_g_qc = g_moist_num_table(idomain)
663 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
664 ELSE
665 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
666 END IF
667 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
668 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
669 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
670 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
671 F_g_qc = .TRUE.
672 END IF
673 IF (model_config_rec%mp_physics(idomain)==98)THEN
674 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
675 moist_num_table(idomain) = moist_num_table(idomain) + 1
676 P_qv = moist_num_table(idomain)
677 moist_index_table( PARAM_qv , idomain ) = P_qv
678 ELSE
679 P_qv = moist_index_table( PARAM_qv , idomain )
680 END IF
681 moist_stream_table( idomain, P_qv ) = 2113953794
682 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
683 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
684 moist_units_table( idomain, P_qv ) = 'kg kg-1'
685 F_qv = .TRUE.
686 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
687 moist_num_table(idomain) = moist_num_table(idomain) + 1
688 P_qc = moist_num_table(idomain)
689 moist_index_table( PARAM_qc , idomain ) = P_qc
690 ELSE
691 P_qc = moist_index_table( PARAM_qc , idomain )
692 END IF
693 moist_stream_table( idomain, P_qc ) = 2113953794
694 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
695 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
696 moist_units_table( idomain, P_qc ) = 'kg kg-1'
697 F_qc = .TRUE.
698 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
699 moist_num_table(idomain) = moist_num_table(idomain) + 1
700 P_qr = moist_num_table(idomain)
701 moist_index_table( PARAM_qr , idomain ) = P_qr
702 ELSE
703 P_qr = moist_index_table( PARAM_qr , idomain )
704 END IF
705 moist_stream_table( idomain, P_qr ) = 2113953794
706 moist_dname_table( idomain, P_qr ) = 'QRAIN'
707 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
708 moist_units_table( idomain, P_qr ) = 'kg kg-1'
709 F_qr = .TRUE.
710 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
711 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
712 P_a_qv = a_moist_num_table(idomain)
713 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
714 ELSE
715 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
716 END IF
717 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
718 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
719 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
720 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
721 F_a_qv = .TRUE.
722 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
723 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
724 P_a_qc = a_moist_num_table(idomain)
725 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
726 ELSE
727 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
728 END IF
729 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
730 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
731 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
732 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
733 F_a_qc = .TRUE.
734 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
735 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
736 P_g_qv = g_moist_num_table(idomain)
737 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
738 ELSE
739 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
740 END IF
741 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
742 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
743 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
744 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
745 F_g_qv = .TRUE.
746 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
747 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
748 P_g_qc = g_moist_num_table(idomain)
749 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
750 ELSE
751 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
752 END IF
753 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
754 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
755 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
756 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
757 F_g_qc = .TRUE.
758 END IF
759 IF (model_config_rec%mp_physics(idomain)==99)THEN
760 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
761 moist_num_table(idomain) = moist_num_table(idomain) + 1
762 P_qv = moist_num_table(idomain)
763 moist_index_table( PARAM_qv , idomain ) = P_qv
764 ELSE
765 P_qv = moist_index_table( PARAM_qv , idomain )
766 END IF
767 moist_stream_table( idomain, P_qv ) = 2113953794
768 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
769 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
770 moist_units_table( idomain, P_qv ) = 'kg kg-1'
771 F_qv = .TRUE.
772 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
773 moist_num_table(idomain) = moist_num_table(idomain) + 1
774 P_qc = moist_num_table(idomain)
775 moist_index_table( PARAM_qc , idomain ) = P_qc
776 ELSE
777 P_qc = moist_index_table( PARAM_qc , idomain )
778 END IF
779 moist_stream_table( idomain, P_qc ) = 2113953794
780 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
781 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
782 moist_units_table( idomain, P_qc ) = 'kg kg-1'
783 F_qc = .TRUE.
784 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
785 moist_num_table(idomain) = moist_num_table(idomain) + 1
786 P_qr = moist_num_table(idomain)
787 moist_index_table( PARAM_qr , idomain ) = P_qr
788 ELSE
789 P_qr = moist_index_table( PARAM_qr , idomain )
790 END IF
791 moist_stream_table( idomain, P_qr ) = 2113953794
792 moist_dname_table( idomain, P_qr ) = 'QRAIN'
793 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
794 moist_units_table( idomain, P_qr ) = 'kg kg-1'
795 F_qr = .TRUE.
796 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
797 moist_num_table(idomain) = moist_num_table(idomain) + 1
798 P_qi = moist_num_table(idomain)
799 moist_index_table( PARAM_qi , idomain ) = P_qi
800 ELSE
801 P_qi = moist_index_table( PARAM_qi , idomain )
802 END IF
803 moist_stream_table( idomain, P_qi ) = 2113953794
804 moist_dname_table( idomain, P_qi ) = 'QICE'
805 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
806 moist_units_table( idomain, P_qi ) = 'kg kg-1'
807 F_qi = .TRUE.
808 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
809 moist_num_table(idomain) = moist_num_table(idomain) + 1
810 P_qs = moist_num_table(idomain)
811 moist_index_table( PARAM_qs , idomain ) = P_qs
812 ELSE
813 P_qs = moist_index_table( PARAM_qs , idomain )
814 END IF
815 moist_stream_table( idomain, P_qs ) = 2113953794
816 moist_dname_table( idomain, P_qs ) = 'QSNOW'
817 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
818 moist_units_table( idomain, P_qs ) = 'kg kg-1'
819 F_qs = .TRUE.
820 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
821 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
822 P_a_qv = a_moist_num_table(idomain)
823 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
824 ELSE
825 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
826 END IF
827 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
828 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
829 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
830 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
831 F_a_qv = .TRUE.
832 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
833 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
834 P_a_qc = a_moist_num_table(idomain)
835 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
836 ELSE
837 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
838 END IF
839 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
840 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
841 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
842 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
843 F_a_qc = .TRUE.
844 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
845 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
846 P_g_qv = g_moist_num_table(idomain)
847 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
848 ELSE
849 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
850 END IF
851 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
852 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
853 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
854 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
855 F_g_qv = .TRUE.
856 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
857 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
858 P_g_qc = g_moist_num_table(idomain)
859 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
860 ELSE
861 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
862 END IF
863 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
864 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
865 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
866 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
867 F_g_qc = .TRUE.
868 END IF
869 IF (model_config_rec%mp_physics(idomain)==8)THEN
870 IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN
871 moist_num_table(idomain) = moist_num_table(idomain) + 1
872 P_qv = moist_num_table(idomain)
873 moist_index_table( PARAM_qv , idomain ) = P_qv
874 ELSE
875 P_qv = moist_index_table( PARAM_qv , idomain )
876 END IF
877 moist_stream_table( idomain, P_qv ) = 2113953794
878 moist_dname_table( idomain, P_qv ) = 'QVAPOR'
879 moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio'
880 moist_units_table( idomain, P_qv ) = 'kg kg-1'
881 F_qv = .TRUE.
882 IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN
883 moist_num_table(idomain) = moist_num_table(idomain) + 1
884 P_qc = moist_num_table(idomain)
885 moist_index_table( PARAM_qc , idomain ) = P_qc
886 ELSE
887 P_qc = moist_index_table( PARAM_qc , idomain )
888 END IF
889 moist_stream_table( idomain, P_qc ) = 2113953794
890 moist_dname_table( idomain, P_qc ) = 'QCLOUD'
891 moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio'
892 moist_units_table( idomain, P_qc ) = 'kg kg-1'
893 F_qc = .TRUE.
894 IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN
895 moist_num_table(idomain) = moist_num_table(idomain) + 1
896 P_qr = moist_num_table(idomain)
897 moist_index_table( PARAM_qr , idomain ) = P_qr
898 ELSE
899 P_qr = moist_index_table( PARAM_qr , idomain )
900 END IF
901 moist_stream_table( idomain, P_qr ) = 2113953794
902 moist_dname_table( idomain, P_qr ) = 'QRAIN'
903 moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio'
904 moist_units_table( idomain, P_qr ) = 'kg kg-1'
905 F_qr = .TRUE.
906 IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN
907 moist_num_table(idomain) = moist_num_table(idomain) + 1
908 P_qi = moist_num_table(idomain)
909 moist_index_table( PARAM_qi , idomain ) = P_qi
910 ELSE
911 P_qi = moist_index_table( PARAM_qi , idomain )
912 END IF
913 moist_stream_table( idomain, P_qi ) = 2113953794
914 moist_dname_table( idomain, P_qi ) = 'QICE'
915 moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio'
916 moist_units_table( idomain, P_qi ) = 'kg kg-1'
917 F_qi = .TRUE.
918 IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN
919 moist_num_table(idomain) = moist_num_table(idomain) + 1
920 P_qs = moist_num_table(idomain)
921 moist_index_table( PARAM_qs , idomain ) = P_qs
922 ELSE
923 P_qs = moist_index_table( PARAM_qs , idomain )
924 END IF
925 moist_stream_table( idomain, P_qs ) = 2113953794
926 moist_dname_table( idomain, P_qs ) = 'QSNOW'
927 moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio'
928 moist_units_table( idomain, P_qs ) = 'kg kg-1'
929 F_qs = .TRUE.
930 IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN
931 moist_num_table(idomain) = moist_num_table(idomain) + 1
932 P_qg = moist_num_table(idomain)
933 moist_index_table( PARAM_qg , idomain ) = P_qg
934 ELSE
935 P_qg = moist_index_table( PARAM_qg , idomain )
936 END IF
937 moist_stream_table( idomain, P_qg ) = 2113953794
938 moist_dname_table( idomain, P_qg ) = 'QGRAUP'
939 moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio'
940 moist_units_table( idomain, P_qg ) = 'kg kg-1'
941 F_qg = .TRUE.
942 IF ( a_moist_index_table( PARAM_a_qv , idomain ) .lt. 1 ) THEN
943 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
944 P_a_qv = a_moist_num_table(idomain)
945 a_moist_index_table( PARAM_a_qv , idomain ) = P_a_qv
946 ELSE
947 P_a_qv = a_moist_index_table( PARAM_a_qv , idomain )
948 END IF
949 a_moist_stream_table( idomain, P_a_qv ) = 2113953808
950 a_moist_dname_table( idomain, P_a_qv ) = 'A_QVAPOR'
951 a_moist_desc_table( idomain, P_a_qv ) = 'Water vapor mixing ratio'
952 a_moist_units_table( idomain, P_a_qv ) = 'kg kg-1'
953 F_a_qv = .TRUE.
954 IF ( a_moist_index_table( PARAM_a_qc , idomain ) .lt. 1 ) THEN
955 a_moist_num_table(idomain) = a_moist_num_table(idomain) + 1
956 P_a_qc = a_moist_num_table(idomain)
957 a_moist_index_table( PARAM_a_qc , idomain ) = P_a_qc
958 ELSE
959 P_a_qc = a_moist_index_table( PARAM_a_qc , idomain )
960 END IF
961 a_moist_stream_table( idomain, P_a_qc ) = 2113953808
962 a_moist_dname_table( idomain, P_a_qc ) = 'A_QCLOUD'
963 a_moist_desc_table( idomain, P_a_qc ) = 'Cloud water mixing ratio'
964 a_moist_units_table( idomain, P_a_qc ) = 'kg kg-1'
965 F_a_qc = .TRUE.
966 IF ( g_moist_index_table( PARAM_g_qv , idomain ) .lt. 1 ) THEN
967 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
968 P_g_qv = g_moist_num_table(idomain)
969 g_moist_index_table( PARAM_g_qv , idomain ) = P_g_qv
970 ELSE
971 P_g_qv = g_moist_index_table( PARAM_g_qv , idomain )
972 END IF
973 g_moist_stream_table( idomain, P_g_qv ) = 2113953808
974 g_moist_dname_table( idomain, P_g_qv ) = 'G_QVAPOR'
975 g_moist_desc_table( idomain, P_g_qv ) = 'Water vapor mixing ratio'
976 g_moist_units_table( idomain, P_g_qv ) = 'kg kg-1'
977 F_g_qv = .TRUE.
978 IF ( g_moist_index_table( PARAM_g_qc , idomain ) .lt. 1 ) THEN
979 g_moist_num_table(idomain) = g_moist_num_table(idomain) + 1
980 P_g_qc = g_moist_num_table(idomain)
981 g_moist_index_table( PARAM_g_qc , idomain ) = P_g_qc
982 ELSE
983 P_g_qc = g_moist_index_table( PARAM_g_qc , idomain )
984 END IF
985 g_moist_stream_table( idomain, P_g_qc ) = 2113953808
986 g_moist_dname_table( idomain, P_g_qc ) = 'G_QCLOUD'
987 g_moist_desc_table( idomain, P_g_qc ) = 'Cloud water mixing ratio'
988 g_moist_units_table( idomain, P_g_qc ) = 'kg kg-1'
989 F_g_qc = .TRUE.
990 IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN
991 scalar_num_table(idomain) = scalar_num_table(idomain) + 1
992 P_qni = scalar_num_table(idomain)
993 scalar_index_table( PARAM_qni , idomain ) = P_qni
994 ELSE
995 P_qni = scalar_index_table( PARAM_qni , idomain )
996 END IF
997 scalar_stream_table( idomain, P_qni ) = 2113953794
998 scalar_dname_table( idomain, P_qni ) = 'QNICE'
999 scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration'
1000 scalar_units_table( idomain, P_qni ) = ' kg(-1)'
1001 F_qni = .TRUE.
1002 END IF
1003 IF (model_config_rec%progn(idomain)==0)THEN
1004 END IF
1005 IF (model_config_rec%ra_lw_physics(idomain)==1)THEN
1006 END IF
1007 IF (model_config_rec%ra_lw_physics(idomain)==99)THEN
1008 END IF
1009 IF (model_config_rec%ra_sw_physics(idomain)==1)THEN
1010 END IF
1011 IF (model_config_rec%ra_sw_physics(idomain)==2)THEN
1012 END IF
1013 IF (model_config_rec%ra_sw_physics(idomain)==99)THEN
1014 END IF
1015 IF (model_config_rec%sf_sfclay_physics(idomain)==1)THEN
1016 END IF
1017 IF (model_config_rec%sf_sfclay_physics(idomain)==2)THEN
1018 END IF
1019 IF (model_config_rec%sf_sfclay_physics(idomain)==3)THEN
1020 END IF
1021 IF (model_config_rec%sf_surface_physics(idomain)==1)THEN
1022 END IF
1023 IF (model_config_rec%sf_surface_physics(idomain)==2)THEN
1024 END IF
1025 IF (model_config_rec%sf_surface_physics(idomain)==3)THEN
1026 END IF
1027 IF (model_config_rec%bl_pbl_physics(idomain)==1)THEN
1028 END IF
1029 IF (model_config_rec%bl_pbl_physics(idomain)==2)THEN
1030 END IF
1031 IF (model_config_rec%bl_pbl_physics(idomain)==3)THEN
1032 END IF
1033 IF (model_config_rec%bl_pbl_physics(idomain)==99)THEN
1034 END IF
1035 IF (model_config_rec%cu_physics(idomain)==1)THEN
1036 END IF
1037 IF (model_config_rec%cu_physics(idomain)==2)THEN
1038 END IF
1039 IF (model_config_rec%cu_physics(idomain)==3)THEN
1040 END IF
1041 IF (model_config_rec%cu_physics(idomain)==4)THEN
1042 END IF
1043 IF (model_config_rec%cu_physics(idomain)==99)THEN
1044 END IF
1045 IF (model_config_rec%io_form_restart==1)THEN
1046 END IF
1047 IF (model_config_rec%io_form_restart==2)THEN
1048 END IF
1049 IF (model_config_rec%io_form_restart==3)THEN
1050 END IF
1051 IF (model_config_rec%io_form_restart==4)THEN
1052 END IF
1053 IF (model_config_rec%io_form_restart==5)THEN
1054 END IF
1055 IF (model_config_rec%io_form_restart==6)THEN
1056 END IF
1057 IF (model_config_rec%io_form_restart==7)THEN
1058 END IF
1059 IF (model_config_rec%io_form_restart==8)THEN
1060 END IF
1061 IF (model_config_rec%io_form_restart==9)THEN
1062 END IF
1063 IF (model_config_rec%io_form_restart==10)THEN
1064 END IF
1065 IF (model_config_rec%io_form_restart==11)THEN
1066 END IF
1067 !ENDOFREGISTRYGENERATEDINCLUDE