em_allocs.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_allocs.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 ALLOCATE(grid%lu_index(sm31:em31,sm32:em32),STAT=ierr)
8 if (ierr.ne.0) then
9 CALL wrf_error_fatal ( &
10 'frame/module_domain.f: Failed to allocate grid%lu_index(sm31:em31,sm32:em32). ')
11 endif
12 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_index=initial_data_value
13 IF(.NOT.inter_domain)THEN
14 ALLOCATE(grid%lu_mask(sm31:em31,sm32:em32),STAT=ierr)
15 if (ierr.ne.0) then
16 CALL wrf_error_fatal ( &
17 'frame/module_domain.f: Failed to allocate grid%lu_mask(sm31:em31,sm32:em32). ')
18 endif
19 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_mask=initial_data_value
20 ELSE
21 ALLOCATE(grid%lu_mask(1,1),STAT=ierr)
22 if (ierr.ne.0) then
23 CALL wrf_error_fatal ( &
24 'frame/module_domain.f: Failed to allocate grid%lu_mask(1,1). ')
25 endif
26 ENDIF
27 IF(.NOT.inter_domain)THEN
28 ALLOCATE(grid%em_u_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
29 if (ierr.ne.0) then
30 CALL wrf_error_fatal ( &
31 'frame/module_domain.f: Failed to allocate grid%em_u_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
32 endif
33 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_gc=initial_data_value
34 ELSE
35 ALLOCATE(grid%em_u_gc(1,1,1),STAT=ierr)
36 if (ierr.ne.0) then
37 CALL wrf_error_fatal ( &
38 'frame/module_domain.f: Failed to allocate grid%em_u_gc(1,1,1). ')
39 endif
40 ENDIF
41 IF(.NOT.inter_domain)THEN
42 ALLOCATE(grid%em_v_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
43 if (ierr.ne.0) then
44 CALL wrf_error_fatal ( &
45 'frame/module_domain.f: Failed to allocate grid%em_v_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
46 endif
47 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_gc=initial_data_value
48 ELSE
49 ALLOCATE(grid%em_v_gc(1,1,1),STAT=ierr)
50 if (ierr.ne.0) then
51 CALL wrf_error_fatal ( &
52 'frame/module_domain.f: Failed to allocate grid%em_v_gc(1,1,1). ')
53 endif
54 ENDIF
55 IF(.NOT.inter_domain)THEN
56 ALLOCATE(grid%em_t_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
57 if (ierr.ne.0) then
58 CALL wrf_error_fatal ( &
59 'frame/module_domain.f: Failed to allocate grid%em_t_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
60 endif
61 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_gc=initial_data_value
62 ELSE
63 ALLOCATE(grid%em_t_gc(1,1,1),STAT=ierr)
64 if (ierr.ne.0) then
65 CALL wrf_error_fatal ( &
66 'frame/module_domain.f: Failed to allocate grid%em_t_gc(1,1,1). ')
67 endif
68 ENDIF
69 IF(.NOT.inter_domain)THEN
70 ALLOCATE(grid%em_rh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
71 if (ierr.ne.0) then
72 CALL wrf_error_fatal ( &
73 'frame/module_domain.f: Failed to allocate grid%em_rh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
74 endif
75 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rh_gc=initial_data_value
76 ELSE
77 ALLOCATE(grid%em_rh_gc(1,1,1),STAT=ierr)
78 if (ierr.ne.0) then
79 CALL wrf_error_fatal ( &
80 'frame/module_domain.f: Failed to allocate grid%em_rh_gc(1,1,1). ')
81 endif
82 ENDIF
83 IF(.NOT.inter_domain)THEN
84 ALLOCATE(grid%em_ght_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
85 if (ierr.ne.0) then
86 CALL wrf_error_fatal ( &
87 'frame/module_domain.f: Failed to allocate grid%em_ght_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
88 endif
89 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ght_gc=initial_data_value
90 ELSE
91 ALLOCATE(grid%em_ght_gc(1,1,1),STAT=ierr)
92 if (ierr.ne.0) then
93 CALL wrf_error_fatal ( &
94 'frame/module_domain.f: Failed to allocate grid%em_ght_gc(1,1,1). ')
95 endif
96 ENDIF
97 IF(.NOT.inter_domain)THEN
98 ALLOCATE(grid%em_p_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
99 if (ierr.ne.0) then
100 CALL wrf_error_fatal ( &
101 'frame/module_domain.f: Failed to allocate grid%em_p_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
102 endif
103 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_p_gc=initial_data_value
104 ELSE
105 ALLOCATE(grid%em_p_gc(1,1,1),STAT=ierr)
106 if (ierr.ne.0) then
107 CALL wrf_error_fatal ( &
108 'frame/module_domain.f: Failed to allocate grid%em_p_gc(1,1,1). ')
109 endif
110 ENDIF
111 IF(.NOT.inter_domain)THEN
112 ALLOCATE(grid%em_xlat_gc(sm31:em31,sm32:em32),STAT=ierr)
113 if (ierr.ne.0) then
114 CALL wrf_error_fatal ( &
115 'frame/module_domain.f: Failed to allocate grid%em_xlat_gc(sm31:em31,sm32:em32). ')
116 endif
117 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlat_gc=initial_data_value
118 ELSE
119 ALLOCATE(grid%em_xlat_gc(1,1),STAT=ierr)
120 if (ierr.ne.0) then
121 CALL wrf_error_fatal ( &
122 'frame/module_domain.f: Failed to allocate grid%em_xlat_gc(1,1). ')
123 endif
124 ENDIF
125 IF(.NOT.inter_domain)THEN
126 ALLOCATE(grid%em_xlong_gc(sm31:em31,sm32:em32),STAT=ierr)
127 if (ierr.ne.0) then
128 CALL wrf_error_fatal ( &
129 'frame/module_domain.f: Failed to allocate grid%em_xlong_gc(sm31:em31,sm32:em32). ')
130 endif
131 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlong_gc=initial_data_value
132 ELSE
133 ALLOCATE(grid%em_xlong_gc(1,1),STAT=ierr)
134 if (ierr.ne.0) then
135 CALL wrf_error_fatal ( &
136 'frame/module_domain.f: Failed to allocate grid%em_xlong_gc(1,1). ')
137 endif
138 ENDIF
139 IF(.NOT.inter_domain)THEN
140 ALLOCATE(grid%em_ht_gc(sm31:em31,sm32:em32),STAT=ierr)
141 if (ierr.ne.0) then
142 CALL wrf_error_fatal ( &
143 'frame/module_domain.f: Failed to allocate grid%em_ht_gc(sm31:em31,sm32:em32). ')
144 endif
145 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ht_gc=initial_data_value
146 ELSE
147 ALLOCATE(grid%em_ht_gc(1,1),STAT=ierr)
148 if (ierr.ne.0) then
149 CALL wrf_error_fatal ( &
150 'frame/module_domain.f: Failed to allocate grid%em_ht_gc(1,1). ')
151 endif
152 ENDIF
153 IF(.NOT.inter_domain)THEN
154 ALLOCATE(grid%em_tsk_gc(sm31:em31,sm32:em32),STAT=ierr)
155 if (ierr.ne.0) then
156 CALL wrf_error_fatal ( &
157 'frame/module_domain.f: Failed to allocate grid%em_tsk_gc(sm31:em31,sm32:em32). ')
158 endif
159 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tsk_gc=initial_data_value
160 ELSE
161 ALLOCATE(grid%em_tsk_gc(1,1),STAT=ierr)
162 if (ierr.ne.0) then
163 CALL wrf_error_fatal ( &
164 'frame/module_domain.f: Failed to allocate grid%em_tsk_gc(1,1). ')
165 endif
166 ENDIF
167 IF(.NOT.inter_domain)THEN
168 ALLOCATE(grid%em_tmn_gc(sm31:em31,sm32:em32),STAT=ierr)
169 if (ierr.ne.0) then
170 CALL wrf_error_fatal ( &
171 'frame/module_domain.f: Failed to allocate grid%em_tmn_gc(sm31:em31,sm32:em32). ')
172 endif
173 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tmn_gc=initial_data_value
174 ELSE
175 ALLOCATE(grid%em_tmn_gc(1,1),STAT=ierr)
176 if (ierr.ne.0) then
177 CALL wrf_error_fatal ( &
178 'frame/module_domain.f: Failed to allocate grid%em_tmn_gc(1,1). ')
179 endif
180 ENDIF
181 IF(.NOT.inter_domain)THEN
182 ALLOCATE(grid%em_pslv_gc(sm31:em31,sm32:em32),STAT=ierr)
183 if (ierr.ne.0) then
184 CALL wrf_error_fatal ( &
185 'frame/module_domain.f: Failed to allocate grid%em_pslv_gc(sm31:em31,sm32:em32). ')
186 endif
187 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_pslv_gc=initial_data_value
188 ELSE
189 ALLOCATE(grid%em_pslv_gc(1,1),STAT=ierr)
190 if (ierr.ne.0) then
191 CALL wrf_error_fatal ( &
192 'frame/module_domain.f: Failed to allocate grid%em_pslv_gc(1,1). ')
193 endif
194 ENDIF
195 IF(.NOT.inter_domain)THEN
196 ALLOCATE(grid%em_greenfrac(sm31:em31,1:12,sm32:em32),STAT=ierr)
197 if (ierr.ne.0) then
198 CALL wrf_error_fatal ( &
199 'frame/module_domain.f: Failed to allocate grid%em_greenfrac(sm31:em31,1:12,sm32:em32). ')
200 endif
201 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_greenfrac=initial_data_value
202 ELSE
203 ALLOCATE(grid%em_greenfrac(1,1,1),STAT=ierr)
204 if (ierr.ne.0) then
205 CALL wrf_error_fatal ( &
206 'frame/module_domain.f: Failed to allocate grid%em_greenfrac(1,1,1). ')
207 endif
208 ENDIF
209 IF(.NOT.inter_domain)THEN
210 ALLOCATE(grid%em_albedo12m(sm31:em31,1:12,sm32:em32),STAT=ierr)
211 if (ierr.ne.0) then
212 CALL wrf_error_fatal ( &
213 'frame/module_domain.f: Failed to allocate grid%em_albedo12m(sm31:em31,1:12,sm32:em32). ')
214 endif
215 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_albedo12m=initial_data_value
216 ELSE
217 ALLOCATE(grid%em_albedo12m(1,1,1),STAT=ierr)
218 if (ierr.ne.0) then
219 CALL wrf_error_fatal ( &
220 'frame/module_domain.f: Failed to allocate grid%em_albedo12m(1,1,1). ')
221 endif
222 ENDIF
223 IF(.NOT.inter_domain)THEN
224 ALLOCATE(grid%em_pd_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
225 if (ierr.ne.0) then
226 CALL wrf_error_fatal ( &
227 'frame/module_domain.f: Failed to allocate grid%em_pd_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
228 endif
229 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_pd_gc=initial_data_value
230 ELSE
231 ALLOCATE(grid%em_pd_gc(1,1,1),STAT=ierr)
232 if (ierr.ne.0) then
233 CALL wrf_error_fatal ( &
234 'frame/module_domain.f: Failed to allocate grid%em_pd_gc(1,1,1). ')
235 endif
236 ENDIF
237 IF(.NOT.inter_domain)THEN
238 ALLOCATE(grid%em_qv_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32),STAT=ierr)
239 if (ierr.ne.0) then
240 CALL wrf_error_fatal ( &
241 'frame/module_domain.f: Failed to allocate grid%em_qv_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm32:em32). ')
242 endif
243 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_qv_gc=initial_data_value
244 ELSE
245 ALLOCATE(grid%em_qv_gc(1,1,1),STAT=ierr)
246 if (ierr.ne.0) then
247 CALL wrf_error_fatal ( &
248 'frame/module_domain.f: Failed to allocate grid%em_qv_gc(1,1,1). ')
249 endif
250 ENDIF
251 IF(.NOT.inter_domain)THEN
252 ALLOCATE(grid%em_intq_gc(sm31:em31,sm32:em32),STAT=ierr)
253 if (ierr.ne.0) then
254 CALL wrf_error_fatal ( &
255 'frame/module_domain.f: Failed to allocate grid%em_intq_gc(sm31:em31,sm32:em32). ')
256 endif
257 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_intq_gc=initial_data_value
258 ELSE
259 ALLOCATE(grid%em_intq_gc(1,1),STAT=ierr)
260 if (ierr.ne.0) then
261 CALL wrf_error_fatal ( &
262 'frame/module_domain.f: Failed to allocate grid%em_intq_gc(1,1). ')
263 endif
264 ENDIF
265 IF(.NOT.inter_domain)THEN
266 ALLOCATE(grid%em_pdhs(sm31:em31,sm32:em32),STAT=ierr)
267 if (ierr.ne.0) then
268 CALL wrf_error_fatal ( &
269 'frame/module_domain.f: Failed to allocate grid%em_pdhs(sm31:em31,sm32:em32). ')
270 endif
271 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_pdhs=initial_data_value
272 ELSE
273 ALLOCATE(grid%em_pdhs(1,1),STAT=ierr)
274 if (ierr.ne.0) then
275 CALL wrf_error_fatal ( &
276 'frame/module_domain.f: Failed to allocate grid%em_pdhs(1,1). ')
277 endif
278 ENDIF
279 IF(IAND(1,tl).NE.0)THEN
280 ALLOCATE(grid%em_u_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
281 if (ierr.ne.0) then
282 CALL wrf_error_fatal ( &
283 'frame/module_domain.f: Failed to allocate grid%em_u_1(sm31:em31,sm32:em32,sm33:em33). ')
284 endif
285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_1=initial_data_value
286 ELSE
287 ALLOCATE(grid%em_u_1(1,1,1),STAT=ierr)
288 if (ierr.ne.0) then
289 CALL wrf_error_fatal ( &
290 'frame/module_domain.f: Failed to allocate grid%em_u_1(1,1,1). ')
291 endif
292 ENDIF
293 IF(IAND(2,tl).NE.0)THEN
294 ALLOCATE(grid%em_u_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
295 if (ierr.ne.0) then
296 CALL wrf_error_fatal ( &
297 'frame/module_domain.f: Failed to allocate grid%em_u_2(sm31:em31,sm32:em32,sm33:em33). ')
298 endif
299 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_2=initial_data_value
300 ELSE
301 ALLOCATE(grid%em_u_2(1,1,1),STAT=ierr)
302 if (ierr.ne.0) then
303 CALL wrf_error_fatal ( &
304 'frame/module_domain.f: Failed to allocate grid%em_u_2(1,1,1). ')
305 endif
306 ENDIF
307 IF(.NOT.inter_domain)THEN
308 ALLOCATE(grid%em_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
309 if (ierr.ne.0) then
310 CALL wrf_error_fatal ( &
311 'frame/module_domain.f: Failed to allocate grid%em_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
312 endif
313 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_b=initial_data_value
314 ELSE
315 ALLOCATE(grid%em_u_b(1,1,1,1),STAT=ierr)
316 if (ierr.ne.0) then
317 CALL wrf_error_fatal ( &
318 'frame/module_domain.f: Failed to allocate grid%em_u_b(1,1,1,1). ')
319 endif
320 ENDIF
321 IF(.NOT.inter_domain)THEN
322 ALLOCATE(grid%em_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
323 if (ierr.ne.0) then
324 CALL wrf_error_fatal ( &
325 'frame/module_domain.f: Failed to allocate grid%em_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
326 endif
327 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_bt=initial_data_value
328 ELSE
329 ALLOCATE(grid%em_u_bt(1,1,1,1),STAT=ierr)
330 if (ierr.ne.0) then
331 CALL wrf_error_fatal ( &
332 'frame/module_domain.f: Failed to allocate grid%em_u_bt(1,1,1,1). ')
333 endif
334 ENDIF
335 IF(IAND(1,tl).NE.0)THEN
336 ALLOCATE(grid%em_a_u_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
337 if (ierr.ne.0) then
338 CALL wrf_error_fatal ( &
339 'frame/module_domain.f: Failed to allocate grid%em_a_u_1(sm31:em31,sm32:em32,sm33:em33). ')
340 endif
341 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_u_1=initial_data_value
342 ELSE
343 ALLOCATE(grid%em_a_u_1(1,1,1),STAT=ierr)
344 if (ierr.ne.0) then
345 CALL wrf_error_fatal ( &
346 'frame/module_domain.f: Failed to allocate grid%em_a_u_1(1,1,1). ')
347 endif
348 ENDIF
349 IF(IAND(2,tl).NE.0)THEN
350 ALLOCATE(grid%em_a_u_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
351 if (ierr.ne.0) then
352 CALL wrf_error_fatal ( &
353 'frame/module_domain.f: Failed to allocate grid%em_a_u_2(sm31:em31,sm32:em32,sm33:em33). ')
354 endif
355 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_u_2=initial_data_value
356 ELSE
357 ALLOCATE(grid%em_a_u_2(1,1,1),STAT=ierr)
358 if (ierr.ne.0) then
359 CALL wrf_error_fatal ( &
360 'frame/module_domain.f: Failed to allocate grid%em_a_u_2(1,1,1). ')
361 endif
362 ENDIF
363 IF(.NOT.inter_domain)THEN
364 ALLOCATE(grid%em_a_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
365 if (ierr.ne.0) then
366 CALL wrf_error_fatal ( &
367 'frame/module_domain.f: Failed to allocate grid%em_a_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
368 endif
369 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_u_b=initial_data_value
370 ELSE
371 ALLOCATE(grid%em_a_u_b(1,1,1,1),STAT=ierr)
372 if (ierr.ne.0) then
373 CALL wrf_error_fatal ( &
374 'frame/module_domain.f: Failed to allocate grid%em_a_u_b(1,1,1,1). ')
375 endif
376 ENDIF
377 IF(.NOT.inter_domain)THEN
378 ALLOCATE(grid%em_a_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
379 if (ierr.ne.0) then
380 CALL wrf_error_fatal ( &
381 'frame/module_domain.f: Failed to allocate grid%em_a_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
382 endif
383 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_u_bt=initial_data_value
384 ELSE
385 ALLOCATE(grid%em_a_u_bt(1,1,1,1),STAT=ierr)
386 if (ierr.ne.0) then
387 CALL wrf_error_fatal ( &
388 'frame/module_domain.f: Failed to allocate grid%em_a_u_bt(1,1,1,1). ')
389 endif
390 ENDIF
391 IF(IAND(1,tl).NE.0)THEN
392 ALLOCATE(grid%em_g_u_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
393 if (ierr.ne.0) then
394 CALL wrf_error_fatal ( &
395 'frame/module_domain.f: Failed to allocate grid%em_g_u_1(sm31:em31,sm32:em32,sm33:em33). ')
396 endif
397 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_u_1=initial_data_value
398 ELSE
399 ALLOCATE(grid%em_g_u_1(1,1,1),STAT=ierr)
400 if (ierr.ne.0) then
401 CALL wrf_error_fatal ( &
402 'frame/module_domain.f: Failed to allocate grid%em_g_u_1(1,1,1). ')
403 endif
404 ENDIF
405 IF(IAND(2,tl).NE.0)THEN
406 ALLOCATE(grid%em_g_u_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
407 if (ierr.ne.0) then
408 CALL wrf_error_fatal ( &
409 'frame/module_domain.f: Failed to allocate grid%em_g_u_2(sm31:em31,sm32:em32,sm33:em33). ')
410 endif
411 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_u_2=initial_data_value
412 ELSE
413 ALLOCATE(grid%em_g_u_2(1,1,1),STAT=ierr)
414 if (ierr.ne.0) then
415 CALL wrf_error_fatal ( &
416 'frame/module_domain.f: Failed to allocate grid%em_g_u_2(1,1,1). ')
417 endif
418 ENDIF
419 IF(.NOT.inter_domain)THEN
420 ALLOCATE(grid%em_g_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
421 if (ierr.ne.0) then
422 CALL wrf_error_fatal ( &
423 'frame/module_domain.f: Failed to allocate grid%em_g_u_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
424 endif
425 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_u_b=initial_data_value
426 ELSE
427 ALLOCATE(grid%em_g_u_b(1,1,1,1),STAT=ierr)
428 if (ierr.ne.0) then
429 CALL wrf_error_fatal ( &
430 'frame/module_domain.f: Failed to allocate grid%em_g_u_b(1,1,1,1). ')
431 endif
432 ENDIF
433 IF(.NOT.inter_domain)THEN
434 ALLOCATE(grid%em_g_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
435 if (ierr.ne.0) then
436 CALL wrf_error_fatal ( &
437 'frame/module_domain.f: Failed to allocate grid%em_g_u_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
438 endif
439 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_u_bt=initial_data_value
440 ELSE
441 ALLOCATE(grid%em_g_u_bt(1,1,1,1),STAT=ierr)
442 if (ierr.ne.0) then
443 CALL wrf_error_fatal ( &
444 'frame/module_domain.f: Failed to allocate grid%em_g_u_bt(1,1,1,1). ')
445 endif
446 ENDIF
447 IF(IAND(1,tl).NE.0)THEN
448 ALLOCATE(grid%em_v_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
449 if (ierr.ne.0) then
450 CALL wrf_error_fatal ( &
451 'frame/module_domain.f: Failed to allocate grid%em_v_1(sm31:em31,sm32:em32,sm33:em33). ')
452 endif
453 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_1=initial_data_value
454 ELSE
455 ALLOCATE(grid%em_v_1(1,1,1),STAT=ierr)
456 if (ierr.ne.0) then
457 CALL wrf_error_fatal ( &
458 'frame/module_domain.f: Failed to allocate grid%em_v_1(1,1,1). ')
459 endif
460 ENDIF
461 IF(IAND(2,tl).NE.0)THEN
462 ALLOCATE(grid%em_v_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
463 if (ierr.ne.0) then
464 CALL wrf_error_fatal ( &
465 'frame/module_domain.f: Failed to allocate grid%em_v_2(sm31:em31,sm32:em32,sm33:em33). ')
466 endif
467 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_2=initial_data_value
468 ELSE
469 ALLOCATE(grid%em_v_2(1,1,1),STAT=ierr)
470 if (ierr.ne.0) then
471 CALL wrf_error_fatal ( &
472 'frame/module_domain.f: Failed to allocate grid%em_v_2(1,1,1). ')
473 endif
474 ENDIF
475 IF(.NOT.inter_domain)THEN
476 ALLOCATE(grid%em_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
477 if (ierr.ne.0) then
478 CALL wrf_error_fatal ( &
479 'frame/module_domain.f: Failed to allocate grid%em_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
480 endif
481 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_b=initial_data_value
482 ELSE
483 ALLOCATE(grid%em_v_b(1,1,1,1),STAT=ierr)
484 if (ierr.ne.0) then
485 CALL wrf_error_fatal ( &
486 'frame/module_domain.f: Failed to allocate grid%em_v_b(1,1,1,1). ')
487 endif
488 ENDIF
489 IF(.NOT.inter_domain)THEN
490 ALLOCATE(grid%em_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
491 if (ierr.ne.0) then
492 CALL wrf_error_fatal ( &
493 'frame/module_domain.f: Failed to allocate grid%em_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
494 endif
495 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_bt=initial_data_value
496 ELSE
497 ALLOCATE(grid%em_v_bt(1,1,1,1),STAT=ierr)
498 if (ierr.ne.0) then
499 CALL wrf_error_fatal ( &
500 'frame/module_domain.f: Failed to allocate grid%em_v_bt(1,1,1,1). ')
501 endif
502 ENDIF
503 IF(IAND(1,tl).NE.0)THEN
504 ALLOCATE(grid%em_a_v_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
505 if (ierr.ne.0) then
506 CALL wrf_error_fatal ( &
507 'frame/module_domain.f: Failed to allocate grid%em_a_v_1(sm31:em31,sm32:em32,sm33:em33). ')
508 endif
509 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_1=initial_data_value
510 ELSE
511 ALLOCATE(grid%em_a_v_1(1,1,1),STAT=ierr)
512 if (ierr.ne.0) then
513 CALL wrf_error_fatal ( &
514 'frame/module_domain.f: Failed to allocate grid%em_a_v_1(1,1,1). ')
515 endif
516 ENDIF
517 IF(IAND(2,tl).NE.0)THEN
518 ALLOCATE(grid%em_a_v_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
519 if (ierr.ne.0) then
520 CALL wrf_error_fatal ( &
521 'frame/module_domain.f: Failed to allocate grid%em_a_v_2(sm31:em31,sm32:em32,sm33:em33). ')
522 endif
523 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_2=initial_data_value
524 ELSE
525 ALLOCATE(grid%em_a_v_2(1,1,1),STAT=ierr)
526 if (ierr.ne.0) then
527 CALL wrf_error_fatal ( &
528 'frame/module_domain.f: Failed to allocate grid%em_a_v_2(1,1,1). ')
529 endif
530 ENDIF
531 IF(.NOT.inter_domain)THEN
532 ALLOCATE(grid%em_a_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
533 if (ierr.ne.0) then
534 CALL wrf_error_fatal ( &
535 'frame/module_domain.f: Failed to allocate grid%em_a_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
536 endif
537 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_b=initial_data_value
538 ELSE
539 ALLOCATE(grid%em_a_v_b(1,1,1,1),STAT=ierr)
540 if (ierr.ne.0) then
541 CALL wrf_error_fatal ( &
542 'frame/module_domain.f: Failed to allocate grid%em_a_v_b(1,1,1,1). ')
543 endif
544 ENDIF
545 IF(.NOT.inter_domain)THEN
546 ALLOCATE(grid%em_a_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
547 if (ierr.ne.0) then
548 CALL wrf_error_fatal ( &
549 'frame/module_domain.f: Failed to allocate grid%em_a_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
550 endif
551 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_bt=initial_data_value
552 ELSE
553 ALLOCATE(grid%em_a_v_bt(1,1,1,1),STAT=ierr)
554 if (ierr.ne.0) then
555 CALL wrf_error_fatal ( &
556 'frame/module_domain.f: Failed to allocate grid%em_a_v_bt(1,1,1,1). ')
557 endif
558 ENDIF
559 IF(IAND(1,tl).NE.0)THEN
560 ALLOCATE(grid%em_g_v_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
561 if (ierr.ne.0) then
562 CALL wrf_error_fatal ( &
563 'frame/module_domain.f: Failed to allocate grid%em_g_v_1(sm31:em31,sm32:em32,sm33:em33). ')
564 endif
565 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_1=initial_data_value
566 ELSE
567 ALLOCATE(grid%em_g_v_1(1,1,1),STAT=ierr)
568 if (ierr.ne.0) then
569 CALL wrf_error_fatal ( &
570 'frame/module_domain.f: Failed to allocate grid%em_g_v_1(1,1,1). ')
571 endif
572 ENDIF
573 IF(IAND(2,tl).NE.0)THEN
574 ALLOCATE(grid%em_g_v_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
575 if (ierr.ne.0) then
576 CALL wrf_error_fatal ( &
577 'frame/module_domain.f: Failed to allocate grid%em_g_v_2(sm31:em31,sm32:em32,sm33:em33). ')
578 endif
579 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_2=initial_data_value
580 ELSE
581 ALLOCATE(grid%em_g_v_2(1,1,1),STAT=ierr)
582 if (ierr.ne.0) then
583 CALL wrf_error_fatal ( &
584 'frame/module_domain.f: Failed to allocate grid%em_g_v_2(1,1,1). ')
585 endif
586 ENDIF
587 IF(.NOT.inter_domain)THEN
588 ALLOCATE(grid%em_g_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
589 if (ierr.ne.0) then
590 CALL wrf_error_fatal ( &
591 'frame/module_domain.f: Failed to allocate grid%em_g_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
592 endif
593 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_b=initial_data_value
594 ELSE
595 ALLOCATE(grid%em_g_v_b(1,1,1,1),STAT=ierr)
596 if (ierr.ne.0) then
597 CALL wrf_error_fatal ( &
598 'frame/module_domain.f: Failed to allocate grid%em_g_v_b(1,1,1,1). ')
599 endif
600 ENDIF
601 IF(.NOT.inter_domain)THEN
602 ALLOCATE(grid%em_g_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
603 if (ierr.ne.0) then
604 CALL wrf_error_fatal ( &
605 'frame/module_domain.f: Failed to allocate grid%em_g_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
606 endif
607 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_bt=initial_data_value
608 ELSE
609 ALLOCATE(grid%em_g_v_bt(1,1,1,1),STAT=ierr)
610 if (ierr.ne.0) then
611 CALL wrf_error_fatal ( &
612 'frame/module_domain.f: Failed to allocate grid%em_g_v_bt(1,1,1,1). ')
613 endif
614 ENDIF
615 IF(IAND(1,tl).NE.0)THEN
616 ALLOCATE(grid%em_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
617 if (ierr.ne.0) then
618 CALL wrf_error_fatal ( &
619 'frame/module_domain.f: Failed to allocate grid%em_w_1(sm31:em31,sm32:em32,sm33:em33). ')
620 endif
621 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_1=initial_data_value
622 ELSE
623 ALLOCATE(grid%em_w_1(1,1,1),STAT=ierr)
624 if (ierr.ne.0) then
625 CALL wrf_error_fatal ( &
626 'frame/module_domain.f: Failed to allocate grid%em_w_1(1,1,1). ')
627 endif
628 ENDIF
629 IF(IAND(2,tl).NE.0)THEN
630 ALLOCATE(grid%em_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
631 if (ierr.ne.0) then
632 CALL wrf_error_fatal ( &
633 'frame/module_domain.f: Failed to allocate grid%em_w_2(sm31:em31,sm32:em32,sm33:em33). ')
634 endif
635 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_2=initial_data_value
636 ELSE
637 ALLOCATE(grid%em_w_2(1,1,1),STAT=ierr)
638 if (ierr.ne.0) then
639 CALL wrf_error_fatal ( &
640 'frame/module_domain.f: Failed to allocate grid%em_w_2(1,1,1). ')
641 endif
642 ENDIF
643 IF(.NOT.inter_domain)THEN
644 ALLOCATE(grid%em_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
645 if (ierr.ne.0) then
646 CALL wrf_error_fatal ( &
647 'frame/module_domain.f: Failed to allocate grid%em_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
648 endif
649 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_b=initial_data_value
650 ELSE
651 ALLOCATE(grid%em_w_b(1,1,1,1),STAT=ierr)
652 if (ierr.ne.0) then
653 CALL wrf_error_fatal ( &
654 'frame/module_domain.f: Failed to allocate grid%em_w_b(1,1,1,1). ')
655 endif
656 ENDIF
657 IF(.NOT.inter_domain)THEN
658 ALLOCATE(grid%em_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
659 if (ierr.ne.0) then
660 CALL wrf_error_fatal ( &
661 'frame/module_domain.f: Failed to allocate grid%em_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
662 endif
663 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_bt=initial_data_value
664 ELSE
665 ALLOCATE(grid%em_w_bt(1,1,1,1),STAT=ierr)
666 if (ierr.ne.0) then
667 CALL wrf_error_fatal ( &
668 'frame/module_domain.f: Failed to allocate grid%em_w_bt(1,1,1,1). ')
669 endif
670 ENDIF
671 IF(IAND(1,tl).NE.0)THEN
672 ALLOCATE(grid%em_a_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
673 if (ierr.ne.0) then
674 CALL wrf_error_fatal ( &
675 'frame/module_domain.f: Failed to allocate grid%em_a_w_1(sm31:em31,sm32:em32,sm33:em33). ')
676 endif
677 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_1=initial_data_value
678 ELSE
679 ALLOCATE(grid%em_a_w_1(1,1,1),STAT=ierr)
680 if (ierr.ne.0) then
681 CALL wrf_error_fatal ( &
682 'frame/module_domain.f: Failed to allocate grid%em_a_w_1(1,1,1). ')
683 endif
684 ENDIF
685 IF(IAND(2,tl).NE.0)THEN
686 ALLOCATE(grid%em_a_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
687 if (ierr.ne.0) then
688 CALL wrf_error_fatal ( &
689 'frame/module_domain.f: Failed to allocate grid%em_a_w_2(sm31:em31,sm32:em32,sm33:em33). ')
690 endif
691 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_2=initial_data_value
692 ELSE
693 ALLOCATE(grid%em_a_w_2(1,1,1),STAT=ierr)
694 if (ierr.ne.0) then
695 CALL wrf_error_fatal ( &
696 'frame/module_domain.f: Failed to allocate grid%em_a_w_2(1,1,1). ')
697 endif
698 ENDIF
699 IF(.NOT.inter_domain)THEN
700 ALLOCATE(grid%em_a_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
701 if (ierr.ne.0) then
702 CALL wrf_error_fatal ( &
703 'frame/module_domain.f: Failed to allocate grid%em_a_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
704 endif
705 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_b=initial_data_value
706 ELSE
707 ALLOCATE(grid%em_a_w_b(1,1,1,1),STAT=ierr)
708 if (ierr.ne.0) then
709 CALL wrf_error_fatal ( &
710 'frame/module_domain.f: Failed to allocate grid%em_a_w_b(1,1,1,1). ')
711 endif
712 ENDIF
713 IF(.NOT.inter_domain)THEN
714 ALLOCATE(grid%em_a_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
715 if (ierr.ne.0) then
716 CALL wrf_error_fatal ( &
717 'frame/module_domain.f: Failed to allocate grid%em_a_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
718 endif
719 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_bt=initial_data_value
720 ELSE
721 ALLOCATE(grid%em_a_w_bt(1,1,1,1),STAT=ierr)
722 if (ierr.ne.0) then
723 CALL wrf_error_fatal ( &
724 'frame/module_domain.f: Failed to allocate grid%em_a_w_bt(1,1,1,1). ')
725 endif
726 ENDIF
727 IF(IAND(1,tl).NE.0)THEN
728 ALLOCATE(grid%em_g_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
729 if (ierr.ne.0) then
730 CALL wrf_error_fatal ( &
731 'frame/module_domain.f: Failed to allocate grid%em_g_w_1(sm31:em31,sm32:em32,sm33:em33). ')
732 endif
733 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_1=initial_data_value
734 ELSE
735 ALLOCATE(grid%em_g_w_1(1,1,1),STAT=ierr)
736 if (ierr.ne.0) then
737 CALL wrf_error_fatal ( &
738 'frame/module_domain.f: Failed to allocate grid%em_g_w_1(1,1,1). ')
739 endif
740 ENDIF
741 IF(IAND(2,tl).NE.0)THEN
742 ALLOCATE(grid%em_g_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
743 if (ierr.ne.0) then
744 CALL wrf_error_fatal ( &
745 'frame/module_domain.f: Failed to allocate grid%em_g_w_2(sm31:em31,sm32:em32,sm33:em33). ')
746 endif
747 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_2=initial_data_value
748 ELSE
749 ALLOCATE(grid%em_g_w_2(1,1,1),STAT=ierr)
750 if (ierr.ne.0) then
751 CALL wrf_error_fatal ( &
752 'frame/module_domain.f: Failed to allocate grid%em_g_w_2(1,1,1). ')
753 endif
754 ENDIF
755 IF(.NOT.inter_domain)THEN
756 ALLOCATE(grid%em_g_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
757 if (ierr.ne.0) then
758 CALL wrf_error_fatal ( &
759 'frame/module_domain.f: Failed to allocate grid%em_g_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
760 endif
761 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_b=initial_data_value
762 ELSE
763 ALLOCATE(grid%em_g_w_b(1,1,1,1),STAT=ierr)
764 if (ierr.ne.0) then
765 CALL wrf_error_fatal ( &
766 'frame/module_domain.f: Failed to allocate grid%em_g_w_b(1,1,1,1). ')
767 endif
768 ENDIF
769 IF(.NOT.inter_domain)THEN
770 ALLOCATE(grid%em_g_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
771 if (ierr.ne.0) then
772 CALL wrf_error_fatal ( &
773 'frame/module_domain.f: Failed to allocate grid%em_g_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
774 endif
775 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_bt=initial_data_value
776 ELSE
777 ALLOCATE(grid%em_g_w_bt(1,1,1,1),STAT=ierr)
778 if (ierr.ne.0) then
779 CALL wrf_error_fatal ( &
780 'frame/module_domain.f: Failed to allocate grid%em_g_w_bt(1,1,1,1). ')
781 endif
782 ENDIF
783 IF(IAND(1,tl).NE.0)THEN
784 ALLOCATE(grid%em_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
785 if (ierr.ne.0) then
786 CALL wrf_error_fatal ( &
787 'frame/module_domain.f: Failed to allocate grid%em_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
788 endif
789 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_1=initial_data_value
790 ELSE
791 ALLOCATE(grid%em_ph_1(1,1,1),STAT=ierr)
792 if (ierr.ne.0) then
793 CALL wrf_error_fatal ( &
794 'frame/module_domain.f: Failed to allocate grid%em_ph_1(1,1,1). ')
795 endif
796 ENDIF
797 IF(IAND(2,tl).NE.0)THEN
798 ALLOCATE(grid%em_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
799 if (ierr.ne.0) then
800 CALL wrf_error_fatal ( &
801 'frame/module_domain.f: Failed to allocate grid%em_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
802 endif
803 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_2=initial_data_value
804 ELSE
805 ALLOCATE(grid%em_ph_2(1,1,1),STAT=ierr)
806 if (ierr.ne.0) then
807 CALL wrf_error_fatal ( &
808 'frame/module_domain.f: Failed to allocate grid%em_ph_2(1,1,1). ')
809 endif
810 ENDIF
811 IF(.NOT.inter_domain)THEN
812 ALLOCATE(grid%em_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
813 if (ierr.ne.0) then
814 CALL wrf_error_fatal ( &
815 'frame/module_domain.f: Failed to allocate grid%em_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
816 endif
817 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_b=initial_data_value
818 ELSE
819 ALLOCATE(grid%em_ph_b(1,1,1,1),STAT=ierr)
820 if (ierr.ne.0) then
821 CALL wrf_error_fatal ( &
822 'frame/module_domain.f: Failed to allocate grid%em_ph_b(1,1,1,1). ')
823 endif
824 ENDIF
825 IF(.NOT.inter_domain)THEN
826 ALLOCATE(grid%em_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
827 if (ierr.ne.0) then
828 CALL wrf_error_fatal ( &
829 'frame/module_domain.f: Failed to allocate grid%em_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
830 endif
831 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_bt=initial_data_value
832 ELSE
833 ALLOCATE(grid%em_ph_bt(1,1,1,1),STAT=ierr)
834 if (ierr.ne.0) then
835 CALL wrf_error_fatal ( &
836 'frame/module_domain.f: Failed to allocate grid%em_ph_bt(1,1,1,1). ')
837 endif
838 ENDIF
839 IF(IAND(1,tl).NE.0)THEN
840 ALLOCATE(grid%em_a_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
841 if (ierr.ne.0) then
842 CALL wrf_error_fatal ( &
843 'frame/module_domain.f: Failed to allocate grid%em_a_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
844 endif
845 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_1=initial_data_value
846 ELSE
847 ALLOCATE(grid%em_a_ph_1(1,1,1),STAT=ierr)
848 if (ierr.ne.0) then
849 CALL wrf_error_fatal ( &
850 'frame/module_domain.f: Failed to allocate grid%em_a_ph_1(1,1,1). ')
851 endif
852 ENDIF
853 IF(IAND(2,tl).NE.0)THEN
854 ALLOCATE(grid%em_a_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
855 if (ierr.ne.0) then
856 CALL wrf_error_fatal ( &
857 'frame/module_domain.f: Failed to allocate grid%em_a_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
858 endif
859 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_2=initial_data_value
860 ELSE
861 ALLOCATE(grid%em_a_ph_2(1,1,1),STAT=ierr)
862 if (ierr.ne.0) then
863 CALL wrf_error_fatal ( &
864 'frame/module_domain.f: Failed to allocate grid%em_a_ph_2(1,1,1). ')
865 endif
866 ENDIF
867 IF(.NOT.inter_domain)THEN
868 ALLOCATE(grid%em_a_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
869 if (ierr.ne.0) then
870 CALL wrf_error_fatal ( &
871 'frame/module_domain.f: Failed to allocate grid%em_a_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
872 endif
873 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_b=initial_data_value
874 ELSE
875 ALLOCATE(grid%em_a_ph_b(1,1,1,1),STAT=ierr)
876 if (ierr.ne.0) then
877 CALL wrf_error_fatal ( &
878 'frame/module_domain.f: Failed to allocate grid%em_a_ph_b(1,1,1,1). ')
879 endif
880 ENDIF
881 IF(.NOT.inter_domain)THEN
882 ALLOCATE(grid%em_a_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
883 if (ierr.ne.0) then
884 CALL wrf_error_fatal ( &
885 'frame/module_domain.f: Failed to allocate grid%em_a_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
886 endif
887 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_bt=initial_data_value
888 ELSE
889 ALLOCATE(grid%em_a_ph_bt(1,1,1,1),STAT=ierr)
890 if (ierr.ne.0) then
891 CALL wrf_error_fatal ( &
892 'frame/module_domain.f: Failed to allocate grid%em_a_ph_bt(1,1,1,1). ')
893 endif
894 ENDIF
895 IF(IAND(1,tl).NE.0)THEN
896 ALLOCATE(grid%em_g_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
897 if (ierr.ne.0) then
898 CALL wrf_error_fatal ( &
899 'frame/module_domain.f: Failed to allocate grid%em_g_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
900 endif
901 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_1=initial_data_value
902 ELSE
903 ALLOCATE(grid%em_g_ph_1(1,1,1),STAT=ierr)
904 if (ierr.ne.0) then
905 CALL wrf_error_fatal ( &
906 'frame/module_domain.f: Failed to allocate grid%em_g_ph_1(1,1,1). ')
907 endif
908 ENDIF
909 IF(IAND(2,tl).NE.0)THEN
910 ALLOCATE(grid%em_g_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
911 if (ierr.ne.0) then
912 CALL wrf_error_fatal ( &
913 'frame/module_domain.f: Failed to allocate grid%em_g_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
914 endif
915 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_2=initial_data_value
916 ELSE
917 ALLOCATE(grid%em_g_ph_2(1,1,1),STAT=ierr)
918 if (ierr.ne.0) then
919 CALL wrf_error_fatal ( &
920 'frame/module_domain.f: Failed to allocate grid%em_g_ph_2(1,1,1). ')
921 endif
922 ENDIF
923 IF(.NOT.inter_domain)THEN
924 ALLOCATE(grid%em_g_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
925 if (ierr.ne.0) then
926 CALL wrf_error_fatal ( &
927 'frame/module_domain.f: Failed to allocate grid%em_g_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
928 endif
929 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_b=initial_data_value
930 ELSE
931 ALLOCATE(grid%em_g_ph_b(1,1,1,1),STAT=ierr)
932 if (ierr.ne.0) then
933 CALL wrf_error_fatal ( &
934 'frame/module_domain.f: Failed to allocate grid%em_g_ph_b(1,1,1,1). ')
935 endif
936 ENDIF
937 IF(.NOT.inter_domain)THEN
938 ALLOCATE(grid%em_g_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
939 if (ierr.ne.0) then
940 CALL wrf_error_fatal ( &
941 'frame/module_domain.f: Failed to allocate grid%em_g_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
942 endif
943 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_bt=initial_data_value
944 ELSE
945 ALLOCATE(grid%em_g_ph_bt(1,1,1,1),STAT=ierr)
946 if (ierr.ne.0) then
947 CALL wrf_error_fatal ( &
948 'frame/module_domain.f: Failed to allocate grid%em_g_ph_bt(1,1,1,1). ')
949 endif
950 ENDIF
951 ALLOCATE(grid%em_phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
952 if (ierr.ne.0) then
953 CALL wrf_error_fatal ( &
954 'frame/module_domain.f: Failed to allocate grid%em_phb(sm31:em31,sm32:em32,sm33:em33). ')
955 endif
956 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_phb=initial_data_value
957 IF(IAND(1,tl).NE.0)THEN
958 ALLOCATE(grid%em_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
959 if (ierr.ne.0) then
960 CALL wrf_error_fatal ( &
961 'frame/module_domain.f: Failed to allocate grid%em_t_1(sm31:em31,sm32:em32,sm33:em33). ')
962 endif
963 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_1=initial_data_value
964 ELSE
965 ALLOCATE(grid%em_t_1(1,1,1),STAT=ierr)
966 if (ierr.ne.0) then
967 CALL wrf_error_fatal ( &
968 'frame/module_domain.f: Failed to allocate grid%em_t_1(1,1,1). ')
969 endif
970 ENDIF
971 IF(IAND(2,tl).NE.0)THEN
972 ALLOCATE(grid%em_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
973 if (ierr.ne.0) then
974 CALL wrf_error_fatal ( &
975 'frame/module_domain.f: Failed to allocate grid%em_t_2(sm31:em31,sm32:em32,sm33:em33). ')
976 endif
977 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_2=initial_data_value
978 ELSE
979 ALLOCATE(grid%em_t_2(1,1,1),STAT=ierr)
980 if (ierr.ne.0) then
981 CALL wrf_error_fatal ( &
982 'frame/module_domain.f: Failed to allocate grid%em_t_2(1,1,1). ')
983 endif
984 ENDIF
985 IF(.NOT.inter_domain)THEN
986 ALLOCATE(grid%em_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
987 if (ierr.ne.0) then
988 CALL wrf_error_fatal ( &
989 'frame/module_domain.f: Failed to allocate grid%em_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
990 endif
991 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_b=initial_data_value
992 ELSE
993 ALLOCATE(grid%em_t_b(1,1,1,1),STAT=ierr)
994 if (ierr.ne.0) then
995 CALL wrf_error_fatal ( &
996 'frame/module_domain.f: Failed to allocate grid%em_t_b(1,1,1,1). ')
997 endif
998 ENDIF
999 IF(.NOT.inter_domain)THEN
1000 ALLOCATE(grid%em_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1001 if (ierr.ne.0) then
1002 CALL wrf_error_fatal ( &
1003 'frame/module_domain.f: Failed to allocate grid%em_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1004 endif
1005 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_bt=initial_data_value
1006 ELSE
1007 ALLOCATE(grid%em_t_bt(1,1,1,1),STAT=ierr)
1008 if (ierr.ne.0) then
1009 CALL wrf_error_fatal ( &
1010 'frame/module_domain.f: Failed to allocate grid%em_t_bt(1,1,1,1). ')
1011 endif
1012 ENDIF
1013 IF(IAND(1,tl).NE.0)THEN
1014 ALLOCATE(grid%em_a_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1015 if (ierr.ne.0) then
1016 CALL wrf_error_fatal ( &
1017 'frame/module_domain.f: Failed to allocate grid%em_a_t_1(sm31:em31,sm32:em32,sm33:em33). ')
1018 endif
1019 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_1=initial_data_value
1020 ELSE
1021 ALLOCATE(grid%em_a_t_1(1,1,1),STAT=ierr)
1022 if (ierr.ne.0) then
1023 CALL wrf_error_fatal ( &
1024 'frame/module_domain.f: Failed to allocate grid%em_a_t_1(1,1,1). ')
1025 endif
1026 ENDIF
1027 IF(IAND(2,tl).NE.0)THEN
1028 ALLOCATE(grid%em_a_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1029 if (ierr.ne.0) then
1030 CALL wrf_error_fatal ( &
1031 'frame/module_domain.f: Failed to allocate grid%em_a_t_2(sm31:em31,sm32:em32,sm33:em33). ')
1032 endif
1033 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_2=initial_data_value
1034 ELSE
1035 ALLOCATE(grid%em_a_t_2(1,1,1),STAT=ierr)
1036 if (ierr.ne.0) then
1037 CALL wrf_error_fatal ( &
1038 'frame/module_domain.f: Failed to allocate grid%em_a_t_2(1,1,1). ')
1039 endif
1040 ENDIF
1041 IF(.NOT.inter_domain)THEN
1042 ALLOCATE(grid%em_a_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1043 if (ierr.ne.0) then
1044 CALL wrf_error_fatal ( &
1045 'frame/module_domain.f: Failed to allocate grid%em_a_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1046 endif
1047 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_b=initial_data_value
1048 ELSE
1049 ALLOCATE(grid%em_a_t_b(1,1,1,1),STAT=ierr)
1050 if (ierr.ne.0) then
1051 CALL wrf_error_fatal ( &
1052 'frame/module_domain.f: Failed to allocate grid%em_a_t_b(1,1,1,1). ')
1053 endif
1054 ENDIF
1055 IF(.NOT.inter_domain)THEN
1056 ALLOCATE(grid%em_a_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1057 if (ierr.ne.0) then
1058 CALL wrf_error_fatal ( &
1059 'frame/module_domain.f: Failed to allocate grid%em_a_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1060 endif
1061 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_bt=initial_data_value
1062 ELSE
1063 ALLOCATE(grid%em_a_t_bt(1,1,1,1),STAT=ierr)
1064 if (ierr.ne.0) then
1065 CALL wrf_error_fatal ( &
1066 'frame/module_domain.f: Failed to allocate grid%em_a_t_bt(1,1,1,1). ')
1067 endif
1068 ENDIF
1069 IF(IAND(1,tl).NE.0)THEN
1070 ALLOCATE(grid%em_g_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1071 if (ierr.ne.0) then
1072 CALL wrf_error_fatal ( &
1073 'frame/module_domain.f: Failed to allocate grid%em_g_t_1(sm31:em31,sm32:em32,sm33:em33). ')
1074 endif
1075 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_1=initial_data_value
1076 ELSE
1077 ALLOCATE(grid%em_g_t_1(1,1,1),STAT=ierr)
1078 if (ierr.ne.0) then
1079 CALL wrf_error_fatal ( &
1080 'frame/module_domain.f: Failed to allocate grid%em_g_t_1(1,1,1). ')
1081 endif
1082 ENDIF
1083 IF(IAND(2,tl).NE.0)THEN
1084 ALLOCATE(grid%em_g_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1085 if (ierr.ne.0) then
1086 CALL wrf_error_fatal ( &
1087 'frame/module_domain.f: Failed to allocate grid%em_g_t_2(sm31:em31,sm32:em32,sm33:em33). ')
1088 endif
1089 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_2=initial_data_value
1090 ELSE
1091 ALLOCATE(grid%em_g_t_2(1,1,1),STAT=ierr)
1092 if (ierr.ne.0) then
1093 CALL wrf_error_fatal ( &
1094 'frame/module_domain.f: Failed to allocate grid%em_g_t_2(1,1,1). ')
1095 endif
1096 ENDIF
1097 IF(.NOT.inter_domain)THEN
1098 ALLOCATE(grid%em_g_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1099 if (ierr.ne.0) then
1100 CALL wrf_error_fatal ( &
1101 'frame/module_domain.f: Failed to allocate grid%em_g_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1102 endif
1103 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_b=initial_data_value
1104 ELSE
1105 ALLOCATE(grid%em_g_t_b(1,1,1,1),STAT=ierr)
1106 if (ierr.ne.0) then
1107 CALL wrf_error_fatal ( &
1108 'frame/module_domain.f: Failed to allocate grid%em_g_t_b(1,1,1,1). ')
1109 endif
1110 ENDIF
1111 IF(.NOT.inter_domain)THEN
1112 ALLOCATE(grid%em_g_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1113 if (ierr.ne.0) then
1114 CALL wrf_error_fatal ( &
1115 'frame/module_domain.f: Failed to allocate grid%em_g_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1116 endif
1117 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_bt=initial_data_value
1118 ELSE
1119 ALLOCATE(grid%em_g_t_bt(1,1,1,1),STAT=ierr)
1120 if (ierr.ne.0) then
1121 CALL wrf_error_fatal ( &
1122 'frame/module_domain.f: Failed to allocate grid%em_g_t_bt(1,1,1,1). ')
1123 endif
1124 ENDIF
1125 IF(IAND(1,tl).NE.0)THEN
1126 ALLOCATE(grid%em_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1127 if (ierr.ne.0) then
1128 CALL wrf_error_fatal ( &
1129 'frame/module_domain.f: Failed to allocate grid%em_mu_1(sm31:em31,sm32:em32). ')
1130 endif
1131 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_1=initial_data_value
1132 ELSE
1133 ALLOCATE(grid%em_mu_1(1,1),STAT=ierr)
1134 if (ierr.ne.0) then
1135 CALL wrf_error_fatal ( &
1136 'frame/module_domain.f: Failed to allocate grid%em_mu_1(1,1). ')
1137 endif
1138 ENDIF
1139 IF(IAND(2,tl).NE.0)THEN
1140 ALLOCATE(grid%em_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1141 if (ierr.ne.0) then
1142 CALL wrf_error_fatal ( &
1143 'frame/module_domain.f: Failed to allocate grid%em_mu_2(sm31:em31,sm32:em32). ')
1144 endif
1145 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_2=initial_data_value
1146 ELSE
1147 ALLOCATE(grid%em_mu_2(1,1),STAT=ierr)
1148 if (ierr.ne.0) then
1149 CALL wrf_error_fatal ( &
1150 'frame/module_domain.f: Failed to allocate grid%em_mu_2(1,1). ')
1151 endif
1152 ENDIF
1153 IF(.NOT.inter_domain)THEN
1154 ALLOCATE(grid%em_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1155 if (ierr.ne.0) then
1156 CALL wrf_error_fatal ( &
1157 'frame/module_domain.f: Failed to allocate grid%em_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1158 endif
1159 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_b=initial_data_value
1160 ELSE
1161 ALLOCATE(grid%em_mu_b(1,1,1,1),STAT=ierr)
1162 if (ierr.ne.0) then
1163 CALL wrf_error_fatal ( &
1164 'frame/module_domain.f: Failed to allocate grid%em_mu_b(1,1,1,1). ')
1165 endif
1166 ENDIF
1167 IF(.NOT.inter_domain)THEN
1168 ALLOCATE(grid%em_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1169 if (ierr.ne.0) then
1170 CALL wrf_error_fatal ( &
1171 'frame/module_domain.f: Failed to allocate grid%em_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1172 endif
1173 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_bt=initial_data_value
1174 ELSE
1175 ALLOCATE(grid%em_mu_bt(1,1,1,1),STAT=ierr)
1176 if (ierr.ne.0) then
1177 CALL wrf_error_fatal ( &
1178 'frame/module_domain.f: Failed to allocate grid%em_mu_bt(1,1,1,1). ')
1179 endif
1180 ENDIF
1181 IF(IAND(1,tl).NE.0)THEN
1182 ALLOCATE(grid%em_a_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1183 if (ierr.ne.0) then
1184 CALL wrf_error_fatal ( &
1185 'frame/module_domain.f: Failed to allocate grid%em_a_mu_1(sm31:em31,sm32:em32). ')
1186 endif
1187 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_1=initial_data_value
1188 ELSE
1189 ALLOCATE(grid%em_a_mu_1(1,1),STAT=ierr)
1190 if (ierr.ne.0) then
1191 CALL wrf_error_fatal ( &
1192 'frame/module_domain.f: Failed to allocate grid%em_a_mu_1(1,1). ')
1193 endif
1194 ENDIF
1195 IF(IAND(2,tl).NE.0)THEN
1196 ALLOCATE(grid%em_a_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1197 if (ierr.ne.0) then
1198 CALL wrf_error_fatal ( &
1199 'frame/module_domain.f: Failed to allocate grid%em_a_mu_2(sm31:em31,sm32:em32). ')
1200 endif
1201 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_2=initial_data_value
1202 ELSE
1203 ALLOCATE(grid%em_a_mu_2(1,1),STAT=ierr)
1204 if (ierr.ne.0) then
1205 CALL wrf_error_fatal ( &
1206 'frame/module_domain.f: Failed to allocate grid%em_a_mu_2(1,1). ')
1207 endif
1208 ENDIF
1209 IF(.NOT.inter_domain)THEN
1210 ALLOCATE(grid%em_a_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1211 if (ierr.ne.0) then
1212 CALL wrf_error_fatal ( &
1213 'frame/module_domain.f: Failed to allocate grid%em_a_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1214 endif
1215 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_b=initial_data_value
1216 ELSE
1217 ALLOCATE(grid%em_a_mu_b(1,1,1,1),STAT=ierr)
1218 if (ierr.ne.0) then
1219 CALL wrf_error_fatal ( &
1220 'frame/module_domain.f: Failed to allocate grid%em_a_mu_b(1,1,1,1). ')
1221 endif
1222 ENDIF
1223 IF(.NOT.inter_domain)THEN
1224 ALLOCATE(grid%em_a_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1225 if (ierr.ne.0) then
1226 CALL wrf_error_fatal ( &
1227 'frame/module_domain.f: Failed to allocate grid%em_a_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1228 endif
1229 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_bt=initial_data_value
1230 ELSE
1231 ALLOCATE(grid%em_a_mu_bt(1,1,1,1),STAT=ierr)
1232 if (ierr.ne.0) then
1233 CALL wrf_error_fatal ( &
1234 'frame/module_domain.f: Failed to allocate grid%em_a_mu_bt(1,1,1,1). ')
1235 endif
1236 ENDIF
1237 IF(IAND(1,tl).NE.0)THEN
1238 ALLOCATE(grid%em_g_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1239 if (ierr.ne.0) then
1240 CALL wrf_error_fatal ( &
1241 'frame/module_domain.f: Failed to allocate grid%em_g_mu_1(sm31:em31,sm32:em32). ')
1242 endif
1243 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_1=initial_data_value
1244 ELSE
1245 ALLOCATE(grid%em_g_mu_1(1,1),STAT=ierr)
1246 if (ierr.ne.0) then
1247 CALL wrf_error_fatal ( &
1248 'frame/module_domain.f: Failed to allocate grid%em_g_mu_1(1,1). ')
1249 endif
1250 ENDIF
1251 IF(IAND(2,tl).NE.0)THEN
1252 ALLOCATE(grid%em_g_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1253 if (ierr.ne.0) then
1254 CALL wrf_error_fatal ( &
1255 'frame/module_domain.f: Failed to allocate grid%em_g_mu_2(sm31:em31,sm32:em32). ')
1256 endif
1257 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_2=initial_data_value
1258 ELSE
1259 ALLOCATE(grid%em_g_mu_2(1,1),STAT=ierr)
1260 if (ierr.ne.0) then
1261 CALL wrf_error_fatal ( &
1262 'frame/module_domain.f: Failed to allocate grid%em_g_mu_2(1,1). ')
1263 endif
1264 ENDIF
1265 IF(.NOT.inter_domain)THEN
1266 ALLOCATE(grid%em_g_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1267 if (ierr.ne.0) then
1268 CALL wrf_error_fatal ( &
1269 'frame/module_domain.f: Failed to allocate grid%em_g_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1270 endif
1271 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_b=initial_data_value
1272 ELSE
1273 ALLOCATE(grid%em_g_mu_b(1,1,1,1),STAT=ierr)
1274 if (ierr.ne.0) then
1275 CALL wrf_error_fatal ( &
1276 'frame/module_domain.f: Failed to allocate grid%em_g_mu_b(1,1,1,1). ')
1277 endif
1278 ENDIF
1279 IF(.NOT.inter_domain)THEN
1280 ALLOCATE(grid%em_g_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1281 if (ierr.ne.0) then
1282 CALL wrf_error_fatal ( &
1283 'frame/module_domain.f: Failed to allocate grid%em_g_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1284 endif
1285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_bt=initial_data_value
1286 ELSE
1287 ALLOCATE(grid%em_g_mu_bt(1,1,1,1),STAT=ierr)
1288 if (ierr.ne.0) then
1289 CALL wrf_error_fatal ( &
1290 'frame/module_domain.f: Failed to allocate grid%em_g_mu_bt(1,1,1,1). ')
1291 endif
1292 ENDIF
1293 ALLOCATE(grid%em_mub(sm31:em31,sm32:em32),STAT=ierr)
1294 if (ierr.ne.0) then
1295 CALL wrf_error_fatal ( &
1296 'frame/module_domain.f: Failed to allocate grid%em_mub(sm31:em31,sm32:em32). ')
1297 endif
1298 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mub=initial_data_value
1299 ALLOCATE(grid%em_mu0(sm31:em31,sm32:em32),STAT=ierr)
1300 if (ierr.ne.0) then
1301 CALL wrf_error_fatal ( &
1302 'frame/module_domain.f: Failed to allocate grid%em_mu0(sm31:em31,sm32:em32). ')
1303 endif
1304 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu0=initial_data_value
1305 ALLOCATE(grid%nest_pos(sm31:em31,sm32:em32),STAT=ierr)
1306 if (ierr.ne.0) then
1307 CALL wrf_error_fatal ( &
1308 'frame/module_domain.f: Failed to allocate grid%nest_pos(sm31:em31,sm32:em32). ')
1309 endif
1310 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_pos=initial_data_value
1311 ALLOCATE(grid%nest_mask(sm31:em31,sm32:em32),STAT=ierr)
1312 if (ierr.ne.0) then
1313 CALL wrf_error_fatal ( &
1314 'frame/module_domain.f: Failed to allocate grid%nest_mask(sm31:em31,sm32:em32). ')
1315 endif
1316 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_mask=initial_data_value
1317 IF(.NOT.inter_domain)THEN
1318 ALLOCATE(grid%ht_coarse(sm31:em31,sm32:em32),STAT=ierr)
1319 if (ierr.ne.0) then
1320 CALL wrf_error_fatal ( &
1321 'frame/module_domain.f: Failed to allocate grid%ht_coarse(sm31:em31,sm32:em32). ')
1322 endif
1323 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_coarse=initial_data_value
1324 ELSE
1325 ALLOCATE(grid%ht_coarse(1,1),STAT=ierr)
1326 if (ierr.ne.0) then
1327 CALL wrf_error_fatal ( &
1328 'frame/module_domain.f: Failed to allocate grid%ht_coarse(1,1). ')
1329 endif
1330 ENDIF
1331 IF(.NOT.inter_domain)THEN
1332 ALLOCATE(grid%em_p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1333 if (ierr.ne.0) then
1334 CALL wrf_error_fatal ( &
1335 'frame/module_domain.f: Failed to allocate grid%em_p(sm31:em31,sm32:em32,sm33:em33). ')
1336 endif
1337 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_p=initial_data_value
1338 ELSE
1339 ALLOCATE(grid%em_p(1,1,1),STAT=ierr)
1340 if (ierr.ne.0) then
1341 CALL wrf_error_fatal ( &
1342 'frame/module_domain.f: Failed to allocate grid%em_p(1,1,1). ')
1343 endif
1344 ENDIF
1345 IF(.NOT.inter_domain)THEN
1346 ALLOCATE(grid%em_sr(sm31:em31,sm32:em32),STAT=ierr)
1347 if (ierr.ne.0) then
1348 CALL wrf_error_fatal ( &
1349 'frame/module_domain.f: Failed to allocate grid%em_sr(sm31:em31,sm32:em32). ')
1350 endif
1351 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_sr=initial_data_value
1352 ELSE
1353 ALLOCATE(grid%em_sr(1,1),STAT=ierr)
1354 if (ierr.ne.0) then
1355 CALL wrf_error_fatal ( &
1356 'frame/module_domain.f: Failed to allocate grid%em_sr(1,1). ')
1357 endif
1358 ENDIF
1359 IF(.NOT.inter_domain)THEN
1360 ALLOCATE(grid%em_fnm(sm33:em33),STAT=ierr)
1361 if (ierr.ne.0) then
1362 CALL wrf_error_fatal ( &
1363 'frame/module_domain.f: Failed to allocate grid%em_fnm(sm33:em33). ')
1364 endif
1365 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_fnm=initial_data_value
1366 ELSE
1367 ALLOCATE(grid%em_fnm(1),STAT=ierr)
1368 if (ierr.ne.0) then
1369 CALL wrf_error_fatal ( &
1370 'frame/module_domain.f: Failed to allocate grid%em_fnm(1). ')
1371 endif
1372 ENDIF
1373 IF(.NOT.inter_domain)THEN
1374 ALLOCATE(grid%em_fnp(sm33:em33),STAT=ierr)
1375 if (ierr.ne.0) then
1376 CALL wrf_error_fatal ( &
1377 'frame/module_domain.f: Failed to allocate grid%em_fnp(sm33:em33). ')
1378 endif
1379 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_fnp=initial_data_value
1380 ELSE
1381 ALLOCATE(grid%em_fnp(1),STAT=ierr)
1382 if (ierr.ne.0) then
1383 CALL wrf_error_fatal ( &
1384 'frame/module_domain.f: Failed to allocate grid%em_fnp(1). ')
1385 endif
1386 ENDIF
1387 IF(.NOT.inter_domain)THEN
1388 ALLOCATE(grid%em_rdnw(sm33:em33),STAT=ierr)
1389 if (ierr.ne.0) then
1390 CALL wrf_error_fatal ( &
1391 'frame/module_domain.f: Failed to allocate grid%em_rdnw(sm33:em33). ')
1392 endif
1393 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdnw=initial_data_value
1394 ELSE
1395 ALLOCATE(grid%em_rdnw(1),STAT=ierr)
1396 if (ierr.ne.0) then
1397 CALL wrf_error_fatal ( &
1398 'frame/module_domain.f: Failed to allocate grid%em_rdnw(1). ')
1399 endif
1400 ENDIF
1401 IF(.NOT.inter_domain)THEN
1402 ALLOCATE(grid%em_rdn(sm33:em33),STAT=ierr)
1403 if (ierr.ne.0) then
1404 CALL wrf_error_fatal ( &
1405 'frame/module_domain.f: Failed to allocate grid%em_rdn(sm33:em33). ')
1406 endif
1407 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdn=initial_data_value
1408 ELSE
1409 ALLOCATE(grid%em_rdn(1),STAT=ierr)
1410 if (ierr.ne.0) then
1411 CALL wrf_error_fatal ( &
1412 'frame/module_domain.f: Failed to allocate grid%em_rdn(1). ')
1413 endif
1414 ENDIF
1415 IF(.NOT.inter_domain)THEN
1416 ALLOCATE(grid%em_dnw(sm33:em33),STAT=ierr)
1417 if (ierr.ne.0) then
1418 CALL wrf_error_fatal ( &
1419 'frame/module_domain.f: Failed to allocate grid%em_dnw(sm33:em33). ')
1420 endif
1421 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dnw=initial_data_value
1422 ELSE
1423 ALLOCATE(grid%em_dnw(1),STAT=ierr)
1424 if (ierr.ne.0) then
1425 CALL wrf_error_fatal ( &
1426 'frame/module_domain.f: Failed to allocate grid%em_dnw(1). ')
1427 endif
1428 ENDIF
1429 IF(.NOT.inter_domain)THEN
1430 ALLOCATE(grid%em_dn(sm33:em33),STAT=ierr)
1431 if (ierr.ne.0) then
1432 CALL wrf_error_fatal ( &
1433 'frame/module_domain.f: Failed to allocate grid%em_dn(sm33:em33). ')
1434 endif
1435 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dn=initial_data_value
1436 ELSE
1437 ALLOCATE(grid%em_dn(1),STAT=ierr)
1438 if (ierr.ne.0) then
1439 CALL wrf_error_fatal ( &
1440 'frame/module_domain.f: Failed to allocate grid%em_dn(1). ')
1441 endif
1442 ENDIF
1443 IF(.NOT.inter_domain)THEN
1444 ALLOCATE(grid%em_znu(sm33:em33),STAT=ierr)
1445 if (ierr.ne.0) then
1446 CALL wrf_error_fatal ( &
1447 'frame/module_domain.f: Failed to allocate grid%em_znu(sm33:em33). ')
1448 endif
1449 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_znu=initial_data_value
1450 ELSE
1451 ALLOCATE(grid%em_znu(1),STAT=ierr)
1452 if (ierr.ne.0) then
1453 CALL wrf_error_fatal ( &
1454 'frame/module_domain.f: Failed to allocate grid%em_znu(1). ')
1455 endif
1456 ENDIF
1457 IF(.NOT.inter_domain)THEN
1458 ALLOCATE(grid%em_znw(sm33:em33),STAT=ierr)
1459 if (ierr.ne.0) then
1460 CALL wrf_error_fatal ( &
1461 'frame/module_domain.f: Failed to allocate grid%em_znw(sm33:em33). ')
1462 endif
1463 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_znw=initial_data_value
1464 ELSE
1465 ALLOCATE(grid%em_znw(1),STAT=ierr)
1466 if (ierr.ne.0) then
1467 CALL wrf_error_fatal ( &
1468 'frame/module_domain.f: Failed to allocate grid%em_znw(1). ')
1469 endif
1470 ENDIF
1471 IF(.NOT.inter_domain)THEN
1472 ALLOCATE(grid%em_t_base(sm33:em33),STAT=ierr)
1473 if (ierr.ne.0) then
1474 CALL wrf_error_fatal ( &
1475 'frame/module_domain.f: Failed to allocate grid%em_t_base(sm33:em33). ')
1476 endif
1477 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_base=initial_data_value
1478 ELSE
1479 ALLOCATE(grid%em_t_base(1),STAT=ierr)
1480 if (ierr.ne.0) then
1481 CALL wrf_error_fatal ( &
1482 'frame/module_domain.f: Failed to allocate grid%em_t_base(1). ')
1483 endif
1484 ENDIF
1485 IF(.NOT.inter_domain)THEN
1486 ALLOCATE(grid%em_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1487 if (ierr.ne.0) then
1488 CALL wrf_error_fatal ( &
1489 'frame/module_domain.f: Failed to allocate grid%em_z(sm31:em31,sm32:em32,sm33:em33). ')
1490 endif
1491 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_z=initial_data_value
1492 ELSE
1493 ALLOCATE(grid%em_z(1,1,1),STAT=ierr)
1494 if (ierr.ne.0) then
1495 CALL wrf_error_fatal ( &
1496 'frame/module_domain.f: Failed to allocate grid%em_z(1,1,1). ')
1497 endif
1498 ENDIF
1499 IF(.NOT.inter_domain)THEN
1500 ALLOCATE(grid%em_a_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1501 if (ierr.ne.0) then
1502 CALL wrf_error_fatal ( &
1503 'frame/module_domain.f: Failed to allocate grid%em_a_z(sm31:em31,sm32:em32,sm33:em33). ')
1504 endif
1505 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_z=initial_data_value
1506 ELSE
1507 ALLOCATE(grid%em_a_z(1,1,1),STAT=ierr)
1508 if (ierr.ne.0) then
1509 CALL wrf_error_fatal ( &
1510 'frame/module_domain.f: Failed to allocate grid%em_a_z(1,1,1). ')
1511 endif
1512 ENDIF
1513 IF(.NOT.inter_domain)THEN
1514 ALLOCATE(grid%em_g_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1515 if (ierr.ne.0) then
1516 CALL wrf_error_fatal ( &
1517 'frame/module_domain.f: Failed to allocate grid%em_g_z(sm31:em31,sm32:em32,sm33:em33). ')
1518 endif
1519 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_z=initial_data_value
1520 ELSE
1521 ALLOCATE(grid%em_g_z(1,1,1),STAT=ierr)
1522 if (ierr.ne.0) then
1523 CALL wrf_error_fatal ( &
1524 'frame/module_domain.f: Failed to allocate grid%em_g_z(1,1,1). ')
1525 endif
1526 ENDIF
1527 IF ( setinitval .EQ. 3 ) grid%cfn=initial_data_value
1528 IF ( setinitval .EQ. 3 ) grid%cfn1=initial_data_value
1529 IF ( setinitval .EQ. 3 ) grid%step_number=0
1530 IF(.NOT.inter_domain)THEN
1531 ALLOCATE(grid%kma_a(sm33:em33),STAT=ierr)
1532 if (ierr.ne.0) then
1533 CALL wrf_error_fatal ( &
1534 'frame/module_domain.f: Failed to allocate grid%kma_a(sm33:em33). ')
1535 endif
1536 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_a=initial_data_value
1537 ELSE
1538 ALLOCATE(grid%kma_a(1),STAT=ierr)
1539 if (ierr.ne.0) then
1540 CALL wrf_error_fatal ( &
1541 'frame/module_domain.f: Failed to allocate grid%kma_a(1). ')
1542 endif
1543 ENDIF
1544 IF(.NOT.inter_domain)THEN
1545 ALLOCATE(grid%kma_b(sm33:em33),STAT=ierr)
1546 if (ierr.ne.0) then
1547 CALL wrf_error_fatal ( &
1548 'frame/module_domain.f: Failed to allocate grid%kma_b(sm33:em33). ')
1549 endif
1550 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_b=initial_data_value
1551 ELSE
1552 ALLOCATE(grid%kma_b(1),STAT=ierr)
1553 if (ierr.ne.0) then
1554 CALL wrf_error_fatal ( &
1555 'frame/module_domain.f: Failed to allocate grid%kma_b(1). ')
1556 endif
1557 ENDIF
1558 IF(.NOT.inter_domain)THEN
1559 ALLOCATE(grid%q2(sm31:em31,sm32:em32),STAT=ierr)
1560 if (ierr.ne.0) then
1561 CALL wrf_error_fatal ( &
1562 'frame/module_domain.f: Failed to allocate grid%q2(sm31:em31,sm32:em32). ')
1563 endif
1564 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2=initial_data_value
1565 ELSE
1566 ALLOCATE(grid%q2(1,1),STAT=ierr)
1567 if (ierr.ne.0) then
1568 CALL wrf_error_fatal ( &
1569 'frame/module_domain.f: Failed to allocate grid%q2(1,1). ')
1570 endif
1571 ENDIF
1572 IF(.NOT.inter_domain)THEN
1573 ALLOCATE(grid%t2(sm31:em31,sm32:em32),STAT=ierr)
1574 if (ierr.ne.0) then
1575 CALL wrf_error_fatal ( &
1576 'frame/module_domain.f: Failed to allocate grid%t2(sm31:em31,sm32:em32). ')
1577 endif
1578 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t2=initial_data_value
1579 ELSE
1580 ALLOCATE(grid%t2(1,1),STAT=ierr)
1581 if (ierr.ne.0) then
1582 CALL wrf_error_fatal ( &
1583 'frame/module_domain.f: Failed to allocate grid%t2(1,1). ')
1584 endif
1585 ENDIF
1586 IF(.NOT.inter_domain)THEN
1587 ALLOCATE(grid%th2(sm31:em31,sm32:em32),STAT=ierr)
1588 if (ierr.ne.0) then
1589 CALL wrf_error_fatal ( &
1590 'frame/module_domain.f: Failed to allocate grid%th2(sm31:em31,sm32:em32). ')
1591 endif
1592 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th2=initial_data_value
1593 ELSE
1594 ALLOCATE(grid%th2(1,1),STAT=ierr)
1595 if (ierr.ne.0) then
1596 CALL wrf_error_fatal ( &
1597 'frame/module_domain.f: Failed to allocate grid%th2(1,1). ')
1598 endif
1599 ENDIF
1600 IF(.NOT.inter_domain)THEN
1601 ALLOCATE(grid%psfc(sm31:em31,sm32:em32),STAT=ierr)
1602 if (ierr.ne.0) then
1603 CALL wrf_error_fatal ( &
1604 'frame/module_domain.f: Failed to allocate grid%psfc(sm31:em31,sm32:em32). ')
1605 endif
1606 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psfc=initial_data_value
1607 ELSE
1608 ALLOCATE(grid%psfc(1,1),STAT=ierr)
1609 if (ierr.ne.0) then
1610 CALL wrf_error_fatal ( &
1611 'frame/module_domain.f: Failed to allocate grid%psfc(1,1). ')
1612 endif
1613 ENDIF
1614 IF(.NOT.inter_domain)THEN
1615 ALLOCATE(grid%u10(sm31:em31,sm32:em32),STAT=ierr)
1616 if (ierr.ne.0) then
1617 CALL wrf_error_fatal ( &
1618 'frame/module_domain.f: Failed to allocate grid%u10(sm31:em31,sm32:em32). ')
1619 endif
1620 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u10=initial_data_value
1621 ELSE
1622 ALLOCATE(grid%u10(1,1),STAT=ierr)
1623 if (ierr.ne.0) then
1624 CALL wrf_error_fatal ( &
1625 'frame/module_domain.f: Failed to allocate grid%u10(1,1). ')
1626 endif
1627 ENDIF
1628 IF(.NOT.inter_domain)THEN
1629 ALLOCATE(grid%v10(sm31:em31,sm32:em32),STAT=ierr)
1630 if (ierr.ne.0) then
1631 CALL wrf_error_fatal ( &
1632 'frame/module_domain.f: Failed to allocate grid%v10(sm31:em31,sm32:em32). ')
1633 endif
1634 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v10=initial_data_value
1635 ELSE
1636 ALLOCATE(grid%v10(1,1),STAT=ierr)
1637 if (ierr.ne.0) then
1638 CALL wrf_error_fatal ( &
1639 'frame/module_domain.f: Failed to allocate grid%v10(1,1). ')
1640 endif
1641 ENDIF
1642 IF(.NOT.inter_domain)THEN
1643 ALLOCATE(grid%uratx(sm31:em31,sm32:em32),STAT=ierr)
1644 if (ierr.ne.0) then
1645 CALL wrf_error_fatal ( &
1646 'frame/module_domain.f: Failed to allocate grid%uratx(sm31:em31,sm32:em32). ')
1647 endif
1648 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%uratx=initial_data_value
1649 ELSE
1650 ALLOCATE(grid%uratx(1,1),STAT=ierr)
1651 if (ierr.ne.0) then
1652 CALL wrf_error_fatal ( &
1653 'frame/module_domain.f: Failed to allocate grid%uratx(1,1). ')
1654 endif
1655 ENDIF
1656 IF(.NOT.inter_domain)THEN
1657 ALLOCATE(grid%vratx(sm31:em31,sm32:em32),STAT=ierr)
1658 if (ierr.ne.0) then
1659 CALL wrf_error_fatal ( &
1660 'frame/module_domain.f: Failed to allocate grid%vratx(sm31:em31,sm32:em32). ')
1661 endif
1662 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vratx=initial_data_value
1663 ELSE
1664 ALLOCATE(grid%vratx(1,1),STAT=ierr)
1665 if (ierr.ne.0) then
1666 CALL wrf_error_fatal ( &
1667 'frame/module_domain.f: Failed to allocate grid%vratx(1,1). ')
1668 endif
1669 ENDIF
1670 IF(.NOT.inter_domain)THEN
1671 ALLOCATE(grid%tratx(sm31:em31,sm32:em32),STAT=ierr)
1672 if (ierr.ne.0) then
1673 CALL wrf_error_fatal ( &
1674 'frame/module_domain.f: Failed to allocate grid%tratx(sm31:em31,sm32:em32). ')
1675 endif
1676 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tratx=initial_data_value
1677 ELSE
1678 ALLOCATE(grid%tratx(1,1),STAT=ierr)
1679 if (ierr.ne.0) then
1680 CALL wrf_error_fatal ( &
1681 'frame/module_domain.f: Failed to allocate grid%tratx(1,1). ')
1682 endif
1683 ENDIF
1684 IF ( setinitval .EQ. 3 ) grid%rdx=initial_data_value
1685 IF ( setinitval .EQ. 3 ) grid%rdy=initial_data_value
1686 IF ( setinitval .EQ. 3 ) grid%dts=initial_data_value
1687 IF ( setinitval .EQ. 3 ) grid%dtseps=initial_data_value
1688 IF ( setinitval .EQ. 3 ) grid%resm=initial_data_value
1689 IF ( setinitval .EQ. 3 ) grid%zetatop=initial_data_value
1690 IF ( setinitval .EQ. 3 ) grid%cf1=initial_data_value
1691 IF ( setinitval .EQ. 3 ) grid%cf2=initial_data_value
1692 IF ( setinitval .EQ. 3 ) grid%cf3=initial_data_value
1693 IF ( setinitval .EQ. 3 ) grid%number_at_same_level=0
1694 IF ( setinitval .EQ. 3 ) grid%itimestep=0
1695 IF ( setinitval .EQ. 3 ) grid%xtime=initial_data_value
1696 IF ( setinitval .EQ. 3 ) grid%julian=initial_data_value
1697 IF ( setinitval .EQ. 3 ) grid%lbc_fid=0
1698 IF ( setinitval .EQ. 3 ) grid%tiled=.FALSE.
1699 IF ( setinitval .EQ. 3 ) grid%patched=.FALSE.
1700 IF(.NOT.inter_domain)THEN
1701 ALLOCATE(grid%imask_nostag(sm31:em31,sm32:em32),STAT=ierr)
1702 if (ierr.ne.0) then
1703 CALL wrf_error_fatal ( &
1704 'frame/module_domain.f: Failed to allocate grid%imask_nostag(sm31:em31,sm32:em32). ')
1705 endif
1706 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_nostag=0
1707 ELSE
1708 ALLOCATE(grid%imask_nostag(1,1),STAT=ierr)
1709 if (ierr.ne.0) then
1710 CALL wrf_error_fatal ( &
1711 'frame/module_domain.f: Failed to allocate grid%imask_nostag(1,1). ')
1712 endif
1713 ENDIF
1714 IF(.NOT.inter_domain)THEN
1715 ALLOCATE(grid%imask_xstag(sm31:em31,sm32:em32),STAT=ierr)
1716 if (ierr.ne.0) then
1717 CALL wrf_error_fatal ( &
1718 'frame/module_domain.f: Failed to allocate grid%imask_xstag(sm31:em31,sm32:em32). ')
1719 endif
1720 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xstag=0
1721 ELSE
1722 ALLOCATE(grid%imask_xstag(1,1),STAT=ierr)
1723 if (ierr.ne.0) then
1724 CALL wrf_error_fatal ( &
1725 'frame/module_domain.f: Failed to allocate grid%imask_xstag(1,1). ')
1726 endif
1727 ENDIF
1728 IF(.NOT.inter_domain)THEN
1729 ALLOCATE(grid%imask_ystag(sm31:em31,sm32:em32),STAT=ierr)
1730 if (ierr.ne.0) then
1731 CALL wrf_error_fatal ( &
1732 'frame/module_domain.f: Failed to allocate grid%imask_ystag(sm31:em31,sm32:em32). ')
1733 endif
1734 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_ystag=0
1735 ELSE
1736 ALLOCATE(grid%imask_ystag(1,1),STAT=ierr)
1737 if (ierr.ne.0) then
1738 CALL wrf_error_fatal ( &
1739 'frame/module_domain.f: Failed to allocate grid%imask_ystag(1,1). ')
1740 endif
1741 ENDIF
1742 IF(.NOT.inter_domain)THEN
1743 ALLOCATE(grid%imask_xystag(sm31:em31,sm32:em32),STAT=ierr)
1744 if (ierr.ne.0) then
1745 CALL wrf_error_fatal ( &
1746 'frame/module_domain.f: Failed to allocate grid%imask_xystag(sm31:em31,sm32:em32). ')
1747 endif
1748 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xystag=0
1749 ELSE
1750 ALLOCATE(grid%imask_xystag(1,1),STAT=ierr)
1751 if (ierr.ne.0) then
1752 CALL wrf_error_fatal ( &
1753 'frame/module_domain.f: Failed to allocate grid%imask_xystag(1,1). ')
1754 endif
1755 ENDIF
1756 IF ( setinitval .EQ. 3 ) grid%xi=initial_data_value
1757 IF ( setinitval .EQ. 3 ) grid%xj=initial_data_value
1758 IF ( setinitval .EQ. 3 ) grid%vc_i=initial_data_value
1759 IF ( setinitval .EQ. 3 ) grid%vc_j=initial_data_value
1760 ALLOCATE(grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist),STAT=ierr)
1761 if (ierr.ne.0) then
1762 CALL wrf_error_fatal ( &
1763 'frame/module_domain.f: Failed to allocate grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist). ')
1764 endif
1765 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist=initial_data_value
1766 ALLOCATE(grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist),STAT=ierr)
1767 if (ierr.ne.0) then
1768 CALL wrf_error_fatal ( &
1769 'frame/module_domain.f: Failed to allocate grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist). ')
1770 endif
1771 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist=initial_data_value
1772 ALLOCATE(grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist),STAT=ierr)
1773 if (ierr.ne.0) then
1774 CALL wrf_error_fatal ( &
1775 'frame/module_domain.f: Failed to allocate grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist). ')
1776 endif
1777 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist=initial_data_value
1778 IF(.NOT.inter_domain)THEN
1779 ALLOCATE(grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
1780 if (ierr.ne.0) then
1781 CALL wrf_error_fatal ( &
1782 'frame/module_domain.f: Failed to allocate grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
1783 endif
1784 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_b=initial_data_value
1785 ELSE
1786 ALLOCATE(grid%moist_b(1,1,1,1,num_moist),STAT=ierr)
1787 if (ierr.ne.0) then
1788 CALL wrf_error_fatal ( &
1789 'frame/module_domain.f: Failed to allocate grid%moist_b(1,1,1,1,num_moist). ')
1790 endif
1791 ENDIF
1792 IF(.NOT.inter_domain)THEN
1793 ALLOCATE(grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
1794 if (ierr.ne.0) then
1795 CALL wrf_error_fatal ( &
1796 'frame/module_domain.f: Failed to allocate grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
1797 endif
1798 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bt=initial_data_value
1799 ELSE
1800 ALLOCATE(grid%moist_bt(1,1,1,1,num_moist),STAT=ierr)
1801 if (ierr.ne.0) then
1802 CALL wrf_error_fatal ( &
1803 'frame/module_domain.f: Failed to allocate grid%moist_bt(1,1,1,1,num_moist). ')
1804 endif
1805 ENDIF
1806 IF(.NOT.inter_domain)THEN
1807 ALLOCATE(grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
1808 if (ierr.ne.0) then
1809 CALL wrf_error_fatal ( &
1810 'frame/module_domain.f: Failed to allocate grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
1811 endif
1812 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_b=initial_data_value
1813 ELSE
1814 ALLOCATE(grid%a_moist_b(1,1,1,1,num_a_moist),STAT=ierr)
1815 if (ierr.ne.0) then
1816 CALL wrf_error_fatal ( &
1817 'frame/module_domain.f: Failed to allocate grid%a_moist_b(1,1,1,1,num_a_moist). ')
1818 endif
1819 ENDIF
1820 IF(.NOT.inter_domain)THEN
1821 ALLOCATE(grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
1822 if (ierr.ne.0) then
1823 CALL wrf_error_fatal ( &
1824 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
1825 endif
1826 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_bt=initial_data_value
1827 ELSE
1828 ALLOCATE(grid%a_moist_bt(1,1,1,1,num_a_moist),STAT=ierr)
1829 if (ierr.ne.0) then
1830 CALL wrf_error_fatal ( &
1831 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(1,1,1,1,num_a_moist). ')
1832 endif
1833 ENDIF
1834 IF(.NOT.inter_domain)THEN
1835 ALLOCATE(grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
1836 if (ierr.ne.0) then
1837 CALL wrf_error_fatal ( &
1838 'frame/module_domain.f: Failed to allocate grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
1839 endif
1840 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_b=initial_data_value
1841 ELSE
1842 ALLOCATE(grid%g_moist_b(1,1,1,1,num_g_moist),STAT=ierr)
1843 if (ierr.ne.0) then
1844 CALL wrf_error_fatal ( &
1845 'frame/module_domain.f: Failed to allocate grid%g_moist_b(1,1,1,1,num_g_moist). ')
1846 endif
1847 ENDIF
1848 IF(.NOT.inter_domain)THEN
1849 ALLOCATE(grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
1850 if (ierr.ne.0) then
1851 CALL wrf_error_fatal ( &
1852 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
1853 endif
1854 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_bt=initial_data_value
1855 ELSE
1856 ALLOCATE(grid%g_moist_bt(1,1,1,1,num_g_moist),STAT=ierr)
1857 if (ierr.ne.0) then
1858 CALL wrf_error_fatal ( &
1859 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(1,1,1,1,num_g_moist). ')
1860 endif
1861 ENDIF
1862 ALLOCATE(grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar),STAT=ierr)
1863 if (ierr.ne.0) then
1864 CALL wrf_error_fatal ( &
1865 'frame/module_domain.f: Failed to allocate grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar). ')
1866 endif
1867 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar=initial_data_value
1868 ALLOCATE(grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar),STAT=ierr)
1869 if (ierr.ne.0) then
1870 CALL wrf_error_fatal ( &
1871 'frame/module_domain.f: Failed to allocate grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar). ')
1872 endif
1873 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_scalar=initial_data_value
1874 ALLOCATE(grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar),STAT=ierr)
1875 if (ierr.ne.0) then
1876 CALL wrf_error_fatal ( &
1877 'frame/module_domain.f: Failed to allocate grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar). ')
1878 endif
1879 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_scalar=initial_data_value
1880 IF(.NOT.inter_domain)THEN
1881 ALLOCATE(grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
1882 if (ierr.ne.0) then
1883 CALL wrf_error_fatal ( &
1884 'frame/module_domain.f: Failed to allocate grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
1885 endif
1886 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_b=initial_data_value
1887 ELSE
1888 ALLOCATE(grid%scalar_b(1,1,1,1,num_scalar),STAT=ierr)
1889 if (ierr.ne.0) then
1890 CALL wrf_error_fatal ( &
1891 'frame/module_domain.f: Failed to allocate grid%scalar_b(1,1,1,1,num_scalar). ')
1892 endif
1893 ENDIF
1894 IF(.NOT.inter_domain)THEN
1895 ALLOCATE(grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
1896 if (ierr.ne.0) then
1897 CALL wrf_error_fatal ( &
1898 'frame/module_domain.f: Failed to allocate grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
1899 endif
1900 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bt=initial_data_value
1901 ELSE
1902 ALLOCATE(grid%scalar_bt(1,1,1,1,num_scalar),STAT=ierr)
1903 if (ierr.ne.0) then
1904 CALL wrf_error_fatal ( &
1905 'frame/module_domain.f: Failed to allocate grid%scalar_bt(1,1,1,1,num_scalar). ')
1906 endif
1907 ENDIF
1908 IF(.NOT.inter_domain)THEN
1909 ALLOCATE(grid%fcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
1910 if (ierr.ne.0) then
1911 CALL wrf_error_fatal ( &
1912 'frame/module_domain.f: Failed to allocate grid%fcx(1:model_config_rec%spec_bdy_width). ')
1913 endif
1914 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fcx=initial_data_value
1915 ELSE
1916 ALLOCATE(grid%fcx(1),STAT=ierr)
1917 if (ierr.ne.0) then
1918 CALL wrf_error_fatal ( &
1919 'frame/module_domain.f: Failed to allocate grid%fcx(1). ')
1920 endif
1921 ENDIF
1922 IF(.NOT.inter_domain)THEN
1923 ALLOCATE(grid%gcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
1924 if (ierr.ne.0) then
1925 CALL wrf_error_fatal ( &
1926 'frame/module_domain.f: Failed to allocate grid%gcx(1:model_config_rec%spec_bdy_width). ')
1927 endif
1928 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gcx=initial_data_value
1929 ELSE
1930 ALLOCATE(grid%gcx(1),STAT=ierr)
1931 if (ierr.ne.0) then
1932 CALL wrf_error_fatal ( &
1933 'frame/module_domain.f: Failed to allocate grid%gcx(1). ')
1934 endif
1935 ENDIF
1936 IF ( setinitval .EQ. 3 ) grid%dtbc=initial_data_value
1937 ALLOCATE(grid%landmask(sm31:em31,sm32:em32),STAT=ierr)
1938 if (ierr.ne.0) then
1939 CALL wrf_error_fatal ( &
1940 'frame/module_domain.f: Failed to allocate grid%landmask(sm31:em31,sm32:em32). ')
1941 endif
1942 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%landmask=initial_data_value
1943 IF(.NOT.inter_domain)THEN
1944 ALLOCATE(grid%shdmax(sm31:em31,sm32:em32),STAT=ierr)
1945 if (ierr.ne.0) then
1946 CALL wrf_error_fatal ( &
1947 'frame/module_domain.f: Failed to allocate grid%shdmax(sm31:em31,sm32:em32). ')
1948 endif
1949 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmax=initial_data_value
1950 ELSE
1951 ALLOCATE(grid%shdmax(1,1),STAT=ierr)
1952 if (ierr.ne.0) then
1953 CALL wrf_error_fatal ( &
1954 'frame/module_domain.f: Failed to allocate grid%shdmax(1,1). ')
1955 endif
1956 ENDIF
1957 IF(.NOT.inter_domain)THEN
1958 ALLOCATE(grid%shdmin(sm31:em31,sm32:em32),STAT=ierr)
1959 if (ierr.ne.0) then
1960 CALL wrf_error_fatal ( &
1961 'frame/module_domain.f: Failed to allocate grid%shdmin(sm31:em31,sm32:em32). ')
1962 endif
1963 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmin=initial_data_value
1964 ELSE
1965 ALLOCATE(grid%shdmin(1,1),STAT=ierr)
1966 if (ierr.ne.0) then
1967 CALL wrf_error_fatal ( &
1968 'frame/module_domain.f: Failed to allocate grid%shdmin(1,1). ')
1969 endif
1970 ENDIF
1971 IF(.NOT.inter_domain)THEN
1972 ALLOCATE(grid%snoalb(sm31:em31,sm32:em32),STAT=ierr)
1973 if (ierr.ne.0) then
1974 CALL wrf_error_fatal ( &
1975 'frame/module_domain.f: Failed to allocate grid%snoalb(sm31:em31,sm32:em32). ')
1976 endif
1977 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snoalb=initial_data_value
1978 ELSE
1979 ALLOCATE(grid%snoalb(1,1),STAT=ierr)
1980 if (ierr.ne.0) then
1981 CALL wrf_error_fatal ( &
1982 'frame/module_domain.f: Failed to allocate grid%snoalb(1,1). ')
1983 endif
1984 ENDIF
1985 ALLOCATE(grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
1986 if (ierr.ne.0) then
1987 CALL wrf_error_fatal ( &
1988 'frame/module_domain.f: Failed to allocate grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
1989 endif
1990 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tslb=initial_data_value
1991 IF(.NOT.inter_domain)THEN
1992 ALLOCATE(grid%zs(1:model_config_rec%num_soil_layers),STAT=ierr)
1993 if (ierr.ne.0) then
1994 CALL wrf_error_fatal ( &
1995 'frame/module_domain.f: Failed to allocate grid%zs(1:model_config_rec%num_soil_layers). ')
1996 endif
1997 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zs=initial_data_value
1998 ELSE
1999 ALLOCATE(grid%zs(1),STAT=ierr)
2000 if (ierr.ne.0) then
2001 CALL wrf_error_fatal ( &
2002 'frame/module_domain.f: Failed to allocate grid%zs(1). ')
2003 endif
2004 ENDIF
2005 IF(.NOT.inter_domain)THEN
2006 ALLOCATE(grid%dzs(1:model_config_rec%num_soil_layers),STAT=ierr)
2007 if (ierr.ne.0) then
2008 CALL wrf_error_fatal ( &
2009 'frame/module_domain.f: Failed to allocate grid%dzs(1:model_config_rec%num_soil_layers). ')
2010 endif
2011 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzs=initial_data_value
2012 ELSE
2013 ALLOCATE(grid%dzs(1),STAT=ierr)
2014 if (ierr.ne.0) then
2015 CALL wrf_error_fatal ( &
2016 'frame/module_domain.f: Failed to allocate grid%dzs(1). ')
2017 endif
2018 ENDIF
2019 ALLOCATE(grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
2020 if (ierr.ne.0) then
2021 CALL wrf_error_fatal ( &
2022 'frame/module_domain.f: Failed to allocate grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
2023 endif
2024 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smois=initial_data_value
2025 ALLOCATE(grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
2026 if (ierr.ne.0) then
2027 CALL wrf_error_fatal ( &
2028 'frame/module_domain.f: Failed to allocate grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
2029 endif
2030 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sh2o=initial_data_value
2031 ALLOCATE(grid%xice(sm31:em31,sm32:em32),STAT=ierr)
2032 if (ierr.ne.0) then
2033 CALL wrf_error_fatal ( &
2034 'frame/module_domain.f: Failed to allocate grid%xice(sm31:em31,sm32:em32). ')
2035 endif
2036 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xice=initial_data_value
2037 ALLOCATE(grid%sfcrunoff(sm31:em31,sm32:em32),STAT=ierr)
2038 if (ierr.ne.0) then
2039 CALL wrf_error_fatal ( &
2040 'frame/module_domain.f: Failed to allocate grid%sfcrunoff(sm31:em31,sm32:em32). ')
2041 endif
2042 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcrunoff=initial_data_value
2043 ALLOCATE(grid%udrunoff(sm31:em31,sm32:em32),STAT=ierr)
2044 if (ierr.ne.0) then
2045 CALL wrf_error_fatal ( &
2046 'frame/module_domain.f: Failed to allocate grid%udrunoff(sm31:em31,sm32:em32). ')
2047 endif
2048 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%udrunoff=initial_data_value
2049 ALLOCATE(grid%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
2050 if (ierr.ne.0) then
2051 CALL wrf_error_fatal ( &
2052 'frame/module_domain.f: Failed to allocate grid%ivgtyp(sm31:em31,sm32:em32). ')
2053 endif
2054 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ivgtyp=0
2055 ALLOCATE(grid%isltyp(sm31:em31,sm32:em32),STAT=ierr)
2056 if (ierr.ne.0) then
2057 CALL wrf_error_fatal ( &
2058 'frame/module_domain.f: Failed to allocate grid%isltyp(sm31:em31,sm32:em32). ')
2059 endif
2060 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%isltyp=0
2061 ALLOCATE(grid%vegfra(sm31:em31,sm32:em32),STAT=ierr)
2062 if (ierr.ne.0) then
2063 CALL wrf_error_fatal ( &
2064 'frame/module_domain.f: Failed to allocate grid%vegfra(sm31:em31,sm32:em32). ')
2065 endif
2066 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegfra=initial_data_value
2067 IF(.NOT.inter_domain)THEN
2068 ALLOCATE(grid%sfcevp(sm31:em31,sm32:em32),STAT=ierr)
2069 if (ierr.ne.0) then
2070 CALL wrf_error_fatal ( &
2071 'frame/module_domain.f: Failed to allocate grid%sfcevp(sm31:em31,sm32:em32). ')
2072 endif
2073 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcevp=initial_data_value
2074 ELSE
2075 ALLOCATE(grid%sfcevp(1,1),STAT=ierr)
2076 if (ierr.ne.0) then
2077 CALL wrf_error_fatal ( &
2078 'frame/module_domain.f: Failed to allocate grid%sfcevp(1,1). ')
2079 endif
2080 ENDIF
2081 ALLOCATE(grid%acsnow(sm31:em31,sm32:em32),STAT=ierr)
2082 if (ierr.ne.0) then
2083 CALL wrf_error_fatal ( &
2084 'frame/module_domain.f: Failed to allocate grid%acsnow(sm31:em31,sm32:em32). ')
2085 endif
2086 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnow=initial_data_value
2087 ALLOCATE(grid%acsnom(sm31:em31,sm32:em32),STAT=ierr)
2088 if (ierr.ne.0) then
2089 CALL wrf_error_fatal ( &
2090 'frame/module_domain.f: Failed to allocate grid%acsnom(sm31:em31,sm32:em32). ')
2091 endif
2092 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnom=initial_data_value
2093 ALLOCATE(grid%snow(sm31:em31,sm32:em32),STAT=ierr)
2094 if (ierr.ne.0) then
2095 CALL wrf_error_fatal ( &
2096 'frame/module_domain.f: Failed to allocate grid%snow(sm31:em31,sm32:em32). ')
2097 endif
2098 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snow=initial_data_value
2099 ALLOCATE(grid%snowh(sm31:em31,sm32:em32),STAT=ierr)
2100 if (ierr.ne.0) then
2101 CALL wrf_error_fatal ( &
2102 'frame/module_domain.f: Failed to allocate grid%snowh(sm31:em31,sm32:em32). ')
2103 endif
2104 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowh=initial_data_value
2105 ALLOCATE(grid%rhosn(sm31:em31,sm32:em32),STAT=ierr)
2106 if (ierr.ne.0) then
2107 CALL wrf_error_fatal ( &
2108 'frame/module_domain.f: Failed to allocate grid%rhosn(sm31:em31,sm32:em32). ')
2109 endif
2110 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rhosn=initial_data_value
2111 ALLOCATE(grid%canwat(sm31:em31,sm32:em32),STAT=ierr)
2112 if (ierr.ne.0) then
2113 CALL wrf_error_fatal ( &
2114 'frame/module_domain.f: Failed to allocate grid%canwat(sm31:em31,sm32:em32). ')
2115 endif
2116 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%canwat=initial_data_value
2117 ALLOCATE(grid%sst(sm31:em31,sm32:em32),STAT=ierr)
2118 if (ierr.ne.0) then
2119 CALL wrf_error_fatal ( &
2120 'frame/module_domain.f: Failed to allocate grid%sst(sm31:em31,sm32:em32). ')
2121 endif
2122 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sst=initial_data_value
2123 IF ( setinitval .EQ. 3 ) grid%ifndsnowh=0
2124 IF ( setinitval .EQ. 3 ) grid%ifndsoilw=0
2125 IF(.NOT.inter_domain)THEN
2126 ALLOCATE(grid%htop(sm31:em31,sm32:em32),STAT=ierr)
2127 if (ierr.ne.0) then
2128 CALL wrf_error_fatal ( &
2129 'frame/module_domain.f: Failed to allocate grid%htop(sm31:em31,sm32:em32). ')
2130 endif
2131 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%htop=initial_data_value
2132 ELSE
2133 ALLOCATE(grid%htop(1,1),STAT=ierr)
2134 if (ierr.ne.0) then
2135 CALL wrf_error_fatal ( &
2136 'frame/module_domain.f: Failed to allocate grid%htop(1,1). ')
2137 endif
2138 ENDIF
2139 IF(.NOT.inter_domain)THEN
2140 ALLOCATE(grid%hbot(sm31:em31,sm32:em32),STAT=ierr)
2141 if (ierr.ne.0) then
2142 CALL wrf_error_fatal ( &
2143 'frame/module_domain.f: Failed to allocate grid%hbot(sm31:em31,sm32:em32). ')
2144 endif
2145 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hbot=initial_data_value
2146 ELSE
2147 ALLOCATE(grid%hbot(1,1),STAT=ierr)
2148 if (ierr.ne.0) then
2149 CALL wrf_error_fatal ( &
2150 'frame/module_domain.f: Failed to allocate grid%hbot(1,1). ')
2151 endif
2152 ENDIF
2153 IF(.NOT.inter_domain)THEN
2154 ALLOCATE(grid%cuppt(sm31:em31,sm32:em32),STAT=ierr)
2155 if (ierr.ne.0) then
2156 CALL wrf_error_fatal ( &
2157 'frame/module_domain.f: Failed to allocate grid%cuppt(sm31:em31,sm32:em32). ')
2158 endif
2159 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cuppt=initial_data_value
2160 ELSE
2161 ALLOCATE(grid%cuppt(1,1),STAT=ierr)
2162 if (ierr.ne.0) then
2163 CALL wrf_error_fatal ( &
2164 'frame/module_domain.f: Failed to allocate grid%cuppt(1,1). ')
2165 endif
2166 ENDIF
2167 IF(.NOT.inter_domain)THEN
2168 ALLOCATE(grid%rswtoa(sm31:em31,sm32:em32),STAT=ierr)
2169 if (ierr.ne.0) then
2170 CALL wrf_error_fatal ( &
2171 'frame/module_domain.f: Failed to allocate grid%rswtoa(sm31:em31,sm32:em32). ')
2172 endif
2173 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswtoa=initial_data_value
2174 ELSE
2175 ALLOCATE(grid%rswtoa(1,1),STAT=ierr)
2176 if (ierr.ne.0) then
2177 CALL wrf_error_fatal ( &
2178 'frame/module_domain.f: Failed to allocate grid%rswtoa(1,1). ')
2179 endif
2180 ENDIF
2181 IF(.NOT.inter_domain)THEN
2182 ALLOCATE(grid%rlwtoa(sm31:em31,sm32:em32),STAT=ierr)
2183 if (ierr.ne.0) then
2184 CALL wrf_error_fatal ( &
2185 'frame/module_domain.f: Failed to allocate grid%rlwtoa(sm31:em31,sm32:em32). ')
2186 endif
2187 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwtoa=initial_data_value
2188 ELSE
2189 ALLOCATE(grid%rlwtoa(1,1),STAT=ierr)
2190 if (ierr.ne.0) then
2191 CALL wrf_error_fatal ( &
2192 'frame/module_domain.f: Failed to allocate grid%rlwtoa(1,1). ')
2193 endif
2194 ENDIF
2195 IF(.NOT.inter_domain)THEN
2196 ALLOCATE(grid%czmean(sm31:em31,sm32:em32),STAT=ierr)
2197 if (ierr.ne.0) then
2198 CALL wrf_error_fatal ( &
2199 'frame/module_domain.f: Failed to allocate grid%czmean(sm31:em31,sm32:em32). ')
2200 endif
2201 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%czmean=initial_data_value
2202 ELSE
2203 ALLOCATE(grid%czmean(1,1),STAT=ierr)
2204 if (ierr.ne.0) then
2205 CALL wrf_error_fatal ( &
2206 'frame/module_domain.f: Failed to allocate grid%czmean(1,1). ')
2207 endif
2208 ENDIF
2209 IF(.NOT.inter_domain)THEN
2210 ALLOCATE(grid%cfracl(sm31:em31,sm32:em32),STAT=ierr)
2211 if (ierr.ne.0) then
2212 CALL wrf_error_fatal ( &
2213 'frame/module_domain.f: Failed to allocate grid%cfracl(sm31:em31,sm32:em32). ')
2214 endif
2215 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracl=initial_data_value
2216 ELSE
2217 ALLOCATE(grid%cfracl(1,1),STAT=ierr)
2218 if (ierr.ne.0) then
2219 CALL wrf_error_fatal ( &
2220 'frame/module_domain.f: Failed to allocate grid%cfracl(1,1). ')
2221 endif
2222 ENDIF
2223 IF(.NOT.inter_domain)THEN
2224 ALLOCATE(grid%cfracm(sm31:em31,sm32:em32),STAT=ierr)
2225 if (ierr.ne.0) then
2226 CALL wrf_error_fatal ( &
2227 'frame/module_domain.f: Failed to allocate grid%cfracm(sm31:em31,sm32:em32). ')
2228 endif
2229 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracm=initial_data_value
2230 ELSE
2231 ALLOCATE(grid%cfracm(1,1),STAT=ierr)
2232 if (ierr.ne.0) then
2233 CALL wrf_error_fatal ( &
2234 'frame/module_domain.f: Failed to allocate grid%cfracm(1,1). ')
2235 endif
2236 ENDIF
2237 IF(.NOT.inter_domain)THEN
2238 ALLOCATE(grid%cfrach(sm31:em31,sm32:em32),STAT=ierr)
2239 if (ierr.ne.0) then
2240 CALL wrf_error_fatal ( &
2241 'frame/module_domain.f: Failed to allocate grid%cfrach(sm31:em31,sm32:em32). ')
2242 endif
2243 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfrach=initial_data_value
2244 ELSE
2245 ALLOCATE(grid%cfrach(1,1),STAT=ierr)
2246 if (ierr.ne.0) then
2247 CALL wrf_error_fatal ( &
2248 'frame/module_domain.f: Failed to allocate grid%cfrach(1,1). ')
2249 endif
2250 ENDIF
2251 IF(.NOT.inter_domain)THEN
2252 ALLOCATE(grid%acfrst(sm31:em31,sm32:em32),STAT=ierr)
2253 if (ierr.ne.0) then
2254 CALL wrf_error_fatal ( &
2255 'frame/module_domain.f: Failed to allocate grid%acfrst(sm31:em31,sm32:em32). ')
2256 endif
2257 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrst=initial_data_value
2258 ELSE
2259 ALLOCATE(grid%acfrst(1,1),STAT=ierr)
2260 if (ierr.ne.0) then
2261 CALL wrf_error_fatal ( &
2262 'frame/module_domain.f: Failed to allocate grid%acfrst(1,1). ')
2263 endif
2264 ENDIF
2265 IF(.NOT.inter_domain)THEN
2266 ALLOCATE(grid%ncfrst(sm31:em31,sm32:em32),STAT=ierr)
2267 if (ierr.ne.0) then
2268 CALL wrf_error_fatal ( &
2269 'frame/module_domain.f: Failed to allocate grid%ncfrst(sm31:em31,sm32:em32). ')
2270 endif
2271 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrst=0
2272 ELSE
2273 ALLOCATE(grid%ncfrst(1,1),STAT=ierr)
2274 if (ierr.ne.0) then
2275 CALL wrf_error_fatal ( &
2276 'frame/module_domain.f: Failed to allocate grid%ncfrst(1,1). ')
2277 endif
2278 ENDIF
2279 IF(.NOT.inter_domain)THEN
2280 ALLOCATE(grid%acfrcv(sm31:em31,sm32:em32),STAT=ierr)
2281 if (ierr.ne.0) then
2282 CALL wrf_error_fatal ( &
2283 'frame/module_domain.f: Failed to allocate grid%acfrcv(sm31:em31,sm32:em32). ')
2284 endif
2285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrcv=initial_data_value
2286 ELSE
2287 ALLOCATE(grid%acfrcv(1,1),STAT=ierr)
2288 if (ierr.ne.0) then
2289 CALL wrf_error_fatal ( &
2290 'frame/module_domain.f: Failed to allocate grid%acfrcv(1,1). ')
2291 endif
2292 ENDIF
2293 IF(.NOT.inter_domain)THEN
2294 ALLOCATE(grid%ncfrcv(sm31:em31,sm32:em32),STAT=ierr)
2295 if (ierr.ne.0) then
2296 CALL wrf_error_fatal ( &
2297 'frame/module_domain.f: Failed to allocate grid%ncfrcv(sm31:em31,sm32:em32). ')
2298 endif
2299 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrcv=0
2300 ELSE
2301 ALLOCATE(grid%ncfrcv(1,1),STAT=ierr)
2302 if (ierr.ne.0) then
2303 CALL wrf_error_fatal ( &
2304 'frame/module_domain.f: Failed to allocate grid%ncfrcv(1,1). ')
2305 endif
2306 ENDIF
2307 IF(.NOT.inter_domain)THEN
2308 ALLOCATE(grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2309 if (ierr.ne.0) then
2310 CALL wrf_error_fatal ( &
2311 'frame/module_domain.f: Failed to allocate grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33). ')
2312 endif
2313 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%h_diabatic=initial_data_value
2314 ELSE
2315 ALLOCATE(grid%h_diabatic(1,1,1),STAT=ierr)
2316 if (ierr.ne.0) then
2317 CALL wrf_error_fatal ( &
2318 'frame/module_domain.f: Failed to allocate grid%h_diabatic(1,1,1). ')
2319 endif
2320 ENDIF
2321 ALLOCATE(grid%msft(sm31:em31,sm32:em32),STAT=ierr)
2322 if (ierr.ne.0) then
2323 CALL wrf_error_fatal ( &
2324 'frame/module_domain.f: Failed to allocate grid%msft(sm31:em31,sm32:em32). ')
2325 endif
2326 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msft=initial_data_value
2327 ALLOCATE(grid%msfu(sm31:em31,sm32:em32),STAT=ierr)
2328 if (ierr.ne.0) then
2329 CALL wrf_error_fatal ( &
2330 'frame/module_domain.f: Failed to allocate grid%msfu(sm31:em31,sm32:em32). ')
2331 endif
2332 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfu=initial_data_value
2333 ALLOCATE(grid%msfv(sm31:em31,sm32:em32),STAT=ierr)
2334 if (ierr.ne.0) then
2335 CALL wrf_error_fatal ( &
2336 'frame/module_domain.f: Failed to allocate grid%msfv(sm31:em31,sm32:em32). ')
2337 endif
2338 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfv=initial_data_value
2339 ALLOCATE(grid%f(sm31:em31,sm32:em32),STAT=ierr)
2340 if (ierr.ne.0) then
2341 CALL wrf_error_fatal ( &
2342 'frame/module_domain.f: Failed to allocate grid%f(sm31:em31,sm32:em32). ')
2343 endif
2344 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f=initial_data_value
2345 ALLOCATE(grid%e(sm31:em31,sm32:em32),STAT=ierr)
2346 if (ierr.ne.0) then
2347 CALL wrf_error_fatal ( &
2348 'frame/module_domain.f: Failed to allocate grid%e(sm31:em31,sm32:em32). ')
2349 endif
2350 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%e=initial_data_value
2351 ALLOCATE(grid%sina(sm31:em31,sm32:em32),STAT=ierr)
2352 if (ierr.ne.0) then
2353 CALL wrf_error_fatal ( &
2354 'frame/module_domain.f: Failed to allocate grid%sina(sm31:em31,sm32:em32). ')
2355 endif
2356 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sina=initial_data_value
2357 ALLOCATE(grid%cosa(sm31:em31,sm32:em32),STAT=ierr)
2358 if (ierr.ne.0) then
2359 CALL wrf_error_fatal ( &
2360 'frame/module_domain.f: Failed to allocate grid%cosa(sm31:em31,sm32:em32). ')
2361 endif
2362 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cosa=initial_data_value
2363 ALLOCATE(grid%ht(sm31:em31,sm32:em32),STAT=ierr)
2364 if (ierr.ne.0) then
2365 CALL wrf_error_fatal ( &
2366 'frame/module_domain.f: Failed to allocate grid%ht(sm31:em31,sm32:em32). ')
2367 endif
2368 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht=initial_data_value
2369 IF(.NOT.inter_domain)THEN
2370 ALLOCATE(grid%ht_fine(sm31:em31,sm32:em32),STAT=ierr)
2371 if (ierr.ne.0) then
2372 CALL wrf_error_fatal ( &
2373 'frame/module_domain.f: Failed to allocate grid%ht_fine(sm31:em31,sm32:em32). ')
2374 endif
2375 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_fine=initial_data_value
2376 ELSE
2377 ALLOCATE(grid%ht_fine(1,1),STAT=ierr)
2378 if (ierr.ne.0) then
2379 CALL wrf_error_fatal ( &
2380 'frame/module_domain.f: Failed to allocate grid%ht_fine(1,1). ')
2381 endif
2382 ENDIF
2383 IF(.NOT.inter_domain)THEN
2384 ALLOCATE(grid%ht_int(sm31:em31,sm32:em32),STAT=ierr)
2385 if (ierr.ne.0) then
2386 CALL wrf_error_fatal ( &
2387 'frame/module_domain.f: Failed to allocate grid%ht_int(sm31:em31,sm32:em32). ')
2388 endif
2389 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_int=initial_data_value
2390 ELSE
2391 ALLOCATE(grid%ht_int(1,1),STAT=ierr)
2392 if (ierr.ne.0) then
2393 CALL wrf_error_fatal ( &
2394 'frame/module_domain.f: Failed to allocate grid%ht_int(1,1). ')
2395 endif
2396 ENDIF
2397 IF(.NOT.inter_domain)THEN
2398 ALLOCATE(grid%ht_input(sm31:em31,sm32:em32),STAT=ierr)
2399 if (ierr.ne.0) then
2400 CALL wrf_error_fatal ( &
2401 'frame/module_domain.f: Failed to allocate grid%ht_input(sm31:em31,sm32:em32). ')
2402 endif
2403 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_input=initial_data_value
2404 ELSE
2405 ALLOCATE(grid%ht_input(1,1),STAT=ierr)
2406 if (ierr.ne.0) then
2407 CALL wrf_error_fatal ( &
2408 'frame/module_domain.f: Failed to allocate grid%ht_input(1,1). ')
2409 endif
2410 ENDIF
2411 ALLOCATE(grid%tsk(sm31:em31,sm32:em32),STAT=ierr)
2412 if (ierr.ne.0) then
2413 CALL wrf_error_fatal ( &
2414 'frame/module_domain.f: Failed to allocate grid%tsk(sm31:em31,sm32:em32). ')
2415 endif
2416 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk=initial_data_value
2417 IF(.NOT.inter_domain)THEN
2418 ALLOCATE(grid%tsk_save(sm31:em31,sm32:em32),STAT=ierr)
2419 if (ierr.ne.0) then
2420 CALL wrf_error_fatal ( &
2421 'frame/module_domain.f: Failed to allocate grid%tsk_save(sm31:em31,sm32:em32). ')
2422 endif
2423 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk_save=initial_data_value
2424 ELSE
2425 ALLOCATE(grid%tsk_save(1,1),STAT=ierr)
2426 if (ierr.ne.0) then
2427 CALL wrf_error_fatal ( &
2428 'frame/module_domain.f: Failed to allocate grid%tsk_save(1,1). ')
2429 endif
2430 ENDIF
2431 IF(.NOT.inter_domain)THEN
2432 ALLOCATE(grid%u_base(sm33:em33),STAT=ierr)
2433 if (ierr.ne.0) then
2434 CALL wrf_error_fatal ( &
2435 'frame/module_domain.f: Failed to allocate grid%u_base(sm33:em33). ')
2436 endif
2437 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_base=initial_data_value
2438 ELSE
2439 ALLOCATE(grid%u_base(1),STAT=ierr)
2440 if (ierr.ne.0) then
2441 CALL wrf_error_fatal ( &
2442 'frame/module_domain.f: Failed to allocate grid%u_base(1). ')
2443 endif
2444 ENDIF
2445 IF(.NOT.inter_domain)THEN
2446 ALLOCATE(grid%v_base(sm33:em33),STAT=ierr)
2447 if (ierr.ne.0) then
2448 CALL wrf_error_fatal ( &
2449 'frame/module_domain.f: Failed to allocate grid%v_base(sm33:em33). ')
2450 endif
2451 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_base=initial_data_value
2452 ELSE
2453 ALLOCATE(grid%v_base(1),STAT=ierr)
2454 if (ierr.ne.0) then
2455 CALL wrf_error_fatal ( &
2456 'frame/module_domain.f: Failed to allocate grid%v_base(1). ')
2457 endif
2458 ENDIF
2459 IF(.NOT.inter_domain)THEN
2460 ALLOCATE(grid%qv_base(sm33:em33),STAT=ierr)
2461 if (ierr.ne.0) then
2462 CALL wrf_error_fatal ( &
2463 'frame/module_domain.f: Failed to allocate grid%qv_base(sm33:em33). ')
2464 endif
2465 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_base=initial_data_value
2466 ELSE
2467 ALLOCATE(grid%qv_base(1),STAT=ierr)
2468 if (ierr.ne.0) then
2469 CALL wrf_error_fatal ( &
2470 'frame/module_domain.f: Failed to allocate grid%qv_base(1). ')
2471 endif
2472 ENDIF
2473 IF(.NOT.inter_domain)THEN
2474 ALLOCATE(grid%z_base(sm33:em33),STAT=ierr)
2475 if (ierr.ne.0) then
2476 CALL wrf_error_fatal ( &
2477 'frame/module_domain.f: Failed to allocate grid%z_base(sm33:em33). ')
2478 endif
2479 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_base=initial_data_value
2480 ELSE
2481 ALLOCATE(grid%z_base(1),STAT=ierr)
2482 if (ierr.ne.0) then
2483 CALL wrf_error_fatal ( &
2484 'frame/module_domain.f: Failed to allocate grid%z_base(1). ')
2485 endif
2486 ENDIF
2487 IF ( setinitval .EQ. 3 ) grid%u_frame=initial_data_value
2488 IF ( setinitval .EQ. 3 ) grid%v_frame=initial_data_value
2489 IF ( setinitval .EQ. 3 ) grid%p_top=initial_data_value
2490 IF ( setinitval .EQ. 3 ) grid%imicrogram=0
2491 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_t=initial_data_value
2492 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_t=initial_data_value
2493 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_t=initial_data_value
2494 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_t=initial_data_value
2495 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_u=initial_data_value
2496 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_u=initial_data_value
2497 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_u=initial_data_value
2498 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_u=initial_data_value
2499 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_v=initial_data_value
2500 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_v=initial_data_value
2501 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_v=initial_data_value
2502 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_v=initial_data_value
2503 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_d=initial_data_value
2504 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_d=initial_data_value
2505 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_d=initial_data_value
2506 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_d=initial_data_value
2507 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_t=initial_data_value
2508 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_t=initial_data_value
2509 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_t=initial_data_value
2510 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_t=initial_data_value
2511 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_u=initial_data_value
2512 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_u=initial_data_value
2513 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_u=initial_data_value
2514 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_u=initial_data_value
2515 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_v=initial_data_value
2516 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_v=initial_data_value
2517 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_v=initial_data_value
2518 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_v=initial_data_value
2519 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_d=initial_data_value
2520 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_d=initial_data_value
2521 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_d=initial_data_value
2522 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_d=initial_data_value
2523 ALLOCATE(grid%rainc(sm31:em31,sm32:em32),STAT=ierr)
2524 if (ierr.ne.0) then
2525 CALL wrf_error_fatal ( &
2526 'frame/module_domain.f: Failed to allocate grid%rainc(sm31:em31,sm32:em32). ')
2527 endif
2528 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainc=initial_data_value
2529 ALLOCATE(grid%rainnc(sm31:em31,sm32:em32),STAT=ierr)
2530 if (ierr.ne.0) then
2531 CALL wrf_error_fatal ( &
2532 'frame/module_domain.f: Failed to allocate grid%rainnc(sm31:em31,sm32:em32). ')
2533 endif
2534 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainnc=initial_data_value
2535 ALLOCATE(grid%xlat(sm31:em31,sm32:em32),STAT=ierr)
2536 if (ierr.ne.0) then
2537 CALL wrf_error_fatal ( &
2538 'frame/module_domain.f: Failed to allocate grid%xlat(sm31:em31,sm32:em32). ')
2539 endif
2540 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat=initial_data_value
2541 ALLOCATE(grid%xlong(sm31:em31,sm32:em32),STAT=ierr)
2542 if (ierr.ne.0) then
2543 CALL wrf_error_fatal ( &
2544 'frame/module_domain.f: Failed to allocate grid%xlong(sm31:em31,sm32:em32). ')
2545 endif
2546 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong=initial_data_value
2547 ALLOCATE(grid%em_xlat_u(sm31:em31,sm32:em32),STAT=ierr)
2548 if (ierr.ne.0) then
2549 CALL wrf_error_fatal ( &
2550 'frame/module_domain.f: Failed to allocate grid%em_xlat_u(sm31:em31,sm32:em32). ')
2551 endif
2552 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlat_u=initial_data_value
2553 ALLOCATE(grid%em_xlong_u(sm31:em31,sm32:em32),STAT=ierr)
2554 if (ierr.ne.0) then
2555 CALL wrf_error_fatal ( &
2556 'frame/module_domain.f: Failed to allocate grid%em_xlong_u(sm31:em31,sm32:em32). ')
2557 endif
2558 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlong_u=initial_data_value
2559 ALLOCATE(grid%em_xlat_v(sm31:em31,sm32:em32),STAT=ierr)
2560 if (ierr.ne.0) then
2561 CALL wrf_error_fatal ( &
2562 'frame/module_domain.f: Failed to allocate grid%em_xlat_v(sm31:em31,sm32:em32). ')
2563 endif
2564 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlat_v=initial_data_value
2565 ALLOCATE(grid%em_xlong_v(sm31:em31,sm32:em32),STAT=ierr)
2566 if (ierr.ne.0) then
2567 CALL wrf_error_fatal ( &
2568 'frame/module_domain.f: Failed to allocate grid%em_xlong_v(sm31:em31,sm32:em32). ')
2569 endif
2570 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlong_v=initial_data_value
2571 IF(.NOT.inter_domain)THEN
2572 ALLOCATE(grid%albbck(sm31:em31,sm32:em32),STAT=ierr)
2573 if (ierr.ne.0) then
2574 CALL wrf_error_fatal ( &
2575 'frame/module_domain.f: Failed to allocate grid%albbck(sm31:em31,sm32:em32). ')
2576 endif
2577 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albbck=initial_data_value
2578 ELSE
2579 ALLOCATE(grid%albbck(1,1),STAT=ierr)
2580 if (ierr.ne.0) then
2581 CALL wrf_error_fatal ( &
2582 'frame/module_domain.f: Failed to allocate grid%albbck(1,1). ')
2583 endif
2584 ENDIF
2585 IF(.NOT.inter_domain)THEN
2586 ALLOCATE(grid%mp_restart_state(1:7501),STAT=ierr)
2587 if (ierr.ne.0) then
2588 CALL wrf_error_fatal ( &
2589 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1:7501). ')
2590 endif
2591 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mp_restart_state=initial_data_value
2592 ELSE
2593 ALLOCATE(grid%mp_restart_state(1),STAT=ierr)
2594 if (ierr.ne.0) then
2595 CALL wrf_error_fatal ( &
2596 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1). ')
2597 endif
2598 ENDIF
2599 IF(.NOT.inter_domain)THEN
2600 ALLOCATE(grid%tbpvs_state(1:7501),STAT=ierr)
2601 if (ierr.ne.0) then
2602 CALL wrf_error_fatal ( &
2603 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1:7501). ')
2604 endif
2605 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs_state=initial_data_value
2606 ELSE
2607 ALLOCATE(grid%tbpvs_state(1),STAT=ierr)
2608 if (ierr.ne.0) then
2609 CALL wrf_error_fatal ( &
2610 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1). ')
2611 endif
2612 ENDIF
2613 IF(.NOT.inter_domain)THEN
2614 ALLOCATE(grid%tbpvs0_state(1:7501),STAT=ierr)
2615 if (ierr.ne.0) then
2616 CALL wrf_error_fatal ( &
2617 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1:7501). ')
2618 endif
2619 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs0_state=initial_data_value
2620 ELSE
2621 ALLOCATE(grid%tbpvs0_state(1),STAT=ierr)
2622 if (ierr.ne.0) then
2623 CALL wrf_error_fatal ( &
2624 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1). ')
2625 endif
2626 ENDIF
2627 ALLOCATE(grid%tmn(sm31:em31,sm32:em32),STAT=ierr)
2628 if (ierr.ne.0) then
2629 CALL wrf_error_fatal ( &
2630 'frame/module_domain.f: Failed to allocate grid%tmn(sm31:em31,sm32:em32). ')
2631 endif
2632 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tmn=initial_data_value
2633 ALLOCATE(grid%xland(sm31:em31,sm32:em32),STAT=ierr)
2634 if (ierr.ne.0) then
2635 CALL wrf_error_fatal ( &
2636 'frame/module_domain.f: Failed to allocate grid%xland(sm31:em31,sm32:em32). ')
2637 endif
2638 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xland=initial_data_value
2639 IF(.NOT.inter_domain)THEN
2640 ALLOCATE(grid%znt(sm31:em31,sm32:em32),STAT=ierr)
2641 if (ierr.ne.0) then
2642 CALL wrf_error_fatal ( &
2643 'frame/module_domain.f: Failed to allocate grid%znt(sm31:em31,sm32:em32). ')
2644 endif
2645 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znt=initial_data_value
2646 ELSE
2647 ALLOCATE(grid%znt(1,1),STAT=ierr)
2648 if (ierr.ne.0) then
2649 CALL wrf_error_fatal ( &
2650 'frame/module_domain.f: Failed to allocate grid%znt(1,1). ')
2651 endif
2652 ENDIF
2653 ALLOCATE(grid%snowc(sm31:em31,sm32:em32),STAT=ierr)
2654 if (ierr.ne.0) then
2655 CALL wrf_error_fatal ( &
2656 'frame/module_domain.f: Failed to allocate grid%snowc(sm31:em31,sm32:em32). ')
2657 endif
2658 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowc=initial_data_value
2659 IF ( setinitval .EQ. 3 ) grid%stepbl=0
2660 IF(.NOT.inter_domain)THEN
2661 ALLOCATE(grid%xkmv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2662 if (ierr.ne.0) then
2663 CALL wrf_error_fatal ( &
2664 'frame/module_domain.f: Failed to allocate grid%xkmv(sm31:em31,sm32:em32,sm33:em33). ')
2665 endif
2666 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmv=initial_data_value
2667 ELSE
2668 ALLOCATE(grid%xkmv(1,1,1),STAT=ierr)
2669 if (ierr.ne.0) then
2670 CALL wrf_error_fatal ( &
2671 'frame/module_domain.f: Failed to allocate grid%xkmv(1,1,1). ')
2672 endif
2673 ENDIF
2674 IF(.NOT.inter_domain)THEN
2675 ALLOCATE(grid%xkmh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2676 if (ierr.ne.0) then
2677 CALL wrf_error_fatal ( &
2678 'frame/module_domain.f: Failed to allocate grid%xkmh(sm31:em31,sm32:em32,sm33:em33). ')
2679 endif
2680 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmh=initial_data_value
2681 ELSE
2682 ALLOCATE(grid%xkmh(1,1,1),STAT=ierr)
2683 if (ierr.ne.0) then
2684 CALL wrf_error_fatal ( &
2685 'frame/module_domain.f: Failed to allocate grid%xkmh(1,1,1). ')
2686 endif
2687 ENDIF
2688 IF(.NOT.inter_domain)THEN
2689 ALLOCATE(grid%xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2690 if (ierr.ne.0) then
2691 CALL wrf_error_fatal ( &
2692 'frame/module_domain.f: Failed to allocate grid%xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2693 endif
2694 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmhd=initial_data_value
2695 ELSE
2696 ALLOCATE(grid%xkmhd(1,1,1),STAT=ierr)
2697 if (ierr.ne.0) then
2698 CALL wrf_error_fatal ( &
2699 'frame/module_domain.f: Failed to allocate grid%xkmhd(1,1,1). ')
2700 endif
2701 ENDIF
2702 IF(.NOT.inter_domain)THEN
2703 ALLOCATE(grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2704 if (ierr.ne.0) then
2705 CALL wrf_error_fatal ( &
2706 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2707 endif
2708 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_xkmhd=initial_data_value
2709 ELSE
2710 ALLOCATE(grid%a_xkmhd(1,1,1),STAT=ierr)
2711 if (ierr.ne.0) then
2712 CALL wrf_error_fatal ( &
2713 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(1,1,1). ')
2714 endif
2715 ENDIF
2716 IF(.NOT.inter_domain)THEN
2717 ALLOCATE(grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2718 if (ierr.ne.0) then
2719 CALL wrf_error_fatal ( &
2720 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2721 endif
2722 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_xkmhd=initial_data_value
2723 ELSE
2724 ALLOCATE(grid%g_xkmhd(1,1,1),STAT=ierr)
2725 if (ierr.ne.0) then
2726 CALL wrf_error_fatal ( &
2727 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(1,1,1). ')
2728 endif
2729 ENDIF
2730 IF(.NOT.inter_domain)THEN
2731 ALLOCATE(grid%xkhv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2732 if (ierr.ne.0) then
2733 CALL wrf_error_fatal ( &
2734 'frame/module_domain.f: Failed to allocate grid%xkhv(sm31:em31,sm32:em32,sm33:em33). ')
2735 endif
2736 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhv=initial_data_value
2737 ELSE
2738 ALLOCATE(grid%xkhv(1,1,1),STAT=ierr)
2739 if (ierr.ne.0) then
2740 CALL wrf_error_fatal ( &
2741 'frame/module_domain.f: Failed to allocate grid%xkhv(1,1,1). ')
2742 endif
2743 ENDIF
2744 IF(.NOT.inter_domain)THEN
2745 ALLOCATE(grid%xkhh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2746 if (ierr.ne.0) then
2747 CALL wrf_error_fatal ( &
2748 'frame/module_domain.f: Failed to allocate grid%xkhh(sm31:em31,sm32:em32,sm33:em33). ')
2749 endif
2750 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhh=initial_data_value
2751 ELSE
2752 ALLOCATE(grid%xkhh(1,1,1),STAT=ierr)
2753 if (ierr.ne.0) then
2754 CALL wrf_error_fatal ( &
2755 'frame/module_domain.f: Failed to allocate grid%xkhh(1,1,1). ')
2756 endif
2757 ENDIF
2758 IF ( setinitval .EQ. 3 ) grid%warm_rain=.FALSE.
2759 IF ( setinitval .EQ. 3 ) grid%adv_moist_cond=.FALSE.
2760 IF ( setinitval .EQ. 3 ) grid%moved=.FALSE.
2761 IF ( setinitval .EQ. 3 ) grid%write_increments=.FALSE.
2762 IF ( setinitval .EQ. 3 ) grid%var4d=.FALSE.
2763 IF ( setinitval .EQ. 3 ) grid%var4d_coupling=0
2764 IF ( setinitval .EQ. 3 ) grid%global=.FALSE.
2765 IF ( setinitval .EQ. 3 ) grid%oi_use=.FALSE.
2766 IF ( setinitval .EQ. 3 ) grid%print_detail_airep=.FALSE.
2767 IF ( setinitval .EQ. 3 ) grid%print_detail_radar=.FALSE.
2768 IF ( setinitval .EQ. 3 ) grid%print_detail_rad=.FALSE.
2769 IF ( setinitval .EQ. 3 ) grid%print_detail_xa=.FALSE.
2770 IF ( setinitval .EQ. 3 ) grid%print_detail_xb=.FALSE.
2771 IF ( setinitval .EQ. 3 ) grid%print_detail_obs=.FALSE.
2772 IF ( setinitval .EQ. 3 ) grid%print_detail_f_obs=.FALSE.
2773 IF ( setinitval .EQ. 3 ) grid%print_detail_map=.FALSE.
2774 IF ( setinitval .EQ. 3 ) grid%print_detail_grad=.FALSE.
2775 IF ( setinitval .EQ. 3 ) grid%print_detail_regression=.FALSE.
2776 IF ( setinitval .EQ. 3 ) grid%print_detail_spectral=.FALSE.
2777 IF ( setinitval .EQ. 3 ) grid%print_detail_testing=.FALSE.
2778 IF ( setinitval .EQ. 3 ) grid%print_detail_parallel=.FALSE.
2779 IF ( setinitval .EQ. 3 ) grid%print_detail_be=.FALSE.
2780 IF ( setinitval .EQ. 3 ) grid%print_detail_timing=.FALSE.
2781 IF ( setinitval .EQ. 3 ) grid%check_max_iv_print=.FALSE.
2782 IF ( setinitval .EQ. 3 ) grid%analysis_accu=0
2783 IF ( setinitval .EQ. 3 ) grid%calc_w_increment=.FALSE.
2784 IF ( setinitval .EQ. 3 ) grid%dt_cloud_model=.FALSE.
2785 IF ( setinitval .EQ. 3 ) grid%write_qcw=.FALSE.
2786 IF ( setinitval .EQ. 3 ) grid%write_qrn=.FALSE.
2787 IF ( setinitval .EQ. 3 ) grid%write_qci=.FALSE.
2788 IF ( setinitval .EQ. 3 ) grid%write_qsn=.FALSE.
2789 IF ( setinitval .EQ. 3 ) grid%write_qgr=.FALSE.
2790 IF ( setinitval .EQ. 3 ) grid%write_filtered_obs=.FALSE.
2791 IF ( setinitval .EQ. 3 ) grid%fg_format=0
2792 IF ( setinitval .EQ. 3 ) grid%ob_format=0
2793 IF ( setinitval .EQ. 3 ) grid%num_fgat_time=0
2794 IF ( setinitval .EQ. 3 ) grid%use_synopobs=.FALSE.
2795 IF ( setinitval .EQ. 3 ) grid%use_shipsobs=.FALSE.
2796 IF ( setinitval .EQ. 3 ) grid%use_metarobs=.FALSE.
2797 IF ( setinitval .EQ. 3 ) grid%use_soundobs=.FALSE.
2798 IF ( setinitval .EQ. 3 ) grid%use_pilotobs=.FALSE.
2799 IF ( setinitval .EQ. 3 ) grid%use_airepobs=.FALSE.
2800 IF ( setinitval .EQ. 3 ) grid%use_geoamvobs=.FALSE.
2801 IF ( setinitval .EQ. 3 ) grid%use_polaramvobs=.FALSE.
2802 IF ( setinitval .EQ. 3 ) grid%use_bogusobs=.FALSE.
2803 IF ( setinitval .EQ. 3 ) grid%use_buoyobs=.FALSE.
2804 IF ( setinitval .EQ. 3 ) grid%use_profilerobs=.FALSE.
2805 IF ( setinitval .EQ. 3 ) grid%use_satemobs=.FALSE.
2806 IF ( setinitval .EQ. 3 ) grid%use_gpspwobs=.FALSE.
2807 IF ( setinitval .EQ. 3 ) grid%use_gpsrefobs=.FALSE.
2808 IF ( setinitval .EQ. 3 ) grid%use_ssmiretrievalobs=.FALSE.
2809 IF ( setinitval .EQ. 3 ) grid%use_ssmitbobs=.FALSE.
2810 IF ( setinitval .EQ. 3 ) grid%use_ssmt1obs=.FALSE.
2811 IF ( setinitval .EQ. 3 ) grid%use_ssmt2obs=.FALSE.
2812 IF ( setinitval .EQ. 3 ) grid%use_qscatobs=.FALSE.
2813 IF ( setinitval .EQ. 3 ) grid%use_radarobs=.FALSE.
2814 IF ( setinitval .EQ. 3 ) grid%use_radar_rv=.FALSE.
2815 IF ( setinitval .EQ. 3 ) grid%use_radar_rf=.FALSE.
2816 IF ( setinitval .EQ. 3 ) grid%use_hirs2obs=.FALSE.
2817 IF ( setinitval .EQ. 3 ) grid%use_hirs3obs=.FALSE.
2818 IF ( setinitval .EQ. 3 ) grid%use_msuobs=.FALSE.
2819 IF ( setinitval .EQ. 3 ) grid%use_amsuaobs=.FALSE.
2820 IF ( setinitval .EQ. 3 ) grid%use_amsubobs=.FALSE.
2821 IF ( setinitval .EQ. 3 ) grid%use_airsobs=.FALSE.
2822 IF ( setinitval .EQ. 3 ) grid%use_airsretobs=.FALSE.
2823 IF ( setinitval .EQ. 3 ) grid%use_eos_amsuaobs=.FALSE.
2824 IF ( setinitval .EQ. 3 ) grid%use_eos_radobs=.FALSE.
2825 IF ( setinitval .EQ. 3 ) grid%use_hsbobs=.FALSE.
2826 IF ( setinitval .EQ. 3 ) grid%use_ssmisobs=.FALSE.
2827 IF ( setinitval .EQ. 3 ) grid%use_kma1dvar=.FALSE.
2828 IF ( setinitval .EQ. 3 ) grid%use_filtered_rad=.FALSE.
2829 IF ( setinitval .EQ. 3 ) grid%use_rad=.FALSE.
2830 IF ( setinitval .EQ. 3 ) grid%use_obsgts=.FALSE.
2831 IF ( setinitval .EQ. 3 ) grid%use_obs_errfac=.FALSE.
2832 IF ( setinitval .EQ. 3 ) grid%check_max_iv=.FALSE.
2833 IF ( setinitval .EQ. 3 ) grid%put_rand_seed=.FALSE.
2834 IF ( setinitval .EQ. 3 ) grid%omb_set_rand=.FALSE.
2835 IF ( setinitval .EQ. 3 ) grid%omb_add_noise=.FALSE.
2836 IF ( setinitval .EQ. 3 ) grid%obs_qc_pointer=0
2837 IF ( setinitval .EQ. 3 ) grid%max_sound_input=0
2838 IF ( setinitval .EQ. 3 ) grid%max_synop_input=0
2839 IF ( setinitval .EQ. 3 ) grid%max_geoamv_input=0
2840 IF ( setinitval .EQ. 3 ) grid%max_polaramv_input=0
2841 IF ( setinitval .EQ. 3 ) grid%max_airep_input=0
2842 IF ( setinitval .EQ. 3 ) grid%max_satem_input=0
2843 IF ( setinitval .EQ. 3 ) grid%max_pilot_input=0
2844 IF ( setinitval .EQ. 3 ) grid%max_radar_input=0
2845 IF ( setinitval .EQ. 3 ) grid%max_metar_input=0
2846 IF ( setinitval .EQ. 3 ) grid%max_gpspw_input=0
2847 IF ( setinitval .EQ. 3 ) grid%max_ships_input=0
2848 IF ( setinitval .EQ. 3 ) grid%max_profiler_input=0
2849 IF ( setinitval .EQ. 3 ) grid%max_bogus_input=0
2850 IF ( setinitval .EQ. 3 ) grid%max_buoy_input=0
2851 IF ( setinitval .EQ. 3 ) grid%max_ssmi_ret_input=0
2852 IF ( setinitval .EQ. 3 ) grid%max_ssmi_tb_input=0
2853 IF ( setinitval .EQ. 3 ) grid%max_ssmt1_input=0
2854 IF ( setinitval .EQ. 3 ) grid%max_ssmt2_input=0
2855 IF ( setinitval .EQ. 3 ) grid%max_qscat_input=0
2856 IF ( setinitval .EQ. 3 ) grid%max_gpsref_input=0
2857 IF ( setinitval .EQ. 3 ) grid%max_airsret_input=0
2858 IF ( setinitval .EQ. 3 ) grid%max_tovs_input=0
2859 IF ( setinitval .EQ. 3 ) grid%max_ssmis_input=0
2860 IF ( setinitval .EQ. 3 ) grid%report_start=0
2861 IF ( setinitval .EQ. 3 ) grid%report_end=0
2862 IF ( setinitval .EQ. 3 ) grid%tovs_start=0
2863 IF ( setinitval .EQ. 3 ) grid%tovs_end=0
2864 IF ( setinitval .EQ. 3 ) grid%max_ext_its=0
2865 IF ( setinitval .EQ. 3 ) grid%ntmax=0
2866 IF ( setinitval .EQ. 3 ) grid%nsave=0
2867 IF ( setinitval .EQ. 3 ) grid%write_interval=0
2868 IF ( setinitval .EQ. 3 ) grid%eps=initial_data_value
2869 IF ( setinitval .EQ. 3 ) grid%rf_passes=0
2870 IF ( setinitval .EQ. 3 ) grid%var_scaling1=initial_data_value
2871 IF ( setinitval .EQ. 3 ) grid%var_scaling2=initial_data_value
2872 IF ( setinitval .EQ. 3 ) grid%var_scaling3=initial_data_value
2873 IF ( setinitval .EQ. 3 ) grid%var_scaling4=initial_data_value
2874 IF ( setinitval .EQ. 3 ) grid%var_scaling5=initial_data_value
2875 IF ( setinitval .EQ. 3 ) grid%len_scaling1=initial_data_value
2876 IF ( setinitval .EQ. 3 ) grid%len_scaling2=initial_data_value
2877 IF ( setinitval .EQ. 3 ) grid%len_scaling3=initial_data_value
2878 IF ( setinitval .EQ. 3 ) grid%len_scaling4=initial_data_value
2879 IF ( setinitval .EQ. 3 ) grid%len_scaling5=initial_data_value
2880 IF ( setinitval .EQ. 3 ) grid%jb_factor=initial_data_value
2881 IF ( setinitval .EQ. 3 ) grid%je_factor=initial_data_value
2882 IF ( setinitval .EQ. 3 ) grid%power_truncation=initial_data_value
2883 IF ( setinitval .EQ. 3 ) grid%def_sub_domain=.FALSE.
2884 IF ( setinitval .EQ. 3 ) grid%x_start_sub_domain=initial_data_value
2885 IF ( setinitval .EQ. 3 ) grid%y_start_sub_domain=initial_data_value
2886 IF ( setinitval .EQ. 3 ) grid%x_end_sub_domain=initial_data_value
2887 IF ( setinitval .EQ. 3 ) grid%y_end_sub_domain=initial_data_value
2888 IF ( setinitval .EQ. 3 ) grid%stdout=0
2889 IF ( setinitval .EQ. 3 ) grid%stderr=0
2890 IF ( setinitval .EQ. 3 ) grid%trace_unit=0
2891 IF ( setinitval .EQ. 3 ) grid%trace_pe=0
2892 IF ( setinitval .EQ. 3 ) grid%trace_repeat_head=0
2893 IF ( setinitval .EQ. 3 ) grid%trace_repeat_body=0
2894 IF ( setinitval .EQ. 3 ) grid%trace_max_depth=0
2895 IF ( setinitval .EQ. 3 ) grid%trace_use=.FALSE.
2896 IF ( setinitval .EQ. 3 ) grid%trace_use_frequent=.FALSE.
2897 IF ( setinitval .EQ. 3 ) grid%trace_memory=.FALSE.
2898 IF ( setinitval .EQ. 3 ) grid%trace_all_pes=.FALSE.
2899 IF ( setinitval .EQ. 3 ) grid%trace_csv=.FALSE.
2900 IF ( setinitval .EQ. 3 ) grid%use_html=.FALSE.
2901 IF ( setinitval .EQ. 3 ) grid%warnings_are_fatal=.FALSE.
2902 IF ( setinitval .EQ. 3 ) grid%testing_wrfvar=.FALSE.
2903 IF ( setinitval .EQ. 3 ) grid%test_transforms=.FALSE.
2904 IF ( setinitval .EQ. 3 ) grid%test_statistics=.FALSE.
2905 IF ( setinitval .EQ. 3 ) grid%interpolate_stats=.FALSE.
2906 IF ( setinitval .EQ. 3 ) grid%testing_dm_exact=.FALSE.
2907 IF ( setinitval .EQ. 3 ) grid%cv_options_hum=0
2908 IF ( setinitval .EQ. 3 ) grid%check_rh=0
2909 IF ( setinitval .EQ. 3 ) grid%set_omb_rand_fac=0
2910 IF ( setinitval .EQ. 3 ) grid%seed_array1=0
2911 IF ( setinitval .EQ. 3 ) grid%seed_array2=0
2912 IF ( setinitval .EQ. 3 ) grid%sfc_assi_options=0
2913 IF ( setinitval .EQ. 3 ) grid%calculate_cg_cost_fn=.FALSE.
2914 IF ( setinitval .EQ. 3 ) grid%lat_stats_option=.FALSE.
2915 IF ( setinitval .EQ. 3 ) grid%as1=initial_data_value
2916 IF ( setinitval .EQ. 3 ) grid%as2=initial_data_value
2917 IF ( setinitval .EQ. 3 ) grid%as3=initial_data_value
2918 IF ( setinitval .EQ. 3 ) grid%as4=initial_data_value
2919 IF ( setinitval .EQ. 3 ) grid%as5=initial_data_value
2920 IF ( setinitval .EQ. 3 ) grid%balance_type=0
2921 IF ( setinitval .EQ. 3 ) grid%vert_corr=0
2922 IF ( setinitval .EQ. 3 ) grid%vertical_ip=0
2923 IF ( setinitval .EQ. 3 ) grid%vert_evalue=0
2924 IF ( setinitval .EQ. 3 ) grid%max_vert_var1=initial_data_value
2925 IF ( setinitval .EQ. 3 ) grid%max_vert_var2=initial_data_value
2926 IF ( setinitval .EQ. 3 ) grid%max_vert_var3=initial_data_value
2927 IF ( setinitval .EQ. 3 ) grid%max_vert_var4=initial_data_value
2928 IF ( setinitval .EQ. 3 ) grid%max_vert_var5=initial_data_value
2929 IF ( setinitval .EQ. 3 ) grid%rtminit_print=0
2930 IF ( setinitval .EQ. 3 ) grid%rtminit_nsensor=0
2931 IF ( setinitval .EQ. 3 ) grid%rtminit_platform=0
2932 IF ( setinitval .EQ. 3 ) grid%rtminit_satid=0
2933 IF ( setinitval .EQ. 3 ) grid%rtminit_sensor=0
2934 IF ( setinitval .EQ. 3 ) grid%rad_monitoring=0
2935 IF ( setinitval .EQ. 3 ) grid%thinning_mesh=initial_data_value
2936 IF ( setinitval .EQ. 3 ) grid%thinning=.FALSE.
2937 IF ( setinitval .EQ. 3 ) grid%read_biascoef=.FALSE.
2938 IF ( setinitval .EQ. 3 ) grid%biascorr=.FALSE.
2939 IF ( setinitval .EQ. 3 ) grid%biasprep=.FALSE.
2940 IF ( setinitval .EQ. 3 ) grid%rttov_scatt=.FALSE.
2941 IF ( setinitval .EQ. 3 ) grid%write_profile=.FALSE.
2942 IF ( setinitval .EQ. 3 ) grid%qc_rad=.FALSE.
2943 IF ( setinitval .EQ. 3 ) grid%write_iv_rad_ascii=.FALSE.
2944 IF ( setinitval .EQ. 3 ) grid%write_oa_rad_ascii=.FALSE.
2945 IF ( setinitval .EQ. 3 ) grid%write_filtered_rad=.FALSE.
2946 IF ( setinitval .EQ. 3 ) grid%use_error_factor_rad=.FALSE.
2947 IF ( setinitval .EQ. 3 ) grid%use_landem=.FALSE.
2948 IF ( setinitval .EQ. 3 ) grid%mw_emis_sea=0
2949 IF ( setinitval .EQ. 3 ) grid%tovs_min_transfer=0
2950 IF ( setinitval .EQ. 3 ) grid%tovs_batch=.FALSE.
2951 IF ( setinitval .EQ. 3 ) grid%rtm_option=0
2952 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix=.FALSE.
2953 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix_fast=.FALSE.
2954 IF ( setinitval .EQ. 3 ) grid%crtm_cloud=.FALSE.
2955 IF ( setinitval .EQ. 3 ) grid%only_sea_rad=.FALSE.
2956 IF ( setinitval .EQ. 3 ) grid%num_pseudo=0
2957 IF ( setinitval .EQ. 3 ) grid%pseudo_x=initial_data_value
2958 IF ( setinitval .EQ. 3 ) grid%pseudo_y=initial_data_value
2959 IF ( setinitval .EQ. 3 ) grid%pseudo_z=initial_data_value
2960 IF ( setinitval .EQ. 3 ) grid%pseudo_val=initial_data_value
2961 IF ( setinitval .EQ. 3 ) grid%pseudo_err=initial_data_value
2962 IF ( setinitval .EQ. 3 ) grid%alphacv_method=0
2963 IF ( setinitval .EQ. 3 ) grid%ensdim_alpha=0
2964 IF ( setinitval .EQ. 3 ) grid%alpha_truncation=0
2965 IF ( setinitval .EQ. 3 ) grid%alpha_corr_type=0
2966 IF ( setinitval .EQ. 3 ) grid%alpha_corr_scale=initial_data_value
2967 IF ( setinitval .EQ. 3 ) grid%alpha_std_dev=initial_data_value
2968 IF ( setinitval .EQ. 3 ) grid%run_days=0
2969 IF ( setinitval .EQ. 3 ) grid%run_hours=0
2970 IF ( setinitval .EQ. 3 ) grid%run_minutes=0
2971 IF ( setinitval .EQ. 3 ) grid%run_seconds=0
2972 IF ( setinitval .EQ. 3 ) grid%start_year=0
2973 IF ( setinitval .EQ. 3 ) grid%start_month=0
2974 IF ( setinitval .EQ. 3 ) grid%start_day=0
2975 IF ( setinitval .EQ. 3 ) grid%start_hour=0
2976 IF ( setinitval .EQ. 3 ) grid%start_minute=0
2977 IF ( setinitval .EQ. 3 ) grid%start_second=0
2978 IF ( setinitval .EQ. 3 ) grid%end_year=0
2979 IF ( setinitval .EQ. 3 ) grid%end_month=0
2980 IF ( setinitval .EQ. 3 ) grid%end_day=0
2981 IF ( setinitval .EQ. 3 ) grid%end_hour=0
2982 IF ( setinitval .EQ. 3 ) grid%end_minute=0
2983 IF ( setinitval .EQ. 3 ) grid%end_second=0
2984 IF ( setinitval .EQ. 3 ) grid%interval_seconds=0
2985 IF ( setinitval .EQ. 3 ) grid%input_from_file=.FALSE.
2986 IF ( setinitval .EQ. 3 ) grid%fine_input_stream=0
2987 IF ( setinitval .EQ. 3 ) grid%input_from_hires=.FALSE.
2988 IF ( setinitval .EQ. 3 ) grid%oid=0
2989 IF ( setinitval .EQ. 3 ) grid%auxhist1_oid=0
2990 IF ( setinitval .EQ. 3 ) grid%auxhist2_oid=0
2991 IF ( setinitval .EQ. 3 ) grid%auxhist3_oid=0
2992 IF ( setinitval .EQ. 3 ) grid%auxhist4_oid=0
2993 IF ( setinitval .EQ. 3 ) grid%auxhist5_oid=0
2994 IF ( setinitval .EQ. 3 ) grid%auxhist6_oid=0
2995 IF ( setinitval .EQ. 3 ) grid%auxhist7_oid=0
2996 IF ( setinitval .EQ. 3 ) grid%auxhist8_oid=0
2997 IF ( setinitval .EQ. 3 ) grid%auxhist9_oid=0
2998 IF ( setinitval .EQ. 3 ) grid%auxhist10_oid=0
2999 IF ( setinitval .EQ. 3 ) grid%auxhist11_oid=0
3000 IF ( setinitval .EQ. 3 ) grid%auxinput1_oid=0
3001 IF ( setinitval .EQ. 3 ) grid%auxinput2_oid=0
3002 IF ( setinitval .EQ. 3 ) grid%auxinput3_oid=0
3003 IF ( setinitval .EQ. 3 ) grid%auxinput4_oid=0
3004 IF ( setinitval .EQ. 3 ) grid%auxinput5_oid=0
3005 IF ( setinitval .EQ. 3 ) grid%auxinput6_oid=0
3006 IF ( setinitval .EQ. 3 ) grid%auxinput7_oid=0
3007 IF ( setinitval .EQ. 3 ) grid%auxinput8_oid=0
3008 IF ( setinitval .EQ. 3 ) grid%auxinput9_oid=0
3009 IF ( setinitval .EQ. 3 ) grid%auxinput10_oid=0
3010 IF ( setinitval .EQ. 3 ) grid%auxinput11_oid=0
3011 IF ( setinitval .EQ. 3 ) grid%history_interval=0
3012 IF ( setinitval .EQ. 3 ) grid%frames_per_outfile=0
3013 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist1=0
3014 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist2=0
3015 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist3=0
3016 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist4=0
3017 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist5=0
3018 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist6=0
3019 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist7=0
3020 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist8=0
3021 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist9=0
3022 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist10=0
3023 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist11=0
3024 IF ( setinitval .EQ. 3 ) grid%restart=.FALSE.
3025 IF ( setinitval .EQ. 3 ) grid%restart_interval=0
3026 IF ( setinitval .EQ. 3 ) grid%io_form_input=0
3027 IF ( setinitval .EQ. 3 ) grid%io_form_history=0
3028 IF ( setinitval .EQ. 3 ) grid%io_form_restart=0
3029 IF ( setinitval .EQ. 3 ) grid%io_form_boundary=0
3030 IF ( setinitval .EQ. 3 ) grid%debug_level=0
3031 IF ( setinitval .EQ. 3 ) grid%self_test_domain=.FALSE.
3032 IF ( setinitval .EQ. 3 ) grid%history_interval_mo=0
3033 IF ( setinitval .EQ. 3 ) grid%history_interval_d=0
3034 IF ( setinitval .EQ. 3 ) grid%history_interval_h=0
3035 IF ( setinitval .EQ. 3 ) grid%history_interval_m=0
3036 IF ( setinitval .EQ. 3 ) grid%history_interval_s=0
3037 IF ( setinitval .EQ. 3 ) grid%inputout_interval_mo=0
3038 IF ( setinitval .EQ. 3 ) grid%inputout_interval_d=0
3039 IF ( setinitval .EQ. 3 ) grid%inputout_interval_h=0
3040 IF ( setinitval .EQ. 3 ) grid%inputout_interval_m=0
3041 IF ( setinitval .EQ. 3 ) grid%inputout_interval_s=0
3042 IF ( setinitval .EQ. 3 ) grid%inputout_interval=0
3043 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_mo=0
3044 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_d=0
3045 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_h=0
3046 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_m=0
3047 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_s=0
3048 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval=0
3049 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_mo=0
3050 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_d=0
3051 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_h=0
3052 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_m=0
3053 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_s=0
3054 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval=0
3055 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_mo=0
3056 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_d=0
3057 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_h=0
3058 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_m=0
3059 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_s=0
3060 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval=0
3061 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_mo=0
3062 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_d=0
3063 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_h=0
3064 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_m=0
3065 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_s=0
3066 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval=0
3067 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_mo=0
3068 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_d=0
3069 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_h=0
3070 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_m=0
3071 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_s=0
3072 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval=0
3073 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_mo=0
3074 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_d=0
3075 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_h=0
3076 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_m=0
3077 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_s=0
3078 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval=0
3079 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_mo=0
3080 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_d=0
3081 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_h=0
3082 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_m=0
3083 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_s=0
3084 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval=0
3085 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_mo=0
3086 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_d=0
3087 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_h=0
3088 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_m=0
3089 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_s=0
3090 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval=0
3091 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_mo=0
3092 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_d=0
3093 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_h=0
3094 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_m=0
3095 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_s=0
3096 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval=0
3097 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_mo=0
3098 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_d=0
3099 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_h=0
3100 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_m=0
3101 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_s=0
3102 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval=0
3103 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_mo=0
3104 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_d=0
3105 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_h=0
3106 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_m=0
3107 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_s=0
3108 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval=0
3109 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_mo=0
3110 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_d=0
3111 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_h=0
3112 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_m=0
3113 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_s=0
3114 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval=0
3115 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_mo=0
3116 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_d=0
3117 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_h=0
3118 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_m=0
3119 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_s=0
3120 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval=0
3121 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_mo=0
3122 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_d=0
3123 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_h=0
3124 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_m=0
3125 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_s=0
3126 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval=0
3127 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_mo=0
3128 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_d=0
3129 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_h=0
3130 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_m=0
3131 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_s=0
3132 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval=0
3133 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_mo=0
3134 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_d=0
3135 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_h=0
3136 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_m=0
3137 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_s=0
3138 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval=0
3139 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_mo=0
3140 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_d=0
3141 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_h=0
3142 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_m=0
3143 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_s=0
3144 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval=0
3145 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_mo=0
3146 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_d=0
3147 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_h=0
3148 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_m=0
3149 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_s=0
3150 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval=0
3151 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_mo=0
3152 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_d=0
3153 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_h=0
3154 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_m=0
3155 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_s=0
3156 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval=0
3157 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_mo=0
3158 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_d=0
3159 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_h=0
3160 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_m=0
3161 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_s=0
3162 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval=0
3163 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_mo=0
3164 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_d=0
3165 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_h=0
3166 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_m=0
3167 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_s=0
3168 IF ( setinitval .EQ. 3 ) grid%gfdda_interval=0
3169 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_mo=0
3170 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_d=0
3171 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_h=0
3172 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_m=0
3173 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_s=0
3174 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval=0
3175 IF ( setinitval .EQ. 3 ) grid%restart_interval_mo=0
3176 IF ( setinitval .EQ. 3 ) grid%restart_interval_d=0
3177 IF ( setinitval .EQ. 3 ) grid%restart_interval_h=0
3178 IF ( setinitval .EQ. 3 ) grid%restart_interval_m=0
3179 IF ( setinitval .EQ. 3 ) grid%restart_interval_s=0
3180 IF ( setinitval .EQ. 3 ) grid%history_begin_y=0
3181 IF ( setinitval .EQ. 3 ) grid%history_begin_mo=0
3182 IF ( setinitval .EQ. 3 ) grid%history_begin_d=0
3183 IF ( setinitval .EQ. 3 ) grid%history_begin_h=0
3184 IF ( setinitval .EQ. 3 ) grid%history_begin_m=0
3185 IF ( setinitval .EQ. 3 ) grid%history_begin_s=0
3186 IF ( setinitval .EQ. 3 ) grid%inputout_begin_y=0
3187 IF ( setinitval .EQ. 3 ) grid%inputout_begin_mo=0
3188 IF ( setinitval .EQ. 3 ) grid%inputout_begin_d=0
3189 IF ( setinitval .EQ. 3 ) grid%inputout_begin_h=0
3190 IF ( setinitval .EQ. 3 ) grid%inputout_begin_m=0
3191 IF ( setinitval .EQ. 3 ) grid%inputout_begin_s=0
3192 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_y=0
3193 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_mo=0
3194 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_d=0
3195 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_h=0
3196 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_m=0
3197 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_s=0
3198 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_y=0
3199 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_mo=0
3200 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_d=0
3201 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_h=0
3202 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_m=0
3203 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_s=0
3204 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_y=0
3205 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_mo=0
3206 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_d=0
3207 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_h=0
3208 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_m=0
3209 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_s=0
3210 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_y=0
3211 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_mo=0
3212 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_d=0
3213 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_h=0
3214 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_m=0
3215 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_s=0
3216 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_y=0
3217 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_mo=0
3218 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_d=0
3219 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_h=0
3220 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_m=0
3221 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_s=0
3222 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_y=0
3223 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_mo=0
3224 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_d=0
3225 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_h=0
3226 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_m=0
3227 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_s=0
3228 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_y=0
3229 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_mo=0
3230 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_d=0
3231 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_h=0
3232 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_m=0
3233 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_s=0
3234 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_y=0
3235 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_mo=0
3236 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_d=0
3237 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_h=0
3238 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_m=0
3239 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_s=0
3240 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_y=0
3241 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_mo=0
3242 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_d=0
3243 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_h=0
3244 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_m=0
3245 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_s=0
3246 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_y=0
3247 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_mo=0
3248 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_d=0
3249 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_h=0
3250 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_m=0
3251 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_s=0
3252 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_y=0
3253 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_mo=0
3254 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_d=0
3255 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_h=0
3256 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_m=0
3257 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_s=0
3258 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_y=0
3259 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_mo=0
3260 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_d=0
3261 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_h=0
3262 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_m=0
3263 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_s=0
3264 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_y=0
3265 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_mo=0
3266 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_d=0
3267 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_h=0
3268 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_m=0
3269 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_s=0
3270 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_y=0
3271 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_mo=0
3272 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_d=0
3273 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_h=0
3274 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_m=0
3275 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_s=0
3276 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_y=0
3277 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_mo=0
3278 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_d=0
3279 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_h=0
3280 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_m=0
3281 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_s=0
3282 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_y=0
3283 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_mo=0
3284 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_d=0
3285 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_h=0
3286 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_m=0
3287 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_s=0
3288 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_y=0
3289 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_mo=0
3290 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_d=0
3291 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_h=0
3292 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_m=0
3293 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_s=0
3294 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_y=0
3295 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_mo=0
3296 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_d=0
3297 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_h=0
3298 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_m=0
3299 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_s=0
3300 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_y=0
3301 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_mo=0
3302 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_d=0
3303 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_h=0
3304 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_m=0
3305 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_s=0
3306 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_y=0
3307 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_mo=0
3308 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_d=0
3309 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_h=0
3310 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_m=0
3311 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_s=0
3312 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_y=0
3313 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_mo=0
3314 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_d=0
3315 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_h=0
3316 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_m=0
3317 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_s=0
3318 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_y=0
3319 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_mo=0
3320 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_d=0
3321 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_h=0
3322 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_m=0
3323 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_s=0
3324 IF ( setinitval .EQ. 3 ) grid%restart_begin_y=0
3325 IF ( setinitval .EQ. 3 ) grid%restart_begin_mo=0
3326 IF ( setinitval .EQ. 3 ) grid%restart_begin_d=0
3327 IF ( setinitval .EQ. 3 ) grid%restart_begin_h=0
3328 IF ( setinitval .EQ. 3 ) grid%restart_begin_m=0
3329 IF ( setinitval .EQ. 3 ) grid%restart_begin_s=0
3330 IF ( setinitval .EQ. 3 ) grid%history_end_y=0
3331 IF ( setinitval .EQ. 3 ) grid%history_end_mo=0
3332 IF ( setinitval .EQ. 3 ) grid%history_end_d=0
3333 IF ( setinitval .EQ. 3 ) grid%history_end_h=0
3334 IF ( setinitval .EQ. 3 ) grid%history_end_m=0
3335 IF ( setinitval .EQ. 3 ) grid%history_end_s=0
3336 IF ( setinitval .EQ. 3 ) grid%inputout_end_y=0
3337 IF ( setinitval .EQ. 3 ) grid%inputout_end_mo=0
3338 IF ( setinitval .EQ. 3 ) grid%inputout_end_d=0
3339 IF ( setinitval .EQ. 3 ) grid%inputout_end_h=0
3340 IF ( setinitval .EQ. 3 ) grid%inputout_end_m=0
3341 IF ( setinitval .EQ. 3 ) grid%inputout_end_s=0
3342 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_y=0
3343 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_mo=0
3344 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_d=0
3345 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_h=0
3346 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_m=0
3347 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_s=0
3348 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_y=0
3349 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_mo=0
3350 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_d=0
3351 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_h=0
3352 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_m=0
3353 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_s=0
3354 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_y=0
3355 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_mo=0
3356 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_d=0
3357 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_h=0
3358 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_m=0
3359 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_s=0
3360 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_y=0
3361 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_mo=0
3362 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_d=0
3363 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_h=0
3364 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_m=0
3365 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_s=0
3366 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_y=0
3367 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_mo=0
3368 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_d=0
3369 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_h=0
3370 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_m=0
3371 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_s=0
3372 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_y=0
3373 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_mo=0
3374 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_d=0
3375 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_h=0
3376 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_m=0
3377 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_s=0
3378 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_y=0
3379 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_mo=0
3380 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_d=0
3381 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_h=0
3382 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_m=0
3383 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_s=0
3384 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_y=0
3385 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_mo=0
3386 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_d=0
3387 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_h=0
3388 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_m=0
3389 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_s=0
3390 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_y=0
3391 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_mo=0
3392 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_d=0
3393 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_h=0
3394 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_m=0
3395 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_s=0
3396 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_y=0
3397 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_mo=0
3398 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_d=0
3399 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_h=0
3400 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_m=0
3401 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_s=0
3402 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_y=0
3403 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_mo=0
3404 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_d=0
3405 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_h=0
3406 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_m=0
3407 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_s=0
3408 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_y=0
3409 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_mo=0
3410 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_d=0
3411 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_h=0
3412 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_m=0
3413 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_s=0
3414 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_y=0
3415 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_mo=0
3416 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_d=0
3417 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_h=0
3418 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_m=0
3419 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_s=0
3420 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_y=0
3421 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_mo=0
3422 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_d=0
3423 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_h=0
3424 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_m=0
3425 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_s=0
3426 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_y=0
3427 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_mo=0
3428 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_d=0
3429 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_h=0
3430 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_m=0
3431 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_s=0
3432 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_y=0
3433 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_mo=0
3434 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_d=0
3435 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_h=0
3436 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_m=0
3437 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_s=0
3438 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_y=0
3439 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_mo=0
3440 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_d=0
3441 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_h=0
3442 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_m=0
3443 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_s=0
3444 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_y=0
3445 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_mo=0
3446 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_d=0
3447 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_h=0
3448 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_m=0
3449 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_s=0
3450 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_y=0
3451 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_mo=0
3452 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_d=0
3453 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_h=0
3454 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_m=0
3455 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_s=0
3456 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_y=0
3457 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_mo=0
3458 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_d=0
3459 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_h=0
3460 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_m=0
3461 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_s=0
3462 IF ( setinitval .EQ. 3 ) grid%gfdda_end_y=0
3463 IF ( setinitval .EQ. 3 ) grid%gfdda_end_mo=0
3464 IF ( setinitval .EQ. 3 ) grid%gfdda_end_d=0
3465 IF ( setinitval .EQ. 3 ) grid%gfdda_end_h=0
3466 IF ( setinitval .EQ. 3 ) grid%gfdda_end_m=0
3467 IF ( setinitval .EQ. 3 ) grid%gfdda_end_s=0
3468 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_y=0
3469 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_mo=0
3470 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_d=0
3471 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_h=0
3472 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_m=0
3473 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_s=0
3474 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput1=0
3475 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput2=0
3476 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput3=0
3477 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput4=0
3478 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput5=0
3479 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput6=0
3480 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput7=0
3481 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput8=0
3482 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput9=0
3483 IF ( setinitval .EQ. 3 ) grid%io_form_gfdda=0
3484 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput11=0
3485 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist1=0
3486 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist2=0
3487 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist3=0
3488 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist4=0
3489 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist5=0
3490 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist6=0
3491 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist7=0
3492 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist8=0
3493 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist9=0
3494 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist10=0
3495 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist11=0
3496 IF ( setinitval .EQ. 3 ) grid%julyr=0
3497 IF ( setinitval .EQ. 3 ) grid%julday=0
3498 IF ( setinitval .EQ. 3 ) grid%gmt=initial_data_value
3499 IF ( setinitval .EQ. 3 ) grid%write_input=.FALSE.
3500 IF ( setinitval .EQ. 3 ) grid%write_restart_at_0h=.FALSE.
3501 IF ( setinitval .EQ. 3 ) grid%adjust_output_times=.FALSE.
3502 IF ( setinitval .EQ. 3 ) grid%adjust_input_times=.FALSE.
3503 IF ( setinitval .EQ. 3 ) grid%nocolons=.FALSE.
3504 IF ( setinitval .EQ. 3 ) grid%time_step=0
3505 IF ( setinitval .EQ. 3 ) grid%time_step_fract_num=0
3506 IF ( setinitval .EQ. 3 ) grid%time_step_fract_den=0
3507 IF ( setinitval .EQ. 3 ) grid%max_dom=0
3508 IF ( setinitval .EQ. 3 ) grid%s_we=0
3509 IF ( setinitval .EQ. 3 ) grid%e_we=0
3510 IF ( setinitval .EQ. 3 ) grid%s_sn=0
3511 IF ( setinitval .EQ. 3 ) grid%e_sn=0
3512 IF ( setinitval .EQ. 3 ) grid%s_vert=0
3513 IF ( setinitval .EQ. 3 ) grid%e_vert=0
3514 IF ( setinitval .EQ. 3 ) grid%num_metgrid_levels=0
3515 IF ( setinitval .EQ. 3 ) grid%p_top_requested=initial_data_value
3516 IF ( setinitval .EQ. 3 ) grid%interp_type=0
3517 IF ( setinitval .EQ. 3 ) grid%lowest_lev_from_sfc=.FALSE.
3518 IF ( setinitval .EQ. 3 ) grid%lagrange_order=0
3519 IF ( setinitval .EQ. 3 ) grid%dx=initial_data_value
3520 IF ( setinitval .EQ. 3 ) grid%dy=initial_data_value
3521 IF ( setinitval .EQ. 3 ) grid%grid_id=0
3522 IF ( setinitval .EQ. 3 ) grid%parent_id=0
3523 IF ( setinitval .EQ. 3 ) grid%i_parent_start=0
3524 IF ( setinitval .EQ. 3 ) grid%j_parent_start=0
3525 IF ( setinitval .EQ. 3 ) grid%parent_grid_ratio=0
3526 IF ( setinitval .EQ. 3 ) grid%parent_time_step_ratio=0
3527 IF ( setinitval .EQ. 3 ) grid%feedback=0
3528 IF ( setinitval .EQ. 3 ) grid%smooth_option=0
3529 IF ( setinitval .EQ. 3 ) grid%blend_width=0
3530 IF ( setinitval .EQ. 3 ) grid%ztop=initial_data_value
3531 IF ( setinitval .EQ. 3 ) grid%moad_grid_ratio=0
3532 IF ( setinitval .EQ. 3 ) grid%moad_time_step_ratio=0
3533 IF ( setinitval .EQ. 3 ) grid%shw=0
3534 IF ( setinitval .EQ. 3 ) grid%tile_sz_x=0
3535 IF ( setinitval .EQ. 3 ) grid%tile_sz_y=0
3536 IF ( setinitval .EQ. 3 ) grid%numtiles=0
3537 IF ( setinitval .EQ. 3 ) grid%nproc_x=0
3538 IF ( setinitval .EQ. 3 ) grid%nproc_y=0
3539 IF ( setinitval .EQ. 3 ) grid%irand=0
3540 IF ( setinitval .EQ. 3 ) grid%dt=initial_data_value
3541 IF ( setinitval .EQ. 3 ) grid%num_moves=0
3542 IF ( setinitval .EQ. 3 ) grid%vortex_interval=0
3543 IF ( setinitval .EQ. 3 ) grid%max_vortex_speed=0
3544 IF ( setinitval .EQ. 3 ) grid%corral_dist=0
3545 IF ( setinitval .EQ. 3 ) grid%move_id=0
3546 IF ( setinitval .EQ. 3 ) grid%move_interval=0
3547 IF ( setinitval .EQ. 3 ) grid%move_cd_x=0
3548 IF ( setinitval .EQ. 3 ) grid%move_cd_y=0
3549 IF ( setinitval .EQ. 3 ) grid%swap_x=.FALSE.
3550 IF ( setinitval .EQ. 3 ) grid%swap_y=.FALSE.
3551 IF ( setinitval .EQ. 3 ) grid%cycle_x=.FALSE.
3552 IF ( setinitval .EQ. 3 ) grid%cycle_y=.FALSE.
3553 IF ( setinitval .EQ. 3 ) grid%reorder_mesh=.FALSE.
3554 IF ( setinitval .EQ. 3 ) grid%perturb_input=.FALSE.
3555 IF ( setinitval .EQ. 3 ) grid%eta_levels=initial_data_value
3556 IF ( setinitval .EQ. 3 ) grid%max_dz=initial_data_value
3557 IF ( setinitval .EQ. 3 ) grid%mp_physics=0
3558 IF ( setinitval .EQ. 3 ) grid%ra_lw_physics=0
3559 IF ( setinitval .EQ. 3 ) grid%ra_sw_physics=0
3560 IF ( setinitval .EQ. 3 ) grid%radt=initial_data_value
3561 IF ( setinitval .EQ. 3 ) grid%sf_sfclay_physics=0
3562 IF ( setinitval .EQ. 3 ) grid%sf_surface_physics=0
3563 IF ( setinitval .EQ. 3 ) grid%bl_pbl_physics=0
3564 IF ( setinitval .EQ. 3 ) grid%bldt=initial_data_value
3565 IF ( setinitval .EQ. 3 ) grid%cu_physics=0
3566 IF ( setinitval .EQ. 3 ) grid%cudt=initial_data_value
3567 IF ( setinitval .EQ. 3 ) grid%gsmdt=initial_data_value
3568 IF ( setinitval .EQ. 3 ) grid%isfflx=0
3569 IF ( setinitval .EQ. 3 ) grid%ifsnow=0
3570 IF ( setinitval .EQ. 3 ) grid%icloud=0
3571 IF ( setinitval .EQ. 3 ) grid%swrad_scat=initial_data_value
3572 IF ( setinitval .EQ. 3 ) grid%surface_input_source=0
3573 IF ( setinitval .EQ. 3 ) grid%num_soil_layers=0
3574 IF ( setinitval .EQ. 3 ) grid%num_months=0
3575 IF ( setinitval .EQ. 3 ) grid%maxiens=0
3576 IF ( setinitval .EQ. 3 ) grid%maxens=0
3577 IF ( setinitval .EQ. 3 ) grid%maxens2=0
3578 IF ( setinitval .EQ. 3 ) grid%maxens3=0
3579 IF ( setinitval .EQ. 3 ) grid%ensdim=0
3580 IF ( setinitval .EQ. 3 ) grid%chem_opt=0
3581 IF ( setinitval .EQ. 3 ) grid%num_land_cat=0
3582 IF ( setinitval .EQ. 3 ) grid%num_soil_cat=0
3583 IF ( setinitval .EQ. 3 ) grid%mp_zero_out=0
3584 IF ( setinitval .EQ. 3 ) grid%mp_zero_out_thresh=initial_data_value
3585 IF ( setinitval .EQ. 3 ) grid%seaice_threshold=initial_data_value
3586 IF ( setinitval .EQ. 3 ) grid%sst_update=0
3587 IF ( setinitval .EQ. 3 ) grid%ucmcall=0
3588 IF ( setinitval .EQ. 3 ) grid%co2tf=0
3589 IF ( setinitval .EQ. 3 ) grid%ra_call_offset=0
3590 IF ( setinitval .EQ. 3 ) grid%cam_abs_freq_s=initial_data_value
3591 IF ( setinitval .EQ. 3 ) grid%levsiz=0
3592 IF ( setinitval .EQ. 3 ) grid%paerlev=0
3593 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim1=0
3594 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim2=0
3595 IF ( setinitval .EQ. 3 ) grid%fgdt=initial_data_value
3596 IF ( setinitval .EQ. 3 ) grid%grid_fdda=0
3597 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_uv=0
3598 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_t=0
3599 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_q=0
3600 IF ( setinitval .EQ. 3 ) grid%if_zfac_uv=0
3601 IF ( setinitval .EQ. 3 ) grid%k_zfac_uv=0
3602 IF ( setinitval .EQ. 3 ) grid%if_zfac_t=0
3603 IF ( setinitval .EQ. 3 ) grid%k_zfac_t=0
3604 IF ( setinitval .EQ. 3 ) grid%if_zfac_q=0
3605 IF ( setinitval .EQ. 3 ) grid%k_zfac_q=0
3606 IF ( setinitval .EQ. 3 ) grid%guv=initial_data_value
3607 IF ( setinitval .EQ. 3 ) grid%gt=initial_data_value
3608 IF ( setinitval .EQ. 3 ) grid%gq=initial_data_value
3609 IF ( setinitval .EQ. 3 ) grid%dtramp_min=initial_data_value
3610 IF ( setinitval .EQ. 3 ) grid%if_ramping=0
3611 IF ( setinitval .EQ. 3 ) grid%obs_nudge_opt=0
3612 IF ( setinitval .EQ. 3 ) grid%max_obs=0
3613 IF ( setinitval .EQ. 3 ) grid%nobs_ndg_vars=0
3614 IF ( setinitval .EQ. 3 ) grid%nobs_err_flds=0
3615 IF ( setinitval .EQ. 3 ) grid%fdda_start=initial_data_value
3616 IF ( setinitval .EQ. 3 ) grid%fdda_end=initial_data_value
3617 IF ( setinitval .EQ. 3 ) grid%obs_nudge_wind=0
3618 IF ( setinitval .EQ. 3 ) grid%obs_coef_wind=initial_data_value
3619 IF ( setinitval .EQ. 3 ) grid%obs_nudge_temp=0
3620 IF ( setinitval .EQ. 3 ) grid%obs_coef_temp=initial_data_value
3621 IF ( setinitval .EQ. 3 ) grid%obs_nudge_mois=0
3622 IF ( setinitval .EQ. 3 ) grid%obs_coef_mois=initial_data_value
3623 IF ( setinitval .EQ. 3 ) grid%obs_nudge_pstr=0
3624 IF ( setinitval .EQ. 3 ) grid%obs_coef_pstr=initial_data_value
3625 IF ( setinitval .EQ. 3 ) grid%obs_rinxy=initial_data_value
3626 IF ( setinitval .EQ. 3 ) grid%obs_rinsig=initial_data_value
3627 IF ( setinitval .EQ. 3 ) grid%obs_twindo=initial_data_value
3628 IF ( setinitval .EQ. 3 ) grid%obs_npfi=0
3629 IF ( setinitval .EQ. 3 ) grid%obs_ionf=0
3630 IF ( setinitval .EQ. 3 ) grid%obs_idynin=0
3631 IF ( setinitval .EQ. 3 ) grid%obs_dtramp=initial_data_value
3632 IF ( setinitval .EQ. 3 ) grid%obs_ipf_in4dob=.FALSE.
3633 IF ( setinitval .EQ. 3 ) grid%dyn_opt=0
3634 IF ( setinitval .EQ. 3 ) grid%rk_ord=0
3635 IF ( setinitval .EQ. 3 ) grid%w_damping=0
3636 IF ( setinitval .EQ. 3 ) grid%diff_opt=0
3637 IF ( setinitval .EQ. 3 ) grid%km_opt=0
3638 IF ( setinitval .EQ. 3 ) grid%damp_opt=0
3639 IF ( setinitval .EQ. 3 ) grid%zdamp=initial_data_value
3640 IF ( setinitval .EQ. 3 ) grid%dampcoef=initial_data_value
3641 IF ( setinitval .EQ. 3 ) grid%khdif=initial_data_value
3642 IF ( setinitval .EQ. 3 ) grid%kvdif=initial_data_value
3643 IF ( setinitval .EQ. 3 ) grid%diff_6th_factor=initial_data_value
3644 IF ( setinitval .EQ. 3 ) grid%diff_6th_opt=0
3645 IF ( setinitval .EQ. 3 ) grid%smdiv=initial_data_value
3646 IF ( setinitval .EQ. 3 ) grid%emdiv=initial_data_value
3647 IF ( setinitval .EQ. 3 ) grid%epssm=initial_data_value
3648 IF ( setinitval .EQ. 3 ) grid%non_hydrostatic=.FALSE.
3649 IF ( setinitval .EQ. 3 ) grid%time_step_sound=0
3650 IF ( setinitval .EQ. 3 ) grid%h_mom_adv_order=0
3651 IF ( setinitval .EQ. 3 ) grid%v_mom_adv_order=0
3652 IF ( setinitval .EQ. 3 ) grid%h_sca_adv_order=0
3653 IF ( setinitval .EQ. 3 ) grid%v_sca_adv_order=0
3654 IF ( setinitval .EQ. 3 ) grid%pd_moist=.FALSE.
3655 IF ( setinitval .EQ. 3 ) grid%pd_chem=.FALSE.
3656 IF ( setinitval .EQ. 3 ) grid%pd_scalar=.FALSE.
3657 IF ( setinitval .EQ. 3 ) grid%pd_tke=.FALSE.
3658 IF ( setinitval .EQ. 3 ) grid%top_radiation=.FALSE.
3659 IF ( setinitval .EQ. 3 ) grid%mix_cr_len=initial_data_value
3660 IF ( setinitval .EQ. 3 ) grid%tke_upper_bound=initial_data_value
3661 IF ( setinitval .EQ. 3 ) grid%kh_tke_upper_bound=initial_data_value
3662 IF ( setinitval .EQ. 3 ) grid%kv_tke_upper_bound=initial_data_value
3663 IF ( setinitval .EQ. 3 ) grid%tke_drag_coefficient=initial_data_value
3664 IF ( setinitval .EQ. 3 ) grid%tke_heat_flux=initial_data_value
3665 IF ( setinitval .EQ. 3 ) grid%pert_coriolis=.FALSE.
3666 IF ( setinitval .EQ. 3 ) grid%mix_full_fields=.FALSE.
3667 IF ( setinitval .EQ. 3 ) grid%base_pres=initial_data_value
3668 IF ( setinitval .EQ. 3 ) grid%base_temp=initial_data_value
3669 IF ( setinitval .EQ. 3 ) grid%base_lapse=initial_data_value
3670 IF ( setinitval .EQ. 3 ) grid%jcdfi_use=.FALSE.
3671 IF ( setinitval .EQ. 3 ) grid%jcdfi_tauc=initial_data_value
3672 IF ( setinitval .EQ. 3 ) grid%jcdfi_gama=initial_data_value
3673 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_wind=initial_data_value
3674 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_t=initial_data_value
3675 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_q=initial_data_value
3676 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_mu=initial_data_value
3677 IF ( setinitval .EQ. 3 ) grid%spec_bdy_width=0
3678 IF ( setinitval .EQ. 3 ) grid%spec_zone=0
3679 IF ( setinitval .EQ. 3 ) grid%relax_zone=0
3680 IF ( setinitval .EQ. 3 ) grid%specified=.FALSE.
3681 IF ( setinitval .EQ. 3 ) grid%periodic_x=.FALSE.
3682 IF ( setinitval .EQ. 3 ) grid%symmetric_xs=.FALSE.
3683 IF ( setinitval .EQ. 3 ) grid%symmetric_xe=.FALSE.
3684 IF ( setinitval .EQ. 3 ) grid%open_xs=.FALSE.
3685 IF ( setinitval .EQ. 3 ) grid%open_xe=.FALSE.
3686 IF ( setinitval .EQ. 3 ) grid%periodic_y=.FALSE.
3687 IF ( setinitval .EQ. 3 ) grid%symmetric_ys=.FALSE.
3688 IF ( setinitval .EQ. 3 ) grid%symmetric_ye=.FALSE.
3689 IF ( setinitval .EQ. 3 ) grid%open_ys=.FALSE.
3690 IF ( setinitval .EQ. 3 ) grid%open_ye=.FALSE.
3691 IF ( setinitval .EQ. 3 ) grid%nested=.FALSE.
3692 IF ( setinitval .EQ. 3 ) grid%real_data_init_type=0
3693 IF ( setinitval .EQ. 3 ) grid%background_proc_id=0
3694 IF ( setinitval .EQ. 3 ) grid%forecast_proc_id=0
3695 IF ( setinitval .EQ. 3 ) grid%production_status=0
3696 IF ( setinitval .EQ. 3 ) grid%compression=0
3697 IF ( setinitval .EQ. 3 ) grid%cen_lat=initial_data_value
3698 IF ( setinitval .EQ. 3 ) grid%cen_lon=initial_data_value
3699 IF ( setinitval .EQ. 3 ) grid%truelat1=initial_data_value
3700 IF ( setinitval .EQ. 3 ) grid%truelat2=initial_data_value
3701 IF ( setinitval .EQ. 3 ) grid%moad_cen_lat=initial_data_value
3702 IF ( setinitval .EQ. 3 ) grid%stand_lon=initial_data_value
3703 IF ( setinitval .EQ. 3 ) grid%bdyfrq=initial_data_value
3704 IF ( setinitval .EQ. 3 ) grid%iswater=0
3705 IF ( setinitval .EQ. 3 ) grid%isice=0
3706 IF ( setinitval .EQ. 3 ) grid%isurban=0
3707 IF ( setinitval .EQ. 3 ) grid%isoilwater=0
3708 IF ( setinitval .EQ. 3 ) grid%map_proj=0
3709 IF ( setinitval .EQ. 3 ) grid%simulation_start_year=0
3710 IF ( setinitval .EQ. 3 ) grid%simulation_start_month=0
3711 IF ( setinitval .EQ. 3 ) grid%simulation_start_day=0
3712 IF ( setinitval .EQ. 3 ) grid%simulation_start_hour=0
3713 IF ( setinitval .EQ. 3 ) grid%simulation_start_minute=0
3714 IF ( setinitval .EQ. 3 ) grid%simulation_start_second=0
3715 IF(.NOT.inter_domain)THEN
3716 ALLOCATE(grid%em_dummy(sm31:em31),STAT=ierr)
3717 if (ierr.ne.0) then
3718 CALL wrf_error_fatal ( &
3719 'frame/module_domain.f: Failed to allocate grid%em_dummy(sm31:em31). ')
3720 endif
3721 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dummy=initial_data_value
3722 ELSE
3723 ALLOCATE(grid%em_dummy(1),STAT=ierr)
3724 if (ierr.ne.0) then
3725 CALL wrf_error_fatal ( &
3726 'frame/module_domain.f: Failed to allocate grid%em_dummy(1). ')
3727 endif
3728 ENDIF
3729 IF(.NOT.inter_domain)THEN
3730 ALLOCATE(grid%vv%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3731 if (ierr.ne.0) then
3732 CALL wrf_error_fatal ( &
3733 'frame/module_domain.f: Failed to allocate grid%vv%v1(sm31:em31,sm32:em32,sm33:em33). ')
3734 endif
3735 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v1=initial_data_value
3736 ELSE
3737 ALLOCATE(grid%vv%v1(1,1,1),STAT=ierr)
3738 if (ierr.ne.0) then
3739 CALL wrf_error_fatal ( &
3740 'frame/module_domain.f: Failed to allocate grid%vv%v1(1,1,1). ')
3741 endif
3742 ENDIF
3743 IF(.NOT.inter_domain)THEN
3744 ALLOCATE(grid%vv%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3745 if (ierr.ne.0) then
3746 CALL wrf_error_fatal ( &
3747 'frame/module_domain.f: Failed to allocate grid%vv%v2(sm31:em31,sm32:em32,sm33:em33). ')
3748 endif
3749 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v2=initial_data_value
3750 ELSE
3751 ALLOCATE(grid%vv%v2(1,1,1),STAT=ierr)
3752 if (ierr.ne.0) then
3753 CALL wrf_error_fatal ( &
3754 'frame/module_domain.f: Failed to allocate grid%vv%v2(1,1,1). ')
3755 endif
3756 ENDIF
3757 IF(.NOT.inter_domain)THEN
3758 ALLOCATE(grid%vv%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3759 if (ierr.ne.0) then
3760 CALL wrf_error_fatal ( &
3761 'frame/module_domain.f: Failed to allocate grid%vv%v3(sm31:em31,sm32:em32,sm33:em33). ')
3762 endif
3763 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v3=initial_data_value
3764 ELSE
3765 ALLOCATE(grid%vv%v3(1,1,1),STAT=ierr)
3766 if (ierr.ne.0) then
3767 CALL wrf_error_fatal ( &
3768 'frame/module_domain.f: Failed to allocate grid%vv%v3(1,1,1). ')
3769 endif
3770 ENDIF
3771 IF(.NOT.inter_domain)THEN
3772 ALLOCATE(grid%vv%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3773 if (ierr.ne.0) then
3774 CALL wrf_error_fatal ( &
3775 'frame/module_domain.f: Failed to allocate grid%vv%v4(sm31:em31,sm32:em32,sm33:em33). ')
3776 endif
3777 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v4=initial_data_value
3778 ELSE
3779 ALLOCATE(grid%vv%v4(1,1,1),STAT=ierr)
3780 if (ierr.ne.0) then
3781 CALL wrf_error_fatal ( &
3782 'frame/module_domain.f: Failed to allocate grid%vv%v4(1,1,1). ')
3783 endif
3784 ENDIF
3785 IF(.NOT.inter_domain)THEN
3786 ALLOCATE(grid%vv%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3787 if (ierr.ne.0) then
3788 CALL wrf_error_fatal ( &
3789 'frame/module_domain.f: Failed to allocate grid%vv%v5(sm31:em31,sm32:em32,sm33:em33). ')
3790 endif
3791 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v5=initial_data_value
3792 ELSE
3793 ALLOCATE(grid%vv%v5(1,1,1),STAT=ierr)
3794 if (ierr.ne.0) then
3795 CALL wrf_error_fatal ( &
3796 'frame/module_domain.f: Failed to allocate grid%vv%v5(1,1,1). ')
3797 endif
3798 ENDIF
3799 IF(.NOT.inter_domain)THEN
3800 ALLOCATE(grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
3801 if (ierr.ne.0) then
3802 CALL wrf_error_fatal ( &
3803 'frame/module_domain.f: Failed to allocate grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
3804 endif
3805 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%alpha=initial_data_value
3806 ELSE
3807 ALLOCATE(grid%vv%alpha(1,1,1),STAT=ierr)
3808 if (ierr.ne.0) then
3809 CALL wrf_error_fatal ( &
3810 'frame/module_domain.f: Failed to allocate grid%vv%alpha(1,1,1). ')
3811 endif
3812 ENDIF
3813 IF(.NOT.inter_domain)THEN
3814 ALLOCATE(grid%vp%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3815 if (ierr.ne.0) then
3816 CALL wrf_error_fatal ( &
3817 'frame/module_domain.f: Failed to allocate grid%vp%v1(sm31:em31,sm32:em32,sm33:em33). ')
3818 endif
3819 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v1=initial_data_value
3820 ELSE
3821 ALLOCATE(grid%vp%v1(1,1,1),STAT=ierr)
3822 if (ierr.ne.0) then
3823 CALL wrf_error_fatal ( &
3824 'frame/module_domain.f: Failed to allocate grid%vp%v1(1,1,1). ')
3825 endif
3826 ENDIF
3827 IF(.NOT.inter_domain)THEN
3828 ALLOCATE(grid%vp%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3829 if (ierr.ne.0) then
3830 CALL wrf_error_fatal ( &
3831 'frame/module_domain.f: Failed to allocate grid%vp%v2(sm31:em31,sm32:em32,sm33:em33). ')
3832 endif
3833 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v2=initial_data_value
3834 ELSE
3835 ALLOCATE(grid%vp%v2(1,1,1),STAT=ierr)
3836 if (ierr.ne.0) then
3837 CALL wrf_error_fatal ( &
3838 'frame/module_domain.f: Failed to allocate grid%vp%v2(1,1,1). ')
3839 endif
3840 ENDIF
3841 IF(.NOT.inter_domain)THEN
3842 ALLOCATE(grid%vp%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3843 if (ierr.ne.0) then
3844 CALL wrf_error_fatal ( &
3845 'frame/module_domain.f: Failed to allocate grid%vp%v3(sm31:em31,sm32:em32,sm33:em33). ')
3846 endif
3847 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v3=initial_data_value
3848 ELSE
3849 ALLOCATE(grid%vp%v3(1,1,1),STAT=ierr)
3850 if (ierr.ne.0) then
3851 CALL wrf_error_fatal ( &
3852 'frame/module_domain.f: Failed to allocate grid%vp%v3(1,1,1). ')
3853 endif
3854 ENDIF
3855 IF(.NOT.inter_domain)THEN
3856 ALLOCATE(grid%vp%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3857 if (ierr.ne.0) then
3858 CALL wrf_error_fatal ( &
3859 'frame/module_domain.f: Failed to allocate grid%vp%v4(sm31:em31,sm32:em32,sm33:em33). ')
3860 endif
3861 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v4=initial_data_value
3862 ELSE
3863 ALLOCATE(grid%vp%v4(1,1,1),STAT=ierr)
3864 if (ierr.ne.0) then
3865 CALL wrf_error_fatal ( &
3866 'frame/module_domain.f: Failed to allocate grid%vp%v4(1,1,1). ')
3867 endif
3868 ENDIF
3869 IF(.NOT.inter_domain)THEN
3870 ALLOCATE(grid%vp%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3871 if (ierr.ne.0) then
3872 CALL wrf_error_fatal ( &
3873 'frame/module_domain.f: Failed to allocate grid%vp%v5(sm31:em31,sm32:em32,sm33:em33). ')
3874 endif
3875 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v5=initial_data_value
3876 ELSE
3877 ALLOCATE(grid%vp%v5(1,1,1),STAT=ierr)
3878 if (ierr.ne.0) then
3879 CALL wrf_error_fatal ( &
3880 'frame/module_domain.f: Failed to allocate grid%vp%v5(1,1,1). ')
3881 endif
3882 ENDIF
3883 IF(.NOT.inter_domain)THEN
3884 ALLOCATE(grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
3885 if (ierr.ne.0) then
3886 CALL wrf_error_fatal ( &
3887 'frame/module_domain.f: Failed to allocate grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
3888 endif
3889 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%alpha=initial_data_value
3890 ELSE
3891 ALLOCATE(grid%vp%alpha(1,1,1),STAT=ierr)
3892 if (ierr.ne.0) then
3893 CALL wrf_error_fatal ( &
3894 'frame/module_domain.f: Failed to allocate grid%vp%alpha(1,1,1). ')
3895 endif
3896 ENDIF
3897 IF ( setinitval .EQ. 3 ) grid%ep%ne=0
3898 IF(.NOT.inter_domain)THEN
3899 ALLOCATE(grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3900 if (ierr.ne.0) then
3901 CALL wrf_error_fatal ( &
3902 'frame/module_domain.f: Failed to allocate grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3903 endif
3904 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v1=initial_data_value
3905 ELSE
3906 ALLOCATE(grid%ep%v1(1,1,1,1),STAT=ierr)
3907 if (ierr.ne.0) then
3908 CALL wrf_error_fatal ( &
3909 'frame/module_domain.f: Failed to allocate grid%ep%v1(1,1,1,1). ')
3910 endif
3911 ENDIF
3912 IF(.NOT.inter_domain)THEN
3913 ALLOCATE(grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3914 if (ierr.ne.0) then
3915 CALL wrf_error_fatal ( &
3916 'frame/module_domain.f: Failed to allocate grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3917 endif
3918 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v2=initial_data_value
3919 ELSE
3920 ALLOCATE(grid%ep%v2(1,1,1,1),STAT=ierr)
3921 if (ierr.ne.0) then
3922 CALL wrf_error_fatal ( &
3923 'frame/module_domain.f: Failed to allocate grid%ep%v2(1,1,1,1). ')
3924 endif
3925 ENDIF
3926 IF(.NOT.inter_domain)THEN
3927 ALLOCATE(grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3928 if (ierr.ne.0) then
3929 CALL wrf_error_fatal ( &
3930 'frame/module_domain.f: Failed to allocate grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3931 endif
3932 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v3=initial_data_value
3933 ELSE
3934 ALLOCATE(grid%ep%v3(1,1,1,1),STAT=ierr)
3935 if (ierr.ne.0) then
3936 CALL wrf_error_fatal ( &
3937 'frame/module_domain.f: Failed to allocate grid%ep%v3(1,1,1,1). ')
3938 endif
3939 ENDIF
3940 IF(.NOT.inter_domain)THEN
3941 ALLOCATE(grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3942 if (ierr.ne.0) then
3943 CALL wrf_error_fatal ( &
3944 'frame/module_domain.f: Failed to allocate grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3945 endif
3946 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v4=initial_data_value
3947 ELSE
3948 ALLOCATE(grid%ep%v4(1,1,1,1),STAT=ierr)
3949 if (ierr.ne.0) then
3950 CALL wrf_error_fatal ( &
3951 'frame/module_domain.f: Failed to allocate grid%ep%v4(1,1,1,1). ')
3952 endif
3953 ENDIF
3954 IF(.NOT.inter_domain)THEN
3955 ALLOCATE(grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3956 if (ierr.ne.0) then
3957 CALL wrf_error_fatal ( &
3958 'frame/module_domain.f: Failed to allocate grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3959 endif
3960 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v5=initial_data_value
3961 ELSE
3962 ALLOCATE(grid%ep%v5(1,1,1,1),STAT=ierr)
3963 if (ierr.ne.0) then
3964 CALL wrf_error_fatal ( &
3965 'frame/module_domain.f: Failed to allocate grid%ep%v5(1,1,1,1). ')
3966 endif
3967 ENDIF
3968 IF ( setinitval .EQ. 3 ) grid%xb%map=0
3969 IF ( setinitval .EQ. 3 ) grid%xb%ptop=initial_data_value
3970 IF ( setinitval .EQ. 3 ) grid%xb%ztop=initial_data_value
3971 IF ( setinitval .EQ. 3 ) grid%xb%ps0=initial_data_value
3972 IF ( setinitval .EQ. 3 ) grid%xb%ts0=initial_data_value
3973 IF ( setinitval .EQ. 3 ) grid%xb%tlp=initial_data_value
3974 IF ( setinitval .EQ. 3 ) grid%xb%tis0=initial_data_value
3975 IF ( setinitval .EQ. 3 ) grid%xb%ds=initial_data_value
3976 IF ( setinitval .EQ. 3 ) grid%xb%sigmaf_0=initial_data_value
3977 IF ( setinitval .EQ. 3 ) grid%xb%mix=0
3978 IF ( setinitval .EQ. 3 ) grid%xb%mjy=0
3979 IF ( setinitval .EQ. 3 ) grid%xb%mkz=0
3980 IF ( setinitval .EQ. 3 ) grid%xb%num_of_var=0
3981 IF ( setinitval .EQ. 3 ) grid%xb%ids=0
3982 IF ( setinitval .EQ. 3 ) grid%xb%ide=0
3983 IF ( setinitval .EQ. 3 ) grid%xb%jds=0
3984 IF ( setinitval .EQ. 3 ) grid%xb%jde=0
3985 IF ( setinitval .EQ. 3 ) grid%xb%kds=0
3986 IF ( setinitval .EQ. 3 ) grid%xb%kde=0
3987 IF ( setinitval .EQ. 3 ) grid%xb%ims=0
3988 IF ( setinitval .EQ. 3 ) grid%xb%ime=0
3989 IF ( setinitval .EQ. 3 ) grid%xb%jms=0
3990 IF ( setinitval .EQ. 3 ) grid%xb%jme=0
3991 IF ( setinitval .EQ. 3 ) grid%xb%kms=0
3992 IF ( setinitval .EQ. 3 ) grid%xb%kme=0
3993 IF ( setinitval .EQ. 3 ) grid%xb%its=0
3994 IF ( setinitval .EQ. 3 ) grid%xb%ite=0
3995 IF ( setinitval .EQ. 3 ) grid%xb%jts=0
3996 IF ( setinitval .EQ. 3 ) grid%xb%jte=0
3997 IF ( setinitval .EQ. 3 ) grid%xb%kts=0
3998 IF ( setinitval .EQ. 3 ) grid%xb%kte=0
3999 IF(.NOT.inter_domain)THEN
4000 ALLOCATE(grid%xb%grid_box_area(sm31:em31,sm32:em32),STAT=ierr)
4001 if (ierr.ne.0) then
4002 CALL wrf_error_fatal ( &
4003 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(sm31:em31,sm32:em32). ')
4004 endif
4005 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%grid_box_area=initial_data_value
4006 ELSE
4007 ALLOCATE(grid%xb%grid_box_area(1,1),STAT=ierr)
4008 if (ierr.ne.0) then
4009 CALL wrf_error_fatal ( &
4010 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(1,1). ')
4011 endif
4012 ENDIF
4013 IF(.NOT.inter_domain)THEN
4014 ALLOCATE(grid%xb%map_factor(sm31:em31,sm32:em32),STAT=ierr)
4015 if (ierr.ne.0) then
4016 CALL wrf_error_fatal ( &
4017 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(sm31:em31,sm32:em32). ')
4018 endif
4019 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%map_factor=initial_data_value
4020 ELSE
4021 ALLOCATE(grid%xb%map_factor(1,1),STAT=ierr)
4022 if (ierr.ne.0) then
4023 CALL wrf_error_fatal ( &
4024 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(1,1). ')
4025 endif
4026 ENDIF
4027 IF(.NOT.inter_domain)THEN
4028 ALLOCATE(grid%xb%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4029 if (ierr.ne.0) then
4030 CALL wrf_error_fatal ( &
4031 'frame/module_domain.f: Failed to allocate grid%xb%u(sm31:em31,sm32:em32,sm33:em33). ')
4032 endif
4033 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u=initial_data_value
4034 ELSE
4035 ALLOCATE(grid%xb%u(1,1,1),STAT=ierr)
4036 if (ierr.ne.0) then
4037 CALL wrf_error_fatal ( &
4038 'frame/module_domain.f: Failed to allocate grid%xb%u(1,1,1). ')
4039 endif
4040 ENDIF
4041 IF(.NOT.inter_domain)THEN
4042 ALLOCATE(grid%xb%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4043 if (ierr.ne.0) then
4044 CALL wrf_error_fatal ( &
4045 'frame/module_domain.f: Failed to allocate grid%xb%v(sm31:em31,sm32:em32,sm33:em33). ')
4046 endif
4047 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v=initial_data_value
4048 ELSE
4049 ALLOCATE(grid%xb%v(1,1,1),STAT=ierr)
4050 if (ierr.ne.0) then
4051 CALL wrf_error_fatal ( &
4052 'frame/module_domain.f: Failed to allocate grid%xb%v(1,1,1). ')
4053 endif
4054 ENDIF
4055 IF(.NOT.inter_domain)THEN
4056 ALLOCATE(grid%xb%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4057 if (ierr.ne.0) then
4058 CALL wrf_error_fatal ( &
4059 'frame/module_domain.f: Failed to allocate grid%xb%w(sm31:em31,sm32:em32,sm33:em33). ')
4060 endif
4061 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%w=initial_data_value
4062 ELSE
4063 ALLOCATE(grid%xb%w(1,1,1),STAT=ierr)
4064 if (ierr.ne.0) then
4065 CALL wrf_error_fatal ( &
4066 'frame/module_domain.f: Failed to allocate grid%xb%w(1,1,1). ')
4067 endif
4068 ENDIF
4069 IF(.NOT.inter_domain)THEN
4070 ALLOCATE(grid%xb%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4071 if (ierr.ne.0) then
4072 CALL wrf_error_fatal ( &
4073 'frame/module_domain.f: Failed to allocate grid%xb%t(sm31:em31,sm32:em32,sm33:em33). ')
4074 endif
4075 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t=initial_data_value
4076 ELSE
4077 ALLOCATE(grid%xb%t(1,1,1),STAT=ierr)
4078 if (ierr.ne.0) then
4079 CALL wrf_error_fatal ( &
4080 'frame/module_domain.f: Failed to allocate grid%xb%t(1,1,1). ')
4081 endif
4082 ENDIF
4083 IF(.NOT.inter_domain)THEN
4084 ALLOCATE(grid%xb%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4085 if (ierr.ne.0) then
4086 CALL wrf_error_fatal ( &
4087 'frame/module_domain.f: Failed to allocate grid%xb%p(sm31:em31,sm32:em32,sm33:em33). ')
4088 endif
4089 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%p=initial_data_value
4090 ELSE
4091 ALLOCATE(grid%xb%p(1,1,1),STAT=ierr)
4092 if (ierr.ne.0) then
4093 CALL wrf_error_fatal ( &
4094 'frame/module_domain.f: Failed to allocate grid%xb%p(1,1,1). ')
4095 endif
4096 ENDIF
4097 IF(.NOT.inter_domain)THEN
4098 ALLOCATE(grid%xb%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4099 if (ierr.ne.0) then
4100 CALL wrf_error_fatal ( &
4101 'frame/module_domain.f: Failed to allocate grid%xb%q(sm31:em31,sm32:em32,sm33:em33). ')
4102 endif
4103 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q=initial_data_value
4104 ELSE
4105 ALLOCATE(grid%xb%q(1,1,1),STAT=ierr)
4106 if (ierr.ne.0) then
4107 CALL wrf_error_fatal ( &
4108 'frame/module_domain.f: Failed to allocate grid%xb%q(1,1,1). ')
4109 endif
4110 ENDIF
4111 IF(.NOT.inter_domain)THEN
4112 ALLOCATE(grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4113 if (ierr.ne.0) then
4114 CALL wrf_error_fatal ( &
4115 'frame/module_domain.f: Failed to allocate grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33). ')
4116 endif
4117 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qrn=initial_data_value
4118 ELSE
4119 ALLOCATE(grid%xb%qrn(1,1,1),STAT=ierr)
4120 if (ierr.ne.0) then
4121 CALL wrf_error_fatal ( &
4122 'frame/module_domain.f: Failed to allocate grid%xb%qrn(1,1,1). ')
4123 endif
4124 ENDIF
4125 IF(.NOT.inter_domain)THEN
4126 ALLOCATE(grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4127 if (ierr.ne.0) then
4128 CALL wrf_error_fatal ( &
4129 'frame/module_domain.f: Failed to allocate grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33). ')
4130 endif
4131 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qcw=initial_data_value
4132 ELSE
4133 ALLOCATE(grid%xb%qcw(1,1,1),STAT=ierr)
4134 if (ierr.ne.0) then
4135 CALL wrf_error_fatal ( &
4136 'frame/module_domain.f: Failed to allocate grid%xb%qcw(1,1,1). ')
4137 endif
4138 ENDIF
4139 IF(.NOT.inter_domain)THEN
4140 ALLOCATE(grid%xb%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4141 if (ierr.ne.0) then
4142 CALL wrf_error_fatal ( &
4143 'frame/module_domain.f: Failed to allocate grid%xb%qci(sm31:em31,sm32:em32,sm33:em33). ')
4144 endif
4145 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qci=initial_data_value
4146 ELSE
4147 ALLOCATE(grid%xb%qci(1,1,1),STAT=ierr)
4148 if (ierr.ne.0) then
4149 CALL wrf_error_fatal ( &
4150 'frame/module_domain.f: Failed to allocate grid%xb%qci(1,1,1). ')
4151 endif
4152 ENDIF
4153 IF(.NOT.inter_domain)THEN
4154 ALLOCATE(grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4155 if (ierr.ne.0) then
4156 CALL wrf_error_fatal ( &
4157 'frame/module_domain.f: Failed to allocate grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33). ')
4158 endif
4159 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qsn=initial_data_value
4160 ELSE
4161 ALLOCATE(grid%xb%qsn(1,1,1),STAT=ierr)
4162 if (ierr.ne.0) then
4163 CALL wrf_error_fatal ( &
4164 'frame/module_domain.f: Failed to allocate grid%xb%qsn(1,1,1). ')
4165 endif
4166 ENDIF
4167 IF(.NOT.inter_domain)THEN
4168 ALLOCATE(grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4169 if (ierr.ne.0) then
4170 CALL wrf_error_fatal ( &
4171 'frame/module_domain.f: Failed to allocate grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33). ')
4172 endif
4173 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qgr=initial_data_value
4174 ELSE
4175 ALLOCATE(grid%xb%qgr(1,1,1),STAT=ierr)
4176 if (ierr.ne.0) then
4177 CALL wrf_error_fatal ( &
4178 'frame/module_domain.f: Failed to allocate grid%xb%qgr(1,1,1). ')
4179 endif
4180 ENDIF
4181 IF(.NOT.inter_domain)THEN
4182 ALLOCATE(grid%xb%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4183 if (ierr.ne.0) then
4184 CALL wrf_error_fatal ( &
4185 'frame/module_domain.f: Failed to allocate grid%xb%qt(sm31:em31,sm32:em32,sm33:em33). ')
4186 endif
4187 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qt=initial_data_value
4188 ELSE
4189 ALLOCATE(grid%xb%qt(1,1,1),STAT=ierr)
4190 if (ierr.ne.0) then
4191 CALL wrf_error_fatal ( &
4192 'frame/module_domain.f: Failed to allocate grid%xb%qt(1,1,1). ')
4193 endif
4194 ENDIF
4195 IF(.NOT.inter_domain)THEN
4196 ALLOCATE(grid%xb%delt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4197 if (ierr.ne.0) then
4198 CALL wrf_error_fatal ( &
4199 'frame/module_domain.f: Failed to allocate grid%xb%delt(sm31:em31,sm32:em32,sm33:em33). ')
4200 endif
4201 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%delt=initial_data_value
4202 ELSE
4203 ALLOCATE(grid%xb%delt(1,1,1),STAT=ierr)
4204 if (ierr.ne.0) then
4205 CALL wrf_error_fatal ( &
4206 'frame/module_domain.f: Failed to allocate grid%xb%delt(1,1,1). ')
4207 endif
4208 ENDIF
4209 IF(.NOT.inter_domain)THEN
4210 ALLOCATE(grid%xb%h(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4211 if (ierr.ne.0) then
4212 CALL wrf_error_fatal ( &
4213 'frame/module_domain.f: Failed to allocate grid%xb%h(sm31:em31,sm32:em32,sm33:em33). ')
4214 endif
4215 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%h=initial_data_value
4216 ELSE
4217 ALLOCATE(grid%xb%h(1,1,1),STAT=ierr)
4218 if (ierr.ne.0) then
4219 CALL wrf_error_fatal ( &
4220 'frame/module_domain.f: Failed to allocate grid%xb%h(1,1,1). ')
4221 endif
4222 ENDIF
4223 IF(.NOT.inter_domain)THEN
4224 ALLOCATE(grid%xb%hf(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4225 if (ierr.ne.0) then
4226 CALL wrf_error_fatal ( &
4227 'frame/module_domain.f: Failed to allocate grid%xb%hf(sm31:em31,sm32:em32,sm33:em33). ')
4228 endif
4229 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%hf=initial_data_value
4230 ELSE
4231 ALLOCATE(grid%xb%hf(1,1,1),STAT=ierr)
4232 if (ierr.ne.0) then
4233 CALL wrf_error_fatal ( &
4234 'frame/module_domain.f: Failed to allocate grid%xb%hf(1,1,1). ')
4235 endif
4236 ENDIF
4237 IF(.NOT.inter_domain)THEN
4238 ALLOCATE(grid%xb%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4239 if (ierr.ne.0) then
4240 CALL wrf_error_fatal ( &
4241 'frame/module_domain.f: Failed to allocate grid%xb%wh(sm31:em31,sm32:em32,sm33:em33). ')
4242 endif
4243 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%wh=initial_data_value
4244 ELSE
4245 ALLOCATE(grid%xb%wh(1,1,1),STAT=ierr)
4246 if (ierr.ne.0) then
4247 CALL wrf_error_fatal ( &
4248 'frame/module_domain.f: Failed to allocate grid%xb%wh(1,1,1). ')
4249 endif
4250 ENDIF
4251 IF(.NOT.inter_domain)THEN
4252 ALLOCATE(grid%xb%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4253 if (ierr.ne.0) then
4254 CALL wrf_error_fatal ( &
4255 'frame/module_domain.f: Failed to allocate grid%xb%rho(sm31:em31,sm32:em32,sm33:em33). ')
4256 endif
4257 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rho=initial_data_value
4258 ELSE
4259 ALLOCATE(grid%xb%rho(1,1,1),STAT=ierr)
4260 if (ierr.ne.0) then
4261 CALL wrf_error_fatal ( &
4262 'frame/module_domain.f: Failed to allocate grid%xb%rho(1,1,1). ')
4263 endif
4264 ENDIF
4265 IF(.NOT.inter_domain)THEN
4266 ALLOCATE(grid%xb%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4267 if (ierr.ne.0) then
4268 CALL wrf_error_fatal ( &
4269 'frame/module_domain.f: Failed to allocate grid%xb%rh(sm31:em31,sm32:em32,sm33:em33). ')
4270 endif
4271 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rh=initial_data_value
4272 ELSE
4273 ALLOCATE(grid%xb%rh(1,1,1),STAT=ierr)
4274 if (ierr.ne.0) then
4275 CALL wrf_error_fatal ( &
4276 'frame/module_domain.f: Failed to allocate grid%xb%rh(1,1,1). ')
4277 endif
4278 ENDIF
4279 IF(.NOT.inter_domain)THEN
4280 ALLOCATE(grid%xb%es(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4281 if (ierr.ne.0) then
4282 CALL wrf_error_fatal ( &
4283 'frame/module_domain.f: Failed to allocate grid%xb%es(sm31:em31,sm32:em32,sm33:em33). ')
4284 endif
4285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%es=initial_data_value
4286 ELSE
4287 ALLOCATE(grid%xb%es(1,1,1),STAT=ierr)
4288 if (ierr.ne.0) then
4289 CALL wrf_error_fatal ( &
4290 'frame/module_domain.f: Failed to allocate grid%xb%es(1,1,1). ')
4291 endif
4292 ENDIF
4293 IF(.NOT.inter_domain)THEN
4294 ALLOCATE(grid%xb%qs(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4295 if (ierr.ne.0) then
4296 CALL wrf_error_fatal ( &
4297 'frame/module_domain.f: Failed to allocate grid%xb%qs(sm31:em31,sm32:em32,sm33:em33). ')
4298 endif
4299 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qs=initial_data_value
4300 ELSE
4301 ALLOCATE(grid%xb%qs(1,1,1),STAT=ierr)
4302 if (ierr.ne.0) then
4303 CALL wrf_error_fatal ( &
4304 'frame/module_domain.f: Failed to allocate grid%xb%qs(1,1,1). ')
4305 endif
4306 ENDIF
4307 IF(.NOT.inter_domain)THEN
4308 ALLOCATE(grid%xb%td(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4309 if (ierr.ne.0) then
4310 CALL wrf_error_fatal ( &
4311 'frame/module_domain.f: Failed to allocate grid%xb%td(sm31:em31,sm32:em32,sm33:em33). ')
4312 endif
4313 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%td=initial_data_value
4314 ELSE
4315 ALLOCATE(grid%xb%td(1,1,1),STAT=ierr)
4316 if (ierr.ne.0) then
4317 CALL wrf_error_fatal ( &
4318 'frame/module_domain.f: Failed to allocate grid%xb%td(1,1,1). ')
4319 endif
4320 ENDIF
4321 IF(.NOT.inter_domain)THEN
4322 ALLOCATE(grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4323 if (ierr.ne.0) then
4324 CALL wrf_error_fatal ( &
4325 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33). ')
4326 endif
4327 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vertical_inner_product=initial_data_value
4328 ELSE
4329 ALLOCATE(grid%xb%vertical_inner_product(1,1,1),STAT=ierr)
4330 if (ierr.ne.0) then
4331 CALL wrf_error_fatal ( &
4332 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(1,1,1). ')
4333 endif
4334 ENDIF
4335 IF(.NOT.inter_domain)THEN
4336 ALLOCATE(grid%xb%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4337 if (ierr.ne.0) then
4338 CALL wrf_error_fatal ( &
4339 'frame/module_domain.f: Failed to allocate grid%xb%ref(sm31:em31,sm32:em32,sm33:em33). ')
4340 endif
4341 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ref=initial_data_value
4342 ELSE
4343 ALLOCATE(grid%xb%ref(1,1,1),STAT=ierr)
4344 if (ierr.ne.0) then
4345 CALL wrf_error_fatal ( &
4346 'frame/module_domain.f: Failed to allocate grid%xb%ref(1,1,1). ')
4347 endif
4348 ENDIF
4349 IF(.NOT.inter_domain)THEN
4350 ALLOCATE(grid%xb%rough(sm31:em31,sm32:em32),STAT=ierr)
4351 if (ierr.ne.0) then
4352 CALL wrf_error_fatal ( &
4353 'frame/module_domain.f: Failed to allocate grid%xb%rough(sm31:em31,sm32:em32). ')
4354 endif
4355 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rough=initial_data_value
4356 ELSE
4357 ALLOCATE(grid%xb%rough(1,1),STAT=ierr)
4358 if (ierr.ne.0) then
4359 CALL wrf_error_fatal ( &
4360 'frame/module_domain.f: Failed to allocate grid%xb%rough(1,1). ')
4361 endif
4362 ENDIF
4363 IF(.NOT.inter_domain)THEN
4364 ALLOCATE(grid%xb%tpw(sm31:em31,sm32:em32),STAT=ierr)
4365 if (ierr.ne.0) then
4366 CALL wrf_error_fatal ( &
4367 'frame/module_domain.f: Failed to allocate grid%xb%tpw(sm31:em31,sm32:em32). ')
4368 endif
4369 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tpw=initial_data_value
4370 ELSE
4371 ALLOCATE(grid%xb%tpw(1,1),STAT=ierr)
4372 if (ierr.ne.0) then
4373 CALL wrf_error_fatal ( &
4374 'frame/module_domain.f: Failed to allocate grid%xb%tpw(1,1). ')
4375 endif
4376 ENDIF
4377 IF(.NOT.inter_domain)THEN
4378 ALLOCATE(grid%xb%slp(sm31:em31,sm32:em32),STAT=ierr)
4379 if (ierr.ne.0) then
4380 CALL wrf_error_fatal ( &
4381 'frame/module_domain.f: Failed to allocate grid%xb%slp(sm31:em31,sm32:em32). ')
4382 endif
4383 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%slp=initial_data_value
4384 ELSE
4385 ALLOCATE(grid%xb%slp(1,1),STAT=ierr)
4386 if (ierr.ne.0) then
4387 CALL wrf_error_fatal ( &
4388 'frame/module_domain.f: Failed to allocate grid%xb%slp(1,1). ')
4389 endif
4390 ENDIF
4391 IF(.NOT.inter_domain)THEN
4392 ALLOCATE(grid%xb%speed(sm31:em31,sm32:em32),STAT=ierr)
4393 if (ierr.ne.0) then
4394 CALL wrf_error_fatal ( &
4395 'frame/module_domain.f: Failed to allocate grid%xb%speed(sm31:em31,sm32:em32). ')
4396 endif
4397 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%speed=initial_data_value
4398 ELSE
4399 ALLOCATE(grid%xb%speed(1,1),STAT=ierr)
4400 if (ierr.ne.0) then
4401 CALL wrf_error_fatal ( &
4402 'frame/module_domain.f: Failed to allocate grid%xb%speed(1,1). ')
4403 endif
4404 ENDIF
4405 IF(.NOT.inter_domain)THEN
4406 ALLOCATE(grid%xb%tb19v(sm31:em31,sm32:em32),STAT=ierr)
4407 if (ierr.ne.0) then
4408 CALL wrf_error_fatal ( &
4409 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(sm31:em31,sm32:em32). ')
4410 endif
4411 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19v=initial_data_value
4412 ELSE
4413 ALLOCATE(grid%xb%tb19v(1,1),STAT=ierr)
4414 if (ierr.ne.0) then
4415 CALL wrf_error_fatal ( &
4416 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(1,1). ')
4417 endif
4418 ENDIF
4419 IF(.NOT.inter_domain)THEN
4420 ALLOCATE(grid%xb%tb19h(sm31:em31,sm32:em32),STAT=ierr)
4421 if (ierr.ne.0) then
4422 CALL wrf_error_fatal ( &
4423 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(sm31:em31,sm32:em32). ')
4424 endif
4425 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19h=initial_data_value
4426 ELSE
4427 ALLOCATE(grid%xb%tb19h(1,1),STAT=ierr)
4428 if (ierr.ne.0) then
4429 CALL wrf_error_fatal ( &
4430 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(1,1). ')
4431 endif
4432 ENDIF
4433 IF(.NOT.inter_domain)THEN
4434 ALLOCATE(grid%xb%tb22v(sm31:em31,sm32:em32),STAT=ierr)
4435 if (ierr.ne.0) then
4436 CALL wrf_error_fatal ( &
4437 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(sm31:em31,sm32:em32). ')
4438 endif
4439 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb22v=initial_data_value
4440 ELSE
4441 ALLOCATE(grid%xb%tb22v(1,1),STAT=ierr)
4442 if (ierr.ne.0) then
4443 CALL wrf_error_fatal ( &
4444 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(1,1). ')
4445 endif
4446 ENDIF
4447 IF(.NOT.inter_domain)THEN
4448 ALLOCATE(grid%xb%tb37v(sm31:em31,sm32:em32),STAT=ierr)
4449 if (ierr.ne.0) then
4450 CALL wrf_error_fatal ( &
4451 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(sm31:em31,sm32:em32). ')
4452 endif
4453 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37v=initial_data_value
4454 ELSE
4455 ALLOCATE(grid%xb%tb37v(1,1),STAT=ierr)
4456 if (ierr.ne.0) then
4457 CALL wrf_error_fatal ( &
4458 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(1,1). ')
4459 endif
4460 ENDIF
4461 IF(.NOT.inter_domain)THEN
4462 ALLOCATE(grid%xb%tb37h(sm31:em31,sm32:em32),STAT=ierr)
4463 if (ierr.ne.0) then
4464 CALL wrf_error_fatal ( &
4465 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(sm31:em31,sm32:em32). ')
4466 endif
4467 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37h=initial_data_value
4468 ELSE
4469 ALLOCATE(grid%xb%tb37h(1,1),STAT=ierr)
4470 if (ierr.ne.0) then
4471 CALL wrf_error_fatal ( &
4472 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(1,1). ')
4473 endif
4474 ENDIF
4475 IF(.NOT.inter_domain)THEN
4476 ALLOCATE(grid%xb%tb85v(sm31:em31,sm32:em32),STAT=ierr)
4477 if (ierr.ne.0) then
4478 CALL wrf_error_fatal ( &
4479 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(sm31:em31,sm32:em32). ')
4480 endif
4481 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85v=initial_data_value
4482 ELSE
4483 ALLOCATE(grid%xb%tb85v(1,1),STAT=ierr)
4484 if (ierr.ne.0) then
4485 CALL wrf_error_fatal ( &
4486 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(1,1). ')
4487 endif
4488 ENDIF
4489 IF(.NOT.inter_domain)THEN
4490 ALLOCATE(grid%xb%tb85h(sm31:em31,sm32:em32),STAT=ierr)
4491 if (ierr.ne.0) then
4492 CALL wrf_error_fatal ( &
4493 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(sm31:em31,sm32:em32). ')
4494 endif
4495 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85h=initial_data_value
4496 ELSE
4497 ALLOCATE(grid%xb%tb85h(1,1),STAT=ierr)
4498 if (ierr.ne.0) then
4499 CALL wrf_error_fatal ( &
4500 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(1,1). ')
4501 endif
4502 ENDIF
4503 IF(.NOT.inter_domain)THEN
4504 ALLOCATE(grid%xb%cori(sm31:em31,sm32:em32),STAT=ierr)
4505 if (ierr.ne.0) then
4506 CALL wrf_error_fatal ( &
4507 'frame/module_domain.f: Failed to allocate grid%xb%cori(sm31:em31,sm32:em32). ')
4508 endif
4509 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%cori=initial_data_value
4510 ELSE
4511 ALLOCATE(grid%xb%cori(1,1),STAT=ierr)
4512 if (ierr.ne.0) then
4513 CALL wrf_error_fatal ( &
4514 'frame/module_domain.f: Failed to allocate grid%xb%cori(1,1). ')
4515 endif
4516 ENDIF
4517 IF(.NOT.inter_domain)THEN
4518 ALLOCATE(grid%xb%tgrn(sm31:em31,sm32:em32),STAT=ierr)
4519 if (ierr.ne.0) then
4520 CALL wrf_error_fatal ( &
4521 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(sm31:em31,sm32:em32). ')
4522 endif
4523 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tgrn=initial_data_value
4524 ELSE
4525 ALLOCATE(grid%xb%tgrn(1,1),STAT=ierr)
4526 if (ierr.ne.0) then
4527 CALL wrf_error_fatal ( &
4528 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(1,1). ')
4529 endif
4530 ENDIF
4531 IF(.NOT.inter_domain)THEN
4532 ALLOCATE(grid%xb%lat(sm31:em31,sm32:em32),STAT=ierr)
4533 if (ierr.ne.0) then
4534 CALL wrf_error_fatal ( &
4535 'frame/module_domain.f: Failed to allocate grid%xb%lat(sm31:em31,sm32:em32). ')
4536 endif
4537 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lat=initial_data_value
4538 ELSE
4539 ALLOCATE(grid%xb%lat(1,1),STAT=ierr)
4540 if (ierr.ne.0) then
4541 CALL wrf_error_fatal ( &
4542 'frame/module_domain.f: Failed to allocate grid%xb%lat(1,1). ')
4543 endif
4544 ENDIF
4545 IF(.NOT.inter_domain)THEN
4546 ALLOCATE(grid%xb%lon(sm31:em31,sm32:em32),STAT=ierr)
4547 if (ierr.ne.0) then
4548 CALL wrf_error_fatal ( &
4549 'frame/module_domain.f: Failed to allocate grid%xb%lon(sm31:em31,sm32:em32). ')
4550 endif
4551 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lon=initial_data_value
4552 ELSE
4553 ALLOCATE(grid%xb%lon(1,1),STAT=ierr)
4554 if (ierr.ne.0) then
4555 CALL wrf_error_fatal ( &
4556 'frame/module_domain.f: Failed to allocate grid%xb%lon(1,1). ')
4557 endif
4558 ENDIF
4559 IF(.NOT.inter_domain)THEN
4560 ALLOCATE(grid%xb%terr(sm31:em31,sm32:em32),STAT=ierr)
4561 if (ierr.ne.0) then
4562 CALL wrf_error_fatal ( &
4563 'frame/module_domain.f: Failed to allocate grid%xb%terr(sm31:em31,sm32:em32). ')
4564 endif
4565 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%terr=initial_data_value
4566 ELSE
4567 ALLOCATE(grid%xb%terr(1,1),STAT=ierr)
4568 if (ierr.ne.0) then
4569 CALL wrf_error_fatal ( &
4570 'frame/module_domain.f: Failed to allocate grid%xb%terr(1,1). ')
4571 endif
4572 ENDIF
4573 IF(.NOT.inter_domain)THEN
4574 ALLOCATE(grid%xb%psac(sm31:em31,sm32:em32),STAT=ierr)
4575 if (ierr.ne.0) then
4576 CALL wrf_error_fatal ( &
4577 'frame/module_domain.f: Failed to allocate grid%xb%psac(sm31:em31,sm32:em32). ')
4578 endif
4579 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psac=initial_data_value
4580 ELSE
4581 ALLOCATE(grid%xb%psac(1,1),STAT=ierr)
4582 if (ierr.ne.0) then
4583 CALL wrf_error_fatal ( &
4584 'frame/module_domain.f: Failed to allocate grid%xb%psac(1,1). ')
4585 endif
4586 ENDIF
4587 IF(.NOT.inter_domain)THEN
4588 ALLOCATE(grid%xb%lanu(sm31:em31,sm32:em32),STAT=ierr)
4589 if (ierr.ne.0) then
4590 CALL wrf_error_fatal ( &
4591 'frame/module_domain.f: Failed to allocate grid%xb%lanu(sm31:em31,sm32:em32). ')
4592 endif
4593 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lanu=initial_data_value
4594 ELSE
4595 ALLOCATE(grid%xb%lanu(1,1),STAT=ierr)
4596 if (ierr.ne.0) then
4597 CALL wrf_error_fatal ( &
4598 'frame/module_domain.f: Failed to allocate grid%xb%lanu(1,1). ')
4599 endif
4600 ENDIF
4601 IF(.NOT.inter_domain)THEN
4602 ALLOCATE(grid%xb%snow(sm31:em31,sm32:em32),STAT=ierr)
4603 if (ierr.ne.0) then
4604 CALL wrf_error_fatal ( &
4605 'frame/module_domain.f: Failed to allocate grid%xb%snow(sm31:em31,sm32:em32). ')
4606 endif
4607 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snow=initial_data_value
4608 ELSE
4609 ALLOCATE(grid%xb%snow(1,1),STAT=ierr)
4610 if (ierr.ne.0) then
4611 CALL wrf_error_fatal ( &
4612 'frame/module_domain.f: Failed to allocate grid%xb%snow(1,1). ')
4613 endif
4614 ENDIF
4615 IF(.NOT.inter_domain)THEN
4616 ALLOCATE(grid%xb%xland(sm31:em31,sm32:em32),STAT=ierr)
4617 if (ierr.ne.0) then
4618 CALL wrf_error_fatal ( &
4619 'frame/module_domain.f: Failed to allocate grid%xb%xland(sm31:em31,sm32:em32). ')
4620 endif
4621 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xland=initial_data_value
4622 ELSE
4623 ALLOCATE(grid%xb%xland(1,1),STAT=ierr)
4624 if (ierr.ne.0) then
4625 CALL wrf_error_fatal ( &
4626 'frame/module_domain.f: Failed to allocate grid%xb%xland(1,1). ')
4627 endif
4628 ENDIF
4629 IF(.NOT.inter_domain)THEN
4630 ALLOCATE(grid%xb%landmask(sm31:em31,sm32:em32),STAT=ierr)
4631 if (ierr.ne.0) then
4632 CALL wrf_error_fatal ( &
4633 'frame/module_domain.f: Failed to allocate grid%xb%landmask(sm31:em31,sm32:em32). ')
4634 endif
4635 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%landmask=initial_data_value
4636 ELSE
4637 ALLOCATE(grid%xb%landmask(1,1),STAT=ierr)
4638 if (ierr.ne.0) then
4639 CALL wrf_error_fatal ( &
4640 'frame/module_domain.f: Failed to allocate grid%xb%landmask(1,1). ')
4641 endif
4642 ENDIF
4643 IF(.NOT.inter_domain)THEN
4644 ALLOCATE(grid%xb%u10(sm31:em31,sm32:em32),STAT=ierr)
4645 if (ierr.ne.0) then
4646 CALL wrf_error_fatal ( &
4647 'frame/module_domain.f: Failed to allocate grid%xb%u10(sm31:em31,sm32:em32). ')
4648 endif
4649 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u10=initial_data_value
4650 ELSE
4651 ALLOCATE(grid%xb%u10(1,1),STAT=ierr)
4652 if (ierr.ne.0) then
4653 CALL wrf_error_fatal ( &
4654 'frame/module_domain.f: Failed to allocate grid%xb%u10(1,1). ')
4655 endif
4656 ENDIF
4657 IF(.NOT.inter_domain)THEN
4658 ALLOCATE(grid%xb%v10(sm31:em31,sm32:em32),STAT=ierr)
4659 if (ierr.ne.0) then
4660 CALL wrf_error_fatal ( &
4661 'frame/module_domain.f: Failed to allocate grid%xb%v10(sm31:em31,sm32:em32). ')
4662 endif
4663 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v10=initial_data_value
4664 ELSE
4665 ALLOCATE(grid%xb%v10(1,1),STAT=ierr)
4666 if (ierr.ne.0) then
4667 CALL wrf_error_fatal ( &
4668 'frame/module_domain.f: Failed to allocate grid%xb%v10(1,1). ')
4669 endif
4670 ENDIF
4671 IF(.NOT.inter_domain)THEN
4672 ALLOCATE(grid%xb%t2(sm31:em31,sm32:em32),STAT=ierr)
4673 if (ierr.ne.0) then
4674 CALL wrf_error_fatal ( &
4675 'frame/module_domain.f: Failed to allocate grid%xb%t2(sm31:em31,sm32:em32). ')
4676 endif
4677 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t2=initial_data_value
4678 ELSE
4679 ALLOCATE(grid%xb%t2(1,1),STAT=ierr)
4680 if (ierr.ne.0) then
4681 CALL wrf_error_fatal ( &
4682 'frame/module_domain.f: Failed to allocate grid%xb%t2(1,1). ')
4683 endif
4684 ENDIF
4685 IF(.NOT.inter_domain)THEN
4686 ALLOCATE(grid%xb%q2(sm31:em31,sm32:em32),STAT=ierr)
4687 if (ierr.ne.0) then
4688 CALL wrf_error_fatal ( &
4689 'frame/module_domain.f: Failed to allocate grid%xb%q2(sm31:em31,sm32:em32). ')
4690 endif
4691 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q2=initial_data_value
4692 ELSE
4693 ALLOCATE(grid%xb%q2(1,1),STAT=ierr)
4694 if (ierr.ne.0) then
4695 CALL wrf_error_fatal ( &
4696 'frame/module_domain.f: Failed to allocate grid%xb%q2(1,1). ')
4697 endif
4698 ENDIF
4699 IF(.NOT.inter_domain)THEN
4700 ALLOCATE(grid%xb%psfc(sm31:em31,sm32:em32),STAT=ierr)
4701 if (ierr.ne.0) then
4702 CALL wrf_error_fatal ( &
4703 'frame/module_domain.f: Failed to allocate grid%xb%psfc(sm31:em31,sm32:em32). ')
4704 endif
4705 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psfc=initial_data_value
4706 ELSE
4707 ALLOCATE(grid%xb%psfc(1,1),STAT=ierr)
4708 if (ierr.ne.0) then
4709 CALL wrf_error_fatal ( &
4710 'frame/module_domain.f: Failed to allocate grid%xb%psfc(1,1). ')
4711 endif
4712 ENDIF
4713 IF(.NOT.inter_domain)THEN
4714 ALLOCATE(grid%xb%tsk(sm31:em31,sm32:em32),STAT=ierr)
4715 if (ierr.ne.0) then
4716 CALL wrf_error_fatal ( &
4717 'frame/module_domain.f: Failed to allocate grid%xb%tsk(sm31:em31,sm32:em32). ')
4718 endif
4719 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tsk=initial_data_value
4720 ELSE
4721 ALLOCATE(grid%xb%tsk(1,1),STAT=ierr)
4722 if (ierr.ne.0) then
4723 CALL wrf_error_fatal ( &
4724 'frame/module_domain.f: Failed to allocate grid%xb%tsk(1,1). ')
4725 endif
4726 ENDIF
4727 IF(.NOT.inter_domain)THEN
4728 ALLOCATE(grid%xb%smois(sm31:em31,sm32:em32),STAT=ierr)
4729 if (ierr.ne.0) then
4730 CALL wrf_error_fatal ( &
4731 'frame/module_domain.f: Failed to allocate grid%xb%smois(sm31:em31,sm32:em32). ')
4732 endif
4733 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%smois=initial_data_value
4734 ELSE
4735 ALLOCATE(grid%xb%smois(1,1),STAT=ierr)
4736 if (ierr.ne.0) then
4737 CALL wrf_error_fatal ( &
4738 'frame/module_domain.f: Failed to allocate grid%xb%smois(1,1). ')
4739 endif
4740 ENDIF
4741 IF(.NOT.inter_domain)THEN
4742 ALLOCATE(grid%xb%tslb(sm31:em31,sm32:em32),STAT=ierr)
4743 if (ierr.ne.0) then
4744 CALL wrf_error_fatal ( &
4745 'frame/module_domain.f: Failed to allocate grid%xb%tslb(sm31:em31,sm32:em32). ')
4746 endif
4747 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tslb=initial_data_value
4748 ELSE
4749 ALLOCATE(grid%xb%tslb(1,1),STAT=ierr)
4750 if (ierr.ne.0) then
4751 CALL wrf_error_fatal ( &
4752 'frame/module_domain.f: Failed to allocate grid%xb%tslb(1,1). ')
4753 endif
4754 ENDIF
4755 IF(.NOT.inter_domain)THEN
4756 ALLOCATE(grid%xb%xice(sm31:em31,sm32:em32),STAT=ierr)
4757 if (ierr.ne.0) then
4758 CALL wrf_error_fatal ( &
4759 'frame/module_domain.f: Failed to allocate grid%xb%xice(sm31:em31,sm32:em32). ')
4760 endif
4761 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xice=initial_data_value
4762 ELSE
4763 ALLOCATE(grid%xb%xice(1,1),STAT=ierr)
4764 if (ierr.ne.0) then
4765 CALL wrf_error_fatal ( &
4766 'frame/module_domain.f: Failed to allocate grid%xb%xice(1,1). ')
4767 endif
4768 ENDIF
4769 IF(.NOT.inter_domain)THEN
4770 ALLOCATE(grid%xb%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
4771 if (ierr.ne.0) then
4772 CALL wrf_error_fatal ( &
4773 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(sm31:em31,sm32:em32). ')
4774 endif
4775 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ivgtyp=0
4776 ELSE
4777 ALLOCATE(grid%xb%ivgtyp(1,1),STAT=ierr)
4778 if (ierr.ne.0) then
4779 CALL wrf_error_fatal ( &
4780 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(1,1). ')
4781 endif
4782 ENDIF
4783 IF(.NOT.inter_domain)THEN
4784 ALLOCATE(grid%xb%isltyp(sm31:em31,sm32:em32),STAT=ierr)
4785 if (ierr.ne.0) then
4786 CALL wrf_error_fatal ( &
4787 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(sm31:em31,sm32:em32). ')
4788 endif
4789 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%isltyp=0
4790 ELSE
4791 ALLOCATE(grid%xb%isltyp(1,1),STAT=ierr)
4792 if (ierr.ne.0) then
4793 CALL wrf_error_fatal ( &
4794 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(1,1). ')
4795 endif
4796 ENDIF
4797 IF(.NOT.inter_domain)THEN
4798 ALLOCATE(grid%xb%vegfra(sm31:em31,sm32:em32),STAT=ierr)
4799 if (ierr.ne.0) then
4800 CALL wrf_error_fatal ( &
4801 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(sm31:em31,sm32:em32). ')
4802 endif
4803 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vegfra=initial_data_value
4804 ELSE
4805 ALLOCATE(grid%xb%vegfra(1,1),STAT=ierr)
4806 if (ierr.ne.0) then
4807 CALL wrf_error_fatal ( &
4808 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(1,1). ')
4809 endif
4810 ENDIF
4811 IF(.NOT.inter_domain)THEN
4812 ALLOCATE(grid%xb%snowh(sm31:em31,sm32:em32),STAT=ierr)
4813 if (ierr.ne.0) then
4814 CALL wrf_error_fatal ( &
4815 'frame/module_domain.f: Failed to allocate grid%xb%snowh(sm31:em31,sm32:em32). ')
4816 endif
4817 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snowh=initial_data_value
4818 ELSE
4819 ALLOCATE(grid%xb%snowh(1,1),STAT=ierr)
4820 if (ierr.ne.0) then
4821 CALL wrf_error_fatal ( &
4822 'frame/module_domain.f: Failed to allocate grid%xb%snowh(1,1). ')
4823 endif
4824 ENDIF
4825 IF(.NOT.inter_domain)THEN
4826 ALLOCATE(grid%xb%regime(sm31:em31,sm32:em32),STAT=ierr)
4827 if (ierr.ne.0) then
4828 CALL wrf_error_fatal ( &
4829 'frame/module_domain.f: Failed to allocate grid%xb%regime(sm31:em31,sm32:em32). ')
4830 endif
4831 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%regime=initial_data_value
4832 ELSE
4833 ALLOCATE(grid%xb%regime(1,1),STAT=ierr)
4834 if (ierr.ne.0) then
4835 CALL wrf_error_fatal ( &
4836 'frame/module_domain.f: Failed to allocate grid%xb%regime(1,1). ')
4837 endif
4838 ENDIF
4839 IF(.NOT.inter_domain)THEN
4840 ALLOCATE(grid%xb%znu(sm33:em33),STAT=ierr)
4841 if (ierr.ne.0) then
4842 CALL wrf_error_fatal ( &
4843 'frame/module_domain.f: Failed to allocate grid%xb%znu(sm33:em33). ')
4844 endif
4845 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znu=initial_data_value
4846 ELSE
4847 ALLOCATE(grid%xb%znu(1),STAT=ierr)
4848 if (ierr.ne.0) then
4849 CALL wrf_error_fatal ( &
4850 'frame/module_domain.f: Failed to allocate grid%xb%znu(1). ')
4851 endif
4852 ENDIF
4853 IF(.NOT.inter_domain)THEN
4854 ALLOCATE(grid%xb%znw(sm33:em33),STAT=ierr)
4855 if (ierr.ne.0) then
4856 CALL wrf_error_fatal ( &
4857 'frame/module_domain.f: Failed to allocate grid%xb%znw(sm33:em33). ')
4858 endif
4859 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znw=initial_data_value
4860 ELSE
4861 ALLOCATE(grid%xb%znw(1),STAT=ierr)
4862 if (ierr.ne.0) then
4863 CALL wrf_error_fatal ( &
4864 'frame/module_domain.f: Failed to allocate grid%xb%znw(1). ')
4865 endif
4866 ENDIF
4867 IF(.NOT.inter_domain)THEN
4868 ALLOCATE(grid%xb%dn(sm33:em33),STAT=ierr)
4869 if (ierr.ne.0) then
4870 CALL wrf_error_fatal ( &
4871 'frame/module_domain.f: Failed to allocate grid%xb%dn(sm33:em33). ')
4872 endif
4873 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dn=initial_data_value
4874 ELSE
4875 ALLOCATE(grid%xb%dn(1),STAT=ierr)
4876 if (ierr.ne.0) then
4877 CALL wrf_error_fatal ( &
4878 'frame/module_domain.f: Failed to allocate grid%xb%dn(1). ')
4879 endif
4880 ENDIF
4881 IF(.NOT.inter_domain)THEN
4882 ALLOCATE(grid%xb%dnw(sm33:em33),STAT=ierr)
4883 if (ierr.ne.0) then
4884 CALL wrf_error_fatal ( &
4885 'frame/module_domain.f: Failed to allocate grid%xb%dnw(sm33:em33). ')
4886 endif
4887 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dnw=initial_data_value
4888 ELSE
4889 ALLOCATE(grid%xb%dnw(1),STAT=ierr)
4890 if (ierr.ne.0) then
4891 CALL wrf_error_fatal ( &
4892 'frame/module_domain.f: Failed to allocate grid%xb%dnw(1). ')
4893 endif
4894 ENDIF
4895 IF(.NOT.inter_domain)THEN
4896 ALLOCATE(grid%xb%sigmah(sm33:em33),STAT=ierr)
4897 if (ierr.ne.0) then
4898 CALL wrf_error_fatal ( &
4899 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(sm33:em33). ')
4900 endif
4901 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmah=initial_data_value
4902 ELSE
4903 ALLOCATE(grid%xb%sigmah(1),STAT=ierr)
4904 if (ierr.ne.0) then
4905 CALL wrf_error_fatal ( &
4906 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(1). ')
4907 endif
4908 ENDIF
4909 IF(.NOT.inter_domain)THEN
4910 ALLOCATE(grid%xb%sigmaf(sm33:em33),STAT=ierr)
4911 if (ierr.ne.0) then
4912 CALL wrf_error_fatal ( &
4913 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(sm33:em33). ')
4914 endif
4915 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmaf=initial_data_value
4916 ELSE
4917 ALLOCATE(grid%xb%sigmaf(1),STAT=ierr)
4918 if (ierr.ne.0) then
4919 CALL wrf_error_fatal ( &
4920 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(1). ')
4921 endif
4922 ENDIF
4923 IF(.NOT.inter_domain)THEN
4924 ALLOCATE(grid%xb%coefx(sm31:em31,sm32:em32),STAT=ierr)
4925 if (ierr.ne.0) then
4926 CALL wrf_error_fatal ( &
4927 'frame/module_domain.f: Failed to allocate grid%xb%coefx(sm31:em31,sm32:em32). ')
4928 endif
4929 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefx=initial_data_value
4930 ELSE
4931 ALLOCATE(grid%xb%coefx(1,1),STAT=ierr)
4932 if (ierr.ne.0) then
4933 CALL wrf_error_fatal ( &
4934 'frame/module_domain.f: Failed to allocate grid%xb%coefx(1,1). ')
4935 endif
4936 ENDIF
4937 IF(.NOT.inter_domain)THEN
4938 ALLOCATE(grid%xb%coefy(sm31:em31,sm32:em32),STAT=ierr)
4939 if (ierr.ne.0) then
4940 CALL wrf_error_fatal ( &
4941 'frame/module_domain.f: Failed to allocate grid%xb%coefy(sm31:em31,sm32:em32). ')
4942 endif
4943 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefy=initial_data_value
4944 ELSE
4945 ALLOCATE(grid%xb%coefy(1,1),STAT=ierr)
4946 if (ierr.ne.0) then
4947 CALL wrf_error_fatal ( &
4948 'frame/module_domain.f: Failed to allocate grid%xb%coefy(1,1). ')
4949 endif
4950 ENDIF
4951 IF(.NOT.inter_domain)THEN
4952 ALLOCATE(grid%xb%coefz(sm31:em31,sm32:em32),STAT=ierr)
4953 if (ierr.ne.0) then
4954 CALL wrf_error_fatal ( &
4955 'frame/module_domain.f: Failed to allocate grid%xb%coefz(sm31:em31,sm32:em32). ')
4956 endif
4957 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefz=initial_data_value
4958 ELSE
4959 ALLOCATE(grid%xb%coefz(1,1),STAT=ierr)
4960 if (ierr.ne.0) then
4961 CALL wrf_error_fatal ( &
4962 'frame/module_domain.f: Failed to allocate grid%xb%coefz(1,1). ')
4963 endif
4964 ENDIF
4965 IF(.NOT.inter_domain)THEN
4966 ALLOCATE(grid%xb%kma_a(sm33:em33),STAT=ierr)
4967 if (ierr.ne.0) then
4968 CALL wrf_error_fatal ( &
4969 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(sm33:em33). ')
4970 endif
4971 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_a=initial_data_value
4972 ELSE
4973 ALLOCATE(grid%xb%kma_a(1),STAT=ierr)
4974 if (ierr.ne.0) then
4975 CALL wrf_error_fatal ( &
4976 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(1). ')
4977 endif
4978 ENDIF
4979 IF(.NOT.inter_domain)THEN
4980 ALLOCATE(grid%xb%kma_b(sm33:em33),STAT=ierr)
4981 if (ierr.ne.0) then
4982 CALL wrf_error_fatal ( &
4983 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(sm33:em33). ')
4984 endif
4985 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_b=initial_data_value
4986 ELSE
4987 ALLOCATE(grid%xb%kma_b(1),STAT=ierr)
4988 if (ierr.ne.0) then
4989 CALL wrf_error_fatal ( &
4990 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(1). ')
4991 endif
4992 ENDIF
4993 IF(.NOT.inter_domain)THEN
4994 ALLOCATE(grid%xa%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4995 if (ierr.ne.0) then
4996 CALL wrf_error_fatal ( &
4997 'frame/module_domain.f: Failed to allocate grid%xa%u(sm31:em31,sm32:em32,sm33:em33). ')
4998 endif
4999 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u=initial_data_value
5000 ELSE
5001 ALLOCATE(grid%xa%u(1,1,1),STAT=ierr)
5002 if (ierr.ne.0) then
5003 CALL wrf_error_fatal ( &
5004 'frame/module_domain.f: Failed to allocate grid%xa%u(1,1,1). ')
5005 endif
5006 ENDIF
5007 IF(.NOT.inter_domain)THEN
5008 ALLOCATE(grid%xa%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5009 if (ierr.ne.0) then
5010 CALL wrf_error_fatal ( &
5011 'frame/module_domain.f: Failed to allocate grid%xa%v(sm31:em31,sm32:em32,sm33:em33). ')
5012 endif
5013 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v=initial_data_value
5014 ELSE
5015 ALLOCATE(grid%xa%v(1,1,1),STAT=ierr)
5016 if (ierr.ne.0) then
5017 CALL wrf_error_fatal ( &
5018 'frame/module_domain.f: Failed to allocate grid%xa%v(1,1,1). ')
5019 endif
5020 ENDIF
5021 IF(.NOT.inter_domain)THEN
5022 ALLOCATE(grid%xa%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5023 if (ierr.ne.0) then
5024 CALL wrf_error_fatal ( &
5025 'frame/module_domain.f: Failed to allocate grid%xa%w(sm31:em31,sm32:em32,sm33:em33). ')
5026 endif
5027 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%w=initial_data_value
5028 ELSE
5029 ALLOCATE(grid%xa%w(1,1,1),STAT=ierr)
5030 if (ierr.ne.0) then
5031 CALL wrf_error_fatal ( &
5032 'frame/module_domain.f: Failed to allocate grid%xa%w(1,1,1). ')
5033 endif
5034 ENDIF
5035 IF(.NOT.inter_domain)THEN
5036 ALLOCATE(grid%xa%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5037 if (ierr.ne.0) then
5038 CALL wrf_error_fatal ( &
5039 'frame/module_domain.f: Failed to allocate grid%xa%t(sm31:em31,sm32:em32,sm33:em33). ')
5040 endif
5041 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t=initial_data_value
5042 ELSE
5043 ALLOCATE(grid%xa%t(1,1,1),STAT=ierr)
5044 if (ierr.ne.0) then
5045 CALL wrf_error_fatal ( &
5046 'frame/module_domain.f: Failed to allocate grid%xa%t(1,1,1). ')
5047 endif
5048 ENDIF
5049 IF(.NOT.inter_domain)THEN
5050 ALLOCATE(grid%xa%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5051 if (ierr.ne.0) then
5052 CALL wrf_error_fatal ( &
5053 'frame/module_domain.f: Failed to allocate grid%xa%q(sm31:em31,sm32:em32,sm33:em33). ')
5054 endif
5055 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q=initial_data_value
5056 ELSE
5057 ALLOCATE(grid%xa%q(1,1,1),STAT=ierr)
5058 if (ierr.ne.0) then
5059 CALL wrf_error_fatal ( &
5060 'frame/module_domain.f: Failed to allocate grid%xa%q(1,1,1). ')
5061 endif
5062 ENDIF
5063 IF(.NOT.inter_domain)THEN
5064 ALLOCATE(grid%xa%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5065 if (ierr.ne.0) then
5066 CALL wrf_error_fatal ( &
5067 'frame/module_domain.f: Failed to allocate grid%xa%p(sm31:em31,sm32:em32,sm33:em33). ')
5068 endif
5069 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%p=initial_data_value
5070 ELSE
5071 ALLOCATE(grid%xa%p(1,1,1),STAT=ierr)
5072 if (ierr.ne.0) then
5073 CALL wrf_error_fatal ( &
5074 'frame/module_domain.f: Failed to allocate grid%xa%p(1,1,1). ')
5075 endif
5076 ENDIF
5077 IF(.NOT.inter_domain)THEN
5078 ALLOCATE(grid%xa%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5079 if (ierr.ne.0) then
5080 CALL wrf_error_fatal ( &
5081 'frame/module_domain.f: Failed to allocate grid%xa%rh(sm31:em31,sm32:em32,sm33:em33). ')
5082 endif
5083 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rh=initial_data_value
5084 ELSE
5085 ALLOCATE(grid%xa%rh(1,1,1),STAT=ierr)
5086 if (ierr.ne.0) then
5087 CALL wrf_error_fatal ( &
5088 'frame/module_domain.f: Failed to allocate grid%xa%rh(1,1,1). ')
5089 endif
5090 ENDIF
5091 IF(.NOT.inter_domain)THEN
5092 ALLOCATE(grid%xa%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5093 if (ierr.ne.0) then
5094 CALL wrf_error_fatal ( &
5095 'frame/module_domain.f: Failed to allocate grid%xa%rho(sm31:em31,sm32:em32,sm33:em33). ')
5096 endif
5097 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rho=initial_data_value
5098 ELSE
5099 ALLOCATE(grid%xa%rho(1,1,1),STAT=ierr)
5100 if (ierr.ne.0) then
5101 CALL wrf_error_fatal ( &
5102 'frame/module_domain.f: Failed to allocate grid%xa%rho(1,1,1). ')
5103 endif
5104 ENDIF
5105 IF(.NOT.inter_domain)THEN
5106 ALLOCATE(grid%xa%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5107 if (ierr.ne.0) then
5108 CALL wrf_error_fatal ( &
5109 'frame/module_domain.f: Failed to allocate grid%xa%wh(sm31:em31,sm32:em32,sm33:em33). ')
5110 endif
5111 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%wh=initial_data_value
5112 ELSE
5113 ALLOCATE(grid%xa%wh(1,1,1),STAT=ierr)
5114 if (ierr.ne.0) then
5115 CALL wrf_error_fatal ( &
5116 'frame/module_domain.f: Failed to allocate grid%xa%wh(1,1,1). ')
5117 endif
5118 ENDIF
5119 IF(.NOT.inter_domain)THEN
5120 ALLOCATE(grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5121 if (ierr.ne.0) then
5122 CALL wrf_error_fatal ( &
5123 'frame/module_domain.f: Failed to allocate grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33). ')
5124 endif
5125 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qrn=initial_data_value
5126 ELSE
5127 ALLOCATE(grid%xa%qrn(1,1,1),STAT=ierr)
5128 if (ierr.ne.0) then
5129 CALL wrf_error_fatal ( &
5130 'frame/module_domain.f: Failed to allocate grid%xa%qrn(1,1,1). ')
5131 endif
5132 ENDIF
5133 IF(.NOT.inter_domain)THEN
5134 ALLOCATE(grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5135 if (ierr.ne.0) then
5136 CALL wrf_error_fatal ( &
5137 'frame/module_domain.f: Failed to allocate grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33). ')
5138 endif
5139 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qcw=initial_data_value
5140 ELSE
5141 ALLOCATE(grid%xa%qcw(1,1,1),STAT=ierr)
5142 if (ierr.ne.0) then
5143 CALL wrf_error_fatal ( &
5144 'frame/module_domain.f: Failed to allocate grid%xa%qcw(1,1,1). ')
5145 endif
5146 ENDIF
5147 IF(.NOT.inter_domain)THEN
5148 ALLOCATE(grid%xa%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5149 if (ierr.ne.0) then
5150 CALL wrf_error_fatal ( &
5151 'frame/module_domain.f: Failed to allocate grid%xa%qci(sm31:em31,sm32:em32,sm33:em33). ')
5152 endif
5153 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qci=initial_data_value
5154 ELSE
5155 ALLOCATE(grid%xa%qci(1,1,1),STAT=ierr)
5156 if (ierr.ne.0) then
5157 CALL wrf_error_fatal ( &
5158 'frame/module_domain.f: Failed to allocate grid%xa%qci(1,1,1). ')
5159 endif
5160 ENDIF
5161 IF(.NOT.inter_domain)THEN
5162 ALLOCATE(grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5163 if (ierr.ne.0) then
5164 CALL wrf_error_fatal ( &
5165 'frame/module_domain.f: Failed to allocate grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33). ')
5166 endif
5167 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qsn=initial_data_value
5168 ELSE
5169 ALLOCATE(grid%xa%qsn(1,1,1),STAT=ierr)
5170 if (ierr.ne.0) then
5171 CALL wrf_error_fatal ( &
5172 'frame/module_domain.f: Failed to allocate grid%xa%qsn(1,1,1). ')
5173 endif
5174 ENDIF
5175 IF(.NOT.inter_domain)THEN
5176 ALLOCATE(grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5177 if (ierr.ne.0) then
5178 CALL wrf_error_fatal ( &
5179 'frame/module_domain.f: Failed to allocate grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33). ')
5180 endif
5181 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qgr=initial_data_value
5182 ELSE
5183 ALLOCATE(grid%xa%qgr(1,1,1),STAT=ierr)
5184 if (ierr.ne.0) then
5185 CALL wrf_error_fatal ( &
5186 'frame/module_domain.f: Failed to allocate grid%xa%qgr(1,1,1). ')
5187 endif
5188 ENDIF
5189 IF(.NOT.inter_domain)THEN
5190 ALLOCATE(grid%xa%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5191 if (ierr.ne.0) then
5192 CALL wrf_error_fatal ( &
5193 'frame/module_domain.f: Failed to allocate grid%xa%qt(sm31:em31,sm32:em32,sm33:em33). ')
5194 endif
5195 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qt=initial_data_value
5196 ELSE
5197 ALLOCATE(grid%xa%qt(1,1,1),STAT=ierr)
5198 if (ierr.ne.0) then
5199 CALL wrf_error_fatal ( &
5200 'frame/module_domain.f: Failed to allocate grid%xa%qt(1,1,1). ')
5201 endif
5202 ENDIF
5203 IF(.NOT.inter_domain)THEN
5204 ALLOCATE(grid%xa%tgrn(sm31:em31,sm32:em32),STAT=ierr)
5205 if (ierr.ne.0) then
5206 CALL wrf_error_fatal ( &
5207 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(sm31:em31,sm32:em32). ')
5208 endif
5209 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tgrn=initial_data_value
5210 ELSE
5211 ALLOCATE(grid%xa%tgrn(1,1),STAT=ierr)
5212 if (ierr.ne.0) then
5213 CALL wrf_error_fatal ( &
5214 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(1,1). ')
5215 endif
5216 ENDIF
5217 IF(.NOT.inter_domain)THEN
5218 ALLOCATE(grid%xa%psfc(sm31:em31,sm32:em32),STAT=ierr)
5219 if (ierr.ne.0) then
5220 CALL wrf_error_fatal ( &
5221 'frame/module_domain.f: Failed to allocate grid%xa%psfc(sm31:em31,sm32:em32). ')
5222 endif
5223 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%psfc=initial_data_value
5224 ELSE
5225 ALLOCATE(grid%xa%psfc(1,1),STAT=ierr)
5226 if (ierr.ne.0) then
5227 CALL wrf_error_fatal ( &
5228 'frame/module_domain.f: Failed to allocate grid%xa%psfc(1,1). ')
5229 endif
5230 ENDIF
5231 IF(.NOT.inter_domain)THEN
5232 ALLOCATE(grid%xa%u10(sm31:em31,sm32:em32),STAT=ierr)
5233 if (ierr.ne.0) then
5234 CALL wrf_error_fatal ( &
5235 'frame/module_domain.f: Failed to allocate grid%xa%u10(sm31:em31,sm32:em32). ')
5236 endif
5237 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u10=initial_data_value
5238 ELSE
5239 ALLOCATE(grid%xa%u10(1,1),STAT=ierr)
5240 if (ierr.ne.0) then
5241 CALL wrf_error_fatal ( &
5242 'frame/module_domain.f: Failed to allocate grid%xa%u10(1,1). ')
5243 endif
5244 ENDIF
5245 IF(.NOT.inter_domain)THEN
5246 ALLOCATE(grid%xa%v10(sm31:em31,sm32:em32),STAT=ierr)
5247 if (ierr.ne.0) then
5248 CALL wrf_error_fatal ( &
5249 'frame/module_domain.f: Failed to allocate grid%xa%v10(sm31:em31,sm32:em32). ')
5250 endif
5251 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v10=initial_data_value
5252 ELSE
5253 ALLOCATE(grid%xa%v10(1,1),STAT=ierr)
5254 if (ierr.ne.0) then
5255 CALL wrf_error_fatal ( &
5256 'frame/module_domain.f: Failed to allocate grid%xa%v10(1,1). ')
5257 endif
5258 ENDIF
5259 IF(.NOT.inter_domain)THEN
5260 ALLOCATE(grid%xa%t2(sm31:em31,sm32:em32),STAT=ierr)
5261 if (ierr.ne.0) then
5262 CALL wrf_error_fatal ( &
5263 'frame/module_domain.f: Failed to allocate grid%xa%t2(sm31:em31,sm32:em32). ')
5264 endif
5265 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t2=initial_data_value
5266 ELSE
5267 ALLOCATE(grid%xa%t2(1,1),STAT=ierr)
5268 if (ierr.ne.0) then
5269 CALL wrf_error_fatal ( &
5270 'frame/module_domain.f: Failed to allocate grid%xa%t2(1,1). ')
5271 endif
5272 ENDIF
5273 IF(.NOT.inter_domain)THEN
5274 ALLOCATE(grid%xa%q2(sm31:em31,sm32:em32),STAT=ierr)
5275 if (ierr.ne.0) then
5276 CALL wrf_error_fatal ( &
5277 'frame/module_domain.f: Failed to allocate grid%xa%q2(sm31:em31,sm32:em32). ')
5278 endif
5279 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q2=initial_data_value
5280 ELSE
5281 ALLOCATE(grid%xa%q2(1,1),STAT=ierr)
5282 if (ierr.ne.0) then
5283 CALL wrf_error_fatal ( &
5284 'frame/module_domain.f: Failed to allocate grid%xa%q2(1,1). ')
5285 endif
5286 ENDIF
5287 IF(.NOT.inter_domain)THEN
5288 ALLOCATE(grid%xa%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5289 if (ierr.ne.0) then
5290 CALL wrf_error_fatal ( &
5291 'frame/module_domain.f: Failed to allocate grid%xa%ref(sm31:em31,sm32:em32,sm33:em33). ')
5292 endif
5293 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%ref=initial_data_value
5294 ELSE
5295 ALLOCATE(grid%xa%ref(1,1,1),STAT=ierr)
5296 if (ierr.ne.0) then
5297 CALL wrf_error_fatal ( &
5298 'frame/module_domain.f: Failed to allocate grid%xa%ref(1,1,1). ')
5299 endif
5300 ENDIF
5301 IF(.NOT.inter_domain)THEN
5302 ALLOCATE(grid%xa%tpw(sm31:em31,sm32:em32),STAT=ierr)
5303 if (ierr.ne.0) then
5304 CALL wrf_error_fatal ( &
5305 'frame/module_domain.f: Failed to allocate grid%xa%tpw(sm31:em31,sm32:em32). ')
5306 endif
5307 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tpw=initial_data_value
5308 ELSE
5309 ALLOCATE(grid%xa%tpw(1,1),STAT=ierr)
5310 if (ierr.ne.0) then
5311 CALL wrf_error_fatal ( &
5312 'frame/module_domain.f: Failed to allocate grid%xa%tpw(1,1). ')
5313 endif
5314 ENDIF
5315 IF(.NOT.inter_domain)THEN
5316 ALLOCATE(grid%xa%speed(sm31:em31,sm32:em32),STAT=ierr)
5317 if (ierr.ne.0) then
5318 CALL wrf_error_fatal ( &
5319 'frame/module_domain.f: Failed to allocate grid%xa%speed(sm31:em31,sm32:em32). ')
5320 endif
5321 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%speed=initial_data_value
5322 ELSE
5323 ALLOCATE(grid%xa%speed(1,1),STAT=ierr)
5324 if (ierr.ne.0) then
5325 CALL wrf_error_fatal ( &
5326 'frame/module_domain.f: Failed to allocate grid%xa%speed(1,1). ')
5327 endif
5328 ENDIF
5329 IF(.NOT.inter_domain)THEN
5330 ALLOCATE(grid%xa%tb19v(sm31:em31,sm32:em32),STAT=ierr)
5331 if (ierr.ne.0) then
5332 CALL wrf_error_fatal ( &
5333 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(sm31:em31,sm32:em32). ')
5334 endif
5335 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19v=initial_data_value
5336 ELSE
5337 ALLOCATE(grid%xa%tb19v(1,1),STAT=ierr)
5338 if (ierr.ne.0) then
5339 CALL wrf_error_fatal ( &
5340 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(1,1). ')
5341 endif
5342 ENDIF
5343 IF(.NOT.inter_domain)THEN
5344 ALLOCATE(grid%xa%tb19h(sm31:em31,sm32:em32),STAT=ierr)
5345 if (ierr.ne.0) then
5346 CALL wrf_error_fatal ( &
5347 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(sm31:em31,sm32:em32). ')
5348 endif
5349 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19h=initial_data_value
5350 ELSE
5351 ALLOCATE(grid%xa%tb19h(1,1),STAT=ierr)
5352 if (ierr.ne.0) then
5353 CALL wrf_error_fatal ( &
5354 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(1,1). ')
5355 endif
5356 ENDIF
5357 IF(.NOT.inter_domain)THEN
5358 ALLOCATE(grid%xa%tb22v(sm31:em31,sm32:em32),STAT=ierr)
5359 if (ierr.ne.0) then
5360 CALL wrf_error_fatal ( &
5361 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(sm31:em31,sm32:em32). ')
5362 endif
5363 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb22v=initial_data_value
5364 ELSE
5365 ALLOCATE(grid%xa%tb22v(1,1),STAT=ierr)
5366 if (ierr.ne.0) then
5367 CALL wrf_error_fatal ( &
5368 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(1,1). ')
5369 endif
5370 ENDIF
5371 IF(.NOT.inter_domain)THEN
5372 ALLOCATE(grid%xa%tb37v(sm31:em31,sm32:em32),STAT=ierr)
5373 if (ierr.ne.0) then
5374 CALL wrf_error_fatal ( &
5375 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(sm31:em31,sm32:em32). ')
5376 endif
5377 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37v=initial_data_value
5378 ELSE
5379 ALLOCATE(grid%xa%tb37v(1,1),STAT=ierr)
5380 if (ierr.ne.0) then
5381 CALL wrf_error_fatal ( &
5382 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(1,1). ')
5383 endif
5384 ENDIF
5385 IF(.NOT.inter_domain)THEN
5386 ALLOCATE(grid%xa%tb37h(sm31:em31,sm32:em32),STAT=ierr)
5387 if (ierr.ne.0) then
5388 CALL wrf_error_fatal ( &
5389 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(sm31:em31,sm32:em32). ')
5390 endif
5391 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37h=initial_data_value
5392 ELSE
5393 ALLOCATE(grid%xa%tb37h(1,1),STAT=ierr)
5394 if (ierr.ne.0) then
5395 CALL wrf_error_fatal ( &
5396 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(1,1). ')
5397 endif
5398 ENDIF
5399 IF(.NOT.inter_domain)THEN
5400 ALLOCATE(grid%xa%tb85v(sm31:em31,sm32:em32),STAT=ierr)
5401 if (ierr.ne.0) then
5402 CALL wrf_error_fatal ( &
5403 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(sm31:em31,sm32:em32). ')
5404 endif
5405 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85v=initial_data_value
5406 ELSE
5407 ALLOCATE(grid%xa%tb85v(1,1),STAT=ierr)
5408 if (ierr.ne.0) then
5409 CALL wrf_error_fatal ( &
5410 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(1,1). ')
5411 endif
5412 ENDIF
5413 IF(.NOT.inter_domain)THEN
5414 ALLOCATE(grid%xa%tb85h(sm31:em31,sm32:em32),STAT=ierr)
5415 if (ierr.ne.0) then
5416 CALL wrf_error_fatal ( &
5417 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(sm31:em31,sm32:em32). ')
5418 endif
5419 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85h=initial_data_value
5420 ELSE
5421 ALLOCATE(grid%xa%tb85h(1,1),STAT=ierr)
5422 if (ierr.ne.0) then
5423 CALL wrf_error_fatal ( &
5424 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(1,1). ')
5425 endif
5426 ENDIF
5427 IF ( setinitval .EQ. 3 ) grid%xp%domdesc=0
5428 IF ( setinitval .EQ. 3 ) grid%xp%comms(max_comms)=0
5429 IF ( setinitval .EQ. 3 ) grid%xp%halo_id0=0
5430 IF ( setinitval .EQ. 3 ) grid%xp%halo_id1=0
5431 IF ( setinitval .EQ. 3 ) grid%xp%halo_id2=0
5432 IF ( setinitval .EQ. 3 ) grid%xp%halo_id3=0
5433 IF ( setinitval .EQ. 3 ) grid%xp%halo_id4=0
5434 IF ( setinitval .EQ. 3 ) grid%xp%halo_id5=0
5435 IF ( setinitval .EQ. 3 ) grid%xp%halo_id6=0
5436 IF ( setinitval .EQ. 3 ) grid%xp%halo_id7=0
5437 IF ( setinitval .EQ. 3 ) grid%xp%halo_id8=0
5438 IF ( setinitval .EQ. 3 ) grid%xp%halo_id9=0
5439 IF ( setinitval .EQ. 3 ) grid%xp%halo_id10=0
5440 IF ( setinitval .EQ. 3 ) grid%xp%halo_id11=0
5441 IF ( setinitval .EQ. 3 ) grid%xp%halo_id12=0
5442 IF ( setinitval .EQ. 3 ) grid%xp%halo_id13=0
5443 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id1=0
5444 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id2=0
5445 IF ( setinitval .EQ. 3 ) grid%xp%ids=0
5446 IF ( setinitval .EQ. 3 ) grid%xp%ide=0
5447 IF ( setinitval .EQ. 3 ) grid%xp%jds=0
5448 IF ( setinitval .EQ. 3 ) grid%xp%jde=0
5449 IF ( setinitval .EQ. 3 ) grid%xp%kds=0
5450 IF ( setinitval .EQ. 3 ) grid%xp%kde=0
5451 IF ( setinitval .EQ. 3 ) grid%xp%ims=0
5452 IF ( setinitval .EQ. 3 ) grid%xp%ime=0
5453 IF ( setinitval .EQ. 3 ) grid%xp%jms=0
5454 IF ( setinitval .EQ. 3 ) grid%xp%jme=0
5455 IF ( setinitval .EQ. 3 ) grid%xp%kms=0
5456 IF ( setinitval .EQ. 3 ) grid%xp%kme=0
5457 IF ( setinitval .EQ. 3 ) grid%xp%its=0
5458 IF ( setinitval .EQ. 3 ) grid%xp%ite=0
5459 IF ( setinitval .EQ. 3 ) grid%xp%jts=0
5460 IF ( setinitval .EQ. 3 ) grid%xp%jte=0
5461 IF ( setinitval .EQ. 3 ) grid%xp%kts=0
5462 IF ( setinitval .EQ. 3 ) grid%xp%kte=0
5463 IF ( setinitval .EQ. 3 ) grid%xp%ips=0
5464 IF ( setinitval .EQ. 3 ) grid%xp%ipe=0
5465 IF ( setinitval .EQ. 3 ) grid%xp%jps=0
5466 IF ( setinitval .EQ. 3 ) grid%xp%jpe=0
5467 IF ( setinitval .EQ. 3 ) grid%xp%kps=0
5468 IF ( setinitval .EQ. 3 ) grid%xp%kpe=0
5469 IF ( setinitval .EQ. 3 ) grid%xp%idsx=0
5470 IF ( setinitval .EQ. 3 ) grid%xp%idex=0
5471 IF ( setinitval .EQ. 3 ) grid%xp%jdsx=0
5472 IF ( setinitval .EQ. 3 ) grid%xp%jdex=0
5473 IF ( setinitval .EQ. 3 ) grid%xp%kdsx=0
5474 IF ( setinitval .EQ. 3 ) grid%xp%kdex=0
5475 IF ( setinitval .EQ. 3 ) grid%xp%imsx=0
5476 IF ( setinitval .EQ. 3 ) grid%xp%imex=0
5477 IF ( setinitval .EQ. 3 ) grid%xp%jmsx=0
5478 IF ( setinitval .EQ. 3 ) grid%xp%jmex=0
5479 IF ( setinitval .EQ. 3 ) grid%xp%kmsx=0
5480 IF ( setinitval .EQ. 3 ) grid%xp%kmex=0
5481 IF ( setinitval .EQ. 3 ) grid%xp%itsx=0
5482 IF ( setinitval .EQ. 3 ) grid%xp%itex=0
5483 IF ( setinitval .EQ. 3 ) grid%xp%jtsx=0
5484 IF ( setinitval .EQ. 3 ) grid%xp%jtex=0
5485 IF ( setinitval .EQ. 3 ) grid%xp%ktsx=0
5486 IF ( setinitval .EQ. 3 ) grid%xp%ktex=0
5487 IF ( setinitval .EQ. 3 ) grid%xp%ipsx=0
5488 IF ( setinitval .EQ. 3 ) grid%xp%ipex=0
5489 IF ( setinitval .EQ. 3 ) grid%xp%jpsx=0
5490 IF ( setinitval .EQ. 3 ) grid%xp%jpex=0
5491 IF ( setinitval .EQ. 3 ) grid%xp%kpsx=0
5492 IF ( setinitval .EQ. 3 ) grid%xp%kpex=0
5493 IF ( setinitval .EQ. 3 ) grid%xp%idsy=0
5494 IF ( setinitval .EQ. 3 ) grid%xp%idey=0
5495 IF ( setinitval .EQ. 3 ) grid%xp%jdsy=0
5496 IF ( setinitval .EQ. 3 ) grid%xp%jdey=0
5497 IF ( setinitval .EQ. 3 ) grid%xp%kdsy=0
5498 IF ( setinitval .EQ. 3 ) grid%xp%kdey=0
5499 IF ( setinitval .EQ. 3 ) grid%xp%imsy=0
5500 IF ( setinitval .EQ. 3 ) grid%xp%imey=0
5501 IF ( setinitval .EQ. 3 ) grid%xp%jmsy=0
5502 IF ( setinitval .EQ. 3 ) grid%xp%jmey=0
5503 IF ( setinitval .EQ. 3 ) grid%xp%kmsy=0
5504 IF ( setinitval .EQ. 3 ) grid%xp%kmey=0
5505 IF ( setinitval .EQ. 3 ) grid%xp%itsy=0
5506 IF ( setinitval .EQ. 3 ) grid%xp%itey=0
5507 IF ( setinitval .EQ. 3 ) grid%xp%jtsy=0
5508 IF ( setinitval .EQ. 3 ) grid%xp%jtey=0
5509 IF ( setinitval .EQ. 3 ) grid%xp%ktsy=0
5510 IF ( setinitval .EQ. 3 ) grid%xp%ktey=0
5511 IF ( setinitval .EQ. 3 ) grid%xp%ipsy=0
5512 IF ( setinitval .EQ. 3 ) grid%xp%ipey=0
5513 IF ( setinitval .EQ. 3 ) grid%xp%jpsy=0
5514 IF ( setinitval .EQ. 3 ) grid%xp%jpey=0
5515 IF ( setinitval .EQ. 3 ) grid%xp%kpsy=0
5516 IF ( setinitval .EQ. 3 ) grid%xp%kpey=0
5517 IF(.NOT.inter_domain)THEN
5518 ALLOCATE(grid%xp%vxy(sm31:em31,sm32:em32),STAT=ierr)
5519 if (ierr.ne.0) then
5520 CALL wrf_error_fatal ( &
5521 'frame/module_domain.f: Failed to allocate grid%xp%vxy(sm31:em31,sm32:em32). ')
5522 endif
5523 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%vxy=initial_data_value
5524 ELSE
5525 ALLOCATE(grid%xp%vxy(1,1),STAT=ierr)
5526 if (ierr.ne.0) then
5527 CALL wrf_error_fatal ( &
5528 'frame/module_domain.f: Failed to allocate grid%xp%vxy(1,1). ')
5529 endif
5530 ENDIF
5531 IF(.NOT.inter_domain)THEN
5532 ALLOCATE(grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5533 if (ierr.ne.0) then
5534 CALL wrf_error_fatal ( &
5535 'frame/module_domain.f: Failed to allocate grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33). ')
5536 endif
5537 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1z=initial_data_value
5538 ELSE
5539 ALLOCATE(grid%xp%v1z(1,1,1),STAT=ierr)
5540 if (ierr.ne.0) then
5541 CALL wrf_error_fatal ( &
5542 'frame/module_domain.f: Failed to allocate grid%xp%v1z(1,1,1). ')
5543 endif
5544 ENDIF
5545 IF(.NOT.inter_domain)THEN
5546 ALLOCATE(grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
5547 if (ierr.ne.0) then
5548 CALL wrf_error_fatal ( &
5549 'frame/module_domain.f: Failed to allocate grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
5550 endif
5551 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1x=initial_data_value
5552 ELSE
5553 ALLOCATE(grid%xp%v1x(1,1,1),STAT=ierr)
5554 if (ierr.ne.0) then
5555 CALL wrf_error_fatal ( &
5556 'frame/module_domain.f: Failed to allocate grid%xp%v1x(1,1,1). ')
5557 endif
5558 ENDIF
5559 IF(.NOT.inter_domain)THEN
5560 ALLOCATE(grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
5561 if (ierr.ne.0) then
5562 CALL wrf_error_fatal ( &
5563 'frame/module_domain.f: Failed to allocate grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
5564 endif
5565 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1y=initial_data_value
5566 ELSE
5567 ALLOCATE(grid%xp%v1y(1,1,1),STAT=ierr)
5568 if (ierr.ne.0) then
5569 CALL wrf_error_fatal ( &
5570 'frame/module_domain.f: Failed to allocate grid%xp%v1y(1,1,1). ')
5571 endif
5572 ENDIF
5573 IF(.NOT.inter_domain)THEN
5574 ALLOCATE(grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5575 if (ierr.ne.0) then
5576 CALL wrf_error_fatal ( &
5577 'frame/module_domain.f: Failed to allocate grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33). ')
5578 endif
5579 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2z=initial_data_value
5580 ELSE
5581 ALLOCATE(grid%xp%v2z(1,1,1),STAT=ierr)
5582 if (ierr.ne.0) then
5583 CALL wrf_error_fatal ( &
5584 'frame/module_domain.f: Failed to allocate grid%xp%v2z(1,1,1). ')
5585 endif
5586 ENDIF
5587 IF(.NOT.inter_domain)THEN
5588 ALLOCATE(grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
5589 if (ierr.ne.0) then
5590 CALL wrf_error_fatal ( &
5591 'frame/module_domain.f: Failed to allocate grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
5592 endif
5593 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2x=initial_data_value
5594 ELSE
5595 ALLOCATE(grid%xp%v2x(1,1,1),STAT=ierr)
5596 if (ierr.ne.0) then
5597 CALL wrf_error_fatal ( &
5598 'frame/module_domain.f: Failed to allocate grid%xp%v2x(1,1,1). ')
5599 endif
5600 ENDIF
5601 IF(.NOT.inter_domain)THEN
5602 ALLOCATE(grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
5603 if (ierr.ne.0) then
5604 CALL wrf_error_fatal ( &
5605 'frame/module_domain.f: Failed to allocate grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
5606 endif
5607 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2y=initial_data_value
5608 ELSE
5609 ALLOCATE(grid%xp%v2y(1,1,1),STAT=ierr)
5610 if (ierr.ne.0) then
5611 CALL wrf_error_fatal ( &
5612 'frame/module_domain.f: Failed to allocate grid%xp%v2y(1,1,1). ')
5613 endif
5614 ENDIF
5615 IF ( setinitval .EQ. 3 ) grid%fdob%domain_tot=0
5616 IF ( setinitval .EQ. 3 ) grid%fdob%domain_init=0
5617 IF ( setinitval .EQ. 3 ) grid%fdob%ieodi=0
5618 IF ( setinitval .EQ. 3 ) grid%fdob%iwtsig=0
5619 IF ( setinitval .EQ. 3 ) grid%fdob%nstat=0
5620 IF ( setinitval .EQ. 3 ) grid%fdob%ktaur=0
5621 IF ( setinitval .EQ. 3 ) grid%fdob%sn_maxcg=0
5622 IF ( setinitval .EQ. 3 ) grid%fdob%we_maxcg=0
5623 IF ( setinitval .EQ. 3 ) grid%fdob%sn_end=0
5624 IF ( setinitval .EQ. 3 ) grid%fdob%levidn(max_domains)=0
5625 IF ( setinitval .EQ. 3 ) grid%fdob%ds_cg=initial_data_value
5626 IF ( setinitval .EQ. 3 ) grid%fdob%window=initial_data_value
5627 IF ( setinitval .EQ. 3 ) grid%fdob%rtlast=initial_data_value
5628 IF ( setinitval .EQ. 3 ) grid%fdob%datend=initial_data_value
5629 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmn=initial_data_value
5630 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmx=initial_data_value
5631 IF ( setinitval .EQ. 3 ) grid%fdob%pfree=initial_data_value
5632 IF ( setinitval .EQ. 3 ) grid%fdob%dcon=initial_data_value
5633 IF ( setinitval .EQ. 3 ) grid%fdob%dpsmx=initial_data_value
5634 IF ( setinitval .EQ. 3 ) grid%fdob%tfaci=initial_data_value
5635 IF ( setinitval .EQ. 3 ) grid%fdob%xn=initial_data_value
5636 IF(.NOT.inter_domain)THEN
5637 ALLOCATE(grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs),STAT=ierr)
5638 if (ierr.ne.0) then
5639 CALL wrf_error_fatal ( &
5640 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs). ')
5641 endif
5642 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%varobs=initial_data_value
5643 ELSE
5644 ALLOCATE(grid%fdob%varobs(1,1),STAT=ierr)
5645 if (ierr.ne.0) then
5646 CALL wrf_error_fatal ( &
5647 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1,1). ')
5648 endif
5649 ENDIF
5650 IF(.NOT.inter_domain)THEN
5651 ALLOCATE(grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs),STAT=ierr)
5652 if (ierr.ne.0) then
5653 CALL wrf_error_fatal ( &
5654 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs). ')
5655 endif
5656 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%errf=initial_data_value
5657 ELSE
5658 ALLOCATE(grid%fdob%errf(1,1),STAT=ierr)
5659 if (ierr.ne.0) then
5660 CALL wrf_error_fatal ( &
5661 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1,1). ')
5662 endif
5663 ENDIF
5664 IF(.NOT.inter_domain)THEN
5665 ALLOCATE(grid%fdob%timeob(1:model_config_rec%max_obs),STAT=ierr)
5666 if (ierr.ne.0) then
5667 CALL wrf_error_fatal ( &
5668 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1:model_config_rec%max_obs). ')
5669 endif
5670 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%timeob=initial_data_value
5671 ELSE
5672 ALLOCATE(grid%fdob%timeob(1),STAT=ierr)
5673 if (ierr.ne.0) then
5674 CALL wrf_error_fatal ( &
5675 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1). ')
5676 endif
5677 ENDIF
5678 IF(.NOT.inter_domain)THEN
5679 ALLOCATE(grid%fdob%nlevs_ob(1:model_config_rec%max_obs),STAT=ierr)
5680 if (ierr.ne.0) then
5681 CALL wrf_error_fatal ( &
5682 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1:model_config_rec%max_obs). ')
5683 endif
5684 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%nlevs_ob=initial_data_value
5685 ELSE
5686 ALLOCATE(grid%fdob%nlevs_ob(1),STAT=ierr)
5687 if (ierr.ne.0) then
5688 CALL wrf_error_fatal ( &
5689 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1). ')
5690 endif
5691 ENDIF
5692 IF(.NOT.inter_domain)THEN
5693 ALLOCATE(grid%fdob%lev_in_ob(1:model_config_rec%max_obs),STAT=ierr)
5694 if (ierr.ne.0) then
5695 CALL wrf_error_fatal ( &
5696 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1:model_config_rec%max_obs). ')
5697 endif
5698 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%lev_in_ob=initial_data_value
5699 ELSE
5700 ALLOCATE(grid%fdob%lev_in_ob(1),STAT=ierr)
5701 if (ierr.ne.0) then
5702 CALL wrf_error_fatal ( &
5703 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1). ')
5704 endif
5705 ENDIF
5706 IF(.NOT.inter_domain)THEN
5707 ALLOCATE(grid%fdob%plfo(1:model_config_rec%max_obs),STAT=ierr)
5708 if (ierr.ne.0) then
5709 CALL wrf_error_fatal ( &
5710 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1:model_config_rec%max_obs). ')
5711 endif
5712 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%plfo=initial_data_value
5713 ELSE
5714 ALLOCATE(grid%fdob%plfo(1),STAT=ierr)
5715 if (ierr.ne.0) then
5716 CALL wrf_error_fatal ( &
5717 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1). ')
5718 endif
5719 ENDIF
5720 IF(.NOT.inter_domain)THEN
5721 ALLOCATE(grid%fdob%elevob(1:model_config_rec%max_obs),STAT=ierr)
5722 if (ierr.ne.0) then
5723 CALL wrf_error_fatal ( &
5724 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1:model_config_rec%max_obs). ')
5725 endif
5726 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%elevob=initial_data_value
5727 ELSE
5728 ALLOCATE(grid%fdob%elevob(1),STAT=ierr)
5729 if (ierr.ne.0) then
5730 CALL wrf_error_fatal ( &
5731 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1). ')
5732 endif
5733 ENDIF
5734 IF(.NOT.inter_domain)THEN
5735 ALLOCATE(grid%fdob%rio(1:model_config_rec%max_obs),STAT=ierr)
5736 if (ierr.ne.0) then
5737 CALL wrf_error_fatal ( &
5738 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1:model_config_rec%max_obs). ')
5739 endif
5740 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rio=initial_data_value
5741 ELSE
5742 ALLOCATE(grid%fdob%rio(1),STAT=ierr)
5743 if (ierr.ne.0) then
5744 CALL wrf_error_fatal ( &
5745 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1). ')
5746 endif
5747 ENDIF
5748 IF(.NOT.inter_domain)THEN
5749 ALLOCATE(grid%fdob%rjo(1:model_config_rec%max_obs),STAT=ierr)
5750 if (ierr.ne.0) then
5751 CALL wrf_error_fatal ( &
5752 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1:model_config_rec%max_obs). ')
5753 endif
5754 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rjo=initial_data_value
5755 ELSE
5756 ALLOCATE(grid%fdob%rjo(1),STAT=ierr)
5757 if (ierr.ne.0) then
5758 CALL wrf_error_fatal ( &
5759 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1). ')
5760 endif
5761 ENDIF
5762 IF(.NOT.inter_domain)THEN
5763 ALLOCATE(grid%fdob%rko(1:model_config_rec%max_obs),STAT=ierr)
5764 if (ierr.ne.0) then
5765 CALL wrf_error_fatal ( &
5766 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1:model_config_rec%max_obs). ')
5767 endif
5768 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rko=initial_data_value
5769 ELSE
5770 ALLOCATE(grid%fdob%rko(1),STAT=ierr)
5771 if (ierr.ne.0) then
5772 CALL wrf_error_fatal ( &
5773 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1). ')
5774 endif
5775 ENDIF
5776 !ENDOFREGISTRYGENERATEDINCLUDE