em_allocs.inc

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(.NOT.inter_domain)THEN
448 ALLOCATE(grid%em_ru(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_ru(sm31:em31,sm32:em32,sm33:em33). ')
452  endif
453   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ru=initial_data_value
454 ELSE
455 ALLOCATE(grid%em_ru(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_ru(1,1,1).  ')
459  endif
460 ENDIF
461 IF(.NOT.inter_domain)THEN
462 ALLOCATE(grid%em_a_ru(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_a_ru(sm31:em31,sm32:em32,sm33:em33). ')
466  endif
467   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ru=initial_data_value
468 ELSE
469 ALLOCATE(grid%em_a_ru(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_a_ru(1,1,1).  ')
473  endif
474 ENDIF
475 IF(.NOT.inter_domain)THEN
476 ALLOCATE(grid%em_g_ru(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
477  if (ierr.ne.0) then
478  CALL wrf_error_fatal ( &
479 'frame/module_domain.f: Failed to allocate grid%em_g_ru(sm31:em31,sm32:em32,sm33:em33). ')
480  endif
481   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ru=initial_data_value
482 ELSE
483 ALLOCATE(grid%em_g_ru(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_g_ru(1,1,1).  ')
487  endif
488 ENDIF
489 IF(.NOT.inter_domain)THEN
490 ALLOCATE(grid%em_ru_m(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
491  if (ierr.ne.0) then
492  CALL wrf_error_fatal ( &
493 'frame/module_domain.f: Failed to allocate grid%em_ru_m(sm31:em31,sm32:em32,sm33:em33). ')
494  endif
495   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ru_m=initial_data_value
496 ELSE
497 ALLOCATE(grid%em_ru_m(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_ru_m(1,1,1).  ')
501  endif
502 ENDIF
503 IF(.NOT.inter_domain)THEN
504 ALLOCATE(grid%em_a_ru_m(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_ru_m(sm31:em31,sm32:em32,sm33:em33). ')
508  endif
509   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ru_m=initial_data_value
510 ELSE
511 ALLOCATE(grid%em_a_ru_m(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_ru_m(1,1,1).  ')
515  endif
516 ENDIF
517 IF(.NOT.inter_domain)THEN
518 ALLOCATE(grid%em_g_ru_m(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_g_ru_m(sm31:em31,sm32:em32,sm33:em33). ')
522  endif
523   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ru_m=initial_data_value
524 ELSE
525 ALLOCATE(grid%em_g_ru_m(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_g_ru_m(1,1,1).  ')
529  endif
530 ENDIF
531 IF(.NOT.inter_domain)THEN
532 ALLOCATE(grid%em_ru_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
533  if (ierr.ne.0) then
534  CALL wrf_error_fatal ( &
535 'frame/module_domain.f: Failed to allocate grid%em_ru_tend(sm31:em31,sm32:em32,sm33:em33). ')
536  endif
537   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ru_tend=initial_data_value
538 ELSE
539 ALLOCATE(grid%em_ru_tend(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_ru_tend(1,1,1).  ')
543  endif
544 ENDIF
545 IF(.NOT.inter_domain)THEN
546 ALLOCATE(grid%em_a_ru_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
547  if (ierr.ne.0) then
548  CALL wrf_error_fatal ( &
549 'frame/module_domain.f: Failed to allocate grid%em_a_ru_tend(sm31:em31,sm32:em32,sm33:em33). ')
550  endif
551   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ru_tend=initial_data_value
552 ELSE
553 ALLOCATE(grid%em_a_ru_tend(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_ru_tend(1,1,1).  ')
557  endif
558 ENDIF
559 IF(.NOT.inter_domain)THEN
560 ALLOCATE(grid%em_g_ru_tend(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_ru_tend(sm31:em31,sm32:em32,sm33:em33). ')
564  endif
565   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ru_tend=initial_data_value
566 ELSE
567 ALLOCATE(grid%em_g_ru_tend(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_ru_tend(1,1,1).  ')
571  endif
572 ENDIF
573 IF(.NOT.inter_domain)THEN
574 ALLOCATE(grid%em_u_save(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_u_save(sm31:em31,sm32:em32,sm33:em33). ')
578  endif
579   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_u_save=initial_data_value
580 ELSE
581 ALLOCATE(grid%em_u_save(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_u_save(1,1,1).  ')
585  endif
586 ENDIF
587 IF(.NOT.inter_domain)THEN
588 ALLOCATE(grid%em_a_u_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
589  if (ierr.ne.0) then
590  CALL wrf_error_fatal ( &
591 'frame/module_domain.f: Failed to allocate grid%em_a_u_save(sm31:em31,sm32:em32,sm33:em33). ')
592  endif
593   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_u_save=initial_data_value
594 ELSE
595 ALLOCATE(grid%em_a_u_save(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_a_u_save(1,1,1).  ')
599  endif
600 ENDIF
601 IF(.NOT.inter_domain)THEN
602 ALLOCATE(grid%em_g_u_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
603  if (ierr.ne.0) then
604  CALL wrf_error_fatal ( &
605 'frame/module_domain.f: Failed to allocate grid%em_g_u_save(sm31:em31,sm32:em32,sm33:em33). ')
606  endif
607   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_u_save=initial_data_value
608 ELSE
609 ALLOCATE(grid%em_g_u_save(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_u_save(1,1,1).  ')
613  endif
614 ENDIF
615 IF(IAND(1,tl).NE.0)THEN
616 ALLOCATE(grid%em_v_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_v_1(sm31:em31,sm32:em32,sm33:em33). ')
620  endif
621   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_1=initial_data_value
622 ELSE
623 ALLOCATE(grid%em_v_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_v_1(1,1,1).  ')
627  endif
628 ENDIF
629 IF(IAND(2,tl).NE.0)THEN
630 ALLOCATE(grid%em_v_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_v_2(sm31:em31,sm32:em32,sm33:em33). ')
634  endif
635   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_2=initial_data_value
636 ELSE
637 ALLOCATE(grid%em_v_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_v_2(1,1,1).  ')
641  endif
642 ENDIF
643 IF(.NOT.inter_domain)THEN
644 ALLOCATE(grid%em_v_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_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
648  endif
649   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_b=initial_data_value
650 ELSE
651 ALLOCATE(grid%em_v_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_v_b(1,1,1,1).  ')
655  endif
656 ENDIF
657 IF(.NOT.inter_domain)THEN
658 ALLOCATE(grid%em_v_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_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
662  endif
663   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_bt=initial_data_value
664 ELSE
665 ALLOCATE(grid%em_v_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_v_bt(1,1,1,1).  ')
669  endif
670 ENDIF
671 IF(IAND(1,tl).NE.0)THEN
672 ALLOCATE(grid%em_a_v_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_v_1(sm31:em31,sm32:em32,sm33:em33). ')
676  endif
677   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_1=initial_data_value
678 ELSE
679 ALLOCATE(grid%em_a_v_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_v_1(1,1,1).  ')
683  endif
684 ENDIF
685 IF(IAND(2,tl).NE.0)THEN
686 ALLOCATE(grid%em_a_v_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_v_2(sm31:em31,sm32:em32,sm33:em33). ')
690  endif
691   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_2=initial_data_value
692 ELSE
693 ALLOCATE(grid%em_a_v_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_v_2(1,1,1).  ')
697  endif
698 ENDIF
699 IF(.NOT.inter_domain)THEN
700 ALLOCATE(grid%em_a_v_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_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
704  endif
705   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_b=initial_data_value
706 ELSE
707 ALLOCATE(grid%em_a_v_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_v_b(1,1,1,1).  ')
711  endif
712 ENDIF
713 IF(.NOT.inter_domain)THEN
714 ALLOCATE(grid%em_a_v_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_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
718  endif
719   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_bt=initial_data_value
720 ELSE
721 ALLOCATE(grid%em_a_v_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_v_bt(1,1,1,1).  ')
725  endif
726 ENDIF
727 IF(IAND(1,tl).NE.0)THEN
728 ALLOCATE(grid%em_g_v_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_v_1(sm31:em31,sm32:em32,sm33:em33). ')
732  endif
733   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_1=initial_data_value
734 ELSE
735 ALLOCATE(grid%em_g_v_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_v_1(1,1,1).  ')
739  endif
740 ENDIF
741 IF(IAND(2,tl).NE.0)THEN
742 ALLOCATE(grid%em_g_v_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_v_2(sm31:em31,sm32:em32,sm33:em33). ')
746  endif
747   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_2=initial_data_value
748 ELSE
749 ALLOCATE(grid%em_g_v_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_v_2(1,1,1).  ')
753  endif
754 ENDIF
755 IF(.NOT.inter_domain)THEN
756 ALLOCATE(grid%em_g_v_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_v_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
760  endif
761   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_b=initial_data_value
762 ELSE
763 ALLOCATE(grid%em_g_v_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_v_b(1,1,1,1).  ')
767  endif
768 ENDIF
769 IF(.NOT.inter_domain)THEN
770 ALLOCATE(grid%em_g_v_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_v_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
774  endif
775   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_bt=initial_data_value
776 ELSE
777 ALLOCATE(grid%em_g_v_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_v_bt(1,1,1,1).  ')
781  endif
782 ENDIF
783 IF(.NOT.inter_domain)THEN
784 ALLOCATE(grid%em_rv(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_rv(sm31:em31,sm32:em32,sm33:em33). ')
788  endif
789   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rv=initial_data_value
790 ELSE
791 ALLOCATE(grid%em_rv(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_rv(1,1,1).  ')
795  endif
796 ENDIF
797 IF(.NOT.inter_domain)THEN
798 ALLOCATE(grid%em_a_rv(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_a_rv(sm31:em31,sm32:em32,sm33:em33). ')
802  endif
803   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_rv=initial_data_value
804 ELSE
805 ALLOCATE(grid%em_a_rv(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_a_rv(1,1,1).  ')
809  endif
810 ENDIF
811 IF(.NOT.inter_domain)THEN
812 ALLOCATE(grid%em_g_rv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
813  if (ierr.ne.0) then
814  CALL wrf_error_fatal ( &
815 'frame/module_domain.f: Failed to allocate grid%em_g_rv(sm31:em31,sm32:em32,sm33:em33). ')
816  endif
817   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_rv=initial_data_value
818 ELSE
819 ALLOCATE(grid%em_g_rv(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_g_rv(1,1,1).  ')
823  endif
824 ENDIF
825 IF(.NOT.inter_domain)THEN
826 ALLOCATE(grid%em_rv_m(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
827  if (ierr.ne.0) then
828  CALL wrf_error_fatal ( &
829 'frame/module_domain.f: Failed to allocate grid%em_rv_m(sm31:em31,sm32:em32,sm33:em33). ')
830  endif
831   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rv_m=initial_data_value
832 ELSE
833 ALLOCATE(grid%em_rv_m(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_rv_m(1,1,1).  ')
837  endif
838 ENDIF
839 IF(.NOT.inter_domain)THEN
840 ALLOCATE(grid%em_a_rv_m(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_rv_m(sm31:em31,sm32:em32,sm33:em33). ')
844  endif
845   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_rv_m=initial_data_value
846 ELSE
847 ALLOCATE(grid%em_a_rv_m(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_rv_m(1,1,1).  ')
851  endif
852 ENDIF
853 IF(.NOT.inter_domain)THEN
854 ALLOCATE(grid%em_g_rv_m(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_g_rv_m(sm31:em31,sm32:em32,sm33:em33). ')
858  endif
859   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_rv_m=initial_data_value
860 ELSE
861 ALLOCATE(grid%em_g_rv_m(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_g_rv_m(1,1,1).  ')
865  endif
866 ENDIF
867 IF(.NOT.inter_domain)THEN
868 ALLOCATE(grid%em_rv_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
869  if (ierr.ne.0) then
870  CALL wrf_error_fatal ( &
871 'frame/module_domain.f: Failed to allocate grid%em_rv_tend(sm31:em31,sm32:em32,sm33:em33). ')
872  endif
873   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rv_tend=initial_data_value
874 ELSE
875 ALLOCATE(grid%em_rv_tend(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_rv_tend(1,1,1).  ')
879  endif
880 ENDIF
881 IF(.NOT.inter_domain)THEN
882 ALLOCATE(grid%em_a_rv_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
883  if (ierr.ne.0) then
884  CALL wrf_error_fatal ( &
885 'frame/module_domain.f: Failed to allocate grid%em_a_rv_tend(sm31:em31,sm32:em32,sm33:em33). ')
886  endif
887   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_rv_tend=initial_data_value
888 ELSE
889 ALLOCATE(grid%em_a_rv_tend(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_rv_tend(1,1,1).  ')
893  endif
894 ENDIF
895 IF(.NOT.inter_domain)THEN
896 ALLOCATE(grid%em_g_rv_tend(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_rv_tend(sm31:em31,sm32:em32,sm33:em33). ')
900  endif
901   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_rv_tend=initial_data_value
902 ELSE
903 ALLOCATE(grid%em_g_rv_tend(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_rv_tend(1,1,1).  ')
907  endif
908 ENDIF
909 IF(.NOT.inter_domain)THEN
910 ALLOCATE(grid%em_v_save(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_v_save(sm31:em31,sm32:em32,sm33:em33). ')
914  endif
915   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_v_save=initial_data_value
916 ELSE
917 ALLOCATE(grid%em_v_save(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_v_save(1,1,1).  ')
921  endif
922 ENDIF
923 IF(.NOT.inter_domain)THEN
924 ALLOCATE(grid%em_a_v_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
925  if (ierr.ne.0) then
926  CALL wrf_error_fatal ( &
927 'frame/module_domain.f: Failed to allocate grid%em_a_v_save(sm31:em31,sm32:em32,sm33:em33). ')
928  endif
929   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_v_save=initial_data_value
930 ELSE
931 ALLOCATE(grid%em_a_v_save(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_a_v_save(1,1,1).  ')
935  endif
936 ENDIF
937 IF(.NOT.inter_domain)THEN
938 ALLOCATE(grid%em_g_v_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
939  if (ierr.ne.0) then
940  CALL wrf_error_fatal ( &
941 'frame/module_domain.f: Failed to allocate grid%em_g_v_save(sm31:em31,sm32:em32,sm33:em33). ')
942  endif
943   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_v_save=initial_data_value
944 ELSE
945 ALLOCATE(grid%em_g_v_save(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_v_save(1,1,1).  ')
949  endif
950 ENDIF
951 IF(IAND(1,tl).NE.0)THEN
952 ALLOCATE(grid%em_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
953  if (ierr.ne.0) then
954  CALL wrf_error_fatal ( &
955 'frame/module_domain.f: Failed to allocate grid%em_w_1(sm31:em31,sm32:em32,sm33:em33). ')
956  endif
957   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_1=initial_data_value
958 ELSE
959 ALLOCATE(grid%em_w_1(1,1,1),STAT=ierr)
960  if (ierr.ne.0) then
961  CALL wrf_error_fatal ( &
962 'frame/module_domain.f: Failed to allocate grid%em_w_1(1,1,1).  ')
963  endif
964 ENDIF
965 IF(IAND(2,tl).NE.0)THEN
966 ALLOCATE(grid%em_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
967  if (ierr.ne.0) then
968  CALL wrf_error_fatal ( &
969 'frame/module_domain.f: Failed to allocate grid%em_w_2(sm31:em31,sm32:em32,sm33:em33). ')
970  endif
971   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_2=initial_data_value
972 ELSE
973 ALLOCATE(grid%em_w_2(1,1,1),STAT=ierr)
974  if (ierr.ne.0) then
975  CALL wrf_error_fatal ( &
976 'frame/module_domain.f: Failed to allocate grid%em_w_2(1,1,1).  ')
977  endif
978 ENDIF
979 IF(.NOT.inter_domain)THEN
980 ALLOCATE(grid%em_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
981  if (ierr.ne.0) then
982  CALL wrf_error_fatal ( &
983 'frame/module_domain.f: Failed to allocate grid%em_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
984  endif
985   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_b=initial_data_value
986 ELSE
987 ALLOCATE(grid%em_w_b(1,1,1,1),STAT=ierr)
988  if (ierr.ne.0) then
989  CALL wrf_error_fatal ( &
990 'frame/module_domain.f: Failed to allocate grid%em_w_b(1,1,1,1).  ')
991  endif
992 ENDIF
993 IF(.NOT.inter_domain)THEN
994 ALLOCATE(grid%em_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
995  if (ierr.ne.0) then
996  CALL wrf_error_fatal ( &
997 'frame/module_domain.f: Failed to allocate grid%em_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
998  endif
999   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_w_bt=initial_data_value
1000 ELSE
1001 ALLOCATE(grid%em_w_bt(1,1,1,1),STAT=ierr)
1002  if (ierr.ne.0) then
1003  CALL wrf_error_fatal ( &
1004 'frame/module_domain.f: Failed to allocate grid%em_w_bt(1,1,1,1).  ')
1005  endif
1006 ENDIF
1007 IF(IAND(1,tl).NE.0)THEN
1008 ALLOCATE(grid%em_a_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1009  if (ierr.ne.0) then
1010  CALL wrf_error_fatal ( &
1011 'frame/module_domain.f: Failed to allocate grid%em_a_w_1(sm31:em31,sm32:em32,sm33:em33). ')
1012  endif
1013   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_1=initial_data_value
1014 ELSE
1015 ALLOCATE(grid%em_a_w_1(1,1,1),STAT=ierr)
1016  if (ierr.ne.0) then
1017  CALL wrf_error_fatal ( &
1018 'frame/module_domain.f: Failed to allocate grid%em_a_w_1(1,1,1).  ')
1019  endif
1020 ENDIF
1021 IF(IAND(2,tl).NE.0)THEN
1022 ALLOCATE(grid%em_a_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1023  if (ierr.ne.0) then
1024  CALL wrf_error_fatal ( &
1025 'frame/module_domain.f: Failed to allocate grid%em_a_w_2(sm31:em31,sm32:em32,sm33:em33). ')
1026  endif
1027   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_2=initial_data_value
1028 ELSE
1029 ALLOCATE(grid%em_a_w_2(1,1,1),STAT=ierr)
1030  if (ierr.ne.0) then
1031  CALL wrf_error_fatal ( &
1032 'frame/module_domain.f: Failed to allocate grid%em_a_w_2(1,1,1).  ')
1033  endif
1034 ENDIF
1035 IF(.NOT.inter_domain)THEN
1036 ALLOCATE(grid%em_a_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1037  if (ierr.ne.0) then
1038  CALL wrf_error_fatal ( &
1039 'frame/module_domain.f: Failed to allocate grid%em_a_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1040  endif
1041   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_b=initial_data_value
1042 ELSE
1043 ALLOCATE(grid%em_a_w_b(1,1,1,1),STAT=ierr)
1044  if (ierr.ne.0) then
1045  CALL wrf_error_fatal ( &
1046 'frame/module_domain.f: Failed to allocate grid%em_a_w_b(1,1,1,1).  ')
1047  endif
1048 ENDIF
1049 IF(.NOT.inter_domain)THEN
1050 ALLOCATE(grid%em_a_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1051  if (ierr.ne.0) then
1052  CALL wrf_error_fatal ( &
1053 'frame/module_domain.f: Failed to allocate grid%em_a_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1054  endif
1055   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_w_bt=initial_data_value
1056 ELSE
1057 ALLOCATE(grid%em_a_w_bt(1,1,1,1),STAT=ierr)
1058  if (ierr.ne.0) then
1059  CALL wrf_error_fatal ( &
1060 'frame/module_domain.f: Failed to allocate grid%em_a_w_bt(1,1,1,1).  ')
1061  endif
1062 ENDIF
1063 IF(IAND(1,tl).NE.0)THEN
1064 ALLOCATE(grid%em_g_w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1065  if (ierr.ne.0) then
1066  CALL wrf_error_fatal ( &
1067 'frame/module_domain.f: Failed to allocate grid%em_g_w_1(sm31:em31,sm32:em32,sm33:em33). ')
1068  endif
1069   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_1=initial_data_value
1070 ELSE
1071 ALLOCATE(grid%em_g_w_1(1,1,1),STAT=ierr)
1072  if (ierr.ne.0) then
1073  CALL wrf_error_fatal ( &
1074 'frame/module_domain.f: Failed to allocate grid%em_g_w_1(1,1,1).  ')
1075  endif
1076 ENDIF
1077 IF(IAND(2,tl).NE.0)THEN
1078 ALLOCATE(grid%em_g_w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1079  if (ierr.ne.0) then
1080  CALL wrf_error_fatal ( &
1081 'frame/module_domain.f: Failed to allocate grid%em_g_w_2(sm31:em31,sm32:em32,sm33:em33). ')
1082  endif
1083   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_2=initial_data_value
1084 ELSE
1085 ALLOCATE(grid%em_g_w_2(1,1,1),STAT=ierr)
1086  if (ierr.ne.0) then
1087  CALL wrf_error_fatal ( &
1088 'frame/module_domain.f: Failed to allocate grid%em_g_w_2(1,1,1).  ')
1089  endif
1090 ENDIF
1091 IF(.NOT.inter_domain)THEN
1092 ALLOCATE(grid%em_g_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1093  if (ierr.ne.0) then
1094  CALL wrf_error_fatal ( &
1095 'frame/module_domain.f: Failed to allocate grid%em_g_w_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1096  endif
1097   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_b=initial_data_value
1098 ELSE
1099 ALLOCATE(grid%em_g_w_b(1,1,1,1),STAT=ierr)
1100  if (ierr.ne.0) then
1101  CALL wrf_error_fatal ( &
1102 'frame/module_domain.f: Failed to allocate grid%em_g_w_b(1,1,1,1).  ')
1103  endif
1104 ENDIF
1105 IF(.NOT.inter_domain)THEN
1106 ALLOCATE(grid%em_g_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1107  if (ierr.ne.0) then
1108  CALL wrf_error_fatal ( &
1109 'frame/module_domain.f: Failed to allocate grid%em_g_w_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1110  endif
1111   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_w_bt=initial_data_value
1112 ELSE
1113 ALLOCATE(grid%em_g_w_bt(1,1,1,1),STAT=ierr)
1114  if (ierr.ne.0) then
1115  CALL wrf_error_fatal ( &
1116 'frame/module_domain.f: Failed to allocate grid%em_g_w_bt(1,1,1,1).  ')
1117  endif
1118 ENDIF
1119 IF(.NOT.inter_domain)THEN
1120 ALLOCATE(grid%em_ww(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1121  if (ierr.ne.0) then
1122  CALL wrf_error_fatal ( &
1123 'frame/module_domain.f: Failed to allocate grid%em_ww(sm31:em31,sm32:em32,sm33:em33). ')
1124  endif
1125   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ww=initial_data_value
1126 ELSE
1127 ALLOCATE(grid%em_ww(1,1,1),STAT=ierr)
1128  if (ierr.ne.0) then
1129  CALL wrf_error_fatal ( &
1130 'frame/module_domain.f: Failed to allocate grid%em_ww(1,1,1).  ')
1131  endif
1132 ENDIF
1133 IF(.NOT.inter_domain)THEN
1134 ALLOCATE(grid%em_a_ww(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1135  if (ierr.ne.0) then
1136  CALL wrf_error_fatal ( &
1137 'frame/module_domain.f: Failed to allocate grid%em_a_ww(sm31:em31,sm32:em32,sm33:em33). ')
1138  endif
1139   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ww=initial_data_value
1140 ELSE
1141 ALLOCATE(grid%em_a_ww(1,1,1),STAT=ierr)
1142  if (ierr.ne.0) then
1143  CALL wrf_error_fatal ( &
1144 'frame/module_domain.f: Failed to allocate grid%em_a_ww(1,1,1).  ')
1145  endif
1146 ENDIF
1147 IF(.NOT.inter_domain)THEN
1148 ALLOCATE(grid%em_g_ww(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1149  if (ierr.ne.0) then
1150  CALL wrf_error_fatal ( &
1151 'frame/module_domain.f: Failed to allocate grid%em_g_ww(sm31:em31,sm32:em32,sm33:em33). ')
1152  endif
1153   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ww=initial_data_value
1154 ELSE
1155 ALLOCATE(grid%em_g_ww(1,1,1),STAT=ierr)
1156  if (ierr.ne.0) then
1157  CALL wrf_error_fatal ( &
1158 'frame/module_domain.f: Failed to allocate grid%em_g_ww(1,1,1).  ')
1159  endif
1160 ENDIF
1161 IF(.NOT.inter_domain)THEN
1162 ALLOCATE(grid%em_rw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1163  if (ierr.ne.0) then
1164  CALL wrf_error_fatal ( &
1165 'frame/module_domain.f: Failed to allocate grid%em_rw(sm31:em31,sm32:em32,sm33:em33). ')
1166  endif
1167   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rw=initial_data_value
1168 ELSE
1169 ALLOCATE(grid%em_rw(1,1,1),STAT=ierr)
1170  if (ierr.ne.0) then
1171  CALL wrf_error_fatal ( &
1172 'frame/module_domain.f: Failed to allocate grid%em_rw(1,1,1).  ')
1173  endif
1174 ENDIF
1175 IF(.NOT.inter_domain)THEN
1176 ALLOCATE(grid%em_a_rw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1177  if (ierr.ne.0) then
1178  CALL wrf_error_fatal ( &
1179 'frame/module_domain.f: Failed to allocate grid%em_a_rw(sm31:em31,sm32:em32,sm33:em33). ')
1180  endif
1181   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_rw=initial_data_value
1182 ELSE
1183 ALLOCATE(grid%em_a_rw(1,1,1),STAT=ierr)
1184  if (ierr.ne.0) then
1185  CALL wrf_error_fatal ( &
1186 'frame/module_domain.f: Failed to allocate grid%em_a_rw(1,1,1).  ')
1187  endif
1188 ENDIF
1189 IF(.NOT.inter_domain)THEN
1190 ALLOCATE(grid%em_g_rw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1191  if (ierr.ne.0) then
1192  CALL wrf_error_fatal ( &
1193 'frame/module_domain.f: Failed to allocate grid%em_g_rw(sm31:em31,sm32:em32,sm33:em33). ')
1194  endif
1195   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_rw=initial_data_value
1196 ELSE
1197 ALLOCATE(grid%em_g_rw(1,1,1),STAT=ierr)
1198  if (ierr.ne.0) then
1199  CALL wrf_error_fatal ( &
1200 'frame/module_domain.f: Failed to allocate grid%em_g_rw(1,1,1).  ')
1201  endif
1202 ENDIF
1203 IF(IAND(1,tl).NE.0)THEN
1204 ALLOCATE(grid%em_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1205  if (ierr.ne.0) then
1206  CALL wrf_error_fatal ( &
1207 'frame/module_domain.f: Failed to allocate grid%em_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
1208  endif
1209   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_1=initial_data_value
1210 ELSE
1211 ALLOCATE(grid%em_ph_1(1,1,1),STAT=ierr)
1212  if (ierr.ne.0) then
1213  CALL wrf_error_fatal ( &
1214 'frame/module_domain.f: Failed to allocate grid%em_ph_1(1,1,1).  ')
1215  endif
1216 ENDIF
1217 IF(IAND(2,tl).NE.0)THEN
1218 ALLOCATE(grid%em_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1219  if (ierr.ne.0) then
1220  CALL wrf_error_fatal ( &
1221 'frame/module_domain.f: Failed to allocate grid%em_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
1222  endif
1223   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_2=initial_data_value
1224 ELSE
1225 ALLOCATE(grid%em_ph_2(1,1,1),STAT=ierr)
1226  if (ierr.ne.0) then
1227  CALL wrf_error_fatal ( &
1228 'frame/module_domain.f: Failed to allocate grid%em_ph_2(1,1,1).  ')
1229  endif
1230 ENDIF
1231 IF(.NOT.inter_domain)THEN
1232 ALLOCATE(grid%em_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1233  if (ierr.ne.0) then
1234  CALL wrf_error_fatal ( &
1235 'frame/module_domain.f: Failed to allocate grid%em_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1236  endif
1237   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_b=initial_data_value
1238 ELSE
1239 ALLOCATE(grid%em_ph_b(1,1,1,1),STAT=ierr)
1240  if (ierr.ne.0) then
1241  CALL wrf_error_fatal ( &
1242 'frame/module_domain.f: Failed to allocate grid%em_ph_b(1,1,1,1).  ')
1243  endif
1244 ENDIF
1245 IF(.NOT.inter_domain)THEN
1246 ALLOCATE(grid%em_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1247  if (ierr.ne.0) then
1248  CALL wrf_error_fatal ( &
1249 'frame/module_domain.f: Failed to allocate grid%em_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1250  endif
1251   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph_bt=initial_data_value
1252 ELSE
1253 ALLOCATE(grid%em_ph_bt(1,1,1,1),STAT=ierr)
1254  if (ierr.ne.0) then
1255  CALL wrf_error_fatal ( &
1256 'frame/module_domain.f: Failed to allocate grid%em_ph_bt(1,1,1,1).  ')
1257  endif
1258 ENDIF
1259 IF(IAND(1,tl).NE.0)THEN
1260 ALLOCATE(grid%em_a_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1261  if (ierr.ne.0) then
1262  CALL wrf_error_fatal ( &
1263 'frame/module_domain.f: Failed to allocate grid%em_a_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
1264  endif
1265   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_1=initial_data_value
1266 ELSE
1267 ALLOCATE(grid%em_a_ph_1(1,1,1),STAT=ierr)
1268  if (ierr.ne.0) then
1269  CALL wrf_error_fatal ( &
1270 'frame/module_domain.f: Failed to allocate grid%em_a_ph_1(1,1,1).  ')
1271  endif
1272 ENDIF
1273 IF(IAND(2,tl).NE.0)THEN
1274 ALLOCATE(grid%em_a_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1275  if (ierr.ne.0) then
1276  CALL wrf_error_fatal ( &
1277 'frame/module_domain.f: Failed to allocate grid%em_a_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
1278  endif
1279   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_2=initial_data_value
1280 ELSE
1281 ALLOCATE(grid%em_a_ph_2(1,1,1),STAT=ierr)
1282  if (ierr.ne.0) then
1283  CALL wrf_error_fatal ( &
1284 'frame/module_domain.f: Failed to allocate grid%em_a_ph_2(1,1,1).  ')
1285  endif
1286 ENDIF
1287 IF(.NOT.inter_domain)THEN
1288 ALLOCATE(grid%em_a_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1289  if (ierr.ne.0) then
1290  CALL wrf_error_fatal ( &
1291 'frame/module_domain.f: Failed to allocate grid%em_a_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1292  endif
1293   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_b=initial_data_value
1294 ELSE
1295 ALLOCATE(grid%em_a_ph_b(1,1,1,1),STAT=ierr)
1296  if (ierr.ne.0) then
1297  CALL wrf_error_fatal ( &
1298 'frame/module_domain.f: Failed to allocate grid%em_a_ph_b(1,1,1,1).  ')
1299  endif
1300 ENDIF
1301 IF(.NOT.inter_domain)THEN
1302 ALLOCATE(grid%em_a_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1303  if (ierr.ne.0) then
1304  CALL wrf_error_fatal ( &
1305 'frame/module_domain.f: Failed to allocate grid%em_a_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1306  endif
1307   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_ph_bt=initial_data_value
1308 ELSE
1309 ALLOCATE(grid%em_a_ph_bt(1,1,1,1),STAT=ierr)
1310  if (ierr.ne.0) then
1311  CALL wrf_error_fatal ( &
1312 'frame/module_domain.f: Failed to allocate grid%em_a_ph_bt(1,1,1,1).  ')
1313  endif
1314 ENDIF
1315 IF(IAND(1,tl).NE.0)THEN
1316 ALLOCATE(grid%em_g_ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1317  if (ierr.ne.0) then
1318  CALL wrf_error_fatal ( &
1319 'frame/module_domain.f: Failed to allocate grid%em_g_ph_1(sm31:em31,sm32:em32,sm33:em33). ')
1320  endif
1321   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_1=initial_data_value
1322 ELSE
1323 ALLOCATE(grid%em_g_ph_1(1,1,1),STAT=ierr)
1324  if (ierr.ne.0) then
1325  CALL wrf_error_fatal ( &
1326 'frame/module_domain.f: Failed to allocate grid%em_g_ph_1(1,1,1).  ')
1327  endif
1328 ENDIF
1329 IF(IAND(2,tl).NE.0)THEN
1330 ALLOCATE(grid%em_g_ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1331  if (ierr.ne.0) then
1332  CALL wrf_error_fatal ( &
1333 'frame/module_domain.f: Failed to allocate grid%em_g_ph_2(sm31:em31,sm32:em32,sm33:em33). ')
1334  endif
1335   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_2=initial_data_value
1336 ELSE
1337 ALLOCATE(grid%em_g_ph_2(1,1,1),STAT=ierr)
1338  if (ierr.ne.0) then
1339  CALL wrf_error_fatal ( &
1340 'frame/module_domain.f: Failed to allocate grid%em_g_ph_2(1,1,1).  ')
1341  endif
1342 ENDIF
1343 IF(.NOT.inter_domain)THEN
1344 ALLOCATE(grid%em_g_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1345  if (ierr.ne.0) then
1346  CALL wrf_error_fatal ( &
1347 'frame/module_domain.f: Failed to allocate grid%em_g_ph_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1348  endif
1349   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_b=initial_data_value
1350 ELSE
1351 ALLOCATE(grid%em_g_ph_b(1,1,1,1),STAT=ierr)
1352  if (ierr.ne.0) then
1353  CALL wrf_error_fatal ( &
1354 'frame/module_domain.f: Failed to allocate grid%em_g_ph_b(1,1,1,1).  ')
1355  endif
1356 ENDIF
1357 IF(.NOT.inter_domain)THEN
1358 ALLOCATE(grid%em_g_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1359  if (ierr.ne.0) then
1360  CALL wrf_error_fatal ( &
1361 'frame/module_domain.f: Failed to allocate grid%em_g_ph_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1362  endif
1363   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_ph_bt=initial_data_value
1364 ELSE
1365 ALLOCATE(grid%em_g_ph_bt(1,1,1,1),STAT=ierr)
1366  if (ierr.ne.0) then
1367  CALL wrf_error_fatal ( &
1368 'frame/module_domain.f: Failed to allocate grid%em_g_ph_bt(1,1,1,1).  ')
1369  endif
1370 ENDIF
1371 ALLOCATE(grid%em_phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1372  if (ierr.ne.0) then
1373  CALL wrf_error_fatal ( &
1374 'frame/module_domain.f: Failed to allocate grid%em_phb(sm31:em31,sm32:em32,sm33:em33). ')
1375  endif
1376   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_phb=initial_data_value
1377 ALLOCATE(grid%em_a_phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1378  if (ierr.ne.0) then
1379  CALL wrf_error_fatal ( &
1380 'frame/module_domain.f: Failed to allocate grid%em_a_phb(sm31:em31,sm32:em32,sm33:em33). ')
1381  endif
1382   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_phb=initial_data_value
1383 ALLOCATE(grid%em_g_phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1384  if (ierr.ne.0) then
1385  CALL wrf_error_fatal ( &
1386 'frame/module_domain.f: Failed to allocate grid%em_g_phb(sm31:em31,sm32:em32,sm33:em33). ')
1387  endif
1388   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_phb=initial_data_value
1389 IF(.NOT.inter_domain)THEN
1390 ALLOCATE(grid%em_phb_fine(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1391  if (ierr.ne.0) then
1392  CALL wrf_error_fatal ( &
1393 'frame/module_domain.f: Failed to allocate grid%em_phb_fine(sm31:em31,sm32:em32,sm33:em33). ')
1394  endif
1395   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_phb_fine=initial_data_value
1396 ELSE
1397 ALLOCATE(grid%em_phb_fine(1,1,1),STAT=ierr)
1398  if (ierr.ne.0) then
1399  CALL wrf_error_fatal ( &
1400 'frame/module_domain.f: Failed to allocate grid%em_phb_fine(1,1,1).  ')
1401  endif
1402 ENDIF
1403 IF(.NOT.inter_domain)THEN
1404 ALLOCATE(grid%em_ph0(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1405  if (ierr.ne.0) then
1406  CALL wrf_error_fatal ( &
1407 'frame/module_domain.f: Failed to allocate grid%em_ph0(sm31:em31,sm32:em32,sm33:em33). ')
1408  endif
1409   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_ph0=initial_data_value
1410 ELSE
1411 ALLOCATE(grid%em_ph0(1,1,1),STAT=ierr)
1412  if (ierr.ne.0) then
1413  CALL wrf_error_fatal ( &
1414 'frame/module_domain.f: Failed to allocate grid%em_ph0(1,1,1).  ')
1415  endif
1416 ENDIF
1417 IF(.NOT.inter_domain)THEN
1418 ALLOCATE(grid%em_php(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1419  if (ierr.ne.0) then
1420  CALL wrf_error_fatal ( &
1421 'frame/module_domain.f: Failed to allocate grid%em_php(sm31:em31,sm32:em32,sm33:em33). ')
1422  endif
1423   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_php=initial_data_value
1424 ELSE
1425 ALLOCATE(grid%em_php(1,1,1),STAT=ierr)
1426  if (ierr.ne.0) then
1427  CALL wrf_error_fatal ( &
1428 'frame/module_domain.f: Failed to allocate grid%em_php(1,1,1).  ')
1429  endif
1430 ENDIF
1431 IF(.NOT.inter_domain)THEN
1432 ALLOCATE(grid%em_a_php(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1433  if (ierr.ne.0) then
1434  CALL wrf_error_fatal ( &
1435 'frame/module_domain.f: Failed to allocate grid%em_a_php(sm31:em31,sm32:em32,sm33:em33). ')
1436  endif
1437   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_php=initial_data_value
1438 ELSE
1439 ALLOCATE(grid%em_a_php(1,1,1),STAT=ierr)
1440  if (ierr.ne.0) then
1441  CALL wrf_error_fatal ( &
1442 'frame/module_domain.f: Failed to allocate grid%em_a_php(1,1,1).  ')
1443  endif
1444 ENDIF
1445 IF(.NOT.inter_domain)THEN
1446 ALLOCATE(grid%em_g_php(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1447  if (ierr.ne.0) then
1448  CALL wrf_error_fatal ( &
1449 'frame/module_domain.f: Failed to allocate grid%em_g_php(sm31:em31,sm32:em32,sm33:em33). ')
1450  endif
1451   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_php=initial_data_value
1452 ELSE
1453 ALLOCATE(grid%em_g_php(1,1,1),STAT=ierr)
1454  if (ierr.ne.0) then
1455  CALL wrf_error_fatal ( &
1456 'frame/module_domain.f: Failed to allocate grid%em_g_php(1,1,1).  ')
1457  endif
1458 ENDIF
1459 IF(IAND(1,tl).NE.0)THEN
1460 ALLOCATE(grid%em_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1461  if (ierr.ne.0) then
1462  CALL wrf_error_fatal ( &
1463 'frame/module_domain.f: Failed to allocate grid%em_t_1(sm31:em31,sm32:em32,sm33:em33). ')
1464  endif
1465   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_1=initial_data_value
1466 ELSE
1467 ALLOCATE(grid%em_t_1(1,1,1),STAT=ierr)
1468  if (ierr.ne.0) then
1469  CALL wrf_error_fatal ( &
1470 'frame/module_domain.f: Failed to allocate grid%em_t_1(1,1,1).  ')
1471  endif
1472 ENDIF
1473 IF(IAND(2,tl).NE.0)THEN
1474 ALLOCATE(grid%em_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1475  if (ierr.ne.0) then
1476  CALL wrf_error_fatal ( &
1477 'frame/module_domain.f: Failed to allocate grid%em_t_2(sm31:em31,sm32:em32,sm33:em33). ')
1478  endif
1479   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_2=initial_data_value
1480 ELSE
1481 ALLOCATE(grid%em_t_2(1,1,1),STAT=ierr)
1482  if (ierr.ne.0) then
1483  CALL wrf_error_fatal ( &
1484 'frame/module_domain.f: Failed to allocate grid%em_t_2(1,1,1).  ')
1485  endif
1486 ENDIF
1487 IF(.NOT.inter_domain)THEN
1488 ALLOCATE(grid%em_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1489  if (ierr.ne.0) then
1490  CALL wrf_error_fatal ( &
1491 'frame/module_domain.f: Failed to allocate grid%em_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1492  endif
1493   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_b=initial_data_value
1494 ELSE
1495 ALLOCATE(grid%em_t_b(1,1,1,1),STAT=ierr)
1496  if (ierr.ne.0) then
1497  CALL wrf_error_fatal ( &
1498 'frame/module_domain.f: Failed to allocate grid%em_t_b(1,1,1,1).  ')
1499  endif
1500 ENDIF
1501 IF(.NOT.inter_domain)THEN
1502 ALLOCATE(grid%em_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1503  if (ierr.ne.0) then
1504  CALL wrf_error_fatal ( &
1505 'frame/module_domain.f: Failed to allocate grid%em_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1506  endif
1507   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_bt=initial_data_value
1508 ELSE
1509 ALLOCATE(grid%em_t_bt(1,1,1,1),STAT=ierr)
1510  if (ierr.ne.0) then
1511  CALL wrf_error_fatal ( &
1512 'frame/module_domain.f: Failed to allocate grid%em_t_bt(1,1,1,1).  ')
1513  endif
1514 ENDIF
1515 IF(IAND(1,tl).NE.0)THEN
1516 ALLOCATE(grid%em_a_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1517  if (ierr.ne.0) then
1518  CALL wrf_error_fatal ( &
1519 'frame/module_domain.f: Failed to allocate grid%em_a_t_1(sm31:em31,sm32:em32,sm33:em33). ')
1520  endif
1521   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_1=initial_data_value
1522 ELSE
1523 ALLOCATE(grid%em_a_t_1(1,1,1),STAT=ierr)
1524  if (ierr.ne.0) then
1525  CALL wrf_error_fatal ( &
1526 'frame/module_domain.f: Failed to allocate grid%em_a_t_1(1,1,1).  ')
1527  endif
1528 ENDIF
1529 IF(IAND(2,tl).NE.0)THEN
1530 ALLOCATE(grid%em_a_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1531  if (ierr.ne.0) then
1532  CALL wrf_error_fatal ( &
1533 'frame/module_domain.f: Failed to allocate grid%em_a_t_2(sm31:em31,sm32:em32,sm33:em33). ')
1534  endif
1535   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_2=initial_data_value
1536 ELSE
1537 ALLOCATE(grid%em_a_t_2(1,1,1),STAT=ierr)
1538  if (ierr.ne.0) then
1539  CALL wrf_error_fatal ( &
1540 'frame/module_domain.f: Failed to allocate grid%em_a_t_2(1,1,1).  ')
1541  endif
1542 ENDIF
1543 IF(.NOT.inter_domain)THEN
1544 ALLOCATE(grid%em_a_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1545  if (ierr.ne.0) then
1546  CALL wrf_error_fatal ( &
1547 'frame/module_domain.f: Failed to allocate grid%em_a_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1548  endif
1549   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_b=initial_data_value
1550 ELSE
1551 ALLOCATE(grid%em_a_t_b(1,1,1,1),STAT=ierr)
1552  if (ierr.ne.0) then
1553  CALL wrf_error_fatal ( &
1554 'frame/module_domain.f: Failed to allocate grid%em_a_t_b(1,1,1,1).  ')
1555  endif
1556 ENDIF
1557 IF(.NOT.inter_domain)THEN
1558 ALLOCATE(grid%em_a_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1559  if (ierr.ne.0) then
1560  CALL wrf_error_fatal ( &
1561 'frame/module_domain.f: Failed to allocate grid%em_a_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1562  endif
1563   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_bt=initial_data_value
1564 ELSE
1565 ALLOCATE(grid%em_a_t_bt(1,1,1,1),STAT=ierr)
1566  if (ierr.ne.0) then
1567  CALL wrf_error_fatal ( &
1568 'frame/module_domain.f: Failed to allocate grid%em_a_t_bt(1,1,1,1).  ')
1569  endif
1570 ENDIF
1571 IF(IAND(1,tl).NE.0)THEN
1572 ALLOCATE(grid%em_g_t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1573  if (ierr.ne.0) then
1574  CALL wrf_error_fatal ( &
1575 'frame/module_domain.f: Failed to allocate grid%em_g_t_1(sm31:em31,sm32:em32,sm33:em33). ')
1576  endif
1577   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_1=initial_data_value
1578 ELSE
1579 ALLOCATE(grid%em_g_t_1(1,1,1),STAT=ierr)
1580  if (ierr.ne.0) then
1581  CALL wrf_error_fatal ( &
1582 'frame/module_domain.f: Failed to allocate grid%em_g_t_1(1,1,1).  ')
1583  endif
1584 ENDIF
1585 IF(IAND(2,tl).NE.0)THEN
1586 ALLOCATE(grid%em_g_t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1587  if (ierr.ne.0) then
1588  CALL wrf_error_fatal ( &
1589 'frame/module_domain.f: Failed to allocate grid%em_g_t_2(sm31:em31,sm32:em32,sm33:em33). ')
1590  endif
1591   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_2=initial_data_value
1592 ELSE
1593 ALLOCATE(grid%em_g_t_2(1,1,1),STAT=ierr)
1594  if (ierr.ne.0) then
1595  CALL wrf_error_fatal ( &
1596 'frame/module_domain.f: Failed to allocate grid%em_g_t_2(1,1,1).  ')
1597  endif
1598 ENDIF
1599 IF(.NOT.inter_domain)THEN
1600 ALLOCATE(grid%em_g_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1601  if (ierr.ne.0) then
1602  CALL wrf_error_fatal ( &
1603 'frame/module_domain.f: Failed to allocate grid%em_g_t_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1604  endif
1605   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_b=initial_data_value
1606 ELSE
1607 ALLOCATE(grid%em_g_t_b(1,1,1,1),STAT=ierr)
1608  if (ierr.ne.0) then
1609  CALL wrf_error_fatal ( &
1610 'frame/module_domain.f: Failed to allocate grid%em_g_t_b(1,1,1,1).  ')
1611  endif
1612 ENDIF
1613 IF(.NOT.inter_domain)THEN
1614 ALLOCATE(grid%em_g_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4),STAT=ierr)
1615  if (ierr.ne.0) then
1616  CALL wrf_error_fatal ( &
1617 'frame/module_domain.f: Failed to allocate grid%em_g_t_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4). ')
1618  endif
1619   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_bt=initial_data_value
1620 ELSE
1621 ALLOCATE(grid%em_g_t_bt(1,1,1,1),STAT=ierr)
1622  if (ierr.ne.0) then
1623  CALL wrf_error_fatal ( &
1624 'frame/module_domain.f: Failed to allocate grid%em_g_t_bt(1,1,1,1).  ')
1625  endif
1626 ENDIF
1627 IF(.NOT.inter_domain)THEN
1628 ALLOCATE(grid%em_t_init(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1629  if (ierr.ne.0) then
1630  CALL wrf_error_fatal ( &
1631 'frame/module_domain.f: Failed to allocate grid%em_t_init(sm31:em31,sm32:em32,sm33:em33). ')
1632  endif
1633   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_init=initial_data_value
1634 ELSE
1635 ALLOCATE(grid%em_t_init(1,1,1),STAT=ierr)
1636  if (ierr.ne.0) then
1637  CALL wrf_error_fatal ( &
1638 'frame/module_domain.f: Failed to allocate grid%em_t_init(1,1,1).  ')
1639  endif
1640 ENDIF
1641 IF(.NOT.inter_domain)THEN
1642 IF(IAND(1,tl).NE.0)THEN
1643 ALLOCATE(grid%em_tp_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1644  if (ierr.ne.0) then
1645  CALL wrf_error_fatal ( &
1646 'frame/module_domain.f: Failed to allocate grid%em_tp_1(sm31:em31,sm32:em32,sm33:em33). ')
1647  endif
1648   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tp_1=initial_data_value
1649 ELSE
1650 ALLOCATE(grid%em_tp_1(1,1,1),STAT=ierr)
1651  if (ierr.ne.0) then
1652  CALL wrf_error_fatal ( &
1653 'frame/module_domain.f: Failed to allocate grid%em_tp_1(1,1,1).  ')
1654  endif
1655 ENDIF
1656 ELSE
1657 ALLOCATE(grid%em_tp_1(1,1,1),STAT=ierr)
1658  if (ierr.ne.0) then
1659  CALL wrf_error_fatal ( &
1660 'frame/module_domain.f: Failed to allocate grid%em_tp_1(1,1,1).  ')
1661  endif
1662 ENDIF
1663 IF(.NOT.inter_domain)THEN
1664 IF(IAND(2,tl).NE.0)THEN
1665 ALLOCATE(grid%em_tp_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1666  if (ierr.ne.0) then
1667  CALL wrf_error_fatal ( &
1668 'frame/module_domain.f: Failed to allocate grid%em_tp_2(sm31:em31,sm32:em32,sm33:em33). ')
1669  endif
1670   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tp_2=initial_data_value
1671 ELSE
1672 ALLOCATE(grid%em_tp_2(1,1,1),STAT=ierr)
1673  if (ierr.ne.0) then
1674  CALL wrf_error_fatal ( &
1675 'frame/module_domain.f: Failed to allocate grid%em_tp_2(1,1,1).  ')
1676  endif
1677 ENDIF
1678 ELSE
1679 ALLOCATE(grid%em_tp_2(1,1,1),STAT=ierr)
1680  if (ierr.ne.0) then
1681  CALL wrf_error_fatal ( &
1682 'frame/module_domain.f: Failed to allocate grid%em_tp_2(1,1,1).  ')
1683  endif
1684 ENDIF
1685 ALLOCATE(grid%em_t_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1686  if (ierr.ne.0) then
1687  CALL wrf_error_fatal ( &
1688 'frame/module_domain.f: Failed to allocate grid%em_t_save(sm31:em31,sm32:em32,sm33:em33). ')
1689  endif
1690   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_save=initial_data_value
1691 ALLOCATE(grid%em_a_t_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1692  if (ierr.ne.0) then
1693  CALL wrf_error_fatal ( &
1694 'frame/module_domain.f: Failed to allocate grid%em_a_t_save(sm31:em31,sm32:em32,sm33:em33). ')
1695  endif
1696   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_t_save=initial_data_value
1697 ALLOCATE(grid%em_g_t_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1698  if (ierr.ne.0) then
1699  CALL wrf_error_fatal ( &
1700 'frame/module_domain.f: Failed to allocate grid%em_g_t_save(sm31:em31,sm32:em32,sm33:em33). ')
1701  endif
1702   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_t_save=initial_data_value
1703 IF(IAND(1,tl).NE.0)THEN
1704 ALLOCATE(grid%em_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1705  if (ierr.ne.0) then
1706  CALL wrf_error_fatal ( &
1707 'frame/module_domain.f: Failed to allocate grid%em_mu_1(sm31:em31,sm32:em32). ')
1708  endif
1709   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_1=initial_data_value
1710 ELSE
1711 ALLOCATE(grid%em_mu_1(1,1),STAT=ierr)
1712  if (ierr.ne.0) then
1713  CALL wrf_error_fatal ( &
1714 'frame/module_domain.f: Failed to allocate grid%em_mu_1(1,1).  ')
1715  endif
1716 ENDIF
1717 IF(IAND(2,tl).NE.0)THEN
1718 ALLOCATE(grid%em_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1719  if (ierr.ne.0) then
1720  CALL wrf_error_fatal ( &
1721 'frame/module_domain.f: Failed to allocate grid%em_mu_2(sm31:em31,sm32:em32). ')
1722  endif
1723   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_2=initial_data_value
1724 ELSE
1725 ALLOCATE(grid%em_mu_2(1,1),STAT=ierr)
1726  if (ierr.ne.0) then
1727  CALL wrf_error_fatal ( &
1728 'frame/module_domain.f: Failed to allocate grid%em_mu_2(1,1).  ')
1729  endif
1730 ENDIF
1731 IF(.NOT.inter_domain)THEN
1732 ALLOCATE(grid%em_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1733  if (ierr.ne.0) then
1734  CALL wrf_error_fatal ( &
1735 'frame/module_domain.f: Failed to allocate grid%em_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1736  endif
1737   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_b=initial_data_value
1738 ELSE
1739 ALLOCATE(grid%em_mu_b(1,1,1,1),STAT=ierr)
1740  if (ierr.ne.0) then
1741  CALL wrf_error_fatal ( &
1742 'frame/module_domain.f: Failed to allocate grid%em_mu_b(1,1,1,1).  ')
1743  endif
1744 ENDIF
1745 IF(.NOT.inter_domain)THEN
1746 ALLOCATE(grid%em_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1747  if (ierr.ne.0) then
1748  CALL wrf_error_fatal ( &
1749 'frame/module_domain.f: Failed to allocate grid%em_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1750  endif
1751   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu_bt=initial_data_value
1752 ELSE
1753 ALLOCATE(grid%em_mu_bt(1,1,1,1),STAT=ierr)
1754  if (ierr.ne.0) then
1755  CALL wrf_error_fatal ( &
1756 'frame/module_domain.f: Failed to allocate grid%em_mu_bt(1,1,1,1).  ')
1757  endif
1758 ENDIF
1759 IF(IAND(1,tl).NE.0)THEN
1760 ALLOCATE(grid%em_a_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1761  if (ierr.ne.0) then
1762  CALL wrf_error_fatal ( &
1763 'frame/module_domain.f: Failed to allocate grid%em_a_mu_1(sm31:em31,sm32:em32). ')
1764  endif
1765   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_1=initial_data_value
1766 ELSE
1767 ALLOCATE(grid%em_a_mu_1(1,1),STAT=ierr)
1768  if (ierr.ne.0) then
1769  CALL wrf_error_fatal ( &
1770 'frame/module_domain.f: Failed to allocate grid%em_a_mu_1(1,1).  ')
1771  endif
1772 ENDIF
1773 IF(IAND(2,tl).NE.0)THEN
1774 ALLOCATE(grid%em_a_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1775  if (ierr.ne.0) then
1776  CALL wrf_error_fatal ( &
1777 'frame/module_domain.f: Failed to allocate grid%em_a_mu_2(sm31:em31,sm32:em32). ')
1778  endif
1779   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_2=initial_data_value
1780 ELSE
1781 ALLOCATE(grid%em_a_mu_2(1,1),STAT=ierr)
1782  if (ierr.ne.0) then
1783  CALL wrf_error_fatal ( &
1784 'frame/module_domain.f: Failed to allocate grid%em_a_mu_2(1,1).  ')
1785  endif
1786 ENDIF
1787 IF(.NOT.inter_domain)THEN
1788 ALLOCATE(grid%em_a_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1789  if (ierr.ne.0) then
1790  CALL wrf_error_fatal ( &
1791 'frame/module_domain.f: Failed to allocate grid%em_a_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1792  endif
1793   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_b=initial_data_value
1794 ELSE
1795 ALLOCATE(grid%em_a_mu_b(1,1,1,1),STAT=ierr)
1796  if (ierr.ne.0) then
1797  CALL wrf_error_fatal ( &
1798 'frame/module_domain.f: Failed to allocate grid%em_a_mu_b(1,1,1,1).  ')
1799  endif
1800 ENDIF
1801 IF(.NOT.inter_domain)THEN
1802 ALLOCATE(grid%em_a_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1803  if (ierr.ne.0) then
1804  CALL wrf_error_fatal ( &
1805 'frame/module_domain.f: Failed to allocate grid%em_a_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1806  endif
1807   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mu_bt=initial_data_value
1808 ELSE
1809 ALLOCATE(grid%em_a_mu_bt(1,1,1,1),STAT=ierr)
1810  if (ierr.ne.0) then
1811  CALL wrf_error_fatal ( &
1812 'frame/module_domain.f: Failed to allocate grid%em_a_mu_bt(1,1,1,1).  ')
1813  endif
1814 ENDIF
1815 IF(IAND(1,tl).NE.0)THEN
1816 ALLOCATE(grid%em_g_mu_1(sm31:em31,sm32:em32),STAT=ierr)
1817  if (ierr.ne.0) then
1818  CALL wrf_error_fatal ( &
1819 'frame/module_domain.f: Failed to allocate grid%em_g_mu_1(sm31:em31,sm32:em32). ')
1820  endif
1821   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_1=initial_data_value
1822 ELSE
1823 ALLOCATE(grid%em_g_mu_1(1,1),STAT=ierr)
1824  if (ierr.ne.0) then
1825  CALL wrf_error_fatal ( &
1826 'frame/module_domain.f: Failed to allocate grid%em_g_mu_1(1,1).  ')
1827  endif
1828 ENDIF
1829 IF(IAND(2,tl).NE.0)THEN
1830 ALLOCATE(grid%em_g_mu_2(sm31:em31,sm32:em32),STAT=ierr)
1831  if (ierr.ne.0) then
1832  CALL wrf_error_fatal ( &
1833 'frame/module_domain.f: Failed to allocate grid%em_g_mu_2(sm31:em31,sm32:em32). ')
1834  endif
1835   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_2=initial_data_value
1836 ELSE
1837 ALLOCATE(grid%em_g_mu_2(1,1),STAT=ierr)
1838  if (ierr.ne.0) then
1839  CALL wrf_error_fatal ( &
1840 'frame/module_domain.f: Failed to allocate grid%em_g_mu_2(1,1).  ')
1841  endif
1842 ENDIF
1843 IF(.NOT.inter_domain)THEN
1844 ALLOCATE(grid%em_g_mu_b(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1845  if (ierr.ne.0) then
1846  CALL wrf_error_fatal ( &
1847 'frame/module_domain.f: Failed to allocate grid%em_g_mu_b(max(ed31,ed32),1,spec_bdy_width,4). ')
1848  endif
1849   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_b=initial_data_value
1850 ELSE
1851 ALLOCATE(grid%em_g_mu_b(1,1,1,1),STAT=ierr)
1852  if (ierr.ne.0) then
1853  CALL wrf_error_fatal ( &
1854 'frame/module_domain.f: Failed to allocate grid%em_g_mu_b(1,1,1,1).  ')
1855  endif
1856 ENDIF
1857 IF(.NOT.inter_domain)THEN
1858 ALLOCATE(grid%em_g_mu_bt(max(ed31,ed32),1,spec_bdy_width,4),STAT=ierr)
1859  if (ierr.ne.0) then
1860  CALL wrf_error_fatal ( &
1861 'frame/module_domain.f: Failed to allocate grid%em_g_mu_bt(max(ed31,ed32),1,spec_bdy_width,4). ')
1862  endif
1863   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mu_bt=initial_data_value
1864 ELSE
1865 ALLOCATE(grid%em_g_mu_bt(1,1,1,1),STAT=ierr)
1866  if (ierr.ne.0) then
1867  CALL wrf_error_fatal ( &
1868 'frame/module_domain.f: Failed to allocate grid%em_g_mu_bt(1,1,1,1).  ')
1869  endif
1870 ENDIF
1871 ALLOCATE(grid%em_mub(sm31:em31,sm32:em32),STAT=ierr)
1872  if (ierr.ne.0) then
1873  CALL wrf_error_fatal ( &
1874 'frame/module_domain.f: Failed to allocate grid%em_mub(sm31:em31,sm32:em32). ')
1875  endif
1876   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mub=initial_data_value
1877 ALLOCATE(grid%em_a_mub(sm31:em31,sm32:em32),STAT=ierr)
1878  if (ierr.ne.0) then
1879  CALL wrf_error_fatal ( &
1880 'frame/module_domain.f: Failed to allocate grid%em_a_mub(sm31:em31,sm32:em32). ')
1881  endif
1882   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mub=initial_data_value
1883 ALLOCATE(grid%em_g_mub(sm31:em31,sm32:em32),STAT=ierr)
1884  if (ierr.ne.0) then
1885  CALL wrf_error_fatal ( &
1886 'frame/module_domain.f: Failed to allocate grid%em_g_mub(sm31:em31,sm32:em32). ')
1887  endif
1888   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mub=initial_data_value
1889 IF(.NOT.inter_domain)THEN
1890 ALLOCATE(grid%em_mub_fine(sm31:em31,sm32:em32),STAT=ierr)
1891  if (ierr.ne.0) then
1892  CALL wrf_error_fatal ( &
1893 'frame/module_domain.f: Failed to allocate grid%em_mub_fine(sm31:em31,sm32:em32). ')
1894  endif
1895   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mub_fine=initial_data_value
1896 ELSE
1897 ALLOCATE(grid%em_mub_fine(1,1),STAT=ierr)
1898  if (ierr.ne.0) then
1899  CALL wrf_error_fatal ( &
1900 'frame/module_domain.f: Failed to allocate grid%em_mub_fine(1,1).  ')
1901  endif
1902 ENDIF
1903 ALLOCATE(grid%em_mu0(sm31:em31,sm32:em32),STAT=ierr)
1904  if (ierr.ne.0) then
1905  CALL wrf_error_fatal ( &
1906 'frame/module_domain.f: Failed to allocate grid%em_mu0(sm31:em31,sm32:em32). ')
1907  endif
1908   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mu0=initial_data_value
1909 IF(.NOT.inter_domain)THEN
1910 ALLOCATE(grid%em_mudf(sm31:em31,sm32:em32),STAT=ierr)
1911  if (ierr.ne.0) then
1912  CALL wrf_error_fatal ( &
1913 'frame/module_domain.f: Failed to allocate grid%em_mudf(sm31:em31,sm32:em32). ')
1914  endif
1915   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mudf=initial_data_value
1916 ELSE
1917 ALLOCATE(grid%em_mudf(1,1),STAT=ierr)
1918  if (ierr.ne.0) then
1919  CALL wrf_error_fatal ( &
1920 'frame/module_domain.f: Failed to allocate grid%em_mudf(1,1).  ')
1921  endif
1922 ENDIF
1923 IF(.NOT.inter_domain)THEN
1924 ALLOCATE(grid%em_a_mudf(sm31:em31,sm32:em32),STAT=ierr)
1925  if (ierr.ne.0) then
1926  CALL wrf_error_fatal ( &
1927 'frame/module_domain.f: Failed to allocate grid%em_a_mudf(sm31:em31,sm32:em32). ')
1928  endif
1929   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mudf=initial_data_value
1930 ELSE
1931 ALLOCATE(grid%em_a_mudf(1,1),STAT=ierr)
1932  if (ierr.ne.0) then
1933  CALL wrf_error_fatal ( &
1934 'frame/module_domain.f: Failed to allocate grid%em_a_mudf(1,1).  ')
1935  endif
1936 ENDIF
1937 IF(.NOT.inter_domain)THEN
1938 ALLOCATE(grid%em_g_mudf(sm31:em31,sm32:em32),STAT=ierr)
1939  if (ierr.ne.0) then
1940  CALL wrf_error_fatal ( &
1941 'frame/module_domain.f: Failed to allocate grid%em_g_mudf(sm31:em31,sm32:em32). ')
1942  endif
1943   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mudf=initial_data_value
1944 ELSE
1945 ALLOCATE(grid%em_g_mudf(1,1),STAT=ierr)
1946  if (ierr.ne.0) then
1947  CALL wrf_error_fatal ( &
1948 'frame/module_domain.f: Failed to allocate grid%em_g_mudf(1,1).  ')
1949  endif
1950 ENDIF
1951 ALLOCATE(grid%em_muu(sm31:em31,sm32:em32),STAT=ierr)
1952  if (ierr.ne.0) then
1953  CALL wrf_error_fatal ( &
1954 'frame/module_domain.f: Failed to allocate grid%em_muu(sm31:em31,sm32:em32). ')
1955  endif
1956   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_muu=initial_data_value
1957 ALLOCATE(grid%em_a_muu(sm31:em31,sm32:em32),STAT=ierr)
1958  if (ierr.ne.0) then
1959  CALL wrf_error_fatal ( &
1960 'frame/module_domain.f: Failed to allocate grid%em_a_muu(sm31:em31,sm32:em32). ')
1961  endif
1962   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_muu=initial_data_value
1963 ALLOCATE(grid%em_g_muu(sm31:em31,sm32:em32),STAT=ierr)
1964  if (ierr.ne.0) then
1965  CALL wrf_error_fatal ( &
1966 'frame/module_domain.f: Failed to allocate grid%em_g_muu(sm31:em31,sm32:em32). ')
1967  endif
1968   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_muu=initial_data_value
1969 ALLOCATE(grid%em_muv(sm31:em31,sm32:em32),STAT=ierr)
1970  if (ierr.ne.0) then
1971  CALL wrf_error_fatal ( &
1972 'frame/module_domain.f: Failed to allocate grid%em_muv(sm31:em31,sm32:em32). ')
1973  endif
1974   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_muv=initial_data_value
1975 ALLOCATE(grid%em_a_muv(sm31:em31,sm32:em32),STAT=ierr)
1976  if (ierr.ne.0) then
1977  CALL wrf_error_fatal ( &
1978 'frame/module_domain.f: Failed to allocate grid%em_a_muv(sm31:em31,sm32:em32). ')
1979  endif
1980   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_muv=initial_data_value
1981 ALLOCATE(grid%em_g_muv(sm31:em31,sm32:em32),STAT=ierr)
1982  if (ierr.ne.0) then
1983  CALL wrf_error_fatal ( &
1984 'frame/module_domain.f: Failed to allocate grid%em_g_muv(sm31:em31,sm32:em32). ')
1985  endif
1986   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_muv=initial_data_value
1987 ALLOCATE(grid%em_mut(sm31:em31,sm32:em32),STAT=ierr)
1988  if (ierr.ne.0) then
1989  CALL wrf_error_fatal ( &
1990 'frame/module_domain.f: Failed to allocate grid%em_mut(sm31:em31,sm32:em32). ')
1991  endif
1992   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_mut=initial_data_value
1993 ALLOCATE(grid%em_a_mut(sm31:em31,sm32:em32),STAT=ierr)
1994  if (ierr.ne.0) then
1995  CALL wrf_error_fatal ( &
1996 'frame/module_domain.f: Failed to allocate grid%em_a_mut(sm31:em31,sm32:em32). ')
1997  endif
1998   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_mut=initial_data_value
1999 ALLOCATE(grid%em_g_mut(sm31:em31,sm32:em32),STAT=ierr)
2000  if (ierr.ne.0) then
2001  CALL wrf_error_fatal ( &
2002 'frame/module_domain.f: Failed to allocate grid%em_g_mut(sm31:em31,sm32:em32). ')
2003  endif
2004   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_mut=initial_data_value
2005 ALLOCATE(grid%em_muts(sm31:em31,sm32:em32),STAT=ierr)
2006  if (ierr.ne.0) then
2007  CALL wrf_error_fatal ( &
2008 'frame/module_domain.f: Failed to allocate grid%em_muts(sm31:em31,sm32:em32). ')
2009  endif
2010   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_muts=initial_data_value
2011 ALLOCATE(grid%em_a_muts(sm31:em31,sm32:em32),STAT=ierr)
2012  if (ierr.ne.0) then
2013  CALL wrf_error_fatal ( &
2014 'frame/module_domain.f: Failed to allocate grid%em_a_muts(sm31:em31,sm32:em32). ')
2015  endif
2016   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_muts=initial_data_value
2017 ALLOCATE(grid%em_g_muts(sm31:em31,sm32:em32),STAT=ierr)
2018  if (ierr.ne.0) then
2019  CALL wrf_error_fatal ( &
2020 'frame/module_domain.f: Failed to allocate grid%em_g_muts(sm31:em31,sm32:em32). ')
2021  endif
2022   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_muts=initial_data_value
2023 ALLOCATE(grid%nest_pos(sm31:em31,sm32:em32),STAT=ierr)
2024  if (ierr.ne.0) then
2025  CALL wrf_error_fatal ( &
2026 'frame/module_domain.f: Failed to allocate grid%nest_pos(sm31:em31,sm32:em32). ')
2027  endif
2028   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_pos=initial_data_value
2029 ALLOCATE(grid%nest_mask(sm31:em31,sm32:em32),STAT=ierr)
2030  if (ierr.ne.0) then
2031  CALL wrf_error_fatal ( &
2032 'frame/module_domain.f: Failed to allocate grid%nest_mask(sm31:em31,sm32:em32). ')
2033  endif
2034   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_mask=initial_data_value
2035 IF(.NOT.inter_domain)THEN
2036 ALLOCATE(grid%ht_coarse(sm31:em31,sm32:em32),STAT=ierr)
2037  if (ierr.ne.0) then
2038  CALL wrf_error_fatal ( &
2039 'frame/module_domain.f: Failed to allocate grid%ht_coarse(sm31:em31,sm32:em32). ')
2040  endif
2041   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_coarse=initial_data_value
2042 ELSE
2043 ALLOCATE(grid%ht_coarse(1,1),STAT=ierr)
2044  if (ierr.ne.0) then
2045  CALL wrf_error_fatal ( &
2046 'frame/module_domain.f: Failed to allocate grid%ht_coarse(1,1).  ')
2047  endif
2048 ENDIF
2049 IF(.NOT.inter_domain)THEN
2050 IF(IAND(1,tl).NE.0)THEN
2051 ALLOCATE(grid%em_tke_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2052  if (ierr.ne.0) then
2053  CALL wrf_error_fatal ( &
2054 'frame/module_domain.f: Failed to allocate grid%em_tke_1(sm31:em31,sm32:em32,sm33:em33). ')
2055  endif
2056   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tke_1=initial_data_value
2057 ELSE
2058 ALLOCATE(grid%em_tke_1(1,1,1),STAT=ierr)
2059  if (ierr.ne.0) then
2060  CALL wrf_error_fatal ( &
2061 'frame/module_domain.f: Failed to allocate grid%em_tke_1(1,1,1).  ')
2062  endif
2063 ENDIF
2064 ELSE
2065 ALLOCATE(grid%em_tke_1(1,1,1),STAT=ierr)
2066  if (ierr.ne.0) then
2067  CALL wrf_error_fatal ( &
2068 'frame/module_domain.f: Failed to allocate grid%em_tke_1(1,1,1).  ')
2069  endif
2070 ENDIF
2071 IF(.NOT.inter_domain)THEN
2072 IF(IAND(2,tl).NE.0)THEN
2073 ALLOCATE(grid%em_tke_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2074  if (ierr.ne.0) then
2075  CALL wrf_error_fatal ( &
2076 'frame/module_domain.f: Failed to allocate grid%em_tke_2(sm31:em31,sm32:em32,sm33:em33). ')
2077  endif
2078   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_tke_2=initial_data_value
2079 ELSE
2080 ALLOCATE(grid%em_tke_2(1,1,1),STAT=ierr)
2081  if (ierr.ne.0) then
2082  CALL wrf_error_fatal ( &
2083 'frame/module_domain.f: Failed to allocate grid%em_tke_2(1,1,1).  ')
2084  endif
2085 ENDIF
2086 ELSE
2087 ALLOCATE(grid%em_tke_2(1,1,1),STAT=ierr)
2088  if (ierr.ne.0) then
2089  CALL wrf_error_fatal ( &
2090 'frame/module_domain.f: Failed to allocate grid%em_tke_2(1,1,1).  ')
2091  endif
2092 ENDIF
2093 IF(.NOT.inter_domain)THEN
2094 ALLOCATE(grid%em_p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2095  if (ierr.ne.0) then
2096  CALL wrf_error_fatal ( &
2097 'frame/module_domain.f: Failed to allocate grid%em_p(sm31:em31,sm32:em32,sm33:em33). ')
2098  endif
2099   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_p=initial_data_value
2100 ELSE
2101 ALLOCATE(grid%em_p(1,1,1),STAT=ierr)
2102  if (ierr.ne.0) then
2103  CALL wrf_error_fatal ( &
2104 'frame/module_domain.f: Failed to allocate grid%em_p(1,1,1).  ')
2105  endif
2106 ENDIF
2107 IF(.NOT.inter_domain)THEN
2108 ALLOCATE(grid%em_a_p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2109  if (ierr.ne.0) then
2110  CALL wrf_error_fatal ( &
2111 'frame/module_domain.f: Failed to allocate grid%em_a_p(sm31:em31,sm32:em32,sm33:em33). ')
2112  endif
2113   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_p=initial_data_value
2114 ELSE
2115 ALLOCATE(grid%em_a_p(1,1,1),STAT=ierr)
2116  if (ierr.ne.0) then
2117  CALL wrf_error_fatal ( &
2118 'frame/module_domain.f: Failed to allocate grid%em_a_p(1,1,1).  ')
2119  endif
2120 ENDIF
2121 IF(.NOT.inter_domain)THEN
2122 ALLOCATE(grid%em_g_p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2123  if (ierr.ne.0) then
2124  CALL wrf_error_fatal ( &
2125 'frame/module_domain.f: Failed to allocate grid%em_g_p(sm31:em31,sm32:em32,sm33:em33). ')
2126  endif
2127   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_p=initial_data_value
2128 ELSE
2129 ALLOCATE(grid%em_g_p(1,1,1),STAT=ierr)
2130  if (ierr.ne.0) then
2131  CALL wrf_error_fatal ( &
2132 'frame/module_domain.f: Failed to allocate grid%em_g_p(1,1,1).  ')
2133  endif
2134 ENDIF
2135 IF(.NOT.inter_domain)THEN
2136 ALLOCATE(grid%em_al(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2137  if (ierr.ne.0) then
2138  CALL wrf_error_fatal ( &
2139 'frame/module_domain.f: Failed to allocate grid%em_al(sm31:em31,sm32:em32,sm33:em33). ')
2140  endif
2141   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_al=initial_data_value
2142 ELSE
2143 ALLOCATE(grid%em_al(1,1,1),STAT=ierr)
2144  if (ierr.ne.0) then
2145  CALL wrf_error_fatal ( &
2146 'frame/module_domain.f: Failed to allocate grid%em_al(1,1,1).  ')
2147  endif
2148 ENDIF
2149 IF(.NOT.inter_domain)THEN
2150 ALLOCATE(grid%em_a_al(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2151  if (ierr.ne.0) then
2152  CALL wrf_error_fatal ( &
2153 'frame/module_domain.f: Failed to allocate grid%em_a_al(sm31:em31,sm32:em32,sm33:em33). ')
2154  endif
2155   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_al=initial_data_value
2156 ELSE
2157 ALLOCATE(grid%em_a_al(1,1,1),STAT=ierr)
2158  if (ierr.ne.0) then
2159  CALL wrf_error_fatal ( &
2160 'frame/module_domain.f: Failed to allocate grid%em_a_al(1,1,1).  ')
2161  endif
2162 ENDIF
2163 IF(.NOT.inter_domain)THEN
2164 ALLOCATE(grid%em_g_al(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2165  if (ierr.ne.0) then
2166  CALL wrf_error_fatal ( &
2167 'frame/module_domain.f: Failed to allocate grid%em_g_al(sm31:em31,sm32:em32,sm33:em33). ')
2168  endif
2169   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_al=initial_data_value
2170 ELSE
2171 ALLOCATE(grid%em_g_al(1,1,1),STAT=ierr)
2172  if (ierr.ne.0) then
2173  CALL wrf_error_fatal ( &
2174 'frame/module_domain.f: Failed to allocate grid%em_g_al(1,1,1).  ')
2175  endif
2176 ENDIF
2177 IF(.NOT.inter_domain)THEN
2178 ALLOCATE(grid%em_alt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2179  if (ierr.ne.0) then
2180  CALL wrf_error_fatal ( &
2181 'frame/module_domain.f: Failed to allocate grid%em_alt(sm31:em31,sm32:em32,sm33:em33). ')
2182  endif
2183   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_alt=initial_data_value
2184 ELSE
2185 ALLOCATE(grid%em_alt(1,1,1),STAT=ierr)
2186  if (ierr.ne.0) then
2187  CALL wrf_error_fatal ( &
2188 'frame/module_domain.f: Failed to allocate grid%em_alt(1,1,1).  ')
2189  endif
2190 ENDIF
2191 IF(.NOT.inter_domain)THEN
2192 ALLOCATE(grid%em_a_alt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2193  if (ierr.ne.0) then
2194  CALL wrf_error_fatal ( &
2195 'frame/module_domain.f: Failed to allocate grid%em_a_alt(sm31:em31,sm32:em32,sm33:em33). ')
2196  endif
2197   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_alt=initial_data_value
2198 ELSE
2199 ALLOCATE(grid%em_a_alt(1,1,1),STAT=ierr)
2200  if (ierr.ne.0) then
2201  CALL wrf_error_fatal ( &
2202 'frame/module_domain.f: Failed to allocate grid%em_a_alt(1,1,1).  ')
2203  endif
2204 ENDIF
2205 IF(.NOT.inter_domain)THEN
2206 ALLOCATE(grid%em_g_alt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2207  if (ierr.ne.0) then
2208  CALL wrf_error_fatal ( &
2209 'frame/module_domain.f: Failed to allocate grid%em_g_alt(sm31:em31,sm32:em32,sm33:em33). ')
2210  endif
2211   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_alt=initial_data_value
2212 ELSE
2213 ALLOCATE(grid%em_g_alt(1,1,1),STAT=ierr)
2214  if (ierr.ne.0) then
2215  CALL wrf_error_fatal ( &
2216 'frame/module_domain.f: Failed to allocate grid%em_g_alt(1,1,1).  ')
2217  endif
2218 ENDIF
2219 ALLOCATE(grid%em_alb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2220  if (ierr.ne.0) then
2221  CALL wrf_error_fatal ( &
2222 'frame/module_domain.f: Failed to allocate grid%em_alb(sm31:em31,sm32:em32,sm33:em33). ')
2223  endif
2224   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_alb=initial_data_value
2225 IF(.NOT.inter_domain)THEN
2226 ALLOCATE(grid%em_zx(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2227  if (ierr.ne.0) then
2228  CALL wrf_error_fatal ( &
2229 'frame/module_domain.f: Failed to allocate grid%em_zx(sm31:em31,sm32:em32,sm33:em33). ')
2230  endif
2231   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_zx=initial_data_value
2232 ELSE
2233 ALLOCATE(grid%em_zx(1,1,1),STAT=ierr)
2234  if (ierr.ne.0) then
2235  CALL wrf_error_fatal ( &
2236 'frame/module_domain.f: Failed to allocate grid%em_zx(1,1,1).  ')
2237  endif
2238 ENDIF
2239 IF(.NOT.inter_domain)THEN
2240 ALLOCATE(grid%em_zy(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2241  if (ierr.ne.0) then
2242  CALL wrf_error_fatal ( &
2243 'frame/module_domain.f: Failed to allocate grid%em_zy(sm31:em31,sm32:em32,sm33:em33). ')
2244  endif
2245   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_zy=initial_data_value
2246 ELSE
2247 ALLOCATE(grid%em_zy(1,1,1),STAT=ierr)
2248  if (ierr.ne.0) then
2249  CALL wrf_error_fatal ( &
2250 'frame/module_domain.f: Failed to allocate grid%em_zy(1,1,1).  ')
2251  endif
2252 ENDIF
2253 IF(.NOT.inter_domain)THEN
2254 ALLOCATE(grid%em_rdz(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2255  if (ierr.ne.0) then
2256  CALL wrf_error_fatal ( &
2257 'frame/module_domain.f: Failed to allocate grid%em_rdz(sm31:em31,sm32:em32,sm33:em33). ')
2258  endif
2259   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdz=initial_data_value
2260 ELSE
2261 ALLOCATE(grid%em_rdz(1,1,1),STAT=ierr)
2262  if (ierr.ne.0) then
2263  CALL wrf_error_fatal ( &
2264 'frame/module_domain.f: Failed to allocate grid%em_rdz(1,1,1).  ')
2265  endif
2266 ENDIF
2267 IF(.NOT.inter_domain)THEN
2268 ALLOCATE(grid%em_rdzw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2269  if (ierr.ne.0) then
2270  CALL wrf_error_fatal ( &
2271 'frame/module_domain.f: Failed to allocate grid%em_rdzw(sm31:em31,sm32:em32,sm33:em33). ')
2272  endif
2273   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdzw=initial_data_value
2274 ELSE
2275 ALLOCATE(grid%em_rdzw(1,1,1),STAT=ierr)
2276  if (ierr.ne.0) then
2277  CALL wrf_error_fatal ( &
2278 'frame/module_domain.f: Failed to allocate grid%em_rdzw(1,1,1).  ')
2279  endif
2280 ENDIF
2281 ALLOCATE(grid%em_pb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2282  if (ierr.ne.0) then
2283  CALL wrf_error_fatal ( &
2284 'frame/module_domain.f: Failed to allocate grid%em_pb(sm31:em31,sm32:em32,sm33:em33). ')
2285  endif
2286   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_pb=initial_data_value
2287 IF(.NOT.inter_domain)THEN
2288 ALLOCATE(grid%em_sr(sm31:em31,sm32:em32),STAT=ierr)
2289  if (ierr.ne.0) then
2290  CALL wrf_error_fatal ( &
2291 'frame/module_domain.f: Failed to allocate grid%em_sr(sm31:em31,sm32:em32). ')
2292  endif
2293   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_sr=initial_data_value
2294 ELSE
2295 ALLOCATE(grid%em_sr(1,1),STAT=ierr)
2296  if (ierr.ne.0) then
2297  CALL wrf_error_fatal ( &
2298 'frame/module_domain.f: Failed to allocate grid%em_sr(1,1).  ')
2299  endif
2300 ENDIF
2301 IF(.NOT.inter_domain)THEN
2302 ALLOCATE(grid%em_fnm(sm33:em33),STAT=ierr)
2303  if (ierr.ne.0) then
2304  CALL wrf_error_fatal ( &
2305 'frame/module_domain.f: Failed to allocate grid%em_fnm(sm33:em33). ')
2306  endif
2307   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_fnm=initial_data_value
2308 ELSE
2309 ALLOCATE(grid%em_fnm(1),STAT=ierr)
2310  if (ierr.ne.0) then
2311  CALL wrf_error_fatal ( &
2312 'frame/module_domain.f: Failed to allocate grid%em_fnm(1).  ')
2313  endif
2314 ENDIF
2315 IF(.NOT.inter_domain)THEN
2316 ALLOCATE(grid%em_fnp(sm33:em33),STAT=ierr)
2317  if (ierr.ne.0) then
2318  CALL wrf_error_fatal ( &
2319 'frame/module_domain.f: Failed to allocate grid%em_fnp(sm33:em33). ')
2320  endif
2321   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_fnp=initial_data_value
2322 ELSE
2323 ALLOCATE(grid%em_fnp(1),STAT=ierr)
2324  if (ierr.ne.0) then
2325  CALL wrf_error_fatal ( &
2326 'frame/module_domain.f: Failed to allocate grid%em_fnp(1).  ')
2327  endif
2328 ENDIF
2329 IF(.NOT.inter_domain)THEN
2330 ALLOCATE(grid%em_rdnw(sm33:em33),STAT=ierr)
2331  if (ierr.ne.0) then
2332  CALL wrf_error_fatal ( &
2333 'frame/module_domain.f: Failed to allocate grid%em_rdnw(sm33:em33). ')
2334  endif
2335   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdnw=initial_data_value
2336 ELSE
2337 ALLOCATE(grid%em_rdnw(1),STAT=ierr)
2338  if (ierr.ne.0) then
2339  CALL wrf_error_fatal ( &
2340 'frame/module_domain.f: Failed to allocate grid%em_rdnw(1).  ')
2341  endif
2342 ENDIF
2343 IF(.NOT.inter_domain)THEN
2344 ALLOCATE(grid%em_rdn(sm33:em33),STAT=ierr)
2345  if (ierr.ne.0) then
2346  CALL wrf_error_fatal ( &
2347 'frame/module_domain.f: Failed to allocate grid%em_rdn(sm33:em33). ')
2348  endif
2349   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_rdn=initial_data_value
2350 ELSE
2351 ALLOCATE(grid%em_rdn(1),STAT=ierr)
2352  if (ierr.ne.0) then
2353  CALL wrf_error_fatal ( &
2354 'frame/module_domain.f: Failed to allocate grid%em_rdn(1).  ')
2355  endif
2356 ENDIF
2357 IF(.NOT.inter_domain)THEN
2358 ALLOCATE(grid%em_dnw(sm33:em33),STAT=ierr)
2359  if (ierr.ne.0) then
2360  CALL wrf_error_fatal ( &
2361 'frame/module_domain.f: Failed to allocate grid%em_dnw(sm33:em33). ')
2362  endif
2363   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dnw=initial_data_value
2364 ELSE
2365 ALLOCATE(grid%em_dnw(1),STAT=ierr)
2366  if (ierr.ne.0) then
2367  CALL wrf_error_fatal ( &
2368 'frame/module_domain.f: Failed to allocate grid%em_dnw(1).  ')
2369  endif
2370 ENDIF
2371 IF(.NOT.inter_domain)THEN
2372 ALLOCATE(grid%em_dn(sm33:em33),STAT=ierr)
2373  if (ierr.ne.0) then
2374  CALL wrf_error_fatal ( &
2375 'frame/module_domain.f: Failed to allocate grid%em_dn(sm33:em33). ')
2376  endif
2377   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dn=initial_data_value
2378 ELSE
2379 ALLOCATE(grid%em_dn(1),STAT=ierr)
2380  if (ierr.ne.0) then
2381  CALL wrf_error_fatal ( &
2382 'frame/module_domain.f: Failed to allocate grid%em_dn(1).  ')
2383  endif
2384 ENDIF
2385 IF(.NOT.inter_domain)THEN
2386 ALLOCATE(grid%em_znu(sm33:em33),STAT=ierr)
2387  if (ierr.ne.0) then
2388  CALL wrf_error_fatal ( &
2389 'frame/module_domain.f: Failed to allocate grid%em_znu(sm33:em33). ')
2390  endif
2391   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_znu=initial_data_value
2392 ELSE
2393 ALLOCATE(grid%em_znu(1),STAT=ierr)
2394  if (ierr.ne.0) then
2395  CALL wrf_error_fatal ( &
2396 'frame/module_domain.f: Failed to allocate grid%em_znu(1).  ')
2397  endif
2398 ENDIF
2399 IF(.NOT.inter_domain)THEN
2400 ALLOCATE(grid%em_znw(sm33:em33),STAT=ierr)
2401  if (ierr.ne.0) then
2402  CALL wrf_error_fatal ( &
2403 'frame/module_domain.f: Failed to allocate grid%em_znw(sm33:em33). ')
2404  endif
2405   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_znw=initial_data_value
2406 ELSE
2407 ALLOCATE(grid%em_znw(1),STAT=ierr)
2408  if (ierr.ne.0) then
2409  CALL wrf_error_fatal ( &
2410 'frame/module_domain.f: Failed to allocate grid%em_znw(1).  ')
2411  endif
2412 ENDIF
2413 IF(.NOT.inter_domain)THEN
2414 ALLOCATE(grid%em_t_base(sm33:em33),STAT=ierr)
2415  if (ierr.ne.0) then
2416  CALL wrf_error_fatal ( &
2417 'frame/module_domain.f: Failed to allocate grid%em_t_base(sm33:em33). ')
2418  endif
2419   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_t_base=initial_data_value
2420 ELSE
2421 ALLOCATE(grid%em_t_base(1),STAT=ierr)
2422  if (ierr.ne.0) then
2423  CALL wrf_error_fatal ( &
2424 'frame/module_domain.f: Failed to allocate grid%em_t_base(1).  ')
2425  endif
2426 ENDIF
2427 IF(.NOT.inter_domain)THEN
2428 ALLOCATE(grid%em_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2429  if (ierr.ne.0) then
2430  CALL wrf_error_fatal ( &
2431 'frame/module_domain.f: Failed to allocate grid%em_z(sm31:em31,sm32:em32,sm33:em33). ')
2432  endif
2433   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_z=initial_data_value
2434 ELSE
2435 ALLOCATE(grid%em_z(1,1,1),STAT=ierr)
2436  if (ierr.ne.0) then
2437  CALL wrf_error_fatal ( &
2438 'frame/module_domain.f: Failed to allocate grid%em_z(1,1,1).  ')
2439  endif
2440 ENDIF
2441 IF(.NOT.inter_domain)THEN
2442 ALLOCATE(grid%em_a_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2443  if (ierr.ne.0) then
2444  CALL wrf_error_fatal ( &
2445 'frame/module_domain.f: Failed to allocate grid%em_a_z(sm31:em31,sm32:em32,sm33:em33). ')
2446  endif
2447   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_a_z=initial_data_value
2448 ELSE
2449 ALLOCATE(grid%em_a_z(1,1,1),STAT=ierr)
2450  if (ierr.ne.0) then
2451  CALL wrf_error_fatal ( &
2452 'frame/module_domain.f: Failed to allocate grid%em_a_z(1,1,1).  ')
2453  endif
2454 ENDIF
2455 IF(.NOT.inter_domain)THEN
2456 ALLOCATE(grid%em_g_z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2457  if (ierr.ne.0) then
2458  CALL wrf_error_fatal ( &
2459 'frame/module_domain.f: Failed to allocate grid%em_g_z(sm31:em31,sm32:em32,sm33:em33). ')
2460  endif
2461   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_g_z=initial_data_value
2462 ELSE
2463 ALLOCATE(grid%em_g_z(1,1,1),STAT=ierr)
2464  if (ierr.ne.0) then
2465  CALL wrf_error_fatal ( &
2466 'frame/module_domain.f: Failed to allocate grid%em_g_z(1,1,1).  ')
2467  endif
2468 ENDIF
2469 IF ( setinitval .EQ. 3 ) grid%cfn=initial_data_value
2470 IF ( setinitval .EQ. 3 ) grid%cfn1=initial_data_value
2471 IF ( setinitval .EQ. 3 ) grid%step_number=0
2472 IF(.NOT.inter_domain)THEN
2473 ALLOCATE(grid%kma_a(sm33:em33),STAT=ierr)
2474  if (ierr.ne.0) then
2475  CALL wrf_error_fatal ( &
2476 'frame/module_domain.f: Failed to allocate grid%kma_a(sm33:em33). ')
2477  endif
2478   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_a=initial_data_value
2479 ELSE
2480 ALLOCATE(grid%kma_a(1),STAT=ierr)
2481  if (ierr.ne.0) then
2482  CALL wrf_error_fatal ( &
2483 'frame/module_domain.f: Failed to allocate grid%kma_a(1).  ')
2484  endif
2485 ENDIF
2486 IF(.NOT.inter_domain)THEN
2487 ALLOCATE(grid%kma_b(sm33:em33),STAT=ierr)
2488  if (ierr.ne.0) then
2489  CALL wrf_error_fatal ( &
2490 'frame/module_domain.f: Failed to allocate grid%kma_b(sm33:em33). ')
2491  endif
2492   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_b=initial_data_value
2493 ELSE
2494 ALLOCATE(grid%kma_b(1),STAT=ierr)
2495  if (ierr.ne.0) then
2496  CALL wrf_error_fatal ( &
2497 'frame/module_domain.f: Failed to allocate grid%kma_b(1).  ')
2498  endif
2499 ENDIF
2500 IF(.NOT.inter_domain)THEN
2501 ALLOCATE(grid%q2(sm31:em31,sm32:em32),STAT=ierr)
2502  if (ierr.ne.0) then
2503  CALL wrf_error_fatal ( &
2504 'frame/module_domain.f: Failed to allocate grid%q2(sm31:em31,sm32:em32). ')
2505  endif
2506   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2=initial_data_value
2507 ELSE
2508 ALLOCATE(grid%q2(1,1),STAT=ierr)
2509  if (ierr.ne.0) then
2510  CALL wrf_error_fatal ( &
2511 'frame/module_domain.f: Failed to allocate grid%q2(1,1).  ')
2512  endif
2513 ENDIF
2514 IF(.NOT.inter_domain)THEN
2515 ALLOCATE(grid%t2(sm31:em31,sm32:em32),STAT=ierr)
2516  if (ierr.ne.0) then
2517  CALL wrf_error_fatal ( &
2518 'frame/module_domain.f: Failed to allocate grid%t2(sm31:em31,sm32:em32). ')
2519  endif
2520   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t2=initial_data_value
2521 ELSE
2522 ALLOCATE(grid%t2(1,1),STAT=ierr)
2523  if (ierr.ne.0) then
2524  CALL wrf_error_fatal ( &
2525 'frame/module_domain.f: Failed to allocate grid%t2(1,1).  ')
2526  endif
2527 ENDIF
2528 IF(.NOT.inter_domain)THEN
2529 ALLOCATE(grid%th2(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%th2(sm31:em31,sm32:em32). ')
2533  endif
2534   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th2=initial_data_value
2535 ELSE
2536 ALLOCATE(grid%th2(1,1),STAT=ierr)
2537  if (ierr.ne.0) then
2538  CALL wrf_error_fatal ( &
2539 'frame/module_domain.f: Failed to allocate grid%th2(1,1).  ')
2540  endif
2541 ENDIF
2542 IF(.NOT.inter_domain)THEN
2543 ALLOCATE(grid%psfc(sm31:em31,sm32:em32),STAT=ierr)
2544  if (ierr.ne.0) then
2545  CALL wrf_error_fatal ( &
2546 'frame/module_domain.f: Failed to allocate grid%psfc(sm31:em31,sm32:em32). ')
2547  endif
2548   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psfc=initial_data_value
2549 ELSE
2550 ALLOCATE(grid%psfc(1,1),STAT=ierr)
2551  if (ierr.ne.0) then
2552  CALL wrf_error_fatal ( &
2553 'frame/module_domain.f: Failed to allocate grid%psfc(1,1).  ')
2554  endif
2555 ENDIF
2556 IF(.NOT.inter_domain)THEN
2557 ALLOCATE(grid%u10(sm31:em31,sm32:em32),STAT=ierr)
2558  if (ierr.ne.0) then
2559  CALL wrf_error_fatal ( &
2560 'frame/module_domain.f: Failed to allocate grid%u10(sm31:em31,sm32:em32). ')
2561  endif
2562   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u10=initial_data_value
2563 ELSE
2564 ALLOCATE(grid%u10(1,1),STAT=ierr)
2565  if (ierr.ne.0) then
2566  CALL wrf_error_fatal ( &
2567 'frame/module_domain.f: Failed to allocate grid%u10(1,1).  ')
2568  endif
2569 ENDIF
2570 IF(.NOT.inter_domain)THEN
2571 ALLOCATE(grid%v10(sm31:em31,sm32:em32),STAT=ierr)
2572  if (ierr.ne.0) then
2573  CALL wrf_error_fatal ( &
2574 'frame/module_domain.f: Failed to allocate grid%v10(sm31:em31,sm32:em32). ')
2575  endif
2576   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v10=initial_data_value
2577 ELSE
2578 ALLOCATE(grid%v10(1,1),STAT=ierr)
2579  if (ierr.ne.0) then
2580  CALL wrf_error_fatal ( &
2581 'frame/module_domain.f: Failed to allocate grid%v10(1,1).  ')
2582  endif
2583 ENDIF
2584 IF(.NOT.inter_domain)THEN
2585 ALLOCATE(grid%uratx(sm31:em31,sm32:em32),STAT=ierr)
2586  if (ierr.ne.0) then
2587  CALL wrf_error_fatal ( &
2588 'frame/module_domain.f: Failed to allocate grid%uratx(sm31:em31,sm32:em32). ')
2589  endif
2590   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%uratx=initial_data_value
2591 ELSE
2592 ALLOCATE(grid%uratx(1,1),STAT=ierr)
2593  if (ierr.ne.0) then
2594  CALL wrf_error_fatal ( &
2595 'frame/module_domain.f: Failed to allocate grid%uratx(1,1).  ')
2596  endif
2597 ENDIF
2598 IF(.NOT.inter_domain)THEN
2599 ALLOCATE(grid%vratx(sm31:em31,sm32:em32),STAT=ierr)
2600  if (ierr.ne.0) then
2601  CALL wrf_error_fatal ( &
2602 'frame/module_domain.f: Failed to allocate grid%vratx(sm31:em31,sm32:em32). ')
2603  endif
2604   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vratx=initial_data_value
2605 ELSE
2606 ALLOCATE(grid%vratx(1,1),STAT=ierr)
2607  if (ierr.ne.0) then
2608  CALL wrf_error_fatal ( &
2609 'frame/module_domain.f: Failed to allocate grid%vratx(1,1).  ')
2610  endif
2611 ENDIF
2612 IF(.NOT.inter_domain)THEN
2613 ALLOCATE(grid%tratx(sm31:em31,sm32:em32),STAT=ierr)
2614  if (ierr.ne.0) then
2615  CALL wrf_error_fatal ( &
2616 'frame/module_domain.f: Failed to allocate grid%tratx(sm31:em31,sm32:em32). ')
2617  endif
2618   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tratx=initial_data_value
2619 ELSE
2620 ALLOCATE(grid%tratx(1,1),STAT=ierr)
2621  if (ierr.ne.0) then
2622  CALL wrf_error_fatal ( &
2623 'frame/module_domain.f: Failed to allocate grid%tratx(1,1).  ')
2624  endif
2625 ENDIF
2626 IF(.NOT.inter_domain)THEN
2627 ALLOCATE(grid%em_obs_savwt(1:model_config_rec%nobs_err_flds,sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2628  if (ierr.ne.0) then
2629  CALL wrf_error_fatal ( &
2630 'frame/module_domain.f: Failed to allocate grid%em_obs_savwt(1:model_config_rec%nobs_err_flds,sm31:em31,sm32:em32,sm33:em33). ')
2631  endif
2632   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_obs_savwt=initial_data_value
2633 ELSE
2634 ALLOCATE(grid%em_obs_savwt(1,1,1,1),STAT=ierr)
2635  if (ierr.ne.0) then
2636  CALL wrf_error_fatal ( &
2637 'frame/module_domain.f: Failed to allocate grid%em_obs_savwt(1,1,1,1).  ')
2638  endif
2639 ENDIF
2640 IF ( setinitval .EQ. 3 ) grid%rdx=initial_data_value
2641 IF ( setinitval .EQ. 3 ) grid%rdy=initial_data_value
2642 IF ( setinitval .EQ. 3 ) grid%dts=initial_data_value
2643 IF ( setinitval .EQ. 3 ) grid%dtseps=initial_data_value
2644 IF ( setinitval .EQ. 3 ) grid%resm=initial_data_value
2645 IF ( setinitval .EQ. 3 ) grid%zetatop=initial_data_value
2646 IF ( setinitval .EQ. 3 ) grid%cf1=initial_data_value
2647 IF ( setinitval .EQ. 3 ) grid%cf2=initial_data_value
2648 IF ( setinitval .EQ. 3 ) grid%cf3=initial_data_value
2649 IF ( setinitval .EQ. 3 ) grid%number_at_same_level=0
2650 IF ( setinitval .EQ. 3 ) grid%itimestep=0
2651 IF ( setinitval .EQ. 3 ) grid%xtime=initial_data_value
2652 IF ( setinitval .EQ. 3 ) grid%julian=initial_data_value
2653 IF ( setinitval .EQ. 3 ) grid%lbc_fid=0
2654 IF ( setinitval .EQ. 3 ) grid%tiled=.FALSE.
2655 IF ( setinitval .EQ. 3 ) grid%patched=.FALSE.
2656 IF(.NOT.inter_domain)THEN
2657 ALLOCATE(grid%imask_nostag(sm31:em31,sm32:em32),STAT=ierr)
2658  if (ierr.ne.0) then
2659  CALL wrf_error_fatal ( &
2660 'frame/module_domain.f: Failed to allocate grid%imask_nostag(sm31:em31,sm32:em32). ')
2661  endif
2662   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_nostag=0
2663 ELSE
2664 ALLOCATE(grid%imask_nostag(1,1),STAT=ierr)
2665  if (ierr.ne.0) then
2666  CALL wrf_error_fatal ( &
2667 'frame/module_domain.f: Failed to allocate grid%imask_nostag(1,1).  ')
2668  endif
2669 ENDIF
2670 IF(.NOT.inter_domain)THEN
2671 ALLOCATE(grid%imask_xstag(sm31:em31,sm32:em32),STAT=ierr)
2672  if (ierr.ne.0) then
2673  CALL wrf_error_fatal ( &
2674 'frame/module_domain.f: Failed to allocate grid%imask_xstag(sm31:em31,sm32:em32). ')
2675  endif
2676   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xstag=0
2677 ELSE
2678 ALLOCATE(grid%imask_xstag(1,1),STAT=ierr)
2679  if (ierr.ne.0) then
2680  CALL wrf_error_fatal ( &
2681 'frame/module_domain.f: Failed to allocate grid%imask_xstag(1,1).  ')
2682  endif
2683 ENDIF
2684 IF(.NOT.inter_domain)THEN
2685 ALLOCATE(grid%imask_ystag(sm31:em31,sm32:em32),STAT=ierr)
2686  if (ierr.ne.0) then
2687  CALL wrf_error_fatal ( &
2688 'frame/module_domain.f: Failed to allocate grid%imask_ystag(sm31:em31,sm32:em32). ')
2689  endif
2690   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_ystag=0
2691 ELSE
2692 ALLOCATE(grid%imask_ystag(1,1),STAT=ierr)
2693  if (ierr.ne.0) then
2694  CALL wrf_error_fatal ( &
2695 'frame/module_domain.f: Failed to allocate grid%imask_ystag(1,1).  ')
2696  endif
2697 ENDIF
2698 IF(.NOT.inter_domain)THEN
2699 ALLOCATE(grid%imask_xystag(sm31:em31,sm32:em32),STAT=ierr)
2700  if (ierr.ne.0) then
2701  CALL wrf_error_fatal ( &
2702 'frame/module_domain.f: Failed to allocate grid%imask_xystag(sm31:em31,sm32:em32). ')
2703  endif
2704   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xystag=0
2705 ELSE
2706 ALLOCATE(grid%imask_xystag(1,1),STAT=ierr)
2707  if (ierr.ne.0) then
2708  CALL wrf_error_fatal ( &
2709 'frame/module_domain.f: Failed to allocate grid%imask_xystag(1,1).  ')
2710  endif
2711 ENDIF
2712 IF ( setinitval .EQ. 3 ) grid%xi=initial_data_value
2713 IF ( setinitval .EQ. 3 ) grid%xj=initial_data_value
2714 IF ( setinitval .EQ. 3 ) grid%vc_i=initial_data_value
2715 IF ( setinitval .EQ. 3 ) grid%vc_j=initial_data_value
2716 ALLOCATE(grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist),STAT=ierr)
2717  if (ierr.ne.0) then
2718  CALL wrf_error_fatal ( &
2719 'frame/module_domain.f: Failed to allocate grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist). ')
2720  endif
2721   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist=initial_data_value
2722 ALLOCATE(grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist),STAT=ierr)
2723  if (ierr.ne.0) then
2724  CALL wrf_error_fatal ( &
2725 'frame/module_domain.f: Failed to allocate grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist). ')
2726  endif
2727   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist=initial_data_value
2728 ALLOCATE(grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist),STAT=ierr)
2729  if (ierr.ne.0) then
2730  CALL wrf_error_fatal ( &
2731 'frame/module_domain.f: Failed to allocate grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist). ')
2732  endif
2733   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist=initial_data_value
2734 IF(.NOT.inter_domain)THEN
2735 ALLOCATE(grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
2736  if (ierr.ne.0) then
2737  CALL wrf_error_fatal ( &
2738 'frame/module_domain.f: Failed to allocate grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
2739  endif
2740   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_b=initial_data_value
2741 ELSE
2742 ALLOCATE(grid%moist_b(1,1,1,1,num_moist),STAT=ierr)
2743  if (ierr.ne.0) then
2744  CALL wrf_error_fatal ( &
2745 'frame/module_domain.f: Failed to allocate grid%moist_b(1,1,1,1,num_moist).  ')
2746  endif
2747 ENDIF
2748 IF(.NOT.inter_domain)THEN
2749 ALLOCATE(grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
2750  if (ierr.ne.0) then
2751  CALL wrf_error_fatal ( &
2752 'frame/module_domain.f: Failed to allocate grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
2753  endif
2754   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bt=initial_data_value
2755 ELSE
2756 ALLOCATE(grid%moist_bt(1,1,1,1,num_moist),STAT=ierr)
2757  if (ierr.ne.0) then
2758  CALL wrf_error_fatal ( &
2759 'frame/module_domain.f: Failed to allocate grid%moist_bt(1,1,1,1,num_moist).  ')
2760  endif
2761 ENDIF
2762 IF(.NOT.inter_domain)THEN
2763 ALLOCATE(grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
2764  if (ierr.ne.0) then
2765  CALL wrf_error_fatal ( &
2766 'frame/module_domain.f: Failed to allocate grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
2767  endif
2768   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_b=initial_data_value
2769 ELSE
2770 ALLOCATE(grid%a_moist_b(1,1,1,1,num_a_moist),STAT=ierr)
2771  if (ierr.ne.0) then
2772  CALL wrf_error_fatal ( &
2773 'frame/module_domain.f: Failed to allocate grid%a_moist_b(1,1,1,1,num_a_moist).  ')
2774  endif
2775 ENDIF
2776 IF(.NOT.inter_domain)THEN
2777 ALLOCATE(grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
2778  if (ierr.ne.0) then
2779  CALL wrf_error_fatal ( &
2780 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
2781  endif
2782   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_bt=initial_data_value
2783 ELSE
2784 ALLOCATE(grid%a_moist_bt(1,1,1,1,num_a_moist),STAT=ierr)
2785  if (ierr.ne.0) then
2786  CALL wrf_error_fatal ( &
2787 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(1,1,1,1,num_a_moist).  ')
2788  endif
2789 ENDIF
2790 IF(.NOT.inter_domain)THEN
2791 ALLOCATE(grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
2792  if (ierr.ne.0) then
2793  CALL wrf_error_fatal ( &
2794 'frame/module_domain.f: Failed to allocate grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
2795  endif
2796   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_b=initial_data_value
2797 ELSE
2798 ALLOCATE(grid%g_moist_b(1,1,1,1,num_g_moist),STAT=ierr)
2799  if (ierr.ne.0) then
2800  CALL wrf_error_fatal ( &
2801 'frame/module_domain.f: Failed to allocate grid%g_moist_b(1,1,1,1,num_g_moist).  ')
2802  endif
2803 ENDIF
2804 IF(.NOT.inter_domain)THEN
2805 ALLOCATE(grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
2806  if (ierr.ne.0) then
2807  CALL wrf_error_fatal ( &
2808 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
2809  endif
2810   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_bt=initial_data_value
2811 ELSE
2812 ALLOCATE(grid%g_moist_bt(1,1,1,1,num_g_moist),STAT=ierr)
2813  if (ierr.ne.0) then
2814  CALL wrf_error_fatal ( &
2815 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(1,1,1,1,num_g_moist).  ')
2816  endif
2817 ENDIF
2818 ALLOCATE(grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar),STAT=ierr)
2819  if (ierr.ne.0) then
2820  CALL wrf_error_fatal ( &
2821 'frame/module_domain.f: Failed to allocate grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar). ')
2822  endif
2823   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar=initial_data_value
2824 ALLOCATE(grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar),STAT=ierr)
2825  if (ierr.ne.0) then
2826  CALL wrf_error_fatal ( &
2827 'frame/module_domain.f: Failed to allocate grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar). ')
2828  endif
2829   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_scalar=initial_data_value
2830 ALLOCATE(grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar),STAT=ierr)
2831  if (ierr.ne.0) then
2832  CALL wrf_error_fatal ( &
2833 'frame/module_domain.f: Failed to allocate grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar). ')
2834  endif
2835   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_scalar=initial_data_value
2836 IF(.NOT.inter_domain)THEN
2837 ALLOCATE(grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
2838  if (ierr.ne.0) then
2839  CALL wrf_error_fatal ( &
2840 'frame/module_domain.f: Failed to allocate grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
2841  endif
2842   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_b=initial_data_value
2843 ELSE
2844 ALLOCATE(grid%scalar_b(1,1,1,1,num_scalar),STAT=ierr)
2845  if (ierr.ne.0) then
2846  CALL wrf_error_fatal ( &
2847 'frame/module_domain.f: Failed to allocate grid%scalar_b(1,1,1,1,num_scalar).  ')
2848  endif
2849 ENDIF
2850 IF(.NOT.inter_domain)THEN
2851 ALLOCATE(grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
2852  if (ierr.ne.0) then
2853  CALL wrf_error_fatal ( &
2854 'frame/module_domain.f: Failed to allocate grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
2855  endif
2856   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bt=initial_data_value
2857 ELSE
2858 ALLOCATE(grid%scalar_bt(1,1,1,1,num_scalar),STAT=ierr)
2859  if (ierr.ne.0) then
2860  CALL wrf_error_fatal ( &
2861 'frame/module_domain.f: Failed to allocate grid%scalar_bt(1,1,1,1,num_scalar).  ')
2862  endif
2863 ENDIF
2864 IF(.NOT.inter_domain)THEN
2865 ALLOCATE(grid%fcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
2866  if (ierr.ne.0) then
2867  CALL wrf_error_fatal ( &
2868 'frame/module_domain.f: Failed to allocate grid%fcx(1:model_config_rec%spec_bdy_width). ')
2869  endif
2870   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fcx=initial_data_value
2871 ELSE
2872 ALLOCATE(grid%fcx(1),STAT=ierr)
2873  if (ierr.ne.0) then
2874  CALL wrf_error_fatal ( &
2875 'frame/module_domain.f: Failed to allocate grid%fcx(1).  ')
2876  endif
2877 ENDIF
2878 IF(.NOT.inter_domain)THEN
2879 ALLOCATE(grid%gcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
2880  if (ierr.ne.0) then
2881  CALL wrf_error_fatal ( &
2882 'frame/module_domain.f: Failed to allocate grid%gcx(1:model_config_rec%spec_bdy_width). ')
2883  endif
2884   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gcx=initial_data_value
2885 ELSE
2886 ALLOCATE(grid%gcx(1),STAT=ierr)
2887  if (ierr.ne.0) then
2888  CALL wrf_error_fatal ( &
2889 'frame/module_domain.f: Failed to allocate grid%gcx(1).  ')
2890  endif
2891 ENDIF
2892 IF ( setinitval .EQ. 3 ) grid%dtbc=initial_data_value
2893 ALLOCATE(grid%landmask(sm31:em31,sm32:em32),STAT=ierr)
2894  if (ierr.ne.0) then
2895  CALL wrf_error_fatal ( &
2896 'frame/module_domain.f: Failed to allocate grid%landmask(sm31:em31,sm32:em32). ')
2897  endif
2898   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%landmask=initial_data_value
2899 IF(.NOT.inter_domain)THEN
2900 ALLOCATE(grid%shdmax(sm31:em31,sm32:em32),STAT=ierr)
2901  if (ierr.ne.0) then
2902  CALL wrf_error_fatal ( &
2903 'frame/module_domain.f: Failed to allocate grid%shdmax(sm31:em31,sm32:em32). ')
2904  endif
2905   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmax=initial_data_value
2906 ELSE
2907 ALLOCATE(grid%shdmax(1,1),STAT=ierr)
2908  if (ierr.ne.0) then
2909  CALL wrf_error_fatal ( &
2910 'frame/module_domain.f: Failed to allocate grid%shdmax(1,1).  ')
2911  endif
2912 ENDIF
2913 IF(.NOT.inter_domain)THEN
2914 ALLOCATE(grid%shdmin(sm31:em31,sm32:em32),STAT=ierr)
2915  if (ierr.ne.0) then
2916  CALL wrf_error_fatal ( &
2917 'frame/module_domain.f: Failed to allocate grid%shdmin(sm31:em31,sm32:em32). ')
2918  endif
2919   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmin=initial_data_value
2920 ELSE
2921 ALLOCATE(grid%shdmin(1,1),STAT=ierr)
2922  if (ierr.ne.0) then
2923  CALL wrf_error_fatal ( &
2924 'frame/module_domain.f: Failed to allocate grid%shdmin(1,1).  ')
2925  endif
2926 ENDIF
2927 IF(.NOT.inter_domain)THEN
2928 ALLOCATE(grid%snoalb(sm31:em31,sm32:em32),STAT=ierr)
2929  if (ierr.ne.0) then
2930  CALL wrf_error_fatal ( &
2931 'frame/module_domain.f: Failed to allocate grid%snoalb(sm31:em31,sm32:em32). ')
2932  endif
2933   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snoalb=initial_data_value
2934 ELSE
2935 ALLOCATE(grid%snoalb(1,1),STAT=ierr)
2936  if (ierr.ne.0) then
2937  CALL wrf_error_fatal ( &
2938 'frame/module_domain.f: Failed to allocate grid%snoalb(1,1).  ')
2939  endif
2940 ENDIF
2941 ALLOCATE(grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
2942  if (ierr.ne.0) then
2943  CALL wrf_error_fatal ( &
2944 'frame/module_domain.f: Failed to allocate grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
2945  endif
2946   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tslb=initial_data_value
2947 IF(.NOT.inter_domain)THEN
2948 ALLOCATE(grid%zs(1:model_config_rec%num_soil_layers),STAT=ierr)
2949  if (ierr.ne.0) then
2950  CALL wrf_error_fatal ( &
2951 'frame/module_domain.f: Failed to allocate grid%zs(1:model_config_rec%num_soil_layers). ')
2952  endif
2953   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zs=initial_data_value
2954 ELSE
2955 ALLOCATE(grid%zs(1),STAT=ierr)
2956  if (ierr.ne.0) then
2957  CALL wrf_error_fatal ( &
2958 'frame/module_domain.f: Failed to allocate grid%zs(1).  ')
2959  endif
2960 ENDIF
2961 IF(.NOT.inter_domain)THEN
2962 ALLOCATE(grid%dzs(1:model_config_rec%num_soil_layers),STAT=ierr)
2963  if (ierr.ne.0) then
2964  CALL wrf_error_fatal ( &
2965 'frame/module_domain.f: Failed to allocate grid%dzs(1:model_config_rec%num_soil_layers). ')
2966  endif
2967   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzs=initial_data_value
2968 ELSE
2969 ALLOCATE(grid%dzs(1),STAT=ierr)
2970  if (ierr.ne.0) then
2971  CALL wrf_error_fatal ( &
2972 'frame/module_domain.f: Failed to allocate grid%dzs(1).  ')
2973  endif
2974 ENDIF
2975 ALLOCATE(grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
2976  if (ierr.ne.0) then
2977  CALL wrf_error_fatal ( &
2978 'frame/module_domain.f: Failed to allocate grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
2979  endif
2980   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smois=initial_data_value
2981 ALLOCATE(grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
2982  if (ierr.ne.0) then
2983  CALL wrf_error_fatal ( &
2984 'frame/module_domain.f: Failed to allocate grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
2985  endif
2986   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sh2o=initial_data_value
2987 ALLOCATE(grid%xice(sm31:em31,sm32:em32),STAT=ierr)
2988  if (ierr.ne.0) then
2989  CALL wrf_error_fatal ( &
2990 'frame/module_domain.f: Failed to allocate grid%xice(sm31:em31,sm32:em32). ')
2991  endif
2992   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xice=initial_data_value
2993 ALLOCATE(grid%sfcrunoff(sm31:em31,sm32:em32),STAT=ierr)
2994  if (ierr.ne.0) then
2995  CALL wrf_error_fatal ( &
2996 'frame/module_domain.f: Failed to allocate grid%sfcrunoff(sm31:em31,sm32:em32). ')
2997  endif
2998   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcrunoff=initial_data_value
2999 ALLOCATE(grid%udrunoff(sm31:em31,sm32:em32),STAT=ierr)
3000  if (ierr.ne.0) then
3001  CALL wrf_error_fatal ( &
3002 'frame/module_domain.f: Failed to allocate grid%udrunoff(sm31:em31,sm32:em32). ')
3003  endif
3004   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%udrunoff=initial_data_value
3005 ALLOCATE(grid%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
3006  if (ierr.ne.0) then
3007  CALL wrf_error_fatal ( &
3008 'frame/module_domain.f: Failed to allocate grid%ivgtyp(sm31:em31,sm32:em32). ')
3009  endif
3010   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ivgtyp=0
3011 ALLOCATE(grid%isltyp(sm31:em31,sm32:em32),STAT=ierr)
3012  if (ierr.ne.0) then
3013  CALL wrf_error_fatal ( &
3014 'frame/module_domain.f: Failed to allocate grid%isltyp(sm31:em31,sm32:em32). ')
3015  endif
3016   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%isltyp=0
3017 ALLOCATE(grid%vegfra(sm31:em31,sm32:em32),STAT=ierr)
3018  if (ierr.ne.0) then
3019  CALL wrf_error_fatal ( &
3020 'frame/module_domain.f: Failed to allocate grid%vegfra(sm31:em31,sm32:em32). ')
3021  endif
3022   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegfra=initial_data_value
3023 IF(.NOT.inter_domain)THEN
3024 ALLOCATE(grid%sfcevp(sm31:em31,sm32:em32),STAT=ierr)
3025  if (ierr.ne.0) then
3026  CALL wrf_error_fatal ( &
3027 'frame/module_domain.f: Failed to allocate grid%sfcevp(sm31:em31,sm32:em32). ')
3028  endif
3029   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcevp=initial_data_value
3030 ELSE
3031 ALLOCATE(grid%sfcevp(1,1),STAT=ierr)
3032  if (ierr.ne.0) then
3033  CALL wrf_error_fatal ( &
3034 'frame/module_domain.f: Failed to allocate grid%sfcevp(1,1).  ')
3035  endif
3036 ENDIF
3037 ALLOCATE(grid%acsnow(sm31:em31,sm32:em32),STAT=ierr)
3038  if (ierr.ne.0) then
3039  CALL wrf_error_fatal ( &
3040 'frame/module_domain.f: Failed to allocate grid%acsnow(sm31:em31,sm32:em32). ')
3041  endif
3042   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnow=initial_data_value
3043 ALLOCATE(grid%acsnom(sm31:em31,sm32:em32),STAT=ierr)
3044  if (ierr.ne.0) then
3045  CALL wrf_error_fatal ( &
3046 'frame/module_domain.f: Failed to allocate grid%acsnom(sm31:em31,sm32:em32). ')
3047  endif
3048   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnom=initial_data_value
3049 ALLOCATE(grid%snow(sm31:em31,sm32:em32),STAT=ierr)
3050  if (ierr.ne.0) then
3051  CALL wrf_error_fatal ( &
3052 'frame/module_domain.f: Failed to allocate grid%snow(sm31:em31,sm32:em32). ')
3053  endif
3054   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snow=initial_data_value
3055 ALLOCATE(grid%snowh(sm31:em31,sm32:em32),STAT=ierr)
3056  if (ierr.ne.0) then
3057  CALL wrf_error_fatal ( &
3058 'frame/module_domain.f: Failed to allocate grid%snowh(sm31:em31,sm32:em32). ')
3059  endif
3060   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowh=initial_data_value
3061 ALLOCATE(grid%rhosn(sm31:em31,sm32:em32),STAT=ierr)
3062  if (ierr.ne.0) then
3063  CALL wrf_error_fatal ( &
3064 'frame/module_domain.f: Failed to allocate grid%rhosn(sm31:em31,sm32:em32). ')
3065  endif
3066   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rhosn=initial_data_value
3067 ALLOCATE(grid%canwat(sm31:em31,sm32:em32),STAT=ierr)
3068  if (ierr.ne.0) then
3069  CALL wrf_error_fatal ( &
3070 'frame/module_domain.f: Failed to allocate grid%canwat(sm31:em31,sm32:em32). ')
3071  endif
3072   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%canwat=initial_data_value
3073 ALLOCATE(grid%sst(sm31:em31,sm32:em32),STAT=ierr)
3074  if (ierr.ne.0) then
3075  CALL wrf_error_fatal ( &
3076 'frame/module_domain.f: Failed to allocate grid%sst(sm31:em31,sm32:em32). ')
3077  endif
3078   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sst=initial_data_value
3079 IF ( setinitval .EQ. 3 ) grid%ifndsnowh=0
3080 IF ( setinitval .EQ. 3 ) grid%ifndsoilw=0
3081 IF(.NOT.inter_domain)THEN
3082 ALLOCATE(grid%htop(sm31:em31,sm32:em32),STAT=ierr)
3083  if (ierr.ne.0) then
3084  CALL wrf_error_fatal ( &
3085 'frame/module_domain.f: Failed to allocate grid%htop(sm31:em31,sm32:em32). ')
3086  endif
3087   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%htop=initial_data_value
3088 ELSE
3089 ALLOCATE(grid%htop(1,1),STAT=ierr)
3090  if (ierr.ne.0) then
3091  CALL wrf_error_fatal ( &
3092 'frame/module_domain.f: Failed to allocate grid%htop(1,1).  ')
3093  endif
3094 ENDIF
3095 IF(.NOT.inter_domain)THEN
3096 ALLOCATE(grid%hbot(sm31:em31,sm32:em32),STAT=ierr)
3097  if (ierr.ne.0) then
3098  CALL wrf_error_fatal ( &
3099 'frame/module_domain.f: Failed to allocate grid%hbot(sm31:em31,sm32:em32). ')
3100  endif
3101   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hbot=initial_data_value
3102 ELSE
3103 ALLOCATE(grid%hbot(1,1),STAT=ierr)
3104  if (ierr.ne.0) then
3105  CALL wrf_error_fatal ( &
3106 'frame/module_domain.f: Failed to allocate grid%hbot(1,1).  ')
3107  endif
3108 ENDIF
3109 IF(.NOT.inter_domain)THEN
3110 ALLOCATE(grid%cuppt(sm31:em31,sm32:em32),STAT=ierr)
3111  if (ierr.ne.0) then
3112  CALL wrf_error_fatal ( &
3113 'frame/module_domain.f: Failed to allocate grid%cuppt(sm31:em31,sm32:em32). ')
3114  endif
3115   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cuppt=initial_data_value
3116 ELSE
3117 ALLOCATE(grid%cuppt(1,1),STAT=ierr)
3118  if (ierr.ne.0) then
3119  CALL wrf_error_fatal ( &
3120 'frame/module_domain.f: Failed to allocate grid%cuppt(1,1).  ')
3121  endif
3122 ENDIF
3123 IF(.NOT.inter_domain)THEN
3124 ALLOCATE(grid%rswtoa(sm31:em31,sm32:em32),STAT=ierr)
3125  if (ierr.ne.0) then
3126  CALL wrf_error_fatal ( &
3127 'frame/module_domain.f: Failed to allocate grid%rswtoa(sm31:em31,sm32:em32). ')
3128  endif
3129   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswtoa=initial_data_value
3130 ELSE
3131 ALLOCATE(grid%rswtoa(1,1),STAT=ierr)
3132  if (ierr.ne.0) then
3133  CALL wrf_error_fatal ( &
3134 'frame/module_domain.f: Failed to allocate grid%rswtoa(1,1).  ')
3135  endif
3136 ENDIF
3137 IF(.NOT.inter_domain)THEN
3138 ALLOCATE(grid%rlwtoa(sm31:em31,sm32:em32),STAT=ierr)
3139  if (ierr.ne.0) then
3140  CALL wrf_error_fatal ( &
3141 'frame/module_domain.f: Failed to allocate grid%rlwtoa(sm31:em31,sm32:em32). ')
3142  endif
3143   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwtoa=initial_data_value
3144 ELSE
3145 ALLOCATE(grid%rlwtoa(1,1),STAT=ierr)
3146  if (ierr.ne.0) then
3147  CALL wrf_error_fatal ( &
3148 'frame/module_domain.f: Failed to allocate grid%rlwtoa(1,1).  ')
3149  endif
3150 ENDIF
3151 IF(.NOT.inter_domain)THEN
3152 ALLOCATE(grid%czmean(sm31:em31,sm32:em32),STAT=ierr)
3153  if (ierr.ne.0) then
3154  CALL wrf_error_fatal ( &
3155 'frame/module_domain.f: Failed to allocate grid%czmean(sm31:em31,sm32:em32). ')
3156  endif
3157   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%czmean=initial_data_value
3158 ELSE
3159 ALLOCATE(grid%czmean(1,1),STAT=ierr)
3160  if (ierr.ne.0) then
3161  CALL wrf_error_fatal ( &
3162 'frame/module_domain.f: Failed to allocate grid%czmean(1,1).  ')
3163  endif
3164 ENDIF
3165 IF(.NOT.inter_domain)THEN
3166 ALLOCATE(grid%cfracl(sm31:em31,sm32:em32),STAT=ierr)
3167  if (ierr.ne.0) then
3168  CALL wrf_error_fatal ( &
3169 'frame/module_domain.f: Failed to allocate grid%cfracl(sm31:em31,sm32:em32). ')
3170  endif
3171   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracl=initial_data_value
3172 ELSE
3173 ALLOCATE(grid%cfracl(1,1),STAT=ierr)
3174  if (ierr.ne.0) then
3175  CALL wrf_error_fatal ( &
3176 'frame/module_domain.f: Failed to allocate grid%cfracl(1,1).  ')
3177  endif
3178 ENDIF
3179 IF(.NOT.inter_domain)THEN
3180 ALLOCATE(grid%cfracm(sm31:em31,sm32:em32),STAT=ierr)
3181  if (ierr.ne.0) then
3182  CALL wrf_error_fatal ( &
3183 'frame/module_domain.f: Failed to allocate grid%cfracm(sm31:em31,sm32:em32). ')
3184  endif
3185   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracm=initial_data_value
3186 ELSE
3187 ALLOCATE(grid%cfracm(1,1),STAT=ierr)
3188  if (ierr.ne.0) then
3189  CALL wrf_error_fatal ( &
3190 'frame/module_domain.f: Failed to allocate grid%cfracm(1,1).  ')
3191  endif
3192 ENDIF
3193 IF(.NOT.inter_domain)THEN
3194 ALLOCATE(grid%cfrach(sm31:em31,sm32:em32),STAT=ierr)
3195  if (ierr.ne.0) then
3196  CALL wrf_error_fatal ( &
3197 'frame/module_domain.f: Failed to allocate grid%cfrach(sm31:em31,sm32:em32). ')
3198  endif
3199   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfrach=initial_data_value
3200 ELSE
3201 ALLOCATE(grid%cfrach(1,1),STAT=ierr)
3202  if (ierr.ne.0) then
3203  CALL wrf_error_fatal ( &
3204 'frame/module_domain.f: Failed to allocate grid%cfrach(1,1).  ')
3205  endif
3206 ENDIF
3207 IF(.NOT.inter_domain)THEN
3208 ALLOCATE(grid%acfrst(sm31:em31,sm32:em32),STAT=ierr)
3209  if (ierr.ne.0) then
3210  CALL wrf_error_fatal ( &
3211 'frame/module_domain.f: Failed to allocate grid%acfrst(sm31:em31,sm32:em32). ')
3212  endif
3213   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrst=initial_data_value
3214 ELSE
3215 ALLOCATE(grid%acfrst(1,1),STAT=ierr)
3216  if (ierr.ne.0) then
3217  CALL wrf_error_fatal ( &
3218 'frame/module_domain.f: Failed to allocate grid%acfrst(1,1).  ')
3219  endif
3220 ENDIF
3221 IF(.NOT.inter_domain)THEN
3222 ALLOCATE(grid%ncfrst(sm31:em31,sm32:em32),STAT=ierr)
3223  if (ierr.ne.0) then
3224  CALL wrf_error_fatal ( &
3225 'frame/module_domain.f: Failed to allocate grid%ncfrst(sm31:em31,sm32:em32). ')
3226  endif
3227   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrst=0
3228 ELSE
3229 ALLOCATE(grid%ncfrst(1,1),STAT=ierr)
3230  if (ierr.ne.0) then
3231  CALL wrf_error_fatal ( &
3232 'frame/module_domain.f: Failed to allocate grid%ncfrst(1,1).  ')
3233  endif
3234 ENDIF
3235 IF(.NOT.inter_domain)THEN
3236 ALLOCATE(grid%acfrcv(sm31:em31,sm32:em32),STAT=ierr)
3237  if (ierr.ne.0) then
3238  CALL wrf_error_fatal ( &
3239 'frame/module_domain.f: Failed to allocate grid%acfrcv(sm31:em31,sm32:em32). ')
3240  endif
3241   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrcv=initial_data_value
3242 ELSE
3243 ALLOCATE(grid%acfrcv(1,1),STAT=ierr)
3244  if (ierr.ne.0) then
3245  CALL wrf_error_fatal ( &
3246 'frame/module_domain.f: Failed to allocate grid%acfrcv(1,1).  ')
3247  endif
3248 ENDIF
3249 IF(.NOT.inter_domain)THEN
3250 ALLOCATE(grid%ncfrcv(sm31:em31,sm32:em32),STAT=ierr)
3251  if (ierr.ne.0) then
3252  CALL wrf_error_fatal ( &
3253 'frame/module_domain.f: Failed to allocate grid%ncfrcv(sm31:em31,sm32:em32). ')
3254  endif
3255   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrcv=0
3256 ELSE
3257 ALLOCATE(grid%ncfrcv(1,1),STAT=ierr)
3258  if (ierr.ne.0) then
3259  CALL wrf_error_fatal ( &
3260 'frame/module_domain.f: Failed to allocate grid%ncfrcv(1,1).  ')
3261  endif
3262 ENDIF
3263 IF(.NOT.inter_domain)THEN
3264 ALLOCATE(grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3265  if (ierr.ne.0) then
3266  CALL wrf_error_fatal ( &
3267 'frame/module_domain.f: Failed to allocate grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33). ')
3268  endif
3269   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%h_diabatic=initial_data_value
3270 ELSE
3271 ALLOCATE(grid%h_diabatic(1,1,1),STAT=ierr)
3272  if (ierr.ne.0) then
3273  CALL wrf_error_fatal ( &
3274 'frame/module_domain.f: Failed to allocate grid%h_diabatic(1,1,1).  ')
3275  endif
3276 ENDIF
3277 ALLOCATE(grid%msft(sm31:em31,sm32:em32),STAT=ierr)
3278  if (ierr.ne.0) then
3279  CALL wrf_error_fatal ( &
3280 'frame/module_domain.f: Failed to allocate grid%msft(sm31:em31,sm32:em32). ')
3281  endif
3282   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msft=initial_data_value
3283 ALLOCATE(grid%msfu(sm31:em31,sm32:em32),STAT=ierr)
3284  if (ierr.ne.0) then
3285  CALL wrf_error_fatal ( &
3286 'frame/module_domain.f: Failed to allocate grid%msfu(sm31:em31,sm32:em32). ')
3287  endif
3288   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfu=initial_data_value
3289 ALLOCATE(grid%msfv(sm31:em31,sm32:em32),STAT=ierr)
3290  if (ierr.ne.0) then
3291  CALL wrf_error_fatal ( &
3292 'frame/module_domain.f: Failed to allocate grid%msfv(sm31:em31,sm32:em32). ')
3293  endif
3294   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfv=initial_data_value
3295 ALLOCATE(grid%f(sm31:em31,sm32:em32),STAT=ierr)
3296  if (ierr.ne.0) then
3297  CALL wrf_error_fatal ( &
3298 'frame/module_domain.f: Failed to allocate grid%f(sm31:em31,sm32:em32). ')
3299  endif
3300   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f=initial_data_value
3301 ALLOCATE(grid%e(sm31:em31,sm32:em32),STAT=ierr)
3302  if (ierr.ne.0) then
3303  CALL wrf_error_fatal ( &
3304 'frame/module_domain.f: Failed to allocate grid%e(sm31:em31,sm32:em32). ')
3305  endif
3306   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%e=initial_data_value
3307 ALLOCATE(grid%sina(sm31:em31,sm32:em32),STAT=ierr)
3308  if (ierr.ne.0) then
3309  CALL wrf_error_fatal ( &
3310 'frame/module_domain.f: Failed to allocate grid%sina(sm31:em31,sm32:em32). ')
3311  endif
3312   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sina=initial_data_value
3313 ALLOCATE(grid%cosa(sm31:em31,sm32:em32),STAT=ierr)
3314  if (ierr.ne.0) then
3315  CALL wrf_error_fatal ( &
3316 'frame/module_domain.f: Failed to allocate grid%cosa(sm31:em31,sm32:em32). ')
3317  endif
3318   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cosa=initial_data_value
3319 ALLOCATE(grid%ht(sm31:em31,sm32:em32),STAT=ierr)
3320  if (ierr.ne.0) then
3321  CALL wrf_error_fatal ( &
3322 'frame/module_domain.f: Failed to allocate grid%ht(sm31:em31,sm32:em32). ')
3323  endif
3324   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht=initial_data_value
3325 IF(.NOT.inter_domain)THEN
3326 ALLOCATE(grid%ht_fine(sm31:em31,sm32:em32),STAT=ierr)
3327  if (ierr.ne.0) then
3328  CALL wrf_error_fatal ( &
3329 'frame/module_domain.f: Failed to allocate grid%ht_fine(sm31:em31,sm32:em32). ')
3330  endif
3331   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_fine=initial_data_value
3332 ELSE
3333 ALLOCATE(grid%ht_fine(1,1),STAT=ierr)
3334  if (ierr.ne.0) then
3335  CALL wrf_error_fatal ( &
3336 'frame/module_domain.f: Failed to allocate grid%ht_fine(1,1).  ')
3337  endif
3338 ENDIF
3339 IF(.NOT.inter_domain)THEN
3340 ALLOCATE(grid%ht_int(sm31:em31,sm32:em32),STAT=ierr)
3341  if (ierr.ne.0) then
3342  CALL wrf_error_fatal ( &
3343 'frame/module_domain.f: Failed to allocate grid%ht_int(sm31:em31,sm32:em32). ')
3344  endif
3345   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_int=initial_data_value
3346 ELSE
3347 ALLOCATE(grid%ht_int(1,1),STAT=ierr)
3348  if (ierr.ne.0) then
3349  CALL wrf_error_fatal ( &
3350 'frame/module_domain.f: Failed to allocate grid%ht_int(1,1).  ')
3351  endif
3352 ENDIF
3353 IF(.NOT.inter_domain)THEN
3354 ALLOCATE(grid%ht_input(sm31:em31,sm32:em32),STAT=ierr)
3355  if (ierr.ne.0) then
3356  CALL wrf_error_fatal ( &
3357 'frame/module_domain.f: Failed to allocate grid%ht_input(sm31:em31,sm32:em32). ')
3358  endif
3359   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_input=initial_data_value
3360 ELSE
3361 ALLOCATE(grid%ht_input(1,1),STAT=ierr)
3362  if (ierr.ne.0) then
3363  CALL wrf_error_fatal ( &
3364 'frame/module_domain.f: Failed to allocate grid%ht_input(1,1).  ')
3365  endif
3366 ENDIF
3367 ALLOCATE(grid%tsk(sm31:em31,sm32:em32),STAT=ierr)
3368  if (ierr.ne.0) then
3369  CALL wrf_error_fatal ( &
3370 'frame/module_domain.f: Failed to allocate grid%tsk(sm31:em31,sm32:em32). ')
3371  endif
3372   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk=initial_data_value
3373 IF(.NOT.inter_domain)THEN
3374 ALLOCATE(grid%tsk_save(sm31:em31,sm32:em32),STAT=ierr)
3375  if (ierr.ne.0) then
3376  CALL wrf_error_fatal ( &
3377 'frame/module_domain.f: Failed to allocate grid%tsk_save(sm31:em31,sm32:em32). ')
3378  endif
3379   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk_save=initial_data_value
3380 ELSE
3381 ALLOCATE(grid%tsk_save(1,1),STAT=ierr)
3382  if (ierr.ne.0) then
3383  CALL wrf_error_fatal ( &
3384 'frame/module_domain.f: Failed to allocate grid%tsk_save(1,1).  ')
3385  endif
3386 ENDIF
3387 IF(.NOT.inter_domain)THEN
3388 ALLOCATE(grid%u_base(sm33:em33),STAT=ierr)
3389  if (ierr.ne.0) then
3390  CALL wrf_error_fatal ( &
3391 'frame/module_domain.f: Failed to allocate grid%u_base(sm33:em33). ')
3392  endif
3393   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_base=initial_data_value
3394 ELSE
3395 ALLOCATE(grid%u_base(1),STAT=ierr)
3396  if (ierr.ne.0) then
3397  CALL wrf_error_fatal ( &
3398 'frame/module_domain.f: Failed to allocate grid%u_base(1).  ')
3399  endif
3400 ENDIF
3401 IF(.NOT.inter_domain)THEN
3402 ALLOCATE(grid%v_base(sm33:em33),STAT=ierr)
3403  if (ierr.ne.0) then
3404  CALL wrf_error_fatal ( &
3405 'frame/module_domain.f: Failed to allocate grid%v_base(sm33:em33). ')
3406  endif
3407   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_base=initial_data_value
3408 ELSE
3409 ALLOCATE(grid%v_base(1),STAT=ierr)
3410  if (ierr.ne.0) then
3411  CALL wrf_error_fatal ( &
3412 'frame/module_domain.f: Failed to allocate grid%v_base(1).  ')
3413  endif
3414 ENDIF
3415 IF(.NOT.inter_domain)THEN
3416 ALLOCATE(grid%qv_base(sm33:em33),STAT=ierr)
3417  if (ierr.ne.0) then
3418  CALL wrf_error_fatal ( &
3419 'frame/module_domain.f: Failed to allocate grid%qv_base(sm33:em33). ')
3420  endif
3421   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_base=initial_data_value
3422 ELSE
3423 ALLOCATE(grid%qv_base(1),STAT=ierr)
3424  if (ierr.ne.0) then
3425  CALL wrf_error_fatal ( &
3426 'frame/module_domain.f: Failed to allocate grid%qv_base(1).  ')
3427  endif
3428 ENDIF
3429 IF(.NOT.inter_domain)THEN
3430 ALLOCATE(grid%z_base(sm33:em33),STAT=ierr)
3431  if (ierr.ne.0) then
3432  CALL wrf_error_fatal ( &
3433 'frame/module_domain.f: Failed to allocate grid%z_base(sm33:em33). ')
3434  endif
3435   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_base=initial_data_value
3436 ELSE
3437 ALLOCATE(grid%z_base(1),STAT=ierr)
3438  if (ierr.ne.0) then
3439  CALL wrf_error_fatal ( &
3440 'frame/module_domain.f: Failed to allocate grid%z_base(1).  ')
3441  endif
3442 ENDIF
3443 IF ( setinitval .EQ. 3 ) grid%u_frame=initial_data_value
3444 IF ( setinitval .EQ. 3 ) grid%v_frame=initial_data_value
3445 IF ( setinitval .EQ. 3 ) grid%p_top=initial_data_value
3446 IF ( setinitval .EQ. 3 ) grid%imicrogram=0
3447 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_t=initial_data_value
3448 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_t=initial_data_value
3449 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_t=initial_data_value
3450 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_t=initial_data_value
3451 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_u=initial_data_value
3452 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_u=initial_data_value
3453 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_u=initial_data_value
3454 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_u=initial_data_value
3455 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_v=initial_data_value
3456 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_v=initial_data_value
3457 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_v=initial_data_value
3458 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_v=initial_data_value
3459 IF ( setinitval .EQ. 3 ) grid%em_lat_ll_d=initial_data_value
3460 IF ( setinitval .EQ. 3 ) grid%em_lat_ul_d=initial_data_value
3461 IF ( setinitval .EQ. 3 ) grid%em_lat_ur_d=initial_data_value
3462 IF ( setinitval .EQ. 3 ) grid%em_lat_lr_d=initial_data_value
3463 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_t=initial_data_value
3464 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_t=initial_data_value
3465 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_t=initial_data_value
3466 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_t=initial_data_value
3467 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_u=initial_data_value
3468 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_u=initial_data_value
3469 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_u=initial_data_value
3470 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_u=initial_data_value
3471 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_v=initial_data_value
3472 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_v=initial_data_value
3473 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_v=initial_data_value
3474 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_v=initial_data_value
3475 IF ( setinitval .EQ. 3 ) grid%em_lon_ll_d=initial_data_value
3476 IF ( setinitval .EQ. 3 ) grid%em_lon_ul_d=initial_data_value
3477 IF ( setinitval .EQ. 3 ) grid%em_lon_ur_d=initial_data_value
3478 IF ( setinitval .EQ. 3 ) grid%em_lon_lr_d=initial_data_value
3479 IF(.NOT.inter_domain)THEN
3480 ALLOCATE(grid%rthcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3481  if (ierr.ne.0) then
3482  CALL wrf_error_fatal ( &
3483 'frame/module_domain.f: Failed to allocate grid%rthcuten(sm31:em31,sm32:em32,sm33:em33). ')
3484  endif
3485   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthcuten=initial_data_value
3486 ELSE
3487 ALLOCATE(grid%rthcuten(1,1,1),STAT=ierr)
3488  if (ierr.ne.0) then
3489  CALL wrf_error_fatal ( &
3490 'frame/module_domain.f: Failed to allocate grid%rthcuten(1,1,1).  ')
3491  endif
3492 ENDIF
3493 IF(.NOT.inter_domain)THEN
3494 ALLOCATE(grid%rqvcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3495  if (ierr.ne.0) then
3496  CALL wrf_error_fatal ( &
3497 'frame/module_domain.f: Failed to allocate grid%rqvcuten(sm31:em31,sm32:em32,sm33:em33). ')
3498  endif
3499   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvcuten=initial_data_value
3500 ELSE
3501 ALLOCATE(grid%rqvcuten(1,1,1),STAT=ierr)
3502  if (ierr.ne.0) then
3503  CALL wrf_error_fatal ( &
3504 'frame/module_domain.f: Failed to allocate grid%rqvcuten(1,1,1).  ')
3505  endif
3506 ENDIF
3507 IF(.NOT.inter_domain)THEN
3508 ALLOCATE(grid%rqrcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3509  if (ierr.ne.0) then
3510  CALL wrf_error_fatal ( &
3511 'frame/module_domain.f: Failed to allocate grid%rqrcuten(sm31:em31,sm32:em32,sm33:em33). ')
3512  endif
3513   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqrcuten=initial_data_value
3514 ELSE
3515 ALLOCATE(grid%rqrcuten(1,1,1),STAT=ierr)
3516  if (ierr.ne.0) then
3517  CALL wrf_error_fatal ( &
3518 'frame/module_domain.f: Failed to allocate grid%rqrcuten(1,1,1).  ')
3519  endif
3520 ENDIF
3521 IF(.NOT.inter_domain)THEN
3522 ALLOCATE(grid%rqccuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3523  if (ierr.ne.0) then
3524  CALL wrf_error_fatal ( &
3525 'frame/module_domain.f: Failed to allocate grid%rqccuten(sm31:em31,sm32:em32,sm33:em33). ')
3526  endif
3527   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqccuten=initial_data_value
3528 ELSE
3529 ALLOCATE(grid%rqccuten(1,1,1),STAT=ierr)
3530  if (ierr.ne.0) then
3531  CALL wrf_error_fatal ( &
3532 'frame/module_domain.f: Failed to allocate grid%rqccuten(1,1,1).  ')
3533  endif
3534 ENDIF
3535 IF(.NOT.inter_domain)THEN
3536 ALLOCATE(grid%rqscuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3537  if (ierr.ne.0) then
3538  CALL wrf_error_fatal ( &
3539 'frame/module_domain.f: Failed to allocate grid%rqscuten(sm31:em31,sm32:em32,sm33:em33). ')
3540  endif
3541   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqscuten=initial_data_value
3542 ELSE
3543 ALLOCATE(grid%rqscuten(1,1,1),STAT=ierr)
3544  if (ierr.ne.0) then
3545  CALL wrf_error_fatal ( &
3546 'frame/module_domain.f: Failed to allocate grid%rqscuten(1,1,1).  ')
3547  endif
3548 ENDIF
3549 IF(.NOT.inter_domain)THEN
3550 ALLOCATE(grid%rqicuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3551  if (ierr.ne.0) then
3552  CALL wrf_error_fatal ( &
3553 'frame/module_domain.f: Failed to allocate grid%rqicuten(sm31:em31,sm32:em32,sm33:em33). ')
3554  endif
3555   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqicuten=initial_data_value
3556 ELSE
3557 ALLOCATE(grid%rqicuten(1,1,1),STAT=ierr)
3558  if (ierr.ne.0) then
3559  CALL wrf_error_fatal ( &
3560 'frame/module_domain.f: Failed to allocate grid%rqicuten(1,1,1).  ')
3561  endif
3562 ENDIF
3563 IF(.NOT.inter_domain)THEN
3564 ALLOCATE(grid%w0avg(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3565  if (ierr.ne.0) then
3566  CALL wrf_error_fatal ( &
3567 'frame/module_domain.f: Failed to allocate grid%w0avg(sm31:em31,sm32:em32,sm33:em33). ')
3568  endif
3569   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w0avg=initial_data_value
3570 ELSE
3571 ALLOCATE(grid%w0avg(1,1,1),STAT=ierr)
3572  if (ierr.ne.0) then
3573  CALL wrf_error_fatal ( &
3574 'frame/module_domain.f: Failed to allocate grid%w0avg(1,1,1).  ')
3575  endif
3576 ENDIF
3577 ALLOCATE(grid%rainc(sm31:em31,sm32:em32),STAT=ierr)
3578  if (ierr.ne.0) then
3579  CALL wrf_error_fatal ( &
3580 'frame/module_domain.f: Failed to allocate grid%rainc(sm31:em31,sm32:em32). ')
3581  endif
3582   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainc=initial_data_value
3583 ALLOCATE(grid%rainnc(sm31:em31,sm32:em32),STAT=ierr)
3584  if (ierr.ne.0) then
3585  CALL wrf_error_fatal ( &
3586 'frame/module_domain.f: Failed to allocate grid%rainnc(sm31:em31,sm32:em32). ')
3587  endif
3588   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainnc=initial_data_value
3589 IF(.NOT.inter_domain)THEN
3590 ALLOCATE(grid%raincv(sm31:em31,sm32:em32),STAT=ierr)
3591  if (ierr.ne.0) then
3592  CALL wrf_error_fatal ( &
3593 'frame/module_domain.f: Failed to allocate grid%raincv(sm31:em31,sm32:em32). ')
3594  endif
3595   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%raincv=initial_data_value
3596 ELSE
3597 ALLOCATE(grid%raincv(1,1),STAT=ierr)
3598  if (ierr.ne.0) then
3599  CALL wrf_error_fatal ( &
3600 'frame/module_domain.f: Failed to allocate grid%raincv(1,1).  ')
3601  endif
3602 ENDIF
3603 IF(.NOT.inter_domain)THEN
3604 ALLOCATE(grid%rainncv(sm31:em31,sm32:em32),STAT=ierr)
3605  if (ierr.ne.0) then
3606  CALL wrf_error_fatal ( &
3607 'frame/module_domain.f: Failed to allocate grid%rainncv(sm31:em31,sm32:em32). ')
3608  endif
3609   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainncv=initial_data_value
3610 ELSE
3611 ALLOCATE(grid%rainncv(1,1),STAT=ierr)
3612  if (ierr.ne.0) then
3613  CALL wrf_error_fatal ( &
3614 'frame/module_domain.f: Failed to allocate grid%rainncv(1,1).  ')
3615  endif
3616 ENDIF
3617 IF(.NOT.inter_domain)THEN
3618 ALLOCATE(grid%rainbl(sm31:em31,sm32:em32),STAT=ierr)
3619  if (ierr.ne.0) then
3620  CALL wrf_error_fatal ( &
3621 'frame/module_domain.f: Failed to allocate grid%rainbl(sm31:em31,sm32:em32). ')
3622  endif
3623   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainbl=initial_data_value
3624 ELSE
3625 ALLOCATE(grid%rainbl(1,1),STAT=ierr)
3626  if (ierr.ne.0) then
3627  CALL wrf_error_fatal ( &
3628 'frame/module_domain.f: Failed to allocate grid%rainbl(1,1).  ')
3629  endif
3630 ENDIF
3631 ALLOCATE(grid%snownc(sm31:em31,sm32:em32),STAT=ierr)
3632  if (ierr.ne.0) then
3633  CALL wrf_error_fatal ( &
3634 'frame/module_domain.f: Failed to allocate grid%snownc(sm31:em31,sm32:em32). ')
3635  endif
3636   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snownc=initial_data_value
3637 ALLOCATE(grid%graupelnc(sm31:em31,sm32:em32),STAT=ierr)
3638  if (ierr.ne.0) then
3639  CALL wrf_error_fatal ( &
3640 'frame/module_domain.f: Failed to allocate grid%graupelnc(sm31:em31,sm32:em32). ')
3641  endif
3642   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%graupelnc=initial_data_value
3643 IF(.NOT.inter_domain)THEN
3644 ALLOCATE(grid%snowncv(sm31:em31,sm32:em32),STAT=ierr)
3645  if (ierr.ne.0) then
3646  CALL wrf_error_fatal ( &
3647 'frame/module_domain.f: Failed to allocate grid%snowncv(sm31:em31,sm32:em32). ')
3648  endif
3649   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowncv=initial_data_value
3650 ELSE
3651 ALLOCATE(grid%snowncv(1,1),STAT=ierr)
3652  if (ierr.ne.0) then
3653  CALL wrf_error_fatal ( &
3654 'frame/module_domain.f: Failed to allocate grid%snowncv(1,1).  ')
3655  endif
3656 ENDIF
3657 IF(.NOT.inter_domain)THEN
3658 ALLOCATE(grid%graupelncv(sm31:em31,sm32:em32),STAT=ierr)
3659  if (ierr.ne.0) then
3660  CALL wrf_error_fatal ( &
3661 'frame/module_domain.f: Failed to allocate grid%graupelncv(sm31:em31,sm32:em32). ')
3662  endif
3663   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%graupelncv=initial_data_value
3664 ELSE
3665 ALLOCATE(grid%graupelncv(1,1),STAT=ierr)
3666  if (ierr.ne.0) then
3667  CALL wrf_error_fatal ( &
3668 'frame/module_domain.f: Failed to allocate grid%graupelncv(1,1).  ')
3669  endif
3670 ENDIF
3671 IF(.NOT.inter_domain)THEN
3672 ALLOCATE(grid%nca(sm31:em31,sm32:em32),STAT=ierr)
3673  if (ierr.ne.0) then
3674  CALL wrf_error_fatal ( &
3675 'frame/module_domain.f: Failed to allocate grid%nca(sm31:em31,sm32:em32). ')
3676  endif
3677   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nca=initial_data_value
3678 ELSE
3679 ALLOCATE(grid%nca(1,1),STAT=ierr)
3680  if (ierr.ne.0) then
3681  CALL wrf_error_fatal ( &
3682 'frame/module_domain.f: Failed to allocate grid%nca(1,1).  ')
3683  endif
3684 ENDIF
3685 IF(.NOT.inter_domain)THEN
3686 ALLOCATE(grid%lowlyr(sm31:em31,sm32:em32),STAT=ierr)
3687  if (ierr.ne.0) then
3688  CALL wrf_error_fatal ( &
3689 'frame/module_domain.f: Failed to allocate grid%lowlyr(sm31:em31,sm32:em32). ')
3690  endif
3691   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lowlyr=0
3692 ELSE
3693 ALLOCATE(grid%lowlyr(1,1),STAT=ierr)
3694  if (ierr.ne.0) then
3695  CALL wrf_error_fatal ( &
3696 'frame/module_domain.f: Failed to allocate grid%lowlyr(1,1).  ')
3697  endif
3698 ENDIF
3699 IF(.NOT.inter_domain)THEN
3700 ALLOCATE(grid%mass_flux(sm31:em31,sm32:em32),STAT=ierr)
3701  if (ierr.ne.0) then
3702  CALL wrf_error_fatal ( &
3703 'frame/module_domain.f: Failed to allocate grid%mass_flux(sm31:em31,sm32:em32). ')
3704  endif
3705   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mass_flux=initial_data_value
3706 ELSE
3707 ALLOCATE(grid%mass_flux(1,1),STAT=ierr)
3708  if (ierr.ne.0) then
3709  CALL wrf_error_fatal ( &
3710 'frame/module_domain.f: Failed to allocate grid%mass_flux(1,1).  ')
3711  endif
3712 ENDIF
3713 IF(.NOT.inter_domain)THEN
3714 ALLOCATE(grid%apr_gr(sm31:em31,sm32:em32),STAT=ierr)
3715  if (ierr.ne.0) then
3716  CALL wrf_error_fatal ( &
3717 'frame/module_domain.f: Failed to allocate grid%apr_gr(sm31:em31,sm32:em32). ')
3718  endif
3719   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_gr=initial_data_value
3720 ELSE
3721 ALLOCATE(grid%apr_gr(1,1),STAT=ierr)
3722  if (ierr.ne.0) then
3723  CALL wrf_error_fatal ( &
3724 'frame/module_domain.f: Failed to allocate grid%apr_gr(1,1).  ')
3725  endif
3726 ENDIF
3727 IF(.NOT.inter_domain)THEN
3728 ALLOCATE(grid%apr_w(sm31:em31,sm32:em32),STAT=ierr)
3729  if (ierr.ne.0) then
3730  CALL wrf_error_fatal ( &
3731 'frame/module_domain.f: Failed to allocate grid%apr_w(sm31:em31,sm32:em32). ')
3732  endif
3733   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_w=initial_data_value
3734 ELSE
3735 ALLOCATE(grid%apr_w(1,1),STAT=ierr)
3736  if (ierr.ne.0) then
3737  CALL wrf_error_fatal ( &
3738 'frame/module_domain.f: Failed to allocate grid%apr_w(1,1).  ')
3739  endif
3740 ENDIF
3741 IF(.NOT.inter_domain)THEN
3742 ALLOCATE(grid%apr_mc(sm31:em31,sm32:em32),STAT=ierr)
3743  if (ierr.ne.0) then
3744  CALL wrf_error_fatal ( &
3745 'frame/module_domain.f: Failed to allocate grid%apr_mc(sm31:em31,sm32:em32). ')
3746  endif
3747   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_mc=initial_data_value
3748 ELSE
3749 ALLOCATE(grid%apr_mc(1,1),STAT=ierr)
3750  if (ierr.ne.0) then
3751  CALL wrf_error_fatal ( &
3752 'frame/module_domain.f: Failed to allocate grid%apr_mc(1,1).  ')
3753  endif
3754 ENDIF
3755 IF(.NOT.inter_domain)THEN
3756 ALLOCATE(grid%apr_st(sm31:em31,sm32:em32),STAT=ierr)
3757  if (ierr.ne.0) then
3758  CALL wrf_error_fatal ( &
3759 'frame/module_domain.f: Failed to allocate grid%apr_st(sm31:em31,sm32:em32). ')
3760  endif
3761   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_st=initial_data_value
3762 ELSE
3763 ALLOCATE(grid%apr_st(1,1),STAT=ierr)
3764  if (ierr.ne.0) then
3765  CALL wrf_error_fatal ( &
3766 'frame/module_domain.f: Failed to allocate grid%apr_st(1,1).  ')
3767  endif
3768 ENDIF
3769 IF(.NOT.inter_domain)THEN
3770 ALLOCATE(grid%apr_as(sm31:em31,sm32:em32),STAT=ierr)
3771  if (ierr.ne.0) then
3772  CALL wrf_error_fatal ( &
3773 'frame/module_domain.f: Failed to allocate grid%apr_as(sm31:em31,sm32:em32). ')
3774  endif
3775   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_as=initial_data_value
3776 ELSE
3777 ALLOCATE(grid%apr_as(1,1),STAT=ierr)
3778  if (ierr.ne.0) then
3779  CALL wrf_error_fatal ( &
3780 'frame/module_domain.f: Failed to allocate grid%apr_as(1,1).  ')
3781  endif
3782 ENDIF
3783 IF(.NOT.inter_domain)THEN
3784 ALLOCATE(grid%apr_capma(sm31:em31,sm32:em32),STAT=ierr)
3785  if (ierr.ne.0) then
3786  CALL wrf_error_fatal ( &
3787 'frame/module_domain.f: Failed to allocate grid%apr_capma(sm31:em31,sm32:em32). ')
3788  endif
3789   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capma=initial_data_value
3790 ELSE
3791 ALLOCATE(grid%apr_capma(1,1),STAT=ierr)
3792  if (ierr.ne.0) then
3793  CALL wrf_error_fatal ( &
3794 'frame/module_domain.f: Failed to allocate grid%apr_capma(1,1).  ')
3795  endif
3796 ENDIF
3797 IF(.NOT.inter_domain)THEN
3798 ALLOCATE(grid%apr_capme(sm31:em31,sm32:em32),STAT=ierr)
3799  if (ierr.ne.0) then
3800  CALL wrf_error_fatal ( &
3801 'frame/module_domain.f: Failed to allocate grid%apr_capme(sm31:em31,sm32:em32). ')
3802  endif
3803   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capme=initial_data_value
3804 ELSE
3805 ALLOCATE(grid%apr_capme(1,1),STAT=ierr)
3806  if (ierr.ne.0) then
3807  CALL wrf_error_fatal ( &
3808 'frame/module_domain.f: Failed to allocate grid%apr_capme(1,1).  ')
3809  endif
3810 ENDIF
3811 IF(.NOT.inter_domain)THEN
3812 ALLOCATE(grid%apr_capmi(sm31:em31,sm32:em32),STAT=ierr)
3813  if (ierr.ne.0) then
3814  CALL wrf_error_fatal ( &
3815 'frame/module_domain.f: Failed to allocate grid%apr_capmi(sm31:em31,sm32:em32). ')
3816  endif
3817   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capmi=initial_data_value
3818 ELSE
3819 ALLOCATE(grid%apr_capmi(1,1),STAT=ierr)
3820  if (ierr.ne.0) then
3821  CALL wrf_error_fatal ( &
3822 'frame/module_domain.f: Failed to allocate grid%apr_capmi(1,1).  ')
3823  endif
3824 ENDIF
3825 IF(.NOT.inter_domain)THEN
3826 ALLOCATE(grid%xf_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim),STAT=ierr)
3827  if (ierr.ne.0) then
3828  CALL wrf_error_fatal ( &
3829 'frame/module_domain.f: Failed to allocate grid%xf_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim). ')
3830  endif
3831   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xf_ens=initial_data_value
3832 ELSE
3833 ALLOCATE(grid%xf_ens(1,1,1),STAT=ierr)
3834  if (ierr.ne.0) then
3835  CALL wrf_error_fatal ( &
3836 'frame/module_domain.f: Failed to allocate grid%xf_ens(1,1,1).  ')
3837  endif
3838 ENDIF
3839 IF(.NOT.inter_domain)THEN
3840 ALLOCATE(grid%pr_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim),STAT=ierr)
3841  if (ierr.ne.0) then
3842  CALL wrf_error_fatal ( &
3843 'frame/module_domain.f: Failed to allocate grid%pr_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim). ')
3844  endif
3845   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pr_ens=initial_data_value
3846 ELSE
3847 ALLOCATE(grid%pr_ens(1,1,1),STAT=ierr)
3848  if (ierr.ne.0) then
3849  CALL wrf_error_fatal ( &
3850 'frame/module_domain.f: Failed to allocate grid%pr_ens(1,1,1).  ')
3851  endif
3852 ENDIF
3853 IF(.NOT.inter_domain)THEN
3854 ALLOCATE(grid%rthften(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3855  if (ierr.ne.0) then
3856  CALL wrf_error_fatal ( &
3857 'frame/module_domain.f: Failed to allocate grid%rthften(sm31:em31,sm32:em32,sm33:em33). ')
3858  endif
3859   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthften=initial_data_value
3860 ELSE
3861 ALLOCATE(grid%rthften(1,1,1),STAT=ierr)
3862  if (ierr.ne.0) then
3863  CALL wrf_error_fatal ( &
3864 'frame/module_domain.f: Failed to allocate grid%rthften(1,1,1).  ')
3865  endif
3866 ENDIF
3867 IF(.NOT.inter_domain)THEN
3868 ALLOCATE(grid%rqvften(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3869  if (ierr.ne.0) then
3870  CALL wrf_error_fatal ( &
3871 'frame/module_domain.f: Failed to allocate grid%rqvften(sm31:em31,sm32:em32,sm33:em33). ')
3872  endif
3873   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvften=initial_data_value
3874 ELSE
3875 ALLOCATE(grid%rqvften(1,1,1),STAT=ierr)
3876  if (ierr.ne.0) then
3877  CALL wrf_error_fatal ( &
3878 'frame/module_domain.f: Failed to allocate grid%rqvften(1,1,1).  ')
3879  endif
3880 ENDIF
3881 IF ( setinitval .EQ. 3 ) grid%stepcu=0
3882 IF(.NOT.inter_domain)THEN
3883 ALLOCATE(grid%rthraten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3884  if (ierr.ne.0) then
3885  CALL wrf_error_fatal ( &
3886 'frame/module_domain.f: Failed to allocate grid%rthraten(sm31:em31,sm32:em32,sm33:em33). ')
3887  endif
3888   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthraten=initial_data_value
3889 ELSE
3890 ALLOCATE(grid%rthraten(1,1,1),STAT=ierr)
3891  if (ierr.ne.0) then
3892  CALL wrf_error_fatal ( &
3893 'frame/module_domain.f: Failed to allocate grid%rthraten(1,1,1).  ')
3894  endif
3895 ENDIF
3896 IF(.NOT.inter_domain)THEN
3897 ALLOCATE(grid%rthratenlw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3898  if (ierr.ne.0) then
3899  CALL wrf_error_fatal ( &
3900 'frame/module_domain.f: Failed to allocate grid%rthratenlw(sm31:em31,sm32:em32,sm33:em33). ')
3901  endif
3902   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthratenlw=initial_data_value
3903 ELSE
3904 ALLOCATE(grid%rthratenlw(1,1,1),STAT=ierr)
3905  if (ierr.ne.0) then
3906  CALL wrf_error_fatal ( &
3907 'frame/module_domain.f: Failed to allocate grid%rthratenlw(1,1,1).  ')
3908  endif
3909 ENDIF
3910 IF(.NOT.inter_domain)THEN
3911 ALLOCATE(grid%rthratensw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3912  if (ierr.ne.0) then
3913  CALL wrf_error_fatal ( &
3914 'frame/module_domain.f: Failed to allocate grid%rthratensw(sm31:em31,sm32:em32,sm33:em33). ')
3915  endif
3916   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthratensw=initial_data_value
3917 ELSE
3918 ALLOCATE(grid%rthratensw(1,1,1),STAT=ierr)
3919  if (ierr.ne.0) then
3920  CALL wrf_error_fatal ( &
3921 'frame/module_domain.f: Failed to allocate grid%rthratensw(1,1,1).  ')
3922  endif
3923 ENDIF
3924 IF(.NOT.inter_domain)THEN
3925 ALLOCATE(grid%cldfra(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3926  if (ierr.ne.0) then
3927  CALL wrf_error_fatal ( &
3928 'frame/module_domain.f: Failed to allocate grid%cldfra(sm31:em31,sm32:em32,sm33:em33). ')
3929  endif
3930   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldfra=initial_data_value
3931 ELSE
3932 ALLOCATE(grid%cldfra(1,1,1),STAT=ierr)
3933  if (ierr.ne.0) then
3934  CALL wrf_error_fatal ( &
3935 'frame/module_domain.f: Failed to allocate grid%cldfra(1,1,1).  ')
3936  endif
3937 ENDIF
3938 IF(.NOT.inter_domain)THEN
3939 ALLOCATE(grid%swdown(sm31:em31,sm32:em32),STAT=ierr)
3940  if (ierr.ne.0) then
3941  CALL wrf_error_fatal ( &
3942 'frame/module_domain.f: Failed to allocate grid%swdown(sm31:em31,sm32:em32). ')
3943  endif
3944   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdown=initial_data_value
3945 ELSE
3946 ALLOCATE(grid%swdown(1,1),STAT=ierr)
3947  if (ierr.ne.0) then
3948  CALL wrf_error_fatal ( &
3949 'frame/module_domain.f: Failed to allocate grid%swdown(1,1).  ')
3950  endif
3951 ENDIF
3952 IF(.NOT.inter_domain)THEN
3953 ALLOCATE(grid%swdownc(sm31:em31,sm32:em32),STAT=ierr)
3954  if (ierr.ne.0) then
3955  CALL wrf_error_fatal ( &
3956 'frame/module_domain.f: Failed to allocate grid%swdownc(sm31:em31,sm32:em32). ')
3957  endif
3958   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdownc=initial_data_value
3959 ELSE
3960 ALLOCATE(grid%swdownc(1,1),STAT=ierr)
3961  if (ierr.ne.0) then
3962  CALL wrf_error_fatal ( &
3963 'frame/module_domain.f: Failed to allocate grid%swdownc(1,1).  ')
3964  endif
3965 ENDIF
3966 IF(.NOT.inter_domain)THEN
3967 ALLOCATE(grid%gsw(sm31:em31,sm32:em32),STAT=ierr)
3968  if (ierr.ne.0) then
3969  CALL wrf_error_fatal ( &
3970 'frame/module_domain.f: Failed to allocate grid%gsw(sm31:em31,sm32:em32). ')
3971  endif
3972   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gsw=initial_data_value
3973 ELSE
3974 ALLOCATE(grid%gsw(1,1),STAT=ierr)
3975  if (ierr.ne.0) then
3976  CALL wrf_error_fatal ( &
3977 'frame/module_domain.f: Failed to allocate grid%gsw(1,1).  ')
3978  endif
3979 ENDIF
3980 IF(.NOT.inter_domain)THEN
3981 ALLOCATE(grid%glw(sm31:em31,sm32:em32),STAT=ierr)
3982  if (ierr.ne.0) then
3983  CALL wrf_error_fatal ( &
3984 'frame/module_domain.f: Failed to allocate grid%glw(sm31:em31,sm32:em32). ')
3985  endif
3986   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%glw=initial_data_value
3987 ELSE
3988 ALLOCATE(grid%glw(1,1),STAT=ierr)
3989  if (ierr.ne.0) then
3990  CALL wrf_error_fatal ( &
3991 'frame/module_domain.f: Failed to allocate grid%glw(1,1).  ')
3992  endif
3993 ENDIF
3994 IF(.NOT.inter_domain)THEN
3995 ALLOCATE(grid%swcf(sm31:em31,sm32:em32),STAT=ierr)
3996  if (ierr.ne.0) then
3997  CALL wrf_error_fatal ( &
3998 'frame/module_domain.f: Failed to allocate grid%swcf(sm31:em31,sm32:em32). ')
3999  endif
4000   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swcf=initial_data_value
4001 ELSE
4002 ALLOCATE(grid%swcf(1,1),STAT=ierr)
4003  if (ierr.ne.0) then
4004  CALL wrf_error_fatal ( &
4005 'frame/module_domain.f: Failed to allocate grid%swcf(1,1).  ')
4006  endif
4007 ENDIF
4008 IF(.NOT.inter_domain)THEN
4009 ALLOCATE(grid%lwcf(sm31:em31,sm32:em32),STAT=ierr)
4010  if (ierr.ne.0) then
4011  CALL wrf_error_fatal ( &
4012 'frame/module_domain.f: Failed to allocate grid%lwcf(sm31:em31,sm32:em32). ')
4013  endif
4014   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwcf=initial_data_value
4015 ELSE
4016 ALLOCATE(grid%lwcf(1,1),STAT=ierr)
4017  if (ierr.ne.0) then
4018  CALL wrf_error_fatal ( &
4019 'frame/module_domain.f: Failed to allocate grid%lwcf(1,1).  ')
4020  endif
4021 ENDIF
4022 IF(.NOT.inter_domain)THEN
4023 ALLOCATE(grid%olr(sm31:em31,sm32:em32),STAT=ierr)
4024  if (ierr.ne.0) then
4025  CALL wrf_error_fatal ( &
4026 'frame/module_domain.f: Failed to allocate grid%olr(sm31:em31,sm32:em32). ')
4027  endif
4028   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%olr=initial_data_value
4029 ELSE
4030 ALLOCATE(grid%olr(1,1),STAT=ierr)
4031  if (ierr.ne.0) then
4032  CALL wrf_error_fatal ( &
4033 'frame/module_domain.f: Failed to allocate grid%olr(1,1).  ')
4034  endif
4035 ENDIF
4036 ALLOCATE(grid%xlat(sm31:em31,sm32:em32),STAT=ierr)
4037  if (ierr.ne.0) then
4038  CALL wrf_error_fatal ( &
4039 'frame/module_domain.f: Failed to allocate grid%xlat(sm31:em31,sm32:em32). ')
4040  endif
4041   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat=initial_data_value
4042 ALLOCATE(grid%xlong(sm31:em31,sm32:em32),STAT=ierr)
4043  if (ierr.ne.0) then
4044  CALL wrf_error_fatal ( &
4045 'frame/module_domain.f: Failed to allocate grid%xlong(sm31:em31,sm32:em32). ')
4046  endif
4047   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong=initial_data_value
4048 ALLOCATE(grid%em_xlat_u(sm31:em31,sm32:em32),STAT=ierr)
4049  if (ierr.ne.0) then
4050  CALL wrf_error_fatal ( &
4051 'frame/module_domain.f: Failed to allocate grid%em_xlat_u(sm31:em31,sm32:em32). ')
4052  endif
4053   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlat_u=initial_data_value
4054 ALLOCATE(grid%em_xlong_u(sm31:em31,sm32:em32),STAT=ierr)
4055  if (ierr.ne.0) then
4056  CALL wrf_error_fatal ( &
4057 'frame/module_domain.f: Failed to allocate grid%em_xlong_u(sm31:em31,sm32:em32). ')
4058  endif
4059   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlong_u=initial_data_value
4060 ALLOCATE(grid%em_xlat_v(sm31:em31,sm32:em32),STAT=ierr)
4061  if (ierr.ne.0) then
4062  CALL wrf_error_fatal ( &
4063 'frame/module_domain.f: Failed to allocate grid%em_xlat_v(sm31:em31,sm32:em32). ')
4064  endif
4065   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlat_v=initial_data_value
4066 ALLOCATE(grid%em_xlong_v(sm31:em31,sm32:em32),STAT=ierr)
4067  if (ierr.ne.0) then
4068  CALL wrf_error_fatal ( &
4069 'frame/module_domain.f: Failed to allocate grid%em_xlong_v(sm31:em31,sm32:em32). ')
4070  endif
4071   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_xlong_v=initial_data_value
4072 IF(.NOT.inter_domain)THEN
4073 ALLOCATE(grid%albedo(sm31:em31,sm32:em32),STAT=ierr)
4074  if (ierr.ne.0) then
4075  CALL wrf_error_fatal ( &
4076 'frame/module_domain.f: Failed to allocate grid%albedo(sm31:em31,sm32:em32). ')
4077  endif
4078   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albedo=initial_data_value
4079 ELSE
4080 ALLOCATE(grid%albedo(1,1),STAT=ierr)
4081  if (ierr.ne.0) then
4082  CALL wrf_error_fatal ( &
4083 'frame/module_domain.f: Failed to allocate grid%albedo(1,1).  ')
4084  endif
4085 ENDIF
4086 IF(.NOT.inter_domain)THEN
4087 ALLOCATE(grid%albbck(sm31:em31,sm32:em32),STAT=ierr)
4088  if (ierr.ne.0) then
4089  CALL wrf_error_fatal ( &
4090 'frame/module_domain.f: Failed to allocate grid%albbck(sm31:em31,sm32:em32). ')
4091  endif
4092   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albbck=initial_data_value
4093 ELSE
4094 ALLOCATE(grid%albbck(1,1),STAT=ierr)
4095  if (ierr.ne.0) then
4096  CALL wrf_error_fatal ( &
4097 'frame/module_domain.f: Failed to allocate grid%albbck(1,1).  ')
4098  endif
4099 ENDIF
4100 IF(.NOT.inter_domain)THEN
4101 ALLOCATE(grid%emiss(sm31:em31,sm32:em32),STAT=ierr)
4102  if (ierr.ne.0) then
4103  CALL wrf_error_fatal ( &
4104 'frame/module_domain.f: Failed to allocate grid%emiss(sm31:em31,sm32:em32). ')
4105  endif
4106   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%emiss=initial_data_value
4107 ELSE
4108 ALLOCATE(grid%emiss(1,1),STAT=ierr)
4109  if (ierr.ne.0) then
4110  CALL wrf_error_fatal ( &
4111 'frame/module_domain.f: Failed to allocate grid%emiss(1,1).  ')
4112  endif
4113 ENDIF
4114 IF(.NOT.inter_domain)THEN
4115 ALLOCATE(grid%cldefi(sm31:em31,sm32:em32),STAT=ierr)
4116  if (ierr.ne.0) then
4117  CALL wrf_error_fatal ( &
4118 'frame/module_domain.f: Failed to allocate grid%cldefi(sm31:em31,sm32:em32). ')
4119  endif
4120   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldefi=initial_data_value
4121 ELSE
4122 ALLOCATE(grid%cldefi(1,1),STAT=ierr)
4123  if (ierr.ne.0) then
4124  CALL wrf_error_fatal ( &
4125 'frame/module_domain.f: Failed to allocate grid%cldefi(1,1).  ')
4126  endif
4127 ENDIF
4128 IF ( setinitval .EQ. 3 ) grid%stepra=0
4129 IF(.NOT.inter_domain)THEN
4130 ALLOCATE(grid%rublten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4131  if (ierr.ne.0) then
4132  CALL wrf_error_fatal ( &
4133 'frame/module_domain.f: Failed to allocate grid%rublten(sm31:em31,sm32:em32,sm33:em33). ')
4134  endif
4135   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rublten=initial_data_value
4136 ELSE
4137 ALLOCATE(grid%rublten(1,1,1),STAT=ierr)
4138  if (ierr.ne.0) then
4139  CALL wrf_error_fatal ( &
4140 'frame/module_domain.f: Failed to allocate grid%rublten(1,1,1).  ')
4141  endif
4142 ENDIF
4143 IF(.NOT.inter_domain)THEN
4144 ALLOCATE(grid%rvblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4145  if (ierr.ne.0) then
4146  CALL wrf_error_fatal ( &
4147 'frame/module_domain.f: Failed to allocate grid%rvblten(sm31:em31,sm32:em32,sm33:em33). ')
4148  endif
4149   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rvblten=initial_data_value
4150 ELSE
4151 ALLOCATE(grid%rvblten(1,1,1),STAT=ierr)
4152  if (ierr.ne.0) then
4153  CALL wrf_error_fatal ( &
4154 'frame/module_domain.f: Failed to allocate grid%rvblten(1,1,1).  ')
4155  endif
4156 ENDIF
4157 IF(.NOT.inter_domain)THEN
4158 ALLOCATE(grid%rthblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4159  if (ierr.ne.0) then
4160  CALL wrf_error_fatal ( &
4161 'frame/module_domain.f: Failed to allocate grid%rthblten(sm31:em31,sm32:em32,sm33:em33). ')
4162  endif
4163   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthblten=initial_data_value
4164 ELSE
4165 ALLOCATE(grid%rthblten(1,1,1),STAT=ierr)
4166  if (ierr.ne.0) then
4167  CALL wrf_error_fatal ( &
4168 'frame/module_domain.f: Failed to allocate grid%rthblten(1,1,1).  ')
4169  endif
4170 ENDIF
4171 IF(.NOT.inter_domain)THEN
4172 ALLOCATE(grid%rqvblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4173  if (ierr.ne.0) then
4174  CALL wrf_error_fatal ( &
4175 'frame/module_domain.f: Failed to allocate grid%rqvblten(sm31:em31,sm32:em32,sm33:em33). ')
4176  endif
4177   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvblten=initial_data_value
4178 ELSE
4179 ALLOCATE(grid%rqvblten(1,1,1),STAT=ierr)
4180  if (ierr.ne.0) then
4181  CALL wrf_error_fatal ( &
4182 'frame/module_domain.f: Failed to allocate grid%rqvblten(1,1,1).  ')
4183  endif
4184 ENDIF
4185 IF(.NOT.inter_domain)THEN
4186 ALLOCATE(grid%rqcblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4187  if (ierr.ne.0) then
4188  CALL wrf_error_fatal ( &
4189 'frame/module_domain.f: Failed to allocate grid%rqcblten(sm31:em31,sm32:em32,sm33:em33). ')
4190  endif
4191   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqcblten=initial_data_value
4192 ELSE
4193 ALLOCATE(grid%rqcblten(1,1,1),STAT=ierr)
4194  if (ierr.ne.0) then
4195  CALL wrf_error_fatal ( &
4196 'frame/module_domain.f: Failed to allocate grid%rqcblten(1,1,1).  ')
4197  endif
4198 ENDIF
4199 IF(.NOT.inter_domain)THEN
4200 ALLOCATE(grid%rqiblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4201  if (ierr.ne.0) then
4202  CALL wrf_error_fatal ( &
4203 'frame/module_domain.f: Failed to allocate grid%rqiblten(sm31:em31,sm32:em32,sm33:em33). ')
4204  endif
4205   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqiblten=initial_data_value
4206 ELSE
4207 ALLOCATE(grid%rqiblten(1,1,1),STAT=ierr)
4208  if (ierr.ne.0) then
4209  CALL wrf_error_fatal ( &
4210 'frame/module_domain.f: Failed to allocate grid%rqiblten(1,1,1).  ')
4211  endif
4212 ENDIF
4213 IF(.NOT.inter_domain)THEN
4214 ALLOCATE(grid%mp_restart_state(1:7501),STAT=ierr)
4215  if (ierr.ne.0) then
4216  CALL wrf_error_fatal ( &
4217 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1:7501). ')
4218  endif
4219   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mp_restart_state=initial_data_value
4220 ELSE
4221 ALLOCATE(grid%mp_restart_state(1),STAT=ierr)
4222  if (ierr.ne.0) then
4223  CALL wrf_error_fatal ( &
4224 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1).  ')
4225  endif
4226 ENDIF
4227 IF(.NOT.inter_domain)THEN
4228 ALLOCATE(grid%tbpvs_state(1:7501),STAT=ierr)
4229  if (ierr.ne.0) then
4230  CALL wrf_error_fatal ( &
4231 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1:7501). ')
4232  endif
4233   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs_state=initial_data_value
4234 ELSE
4235 ALLOCATE(grid%tbpvs_state(1),STAT=ierr)
4236  if (ierr.ne.0) then
4237  CALL wrf_error_fatal ( &
4238 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1).  ')
4239  endif
4240 ENDIF
4241 IF(.NOT.inter_domain)THEN
4242 ALLOCATE(grid%tbpvs0_state(1:7501),STAT=ierr)
4243  if (ierr.ne.0) then
4244  CALL wrf_error_fatal ( &
4245 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1:7501). ')
4246  endif
4247   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs0_state=initial_data_value
4248 ELSE
4249 ALLOCATE(grid%tbpvs0_state(1),STAT=ierr)
4250  if (ierr.ne.0) then
4251  CALL wrf_error_fatal ( &
4252 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1).  ')
4253  endif
4254 ENDIF
4255 IF ( setinitval .EQ. 3 ) grid%landuse_isice=0
4256 IF ( setinitval .EQ. 3 ) grid%landuse_lucats=0
4257 IF ( setinitval .EQ. 3 ) grid%landuse_luseas=0
4258 IF ( setinitval .EQ. 3 ) grid%landuse_isn=0
4259 IF(.NOT.inter_domain)THEN
4260 ALLOCATE(grid%lu_state(1:7501),STAT=ierr)
4261  if (ierr.ne.0) then
4262  CALL wrf_error_fatal ( &
4263 'frame/module_domain.f: Failed to allocate grid%lu_state(1:7501). ')
4264  endif
4265   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_state=initial_data_value
4266 ELSE
4267 ALLOCATE(grid%lu_state(1),STAT=ierr)
4268  if (ierr.ne.0) then
4269  CALL wrf_error_fatal ( &
4270 'frame/module_domain.f: Failed to allocate grid%lu_state(1).  ')
4271  endif
4272 ENDIF
4273 ALLOCATE(grid%tmn(sm31:em31,sm32:em32),STAT=ierr)
4274  if (ierr.ne.0) then
4275  CALL wrf_error_fatal ( &
4276 'frame/module_domain.f: Failed to allocate grid%tmn(sm31:em31,sm32:em32). ')
4277  endif
4278   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tmn=initial_data_value
4279 ALLOCATE(grid%xland(sm31:em31,sm32:em32),STAT=ierr)
4280  if (ierr.ne.0) then
4281  CALL wrf_error_fatal ( &
4282 'frame/module_domain.f: Failed to allocate grid%xland(sm31:em31,sm32:em32). ')
4283  endif
4284   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xland=initial_data_value
4285 IF(.NOT.inter_domain)THEN
4286 ALLOCATE(grid%znt(sm31:em31,sm32:em32),STAT=ierr)
4287  if (ierr.ne.0) then
4288  CALL wrf_error_fatal ( &
4289 'frame/module_domain.f: Failed to allocate grid%znt(sm31:em31,sm32:em32). ')
4290  endif
4291   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znt=initial_data_value
4292 ELSE
4293 ALLOCATE(grid%znt(1,1),STAT=ierr)
4294  if (ierr.ne.0) then
4295  CALL wrf_error_fatal ( &
4296 'frame/module_domain.f: Failed to allocate grid%znt(1,1).  ')
4297  endif
4298 ENDIF
4299 IF(.NOT.inter_domain)THEN
4300 ALLOCATE(grid%ust(sm31:em31,sm32:em32),STAT=ierr)
4301  if (ierr.ne.0) then
4302  CALL wrf_error_fatal ( &
4303 'frame/module_domain.f: Failed to allocate grid%ust(sm31:em31,sm32:em32). ')
4304  endif
4305   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ust=initial_data_value
4306 ELSE
4307 ALLOCATE(grid%ust(1,1),STAT=ierr)
4308  if (ierr.ne.0) then
4309  CALL wrf_error_fatal ( &
4310 'frame/module_domain.f: Failed to allocate grid%ust(1,1).  ')
4311  endif
4312 ENDIF
4313 IF(.NOT.inter_domain)THEN
4314 ALLOCATE(grid%rmol(sm31:em31,sm32:em32),STAT=ierr)
4315  if (ierr.ne.0) then
4316  CALL wrf_error_fatal ( &
4317 'frame/module_domain.f: Failed to allocate grid%rmol(sm31:em31,sm32:em32). ')
4318  endif
4319   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rmol=initial_data_value
4320 ELSE
4321 ALLOCATE(grid%rmol(1,1),STAT=ierr)
4322  if (ierr.ne.0) then
4323  CALL wrf_error_fatal ( &
4324 'frame/module_domain.f: Failed to allocate grid%rmol(1,1).  ')
4325  endif
4326 ENDIF
4327 IF(.NOT.inter_domain)THEN
4328 ALLOCATE(grid%mol(sm31:em31,sm32:em32),STAT=ierr)
4329  if (ierr.ne.0) then
4330  CALL wrf_error_fatal ( &
4331 'frame/module_domain.f: Failed to allocate grid%mol(sm31:em31,sm32:em32). ')
4332  endif
4333   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mol=initial_data_value
4334 ELSE
4335 ALLOCATE(grid%mol(1,1),STAT=ierr)
4336  if (ierr.ne.0) then
4337  CALL wrf_error_fatal ( &
4338 'frame/module_domain.f: Failed to allocate grid%mol(1,1).  ')
4339  endif
4340 ENDIF
4341 IF(.NOT.inter_domain)THEN
4342 ALLOCATE(grid%pblh(sm31:em31,sm32:em32),STAT=ierr)
4343  if (ierr.ne.0) then
4344  CALL wrf_error_fatal ( &
4345 'frame/module_domain.f: Failed to allocate grid%pblh(sm31:em31,sm32:em32). ')
4346  endif
4347   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pblh=initial_data_value
4348 ELSE
4349 ALLOCATE(grid%pblh(1,1),STAT=ierr)
4350  if (ierr.ne.0) then
4351  CALL wrf_error_fatal ( &
4352 'frame/module_domain.f: Failed to allocate grid%pblh(1,1).  ')
4353  endif
4354 ENDIF
4355 IF(.NOT.inter_domain)THEN
4356 ALLOCATE(grid%capg(sm31:em31,sm32:em32),STAT=ierr)
4357  if (ierr.ne.0) then
4358  CALL wrf_error_fatal ( &
4359 'frame/module_domain.f: Failed to allocate grid%capg(sm31:em31,sm32:em32). ')
4360  endif
4361   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%capg=initial_data_value
4362 ELSE
4363 ALLOCATE(grid%capg(1,1),STAT=ierr)
4364  if (ierr.ne.0) then
4365  CALL wrf_error_fatal ( &
4366 'frame/module_domain.f: Failed to allocate grid%capg(1,1).  ')
4367  endif
4368 ENDIF
4369 IF(.NOT.inter_domain)THEN
4370 ALLOCATE(grid%thc(sm31:em31,sm32:em32),STAT=ierr)
4371  if (ierr.ne.0) then
4372  CALL wrf_error_fatal ( &
4373 'frame/module_domain.f: Failed to allocate grid%thc(sm31:em31,sm32:em32). ')
4374  endif
4375   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%thc=initial_data_value
4376 ELSE
4377 ALLOCATE(grid%thc(1,1),STAT=ierr)
4378  if (ierr.ne.0) then
4379  CALL wrf_error_fatal ( &
4380 'frame/module_domain.f: Failed to allocate grid%thc(1,1).  ')
4381  endif
4382 ENDIF
4383 IF(.NOT.inter_domain)THEN
4384 ALLOCATE(grid%hfx(sm31:em31,sm32:em32),STAT=ierr)
4385  if (ierr.ne.0) then
4386  CALL wrf_error_fatal ( &
4387 'frame/module_domain.f: Failed to allocate grid%hfx(sm31:em31,sm32:em32). ')
4388  endif
4389   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hfx=initial_data_value
4390 ELSE
4391 ALLOCATE(grid%hfx(1,1),STAT=ierr)
4392  if (ierr.ne.0) then
4393  CALL wrf_error_fatal ( &
4394 'frame/module_domain.f: Failed to allocate grid%hfx(1,1).  ')
4395  endif
4396 ENDIF
4397 IF(.NOT.inter_domain)THEN
4398 ALLOCATE(grid%qfx(sm31:em31,sm32:em32),STAT=ierr)
4399  if (ierr.ne.0) then
4400  CALL wrf_error_fatal ( &
4401 'frame/module_domain.f: Failed to allocate grid%qfx(sm31:em31,sm32:em32). ')
4402  endif
4403   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qfx=initial_data_value
4404 ELSE
4405 ALLOCATE(grid%qfx(1,1),STAT=ierr)
4406  if (ierr.ne.0) then
4407  CALL wrf_error_fatal ( &
4408 'frame/module_domain.f: Failed to allocate grid%qfx(1,1).  ')
4409  endif
4410 ENDIF
4411 IF(.NOT.inter_domain)THEN
4412 ALLOCATE(grid%lh(sm31:em31,sm32:em32),STAT=ierr)
4413  if (ierr.ne.0) then
4414  CALL wrf_error_fatal ( &
4415 'frame/module_domain.f: Failed to allocate grid%lh(sm31:em31,sm32:em32). ')
4416  endif
4417   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lh=initial_data_value
4418 ELSE
4419 ALLOCATE(grid%lh(1,1),STAT=ierr)
4420  if (ierr.ne.0) then
4421  CALL wrf_error_fatal ( &
4422 'frame/module_domain.f: Failed to allocate grid%lh(1,1).  ')
4423  endif
4424 ENDIF
4425 IF(.NOT.inter_domain)THEN
4426 ALLOCATE(grid%flhc(sm31:em31,sm32:em32),STAT=ierr)
4427  if (ierr.ne.0) then
4428  CALL wrf_error_fatal ( &
4429 'frame/module_domain.f: Failed to allocate grid%flhc(sm31:em31,sm32:em32). ')
4430  endif
4431   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%flhc=initial_data_value
4432 ELSE
4433 ALLOCATE(grid%flhc(1,1),STAT=ierr)
4434  if (ierr.ne.0) then
4435  CALL wrf_error_fatal ( &
4436 'frame/module_domain.f: Failed to allocate grid%flhc(1,1).  ')
4437  endif
4438 ENDIF
4439 IF(.NOT.inter_domain)THEN
4440 ALLOCATE(grid%flqc(sm31:em31,sm32:em32),STAT=ierr)
4441  if (ierr.ne.0) then
4442  CALL wrf_error_fatal ( &
4443 'frame/module_domain.f: Failed to allocate grid%flqc(sm31:em31,sm32:em32). ')
4444  endif
4445   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%flqc=initial_data_value
4446 ELSE
4447 ALLOCATE(grid%flqc(1,1),STAT=ierr)
4448  if (ierr.ne.0) then
4449  CALL wrf_error_fatal ( &
4450 'frame/module_domain.f: Failed to allocate grid%flqc(1,1).  ')
4451  endif
4452 ENDIF
4453 IF(.NOT.inter_domain)THEN
4454 ALLOCATE(grid%qsg(sm31:em31,sm32:em32),STAT=ierr)
4455  if (ierr.ne.0) then
4456  CALL wrf_error_fatal ( &
4457 'frame/module_domain.f: Failed to allocate grid%qsg(sm31:em31,sm32:em32). ')
4458  endif
4459   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qsg=initial_data_value
4460 ELSE
4461 ALLOCATE(grid%qsg(1,1),STAT=ierr)
4462  if (ierr.ne.0) then
4463  CALL wrf_error_fatal ( &
4464 'frame/module_domain.f: Failed to allocate grid%qsg(1,1).  ')
4465  endif
4466 ENDIF
4467 IF(.NOT.inter_domain)THEN
4468 ALLOCATE(grid%qvg(sm31:em31,sm32:em32),STAT=ierr)
4469  if (ierr.ne.0) then
4470  CALL wrf_error_fatal ( &
4471 'frame/module_domain.f: Failed to allocate grid%qvg(sm31:em31,sm32:em32). ')
4472  endif
4473   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qvg=initial_data_value
4474 ELSE
4475 ALLOCATE(grid%qvg(1,1),STAT=ierr)
4476  if (ierr.ne.0) then
4477  CALL wrf_error_fatal ( &
4478 'frame/module_domain.f: Failed to allocate grid%qvg(1,1).  ')
4479  endif
4480 ENDIF
4481 IF(.NOT.inter_domain)THEN
4482 ALLOCATE(grid%qcg(sm31:em31,sm32:em32),STAT=ierr)
4483  if (ierr.ne.0) then
4484  CALL wrf_error_fatal ( &
4485 'frame/module_domain.f: Failed to allocate grid%qcg(sm31:em31,sm32:em32). ')
4486  endif
4487   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qcg=initial_data_value
4488 ELSE
4489 ALLOCATE(grid%qcg(1,1),STAT=ierr)
4490  if (ierr.ne.0) then
4491  CALL wrf_error_fatal ( &
4492 'frame/module_domain.f: Failed to allocate grid%qcg(1,1).  ')
4493  endif
4494 ENDIF
4495 IF(.NOT.inter_domain)THEN
4496 ALLOCATE(grid%soilt1(sm31:em31,sm32:em32),STAT=ierr)
4497  if (ierr.ne.0) then
4498  CALL wrf_error_fatal ( &
4499 'frame/module_domain.f: Failed to allocate grid%soilt1(sm31:em31,sm32:em32). ')
4500  endif
4501   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt1=initial_data_value
4502 ELSE
4503 ALLOCATE(grid%soilt1(1,1),STAT=ierr)
4504  if (ierr.ne.0) then
4505  CALL wrf_error_fatal ( &
4506 'frame/module_domain.f: Failed to allocate grid%soilt1(1,1).  ')
4507  endif
4508 ENDIF
4509 IF(.NOT.inter_domain)THEN
4510 ALLOCATE(grid%tsnav(sm31:em31,sm32:em32),STAT=ierr)
4511  if (ierr.ne.0) then
4512  CALL wrf_error_fatal ( &
4513 'frame/module_domain.f: Failed to allocate grid%tsnav(sm31:em31,sm32:em32). ')
4514  endif
4515   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsnav=initial_data_value
4516 ELSE
4517 ALLOCATE(grid%tsnav(1,1),STAT=ierr)
4518  if (ierr.ne.0) then
4519  CALL wrf_error_fatal ( &
4520 'frame/module_domain.f: Failed to allocate grid%tsnav(1,1).  ')
4521  endif
4522 ENDIF
4523 ALLOCATE(grid%snowc(sm31:em31,sm32:em32),STAT=ierr)
4524  if (ierr.ne.0) then
4525  CALL wrf_error_fatal ( &
4526 'frame/module_domain.f: Failed to allocate grid%snowc(sm31:em31,sm32:em32). ')
4527  endif
4528   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowc=initial_data_value
4529 IF(.NOT.inter_domain)THEN
4530 ALLOCATE(grid%mavail(sm31:em31,sm32:em32),STAT=ierr)
4531  if (ierr.ne.0) then
4532  CALL wrf_error_fatal ( &
4533 'frame/module_domain.f: Failed to allocate grid%mavail(sm31:em31,sm32:em32). ')
4534  endif
4535   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mavail=initial_data_value
4536 ELSE
4537 ALLOCATE(grid%mavail(1,1),STAT=ierr)
4538  if (ierr.ne.0) then
4539  CALL wrf_error_fatal ( &
4540 'frame/module_domain.f: Failed to allocate grid%mavail(1,1).  ')
4541  endif
4542 ENDIF
4543 IF ( setinitval .EQ. 3 ) grid%stepbl=0
4544 IF(.NOT.inter_domain)THEN
4545 ALLOCATE(grid%xkmv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4546  if (ierr.ne.0) then
4547  CALL wrf_error_fatal ( &
4548 'frame/module_domain.f: Failed to allocate grid%xkmv(sm31:em31,sm32:em32,sm33:em33). ')
4549  endif
4550   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmv=initial_data_value
4551 ELSE
4552 ALLOCATE(grid%xkmv(1,1,1),STAT=ierr)
4553  if (ierr.ne.0) then
4554  CALL wrf_error_fatal ( &
4555 'frame/module_domain.f: Failed to allocate grid%xkmv(1,1,1).  ')
4556  endif
4557 ENDIF
4558 IF(.NOT.inter_domain)THEN
4559 ALLOCATE(grid%xkmh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4560  if (ierr.ne.0) then
4561  CALL wrf_error_fatal ( &
4562 'frame/module_domain.f: Failed to allocate grid%xkmh(sm31:em31,sm32:em32,sm33:em33). ')
4563  endif
4564   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmh=initial_data_value
4565 ELSE
4566 ALLOCATE(grid%xkmh(1,1,1),STAT=ierr)
4567  if (ierr.ne.0) then
4568  CALL wrf_error_fatal ( &
4569 'frame/module_domain.f: Failed to allocate grid%xkmh(1,1,1).  ')
4570  endif
4571 ENDIF
4572 IF(.NOT.inter_domain)THEN
4573 ALLOCATE(grid%xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4574  if (ierr.ne.0) then
4575  CALL wrf_error_fatal ( &
4576 'frame/module_domain.f: Failed to allocate grid%xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
4577  endif
4578   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmhd=initial_data_value
4579 ELSE
4580 ALLOCATE(grid%xkmhd(1,1,1),STAT=ierr)
4581  if (ierr.ne.0) then
4582  CALL wrf_error_fatal ( &
4583 'frame/module_domain.f: Failed to allocate grid%xkmhd(1,1,1).  ')
4584  endif
4585 ENDIF
4586 IF(.NOT.inter_domain)THEN
4587 ALLOCATE(grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4588  if (ierr.ne.0) then
4589  CALL wrf_error_fatal ( &
4590 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
4591  endif
4592   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_xkmhd=initial_data_value
4593 ELSE
4594 ALLOCATE(grid%a_xkmhd(1,1,1),STAT=ierr)
4595  if (ierr.ne.0) then
4596  CALL wrf_error_fatal ( &
4597 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(1,1,1).  ')
4598  endif
4599 ENDIF
4600 IF(.NOT.inter_domain)THEN
4601 ALLOCATE(grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4602  if (ierr.ne.0) then
4603  CALL wrf_error_fatal ( &
4604 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
4605  endif
4606   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_xkmhd=initial_data_value
4607 ELSE
4608 ALLOCATE(grid%g_xkmhd(1,1,1),STAT=ierr)
4609  if (ierr.ne.0) then
4610  CALL wrf_error_fatal ( &
4611 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(1,1,1).  ')
4612  endif
4613 ENDIF
4614 IF(.NOT.inter_domain)THEN
4615 ALLOCATE(grid%xkhv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4616  if (ierr.ne.0) then
4617  CALL wrf_error_fatal ( &
4618 'frame/module_domain.f: Failed to allocate grid%xkhv(sm31:em31,sm32:em32,sm33:em33). ')
4619  endif
4620   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhv=initial_data_value
4621 ELSE
4622 ALLOCATE(grid%xkhv(1,1,1),STAT=ierr)
4623  if (ierr.ne.0) then
4624  CALL wrf_error_fatal ( &
4625 'frame/module_domain.f: Failed to allocate grid%xkhv(1,1,1).  ')
4626  endif
4627 ENDIF
4628 IF(.NOT.inter_domain)THEN
4629 ALLOCATE(grid%xkhh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4630  if (ierr.ne.0) then
4631  CALL wrf_error_fatal ( &
4632 'frame/module_domain.f: Failed to allocate grid%xkhh(sm31:em31,sm32:em32,sm33:em33). ')
4633  endif
4634   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhh=initial_data_value
4635 ELSE
4636 ALLOCATE(grid%xkhh(1,1,1),STAT=ierr)
4637  if (ierr.ne.0) then
4638  CALL wrf_error_fatal ( &
4639 'frame/module_domain.f: Failed to allocate grid%xkhh(1,1,1).  ')
4640  endif
4641 ENDIF
4642 IF ( setinitval .EQ. 3 ) grid%warm_rain=.FALSE.
4643 IF ( setinitval .EQ. 3 ) grid%adv_moist_cond=.FALSE.
4644 IF ( setinitval .EQ. 3 ) grid%moved=.FALSE.
4645 IF ( setinitval .EQ. 3 ) grid%write_increments=.FALSE.
4646 IF ( setinitval .EQ. 3 ) grid%var4d=.FALSE.
4647 IF ( setinitval .EQ. 3 ) grid%var4d_coupling=0
4648 IF ( setinitval .EQ. 3 ) grid%global=.FALSE.
4649 IF ( setinitval .EQ. 3 ) grid%oi_use=.FALSE.
4650 IF ( setinitval .EQ. 3 ) grid%print_detail_airep=.FALSE.
4651 IF ( setinitval .EQ. 3 ) grid%print_detail_radar=.FALSE.
4652 IF ( setinitval .EQ. 3 ) grid%print_detail_radiance=.FALSE.
4653 IF ( setinitval .EQ. 3 ) grid%print_detail_xa=.FALSE.
4654 IF ( setinitval .EQ. 3 ) grid%print_detail_xb=.FALSE.
4655 IF ( setinitval .EQ. 3 ) grid%print_detail_obs=.FALSE.
4656 IF ( setinitval .EQ. 3 ) grid%print_detail_f_obs=.FALSE.
4657 IF ( setinitval .EQ. 3 ) grid%print_detail_map=.FALSE.
4658 IF ( setinitval .EQ. 3 ) grid%print_detail_grad=.FALSE.
4659 IF ( setinitval .EQ. 3 ) grid%print_detail_regression=.FALSE.
4660 IF ( setinitval .EQ. 3 ) grid%print_detail_spectral=.FALSE.
4661 IF ( setinitval .EQ. 3 ) grid%print_detail_testing=.FALSE.
4662 IF ( setinitval .EQ. 3 ) grid%print_detail_parallel=.FALSE.
4663 IF ( setinitval .EQ. 3 ) grid%print_detail_be=.FALSE.
4664 IF ( setinitval .EQ. 3 ) grid%print_detail_timing=.FALSE.
4665 IF ( setinitval .EQ. 3 ) grid%check_max_iv_print=.FALSE.
4666 IF ( setinitval .EQ. 3 ) grid%analysis_accu=0
4667 IF ( setinitval .EQ. 3 ) grid%w_increments=.FALSE.
4668 IF ( setinitval .EQ. 3 ) grid%dt_cloud_model=.FALSE.
4669 IF ( setinitval .EQ. 3 ) grid%write_qcw=.FALSE.
4670 IF ( setinitval .EQ. 3 ) grid%write_qrn=.FALSE.
4671 IF ( setinitval .EQ. 3 ) grid%write_qci=.FALSE.
4672 IF ( setinitval .EQ. 3 ) grid%write_qsn=.FALSE.
4673 IF ( setinitval .EQ. 3 ) grid%write_qgr=.FALSE.
4674 IF ( setinitval .EQ. 3 ) grid%write_filtered_obs=.FALSE.
4675 IF ( setinitval .EQ. 3 ) grid%fg_format=0
4676 IF ( setinitval .EQ. 3 ) grid%ob_format=0
4677 IF ( setinitval .EQ. 3 ) grid%num_fgat_time=0
4678 IF ( setinitval .EQ. 3 ) grid%use_synopobs=.FALSE.
4679 IF ( setinitval .EQ. 3 ) grid%use_shipsobs=.FALSE.
4680 IF ( setinitval .EQ. 3 ) grid%use_metarobs=.FALSE.
4681 IF ( setinitval .EQ. 3 ) grid%use_soundobs=.FALSE.
4682 IF ( setinitval .EQ. 3 ) grid%use_pilotobs=.FALSE.
4683 IF ( setinitval .EQ. 3 ) grid%use_airepobs=.FALSE.
4684 IF ( setinitval .EQ. 3 ) grid%use_geoamvobs=.FALSE.
4685 IF ( setinitval .EQ. 3 ) grid%use_polaramvobs=.FALSE.
4686 IF ( setinitval .EQ. 3 ) grid%use_bogusobs=.FALSE.
4687 IF ( setinitval .EQ. 3 ) grid%use_buoyobs=.FALSE.
4688 IF ( setinitval .EQ. 3 ) grid%use_profilerobs=.FALSE.
4689 IF ( setinitval .EQ. 3 ) grid%use_satemobs=.FALSE.
4690 IF ( setinitval .EQ. 3 ) grid%use_gpspwobs=.FALSE.
4691 IF ( setinitval .EQ. 3 ) grid%use_gpsrefobs=.FALSE.
4692 IF ( setinitval .EQ. 3 ) grid%use_ssmiretrievalobs=.FALSE.
4693 IF ( setinitval .EQ. 3 ) grid%use_ssmitbobs=.FALSE.
4694 IF ( setinitval .EQ. 3 ) grid%use_ssmt1obs=.FALSE.
4695 IF ( setinitval .EQ. 3 ) grid%use_ssmt2obs=.FALSE.
4696 IF ( setinitval .EQ. 3 ) grid%use_qscatobs=.FALSE.
4697 IF ( setinitval .EQ. 3 ) grid%use_radarobs=.FALSE.
4698 IF ( setinitval .EQ. 3 ) grid%use_radar_rv=.FALSE.
4699 IF ( setinitval .EQ. 3 ) grid%use_radar_rf=.FALSE.
4700 IF ( setinitval .EQ. 3 ) grid%use_hirs2obs=.FALSE.
4701 IF ( setinitval .EQ. 3 ) grid%use_hirs3obs=.FALSE.
4702 IF ( setinitval .EQ. 3 ) grid%use_msuobs=.FALSE.
4703 IF ( setinitval .EQ. 3 ) grid%use_amsuaobs=.FALSE.
4704 IF ( setinitval .EQ. 3 ) grid%use_amsubobs=.FALSE.
4705 IF ( setinitval .EQ. 3 ) grid%use_airsobs=.FALSE.
4706 IF ( setinitval .EQ. 3 ) grid%use_airsretobs=.FALSE.
4707 IF ( setinitval .EQ. 3 ) grid%use_eos_amsuaobs=.FALSE.
4708 IF ( setinitval .EQ. 3 ) grid%use_eos_radobs=.FALSE.
4709 IF ( setinitval .EQ. 3 ) grid%use_hsbobs=.FALSE.
4710 IF ( setinitval .EQ. 3 ) grid%use_kma1dvar=.FALSE.
4711 IF ( setinitval .EQ. 3 ) grid%use_filtered_rad=.FALSE.
4712 IF ( setinitval .EQ. 3 ) grid%use_radiance=.FALSE.
4713 IF ( setinitval .EQ. 3 ) grid%use_obsgts=.FALSE.
4714 IF ( setinitval .EQ. 3 ) grid%use_obs_errfac=.FALSE.
4715 IF ( setinitval .EQ. 3 ) grid%check_max_iv=.FALSE.
4716 IF ( setinitval .EQ. 3 ) grid%put_rand_seed=.FALSE.
4717 IF ( setinitval .EQ. 3 ) grid%omb_set_rand=.FALSE.
4718 IF ( setinitval .EQ. 3 ) grid%omb_add_noise=.FALSE.
4719 IF ( setinitval .EQ. 3 ) grid%obs_qc_pointer=0
4720 IF ( setinitval .EQ. 3 ) grid%max_sound_input=0
4721 IF ( setinitval .EQ. 3 ) grid%max_synop_input=0
4722 IF ( setinitval .EQ. 3 ) grid%max_geoamv_input=0
4723 IF ( setinitval .EQ. 3 ) grid%max_polaramv_input=0
4724 IF ( setinitval .EQ. 3 ) grid%max_airep_input=0
4725 IF ( setinitval .EQ. 3 ) grid%max_satem_input=0
4726 IF ( setinitval .EQ. 3 ) grid%max_pilot_input=0
4727 IF ( setinitval .EQ. 3 ) grid%max_radar_input=0
4728 IF ( setinitval .EQ. 3 ) grid%max_metar_input=0
4729 IF ( setinitval .EQ. 3 ) grid%max_gpspw_input=0
4730 IF ( setinitval .EQ. 3 ) grid%max_ships_input=0
4731 IF ( setinitval .EQ. 3 ) grid%max_profiler_input=0
4732 IF ( setinitval .EQ. 3 ) grid%max_bogus_input=0
4733 IF ( setinitval .EQ. 3 ) grid%max_buoy_input=0
4734 IF ( setinitval .EQ. 3 ) grid%max_ssmi_ret_input=0
4735 IF ( setinitval .EQ. 3 ) grid%max_ssmi_tb_input=0
4736 IF ( setinitval .EQ. 3 ) grid%max_ssmt1_input=0
4737 IF ( setinitval .EQ. 3 ) grid%max_ssmt2_input=0
4738 IF ( setinitval .EQ. 3 ) grid%max_qscat_input=0
4739 IF ( setinitval .EQ. 3 ) grid%max_gpsref_input=0
4740 IF ( setinitval .EQ. 3 ) grid%max_airsret_input=0
4741 IF ( setinitval .EQ. 3 ) grid%max_tovs_input=0
4742 IF ( setinitval .EQ. 3 ) grid%report_start=0
4743 IF ( setinitval .EQ. 3 ) grid%report_end=0
4744 IF ( setinitval .EQ. 3 ) grid%tovs_start=0
4745 IF ( setinitval .EQ. 3 ) grid%tovs_end=0
4746 IF ( setinitval .EQ. 3 ) grid%max_ext_its=0
4747 IF ( setinitval .EQ. 3 ) grid%ntmax=0
4748 IF ( setinitval .EQ. 3 ) grid%nsave=0
4749 IF ( setinitval .EQ. 3 ) grid%write_switch=.FALSE.
4750 IF ( setinitval .EQ. 3 ) grid%write_interval=0
4751 IF ( setinitval .EQ. 3 ) grid%eps=initial_data_value
4752 IF ( setinitval .EQ. 3 ) grid%rf_passes=0
4753 IF ( setinitval .EQ. 3 ) grid%var_scaling1=initial_data_value
4754 IF ( setinitval .EQ. 3 ) grid%var_scaling2=initial_data_value
4755 IF ( setinitval .EQ. 3 ) grid%var_scaling3=initial_data_value
4756 IF ( setinitval .EQ. 3 ) grid%var_scaling4=initial_data_value
4757 IF ( setinitval .EQ. 3 ) grid%var_scaling5=initial_data_value
4758 IF ( setinitval .EQ. 3 ) grid%len_scaling1=initial_data_value
4759 IF ( setinitval .EQ. 3 ) grid%len_scaling2=initial_data_value
4760 IF ( setinitval .EQ. 3 ) grid%len_scaling3=initial_data_value
4761 IF ( setinitval .EQ. 3 ) grid%len_scaling4=initial_data_value
4762 IF ( setinitval .EQ. 3 ) grid%len_scaling5=initial_data_value
4763 IF ( setinitval .EQ. 3 ) grid%jb_factor=initial_data_value
4764 IF ( setinitval .EQ. 3 ) grid%je_factor=initial_data_value
4765 IF ( setinitval .EQ. 3 ) grid%power_truncation=initial_data_value
4766 IF ( setinitval .EQ. 3 ) grid%def_sub_domain=.FALSE.
4767 IF ( setinitval .EQ. 3 ) grid%x_start_sub_domain=initial_data_value
4768 IF ( setinitval .EQ. 3 ) grid%y_start_sub_domain=initial_data_value
4769 IF ( setinitval .EQ. 3 ) grid%x_end_sub_domain=initial_data_value
4770 IF ( setinitval .EQ. 3 ) grid%y_end_sub_domain=initial_data_value
4771 IF ( setinitval .EQ. 3 ) grid%stdout=0
4772 IF ( setinitval .EQ. 3 ) grid%stderr=0
4773 IF ( setinitval .EQ. 3 ) grid%trace_unit=0
4774 IF ( setinitval .EQ. 3 ) grid%trace_pe=0
4775 IF ( setinitval .EQ. 3 ) grid%trace_repeat_head=0
4776 IF ( setinitval .EQ. 3 ) grid%trace_repeat_body=0
4777 IF ( setinitval .EQ. 3 ) grid%trace_max_depth=0
4778 IF ( setinitval .EQ. 3 ) grid%trace_use=.FALSE.
4779 IF ( setinitval .EQ. 3 ) grid%trace_use_frequent=.FALSE.
4780 IF ( setinitval .EQ. 3 ) grid%trace_memory=.FALSE.
4781 IF ( setinitval .EQ. 3 ) grid%trace_all_pes=.FALSE.
4782 IF ( setinitval .EQ. 3 ) grid%trace_csv=.FALSE.
4783 IF ( setinitval .EQ. 3 ) grid%use_html=.FALSE.
4784 IF ( setinitval .EQ. 3 ) grid%warnings_are_fatal=.FALSE.
4785 IF ( setinitval .EQ. 3 ) grid%testing_wrfvar=.FALSE.
4786 IF ( setinitval .EQ. 3 ) grid%test_transforms=.FALSE.
4787 IF ( setinitval .EQ. 3 ) grid%test_statistics=.FALSE.
4788 IF ( setinitval .EQ. 3 ) grid%interpolate_stats=.FALSE.
4789 IF ( setinitval .EQ. 3 ) grid%testing_dm_exact=.FALSE.
4790 IF ( setinitval .EQ. 3 ) grid%cv_options_hum=0
4791 IF ( setinitval .EQ. 3 ) grid%check_rh=0
4792 IF ( setinitval .EQ. 3 ) grid%set_omb_rand_fac=0
4793 IF ( setinitval .EQ. 3 ) grid%seed_array1=0
4794 IF ( setinitval .EQ. 3 ) grid%seed_array2=0
4795 IF ( setinitval .EQ. 3 ) grid%sfc_assi_options=0
4796 IF ( setinitval .EQ. 3 ) grid%calculate_cg_cost_fn=.FALSE.
4797 IF ( setinitval .EQ. 3 ) grid%write_outer_loop=.FALSE.
4798 IF ( setinitval .EQ. 3 ) grid%lat_stats_option=.FALSE.
4799 IF ( setinitval .EQ. 3 ) grid%as1=initial_data_value
4800 IF ( setinitval .EQ. 3 ) grid%as2=initial_data_value
4801 IF ( setinitval .EQ. 3 ) grid%as3=initial_data_value
4802 IF ( setinitval .EQ. 3 ) grid%as4=initial_data_value
4803 IF ( setinitval .EQ. 3 ) grid%as5=initial_data_value
4804 IF ( setinitval .EQ. 3 ) grid%balance_type=0
4805 IF ( setinitval .EQ. 3 ) grid%vert_corr=0
4806 IF ( setinitval .EQ. 3 ) grid%vertical_ip=0
4807 IF ( setinitval .EQ. 3 ) grid%vert_evalue=0
4808 IF ( setinitval .EQ. 3 ) grid%max_vert_var1=initial_data_value
4809 IF ( setinitval .EQ. 3 ) grid%max_vert_var2=initial_data_value
4810 IF ( setinitval .EQ. 3 ) grid%max_vert_var3=initial_data_value
4811 IF ( setinitval .EQ. 3 ) grid%max_vert_var4=initial_data_value
4812 IF ( setinitval .EQ. 3 ) grid%max_vert_var5=initial_data_value
4813 IF ( setinitval .EQ. 3 ) grid%rtminit_print=0
4814 IF ( setinitval .EQ. 3 ) grid%rtminit_nsensor=0
4815 IF ( setinitval .EQ. 3 ) grid%rtminit_platform=0
4816 IF ( setinitval .EQ. 3 ) grid%rtminit_satid=0
4817 IF ( setinitval .EQ. 3 ) grid%rtminit_sensor=0
4818 IF ( setinitval .EQ. 3 ) grid%read_biascoef=.FALSE.
4819 IF ( setinitval .EQ. 3 ) grid%biascorr=.FALSE.
4820 IF ( setinitval .EQ. 3 ) grid%biasprep=.FALSE.
4821 IF ( setinitval .EQ. 3 ) grid%rttov_scatt=.FALSE.
4822 IF ( setinitval .EQ. 3 ) grid%monitoring=.FALSE.
4823 IF ( setinitval .EQ. 3 ) grid%write_profile=.FALSE.
4824 IF ( setinitval .EQ. 3 ) grid%qc_rad=.FALSE.
4825 IF ( setinitval .EQ. 3 ) grid%write_iv_rad_ascii=.FALSE.
4826 IF ( setinitval .EQ. 3 ) grid%write_oa_rad_ascii=.FALSE.
4827 IF ( setinitval .EQ. 3 ) grid%write_filtered_rad=.FALSE.
4828 IF ( setinitval .EQ. 3 ) grid%use_error_factor_rad=.FALSE.
4829 IF ( setinitval .EQ. 3 ) grid%use_landem=.FALSE.
4830 IF ( setinitval .EQ. 3 ) grid%mw_emis_sea=0
4831 IF ( setinitval .EQ. 3 ) grid%tovs_min_transfer=0
4832 IF ( setinitval .EQ. 3 ) grid%rtm_option=0
4833 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix=.FALSE.
4834 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix_fast=.FALSE.
4835 IF ( setinitval .EQ. 3 ) grid%crtm_cloud=.FALSE.
4836 IF ( setinitval .EQ. 3 ) grid%num_pseudo=0
4837 IF ( setinitval .EQ. 3 ) grid%pseudo_x=initial_data_value
4838 IF ( setinitval .EQ. 3 ) grid%pseudo_y=initial_data_value
4839 IF ( setinitval .EQ. 3 ) grid%pseudo_z=initial_data_value
4840 IF ( setinitval .EQ. 3 ) grid%pseudo_val=initial_data_value
4841 IF ( setinitval .EQ. 3 ) grid%pseudo_err=initial_data_value
4842 IF ( setinitval .EQ. 3 ) grid%alphacv_method=0
4843 IF ( setinitval .EQ. 3 ) grid%ensdim_alpha=0
4844 IF ( setinitval .EQ. 3 ) grid%alpha_truncation=0
4845 IF ( setinitval .EQ. 3 ) grid%alpha_corr_type=0
4846 IF ( setinitval .EQ. 3 ) grid%alpha_corr_scale=initial_data_value
4847 IF ( setinitval .EQ. 3 ) grid%alpha_std_dev=initial_data_value
4848 IF ( setinitval .EQ. 3 ) grid%run_days=0
4849 IF ( setinitval .EQ. 3 ) grid%run_hours=0
4850 IF ( setinitval .EQ. 3 ) grid%run_minutes=0
4851 IF ( setinitval .EQ. 3 ) grid%run_seconds=0
4852 IF ( setinitval .EQ. 3 ) grid%start_year=0
4853 IF ( setinitval .EQ. 3 ) grid%start_month=0
4854 IF ( setinitval .EQ. 3 ) grid%start_day=0
4855 IF ( setinitval .EQ. 3 ) grid%start_hour=0
4856 IF ( setinitval .EQ. 3 ) grid%start_minute=0
4857 IF ( setinitval .EQ. 3 ) grid%start_second=0
4858 IF ( setinitval .EQ. 3 ) grid%end_year=0
4859 IF ( setinitval .EQ. 3 ) grid%end_month=0
4860 IF ( setinitval .EQ. 3 ) grid%end_day=0
4861 IF ( setinitval .EQ. 3 ) grid%end_hour=0
4862 IF ( setinitval .EQ. 3 ) grid%end_minute=0
4863 IF ( setinitval .EQ. 3 ) grid%end_second=0
4864 IF ( setinitval .EQ. 3 ) grid%interval_seconds=0
4865 IF ( setinitval .EQ. 3 ) grid%input_from_file=.FALSE.
4866 IF ( setinitval .EQ. 3 ) grid%fine_input_stream=0
4867 IF ( setinitval .EQ. 3 ) grid%input_from_hires=.FALSE.
4868 IF ( setinitval .EQ. 3 ) grid%oid=0
4869 IF ( setinitval .EQ. 3 ) grid%auxhist1_oid=0
4870 IF ( setinitval .EQ. 3 ) grid%auxhist2_oid=0
4871 IF ( setinitval .EQ. 3 ) grid%auxhist3_oid=0
4872 IF ( setinitval .EQ. 3 ) grid%auxhist4_oid=0
4873 IF ( setinitval .EQ. 3 ) grid%auxhist5_oid=0
4874 IF ( setinitval .EQ. 3 ) grid%auxhist6_oid=0
4875 IF ( setinitval .EQ. 3 ) grid%auxhist7_oid=0
4876 IF ( setinitval .EQ. 3 ) grid%auxhist8_oid=0
4877 IF ( setinitval .EQ. 3 ) grid%auxhist9_oid=0
4878 IF ( setinitval .EQ. 3 ) grid%auxhist10_oid=0
4879 IF ( setinitval .EQ. 3 ) grid%auxhist11_oid=0
4880 IF ( setinitval .EQ. 3 ) grid%auxinput1_oid=0
4881 IF ( setinitval .EQ. 3 ) grid%auxinput2_oid=0
4882 IF ( setinitval .EQ. 3 ) grid%auxinput3_oid=0
4883 IF ( setinitval .EQ. 3 ) grid%auxinput4_oid=0
4884 IF ( setinitval .EQ. 3 ) grid%auxinput5_oid=0
4885 IF ( setinitval .EQ. 3 ) grid%auxinput6_oid=0
4886 IF ( setinitval .EQ. 3 ) grid%auxinput7_oid=0
4887 IF ( setinitval .EQ. 3 ) grid%auxinput8_oid=0
4888 IF ( setinitval .EQ. 3 ) grid%auxinput9_oid=0
4889 IF ( setinitval .EQ. 3 ) grid%auxinput10_oid=0
4890 IF ( setinitval .EQ. 3 ) grid%auxinput11_oid=0
4891 IF ( setinitval .EQ. 3 ) grid%history_interval=0
4892 IF ( setinitval .EQ. 3 ) grid%frames_per_outfile=0
4893 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist1=0
4894 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist2=0
4895 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist3=0
4896 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist4=0
4897 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist5=0
4898 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist6=0
4899 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist7=0
4900 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist8=0
4901 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist9=0
4902 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist10=0
4903 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist11=0
4904 IF ( setinitval .EQ. 3 ) grid%restart=.FALSE.
4905 IF ( setinitval .EQ. 3 ) grid%restart_interval=0
4906 IF ( setinitval .EQ. 3 ) grid%io_form_input=0
4907 IF ( setinitval .EQ. 3 ) grid%io_form_history=0
4908 IF ( setinitval .EQ. 3 ) grid%io_form_restart=0
4909 IF ( setinitval .EQ. 3 ) grid%io_form_boundary=0
4910 IF ( setinitval .EQ. 3 ) grid%debug_level=0
4911 IF ( setinitval .EQ. 3 ) grid%self_test_domain=.FALSE.
4912 IF ( setinitval .EQ. 3 ) grid%history_interval_mo=0
4913 IF ( setinitval .EQ. 3 ) grid%history_interval_d=0
4914 IF ( setinitval .EQ. 3 ) grid%history_interval_h=0
4915 IF ( setinitval .EQ. 3 ) grid%history_interval_m=0
4916 IF ( setinitval .EQ. 3 ) grid%history_interval_s=0
4917 IF ( setinitval .EQ. 3 ) grid%inputout_interval_mo=0
4918 IF ( setinitval .EQ. 3 ) grid%inputout_interval_d=0
4919 IF ( setinitval .EQ. 3 ) grid%inputout_interval_h=0
4920 IF ( setinitval .EQ. 3 ) grid%inputout_interval_m=0
4921 IF ( setinitval .EQ. 3 ) grid%inputout_interval_s=0
4922 IF ( setinitval .EQ. 3 ) grid%inputout_interval=0
4923 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_mo=0
4924 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_d=0
4925 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_h=0
4926 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_m=0
4927 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_s=0
4928 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval=0
4929 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_mo=0
4930 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_d=0
4931 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_h=0
4932 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_m=0
4933 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_s=0
4934 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval=0
4935 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_mo=0
4936 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_d=0
4937 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_h=0
4938 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_m=0
4939 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_s=0
4940 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval=0
4941 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_mo=0
4942 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_d=0
4943 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_h=0
4944 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_m=0
4945 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_s=0
4946 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval=0
4947 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_mo=0
4948 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_d=0
4949 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_h=0
4950 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_m=0
4951 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_s=0
4952 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval=0
4953 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_mo=0
4954 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_d=0
4955 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_h=0
4956 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_m=0
4957 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_s=0
4958 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval=0
4959 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_mo=0
4960 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_d=0
4961 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_h=0
4962 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_m=0
4963 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_s=0
4964 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval=0
4965 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_mo=0
4966 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_d=0
4967 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_h=0
4968 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_m=0
4969 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_s=0
4970 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval=0
4971 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_mo=0
4972 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_d=0
4973 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_h=0
4974 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_m=0
4975 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_s=0
4976 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval=0
4977 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_mo=0
4978 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_d=0
4979 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_h=0
4980 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_m=0
4981 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_s=0
4982 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval=0
4983 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_mo=0
4984 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_d=0
4985 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_h=0
4986 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_m=0
4987 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_s=0
4988 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval=0
4989 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_mo=0
4990 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_d=0
4991 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_h=0
4992 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_m=0
4993 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_s=0
4994 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval=0
4995 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_mo=0
4996 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_d=0
4997 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_h=0
4998 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_m=0
4999 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_s=0
5000 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval=0
5001 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_mo=0
5002 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_d=0
5003 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_h=0
5004 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_m=0
5005 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_s=0
5006 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval=0
5007 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_mo=0
5008 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_d=0
5009 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_h=0
5010 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_m=0
5011 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_s=0
5012 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval=0
5013 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_mo=0
5014 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_d=0
5015 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_h=0
5016 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_m=0
5017 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_s=0
5018 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval=0
5019 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_mo=0
5020 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_d=0
5021 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_h=0
5022 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_m=0
5023 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_s=0
5024 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval=0
5025 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_mo=0
5026 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_d=0
5027 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_h=0
5028 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_m=0
5029 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_s=0
5030 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval=0
5031 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_mo=0
5032 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_d=0
5033 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_h=0
5034 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_m=0
5035 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_s=0
5036 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval=0
5037 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_mo=0
5038 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_d=0
5039 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_h=0
5040 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_m=0
5041 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_s=0
5042 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval=0
5043 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_mo=0
5044 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_d=0
5045 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_h=0
5046 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_m=0
5047 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_s=0
5048 IF ( setinitval .EQ. 3 ) grid%gfdda_interval=0
5049 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_mo=0
5050 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_d=0
5051 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_h=0
5052 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_m=0
5053 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_s=0
5054 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval=0
5055 IF ( setinitval .EQ. 3 ) grid%restart_interval_mo=0
5056 IF ( setinitval .EQ. 3 ) grid%restart_interval_d=0
5057 IF ( setinitval .EQ. 3 ) grid%restart_interval_h=0
5058 IF ( setinitval .EQ. 3 ) grid%restart_interval_m=0
5059 IF ( setinitval .EQ. 3 ) grid%restart_interval_s=0
5060 IF ( setinitval .EQ. 3 ) grid%history_begin_y=0
5061 IF ( setinitval .EQ. 3 ) grid%history_begin_mo=0
5062 IF ( setinitval .EQ. 3 ) grid%history_begin_d=0
5063 IF ( setinitval .EQ. 3 ) grid%history_begin_h=0
5064 IF ( setinitval .EQ. 3 ) grid%history_begin_m=0
5065 IF ( setinitval .EQ. 3 ) grid%history_begin_s=0
5066 IF ( setinitval .EQ. 3 ) grid%inputout_begin_y=0
5067 IF ( setinitval .EQ. 3 ) grid%inputout_begin_mo=0
5068 IF ( setinitval .EQ. 3 ) grid%inputout_begin_d=0
5069 IF ( setinitval .EQ. 3 ) grid%inputout_begin_h=0
5070 IF ( setinitval .EQ. 3 ) grid%inputout_begin_m=0
5071 IF ( setinitval .EQ. 3 ) grid%inputout_begin_s=0
5072 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_y=0
5073 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_mo=0
5074 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_d=0
5075 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_h=0
5076 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_m=0
5077 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_s=0
5078 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_y=0
5079 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_mo=0
5080 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_d=0
5081 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_h=0
5082 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_m=0
5083 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_s=0
5084 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_y=0
5085 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_mo=0
5086 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_d=0
5087 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_h=0
5088 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_m=0
5089 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_s=0
5090 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_y=0
5091 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_mo=0
5092 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_d=0
5093 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_h=0
5094 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_m=0
5095 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_s=0
5096 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_y=0
5097 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_mo=0
5098 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_d=0
5099 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_h=0
5100 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_m=0
5101 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_s=0
5102 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_y=0
5103 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_mo=0
5104 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_d=0
5105 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_h=0
5106 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_m=0
5107 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_s=0
5108 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_y=0
5109 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_mo=0
5110 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_d=0
5111 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_h=0
5112 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_m=0
5113 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_s=0
5114 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_y=0
5115 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_mo=0
5116 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_d=0
5117 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_h=0
5118 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_m=0
5119 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_s=0
5120 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_y=0
5121 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_mo=0
5122 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_d=0
5123 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_h=0
5124 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_m=0
5125 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_s=0
5126 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_y=0
5127 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_mo=0
5128 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_d=0
5129 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_h=0
5130 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_m=0
5131 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_s=0
5132 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_y=0
5133 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_mo=0
5134 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_d=0
5135 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_h=0
5136 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_m=0
5137 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_s=0
5138 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_y=0
5139 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_mo=0
5140 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_d=0
5141 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_h=0
5142 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_m=0
5143 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_s=0
5144 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_y=0
5145 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_mo=0
5146 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_d=0
5147 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_h=0
5148 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_m=0
5149 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_s=0
5150 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_y=0
5151 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_mo=0
5152 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_d=0
5153 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_h=0
5154 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_m=0
5155 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_s=0
5156 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_y=0
5157 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_mo=0
5158 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_d=0
5159 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_h=0
5160 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_m=0
5161 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_s=0
5162 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_y=0
5163 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_mo=0
5164 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_d=0
5165 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_h=0
5166 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_m=0
5167 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_s=0
5168 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_y=0
5169 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_mo=0
5170 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_d=0
5171 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_h=0
5172 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_m=0
5173 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_s=0
5174 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_y=0
5175 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_mo=0
5176 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_d=0
5177 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_h=0
5178 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_m=0
5179 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_s=0
5180 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_y=0
5181 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_mo=0
5182 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_d=0
5183 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_h=0
5184 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_m=0
5185 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_s=0
5186 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_y=0
5187 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_mo=0
5188 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_d=0
5189 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_h=0
5190 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_m=0
5191 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_s=0
5192 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_y=0
5193 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_mo=0
5194 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_d=0
5195 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_h=0
5196 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_m=0
5197 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_s=0
5198 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_y=0
5199 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_mo=0
5200 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_d=0
5201 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_h=0
5202 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_m=0
5203 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_s=0
5204 IF ( setinitval .EQ. 3 ) grid%restart_begin_y=0
5205 IF ( setinitval .EQ. 3 ) grid%restart_begin_mo=0
5206 IF ( setinitval .EQ. 3 ) grid%restart_begin_d=0
5207 IF ( setinitval .EQ. 3 ) grid%restart_begin_h=0
5208 IF ( setinitval .EQ. 3 ) grid%restart_begin_m=0
5209 IF ( setinitval .EQ. 3 ) grid%restart_begin_s=0
5210 IF ( setinitval .EQ. 3 ) grid%history_end_y=0
5211 IF ( setinitval .EQ. 3 ) grid%history_end_mo=0
5212 IF ( setinitval .EQ. 3 ) grid%history_end_d=0
5213 IF ( setinitval .EQ. 3 ) grid%history_end_h=0
5214 IF ( setinitval .EQ. 3 ) grid%history_end_m=0
5215 IF ( setinitval .EQ. 3 ) grid%history_end_s=0
5216 IF ( setinitval .EQ. 3 ) grid%inputout_end_y=0
5217 IF ( setinitval .EQ. 3 ) grid%inputout_end_mo=0
5218 IF ( setinitval .EQ. 3 ) grid%inputout_end_d=0
5219 IF ( setinitval .EQ. 3 ) grid%inputout_end_h=0
5220 IF ( setinitval .EQ. 3 ) grid%inputout_end_m=0
5221 IF ( setinitval .EQ. 3 ) grid%inputout_end_s=0
5222 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_y=0
5223 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_mo=0
5224 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_d=0
5225 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_h=0
5226 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_m=0
5227 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_s=0
5228 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_y=0
5229 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_mo=0
5230 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_d=0
5231 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_h=0
5232 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_m=0
5233 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_s=0
5234 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_y=0
5235 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_mo=0
5236 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_d=0
5237 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_h=0
5238 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_m=0
5239 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_s=0
5240 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_y=0
5241 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_mo=0
5242 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_d=0
5243 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_h=0
5244 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_m=0
5245 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_s=0
5246 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_y=0
5247 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_mo=0
5248 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_d=0
5249 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_h=0
5250 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_m=0
5251 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_s=0
5252 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_y=0
5253 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_mo=0
5254 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_d=0
5255 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_h=0
5256 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_m=0
5257 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_s=0
5258 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_y=0
5259 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_mo=0
5260 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_d=0
5261 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_h=0
5262 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_m=0
5263 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_s=0
5264 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_y=0
5265 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_mo=0
5266 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_d=0
5267 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_h=0
5268 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_m=0
5269 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_s=0
5270 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_y=0
5271 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_mo=0
5272 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_d=0
5273 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_h=0
5274 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_m=0
5275 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_s=0
5276 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_y=0
5277 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_mo=0
5278 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_d=0
5279 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_h=0
5280 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_m=0
5281 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_s=0
5282 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_y=0
5283 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_mo=0
5284 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_d=0
5285 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_h=0
5286 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_m=0
5287 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_s=0
5288 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_y=0
5289 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_mo=0
5290 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_d=0
5291 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_h=0
5292 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_m=0
5293 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_s=0
5294 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_y=0
5295 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_mo=0
5296 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_d=0
5297 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_h=0
5298 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_m=0
5299 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_s=0
5300 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_y=0
5301 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_mo=0
5302 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_d=0
5303 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_h=0
5304 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_m=0
5305 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_s=0
5306 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_y=0
5307 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_mo=0
5308 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_d=0
5309 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_h=0
5310 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_m=0
5311 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_s=0
5312 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_y=0
5313 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_mo=0
5314 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_d=0
5315 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_h=0
5316 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_m=0
5317 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_s=0
5318 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_y=0
5319 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_mo=0
5320 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_d=0
5321 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_h=0
5322 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_m=0
5323 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_s=0
5324 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_y=0
5325 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_mo=0
5326 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_d=0
5327 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_h=0
5328 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_m=0
5329 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_s=0
5330 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_y=0
5331 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_mo=0
5332 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_d=0
5333 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_h=0
5334 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_m=0
5335 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_s=0
5336 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_y=0
5337 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_mo=0
5338 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_d=0
5339 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_h=0
5340 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_m=0
5341 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_s=0
5342 IF ( setinitval .EQ. 3 ) grid%gfdda_end_y=0
5343 IF ( setinitval .EQ. 3 ) grid%gfdda_end_mo=0
5344 IF ( setinitval .EQ. 3 ) grid%gfdda_end_d=0
5345 IF ( setinitval .EQ. 3 ) grid%gfdda_end_h=0
5346 IF ( setinitval .EQ. 3 ) grid%gfdda_end_m=0
5347 IF ( setinitval .EQ. 3 ) grid%gfdda_end_s=0
5348 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_y=0
5349 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_mo=0
5350 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_d=0
5351 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_h=0
5352 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_m=0
5353 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_s=0
5354 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput1=0
5355 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput2=0
5356 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput3=0
5357 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput4=0
5358 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput5=0
5359 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput6=0
5360 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput7=0
5361 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput8=0
5362 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput9=0
5363 IF ( setinitval .EQ. 3 ) grid%io_form_gfdda=0
5364 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput11=0
5365 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist1=0
5366 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist2=0
5367 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist3=0
5368 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist4=0
5369 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist5=0
5370 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist6=0
5371 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist7=0
5372 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist8=0
5373 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist9=0
5374 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist10=0
5375 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist11=0
5376 IF ( setinitval .EQ. 3 ) grid%julyr=0
5377 IF ( setinitval .EQ. 3 ) grid%julday=0
5378 IF ( setinitval .EQ. 3 ) grid%gmt=initial_data_value
5379 IF ( setinitval .EQ. 3 ) grid%write_input=.FALSE.
5380 IF ( setinitval .EQ. 3 ) grid%write_restart_at_0h=.FALSE.
5381 IF ( setinitval .EQ. 3 ) grid%adjust_output_times=.FALSE.
5382 IF ( setinitval .EQ. 3 ) grid%adjust_input_times=.FALSE.
5383 IF ( setinitval .EQ. 3 ) grid%nocolons=.FALSE.
5384 IF ( setinitval .EQ. 3 ) grid%time_step=0
5385 IF ( setinitval .EQ. 3 ) grid%time_step_fract_num=0
5386 IF ( setinitval .EQ. 3 ) grid%time_step_fract_den=0
5387 IF ( setinitval .EQ. 3 ) grid%max_dom=0
5388 IF ( setinitval .EQ. 3 ) grid%s_we=0
5389 IF ( setinitval .EQ. 3 ) grid%e_we=0
5390 IF ( setinitval .EQ. 3 ) grid%s_sn=0
5391 IF ( setinitval .EQ. 3 ) grid%e_sn=0
5392 IF ( setinitval .EQ. 3 ) grid%s_vert=0
5393 IF ( setinitval .EQ. 3 ) grid%e_vert=0
5394 IF ( setinitval .EQ. 3 ) grid%num_metgrid_levels=0
5395 IF ( setinitval .EQ. 3 ) grid%p_top_requested=initial_data_value
5396 IF ( setinitval .EQ. 3 ) grid%interp_type=0
5397 IF ( setinitval .EQ. 3 ) grid%lowest_lev_from_sfc=.FALSE.
5398 IF ( setinitval .EQ. 3 ) grid%lagrange_order=0
5399 IF ( setinitval .EQ. 3 ) grid%dx=initial_data_value
5400 IF ( setinitval .EQ. 3 ) grid%dy=initial_data_value
5401 IF ( setinitval .EQ. 3 ) grid%grid_id=0
5402 IF ( setinitval .EQ. 3 ) grid%parent_id=0
5403 IF ( setinitval .EQ. 3 ) grid%i_parent_start=0
5404 IF ( setinitval .EQ. 3 ) grid%j_parent_start=0
5405 IF ( setinitval .EQ. 3 ) grid%parent_grid_ratio=0
5406 IF ( setinitval .EQ. 3 ) grid%parent_time_step_ratio=0
5407 IF ( setinitval .EQ. 3 ) grid%feedback=0
5408 IF ( setinitval .EQ. 3 ) grid%smooth_option=0
5409 IF ( setinitval .EQ. 3 ) grid%blend_width=0
5410 IF ( setinitval .EQ. 3 ) grid%ztop=initial_data_value
5411 IF ( setinitval .EQ. 3 ) grid%moad_grid_ratio=0
5412 IF ( setinitval .EQ. 3 ) grid%moad_time_step_ratio=0
5413 IF ( setinitval .EQ. 3 ) grid%shw=0
5414 IF ( setinitval .EQ. 3 ) grid%tile_sz_x=0
5415 IF ( setinitval .EQ. 3 ) grid%tile_sz_y=0
5416 IF ( setinitval .EQ. 3 ) grid%numtiles=0
5417 IF ( setinitval .EQ. 3 ) grid%nproc_x=0
5418 IF ( setinitval .EQ. 3 ) grid%nproc_y=0
5419 IF ( setinitval .EQ. 3 ) grid%irand=0
5420 IF ( setinitval .EQ. 3 ) grid%dt=initial_data_value
5421 IF ( setinitval .EQ. 3 ) grid%num_moves=0
5422 IF ( setinitval .EQ. 3 ) grid%vortex_interval=0
5423 IF ( setinitval .EQ. 3 ) grid%max_vortex_speed=0
5424 IF ( setinitval .EQ. 3 ) grid%corral_dist=0
5425 IF ( setinitval .EQ. 3 ) grid%move_id=0
5426 IF ( setinitval .EQ. 3 ) grid%move_interval=0
5427 IF ( setinitval .EQ. 3 ) grid%move_cd_x=0
5428 IF ( setinitval .EQ. 3 ) grid%move_cd_y=0
5429 IF ( setinitval .EQ. 3 ) grid%swap_x=.FALSE.
5430 IF ( setinitval .EQ. 3 ) grid%swap_y=.FALSE.
5431 IF ( setinitval .EQ. 3 ) grid%cycle_x=.FALSE.
5432 IF ( setinitval .EQ. 3 ) grid%cycle_y=.FALSE.
5433 IF ( setinitval .EQ. 3 ) grid%reorder_mesh=.FALSE.
5434 IF ( setinitval .EQ. 3 ) grid%perturb_input=.FALSE.
5435 IF ( setinitval .EQ. 3 ) grid%eta_levels=initial_data_value
5436 IF ( setinitval .EQ. 3 ) grid%max_dz=initial_data_value
5437 IF ( setinitval .EQ. 3 ) grid%mp_physics=0
5438 IF ( setinitval .EQ. 3 ) grid%ra_lw_physics=0
5439 IF ( setinitval .EQ. 3 ) grid%ra_sw_physics=0
5440 IF ( setinitval .EQ. 3 ) grid%radt=initial_data_value
5441 IF ( setinitval .EQ. 3 ) grid%sf_sfclay_physics=0
5442 IF ( setinitval .EQ. 3 ) grid%sf_surface_physics=0
5443 IF ( setinitval .EQ. 3 ) grid%bl_pbl_physics=0
5444 IF ( setinitval .EQ. 3 ) grid%bldt=initial_data_value
5445 IF ( setinitval .EQ. 3 ) grid%cu_physics=0
5446 IF ( setinitval .EQ. 3 ) grid%cudt=initial_data_value
5447 IF ( setinitval .EQ. 3 ) grid%gsmdt=initial_data_value
5448 IF ( setinitval .EQ. 3 ) grid%isfflx=0
5449 IF ( setinitval .EQ. 3 ) grid%ifsnow=0
5450 IF ( setinitval .EQ. 3 ) grid%icloud=0
5451 IF ( setinitval .EQ. 3 ) grid%swrad_scat=initial_data_value
5452 IF ( setinitval .EQ. 3 ) grid%surface_input_source=0
5453 IF ( setinitval .EQ. 3 ) grid%num_soil_layers=0
5454 IF ( setinitval .EQ. 3 ) grid%num_months=0
5455 IF ( setinitval .EQ. 3 ) grid%maxiens=0
5456 IF ( setinitval .EQ. 3 ) grid%maxens=0
5457 IF ( setinitval .EQ. 3 ) grid%maxens2=0
5458 IF ( setinitval .EQ. 3 ) grid%maxens3=0
5459 IF ( setinitval .EQ. 3 ) grid%ensdim=0
5460 IF ( setinitval .EQ. 3 ) grid%chem_opt=0
5461 IF ( setinitval .EQ. 3 ) grid%num_land_cat=0
5462 IF ( setinitval .EQ. 3 ) grid%num_soil_cat=0
5463 IF ( setinitval .EQ. 3 ) grid%mp_zero_out=0
5464 IF ( setinitval .EQ. 3 ) grid%mp_zero_out_thresh=initial_data_value
5465 IF ( setinitval .EQ. 3 ) grid%seaice_threshold=initial_data_value
5466 IF ( setinitval .EQ. 3 ) grid%sst_update=0
5467 IF ( setinitval .EQ. 3 ) grid%ucmcall=0
5468 IF ( setinitval .EQ. 3 ) grid%co2tf=0
5469 IF ( setinitval .EQ. 3 ) grid%ra_call_offset=0
5470 IF ( setinitval .EQ. 3 ) grid%cam_abs_freq_s=initial_data_value
5471 IF ( setinitval .EQ. 3 ) grid%levsiz=0
5472 IF ( setinitval .EQ. 3 ) grid%paerlev=0
5473 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim1=0
5474 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim2=0
5475 IF ( setinitval .EQ. 3 ) grid%fgdt=initial_data_value
5476 IF ( setinitval .EQ. 3 ) grid%grid_fdda=0
5477 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_uv=0
5478 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_t=0
5479 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_q=0
5480 IF ( setinitval .EQ. 3 ) grid%if_zfac_uv=0
5481 IF ( setinitval .EQ. 3 ) grid%k_zfac_uv=0
5482 IF ( setinitval .EQ. 3 ) grid%if_zfac_t=0
5483 IF ( setinitval .EQ. 3 ) grid%k_zfac_t=0
5484 IF ( setinitval .EQ. 3 ) grid%if_zfac_q=0
5485 IF ( setinitval .EQ. 3 ) grid%k_zfac_q=0
5486 IF ( setinitval .EQ. 3 ) grid%guv=initial_data_value
5487 IF ( setinitval .EQ. 3 ) grid%gt=initial_data_value
5488 IF ( setinitval .EQ. 3 ) grid%gq=initial_data_value
5489 IF ( setinitval .EQ. 3 ) grid%dtramp_min=initial_data_value
5490 IF ( setinitval .EQ. 3 ) grid%if_ramping=0
5491 IF ( setinitval .EQ. 3 ) grid%obs_nudge_opt=0
5492 IF ( setinitval .EQ. 3 ) grid%max_obs=0
5493 IF ( setinitval .EQ. 3 ) grid%nobs_ndg_vars=0
5494 IF ( setinitval .EQ. 3 ) grid%nobs_err_flds=0
5495 IF ( setinitval .EQ. 3 ) grid%fdda_start=initial_data_value
5496 IF ( setinitval .EQ. 3 ) grid%fdda_end=initial_data_value
5497 IF ( setinitval .EQ. 3 ) grid%obs_nudge_wind=0
5498 IF ( setinitval .EQ. 3 ) grid%obs_coef_wind=initial_data_value
5499 IF ( setinitval .EQ. 3 ) grid%obs_nudge_temp=0
5500 IF ( setinitval .EQ. 3 ) grid%obs_coef_temp=initial_data_value
5501 IF ( setinitval .EQ. 3 ) grid%obs_nudge_mois=0
5502 IF ( setinitval .EQ. 3 ) grid%obs_coef_mois=initial_data_value
5503 IF ( setinitval .EQ. 3 ) grid%obs_nudge_pstr=0
5504 IF ( setinitval .EQ. 3 ) grid%obs_coef_pstr=initial_data_value
5505 IF ( setinitval .EQ. 3 ) grid%obs_rinxy=initial_data_value
5506 IF ( setinitval .EQ. 3 ) grid%obs_rinsig=initial_data_value
5507 IF ( setinitval .EQ. 3 ) grid%obs_twindo=initial_data_value
5508 IF ( setinitval .EQ. 3 ) grid%obs_npfi=0
5509 IF ( setinitval .EQ. 3 ) grid%obs_ionf=0
5510 IF ( setinitval .EQ. 3 ) grid%obs_idynin=0
5511 IF ( setinitval .EQ. 3 ) grid%obs_dtramp=initial_data_value
5512 IF ( setinitval .EQ. 3 ) grid%obs_ipf_in4dob=.FALSE.
5513 IF ( setinitval .EQ. 3 ) grid%dyn_opt=0
5514 IF ( setinitval .EQ. 3 ) grid%rk_ord=0
5515 IF ( setinitval .EQ. 3 ) grid%w_damping=0
5516 IF ( setinitval .EQ. 3 ) grid%diff_opt=0
5517 IF ( setinitval .EQ. 3 ) grid%km_opt=0
5518 IF ( setinitval .EQ. 3 ) grid%damp_opt=0
5519 IF ( setinitval .EQ. 3 ) grid%zdamp=initial_data_value
5520 IF ( setinitval .EQ. 3 ) grid%dampcoef=initial_data_value
5521 IF ( setinitval .EQ. 3 ) grid%khdif=initial_data_value
5522 IF ( setinitval .EQ. 3 ) grid%kvdif=initial_data_value
5523 IF ( setinitval .EQ. 3 ) grid%diff_6th_factor=initial_data_value
5524 IF ( setinitval .EQ. 3 ) grid%diff_6th_opt=0
5525 IF ( setinitval .EQ. 3 ) grid%smdiv=initial_data_value
5526 IF ( setinitval .EQ. 3 ) grid%emdiv=initial_data_value
5527 IF ( setinitval .EQ. 3 ) grid%epssm=initial_data_value
5528 IF ( setinitval .EQ. 3 ) grid%non_hydrostatic=.FALSE.
5529 IF ( setinitval .EQ. 3 ) grid%time_step_sound=0
5530 IF ( setinitval .EQ. 3 ) grid%h_mom_adv_order=0
5531 IF ( setinitval .EQ. 3 ) grid%v_mom_adv_order=0
5532 IF ( setinitval .EQ. 3 ) grid%h_sca_adv_order=0
5533 IF ( setinitval .EQ. 3 ) grid%v_sca_adv_order=0
5534 IF ( setinitval .EQ. 3 ) grid%pd_moist=.FALSE.
5535 IF ( setinitval .EQ. 3 ) grid%pd_chem=.FALSE.
5536 IF ( setinitval .EQ. 3 ) grid%pd_scalar=.FALSE.
5537 IF ( setinitval .EQ. 3 ) grid%pd_tke=.FALSE.
5538 IF ( setinitval .EQ. 3 ) grid%top_radiation=.FALSE.
5539 IF ( setinitval .EQ. 3 ) grid%mix_cr_len=initial_data_value
5540 IF ( setinitval .EQ. 3 ) grid%tke_upper_bound=initial_data_value
5541 IF ( setinitval .EQ. 3 ) grid%kh_tke_upper_bound=initial_data_value
5542 IF ( setinitval .EQ. 3 ) grid%kv_tke_upper_bound=initial_data_value
5543 IF ( setinitval .EQ. 3 ) grid%tke_drag_coefficient=initial_data_value
5544 IF ( setinitval .EQ. 3 ) grid%tke_heat_flux=initial_data_value
5545 IF ( setinitval .EQ. 3 ) grid%pert_coriolis=.FALSE.
5546 IF ( setinitval .EQ. 3 ) grid%mix_full_fields=.FALSE.
5547 IF ( setinitval .EQ. 3 ) grid%base_pres=initial_data_value
5548 IF ( setinitval .EQ. 3 ) grid%base_temp=initial_data_value
5549 IF ( setinitval .EQ. 3 ) grid%base_lapse=initial_data_value
5550 IF ( setinitval .EQ. 3 ) grid%jcdfi_use=.FALSE.
5551 IF ( setinitval .EQ. 3 ) grid%jcdfi_tauc=initial_data_value
5552 IF ( setinitval .EQ. 3 ) grid%jcdfi_gama=initial_data_value
5553 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_wind=initial_data_value
5554 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_t=initial_data_value
5555 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_q=initial_data_value
5556 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_mu=initial_data_value
5557 IF ( setinitval .EQ. 3 ) grid%spec_bdy_width=0
5558 IF ( setinitval .EQ. 3 ) grid%spec_zone=0
5559 IF ( setinitval .EQ. 3 ) grid%relax_zone=0
5560 IF ( setinitval .EQ. 3 ) grid%specified=.FALSE.
5561 IF ( setinitval .EQ. 3 ) grid%periodic_x=.FALSE.
5562 IF ( setinitval .EQ. 3 ) grid%symmetric_xs=.FALSE.
5563 IF ( setinitval .EQ. 3 ) grid%symmetric_xe=.FALSE.
5564 IF ( setinitval .EQ. 3 ) grid%open_xs=.FALSE.
5565 IF ( setinitval .EQ. 3 ) grid%open_xe=.FALSE.
5566 IF ( setinitval .EQ. 3 ) grid%periodic_y=.FALSE.
5567 IF ( setinitval .EQ. 3 ) grid%symmetric_ys=.FALSE.
5568 IF ( setinitval .EQ. 3 ) grid%symmetric_ye=.FALSE.
5569 IF ( setinitval .EQ. 3 ) grid%open_ys=.FALSE.
5570 IF ( setinitval .EQ. 3 ) grid%open_ye=.FALSE.
5571 IF ( setinitval .EQ. 3 ) grid%nested=.FALSE.
5572 IF ( setinitval .EQ. 3 ) grid%real_data_init_type=0
5573 IF ( setinitval .EQ. 3 ) grid%background_proc_id=0
5574 IF ( setinitval .EQ. 3 ) grid%forecast_proc_id=0
5575 IF ( setinitval .EQ. 3 ) grid%production_status=0
5576 IF ( setinitval .EQ. 3 ) grid%compression=0
5577 IF ( setinitval .EQ. 3 ) grid%cen_lat=initial_data_value
5578 IF ( setinitval .EQ. 3 ) grid%cen_lon=initial_data_value
5579 IF ( setinitval .EQ. 3 ) grid%truelat1=initial_data_value
5580 IF ( setinitval .EQ. 3 ) grid%truelat2=initial_data_value
5581 IF ( setinitval .EQ. 3 ) grid%moad_cen_lat=initial_data_value
5582 IF ( setinitval .EQ. 3 ) grid%stand_lon=initial_data_value
5583 IF ( setinitval .EQ. 3 ) grid%bdyfrq=initial_data_value
5584 IF ( setinitval .EQ. 3 ) grid%iswater=0
5585 IF ( setinitval .EQ. 3 ) grid%isice=0
5586 IF ( setinitval .EQ. 3 ) grid%isurban=0
5587 IF ( setinitval .EQ. 3 ) grid%isoilwater=0
5588 IF ( setinitval .EQ. 3 ) grid%map_proj=0
5589 IF ( setinitval .EQ. 3 ) grid%simulation_start_year=0
5590 IF ( setinitval .EQ. 3 ) grid%simulation_start_month=0
5591 IF ( setinitval .EQ. 3 ) grid%simulation_start_day=0
5592 IF ( setinitval .EQ. 3 ) grid%simulation_start_hour=0
5593 IF ( setinitval .EQ. 3 ) grid%simulation_start_minute=0
5594 IF ( setinitval .EQ. 3 ) grid%simulation_start_second=0
5595 IF(.NOT.inter_domain)THEN
5596 ALLOCATE(grid%em_dummy(sm31:em31),STAT=ierr)
5597  if (ierr.ne.0) then
5598  CALL wrf_error_fatal ( &
5599 'frame/module_domain.f: Failed to allocate grid%em_dummy(sm31:em31). ')
5600  endif
5601   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%em_dummy=initial_data_value
5602 ELSE
5603 ALLOCATE(grid%em_dummy(1),STAT=ierr)
5604  if (ierr.ne.0) then
5605  CALL wrf_error_fatal ( &
5606 'frame/module_domain.f: Failed to allocate grid%em_dummy(1).  ')
5607  endif
5608 ENDIF
5609 IF(.NOT.inter_domain)THEN
5610 ALLOCATE(grid%vv%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5611  if (ierr.ne.0) then
5612  CALL wrf_error_fatal ( &
5613 'frame/module_domain.f: Failed to allocate grid%vv%v1(sm31:em31,sm32:em32,sm33:em33). ')
5614  endif
5615   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v1=initial_data_value
5616 ELSE
5617 ALLOCATE(grid%vv%v1(1,1,1),STAT=ierr)
5618  if (ierr.ne.0) then
5619  CALL wrf_error_fatal ( &
5620 'frame/module_domain.f: Failed to allocate grid%vv%v1(1,1,1).  ')
5621  endif
5622 ENDIF
5623 IF(.NOT.inter_domain)THEN
5624 ALLOCATE(grid%vv%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5625  if (ierr.ne.0) then
5626  CALL wrf_error_fatal ( &
5627 'frame/module_domain.f: Failed to allocate grid%vv%v2(sm31:em31,sm32:em32,sm33:em33). ')
5628  endif
5629   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v2=initial_data_value
5630 ELSE
5631 ALLOCATE(grid%vv%v2(1,1,1),STAT=ierr)
5632  if (ierr.ne.0) then
5633  CALL wrf_error_fatal ( &
5634 'frame/module_domain.f: Failed to allocate grid%vv%v2(1,1,1).  ')
5635  endif
5636 ENDIF
5637 IF(.NOT.inter_domain)THEN
5638 ALLOCATE(grid%vv%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5639  if (ierr.ne.0) then
5640  CALL wrf_error_fatal ( &
5641 'frame/module_domain.f: Failed to allocate grid%vv%v3(sm31:em31,sm32:em32,sm33:em33). ')
5642  endif
5643   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v3=initial_data_value
5644 ELSE
5645 ALLOCATE(grid%vv%v3(1,1,1),STAT=ierr)
5646  if (ierr.ne.0) then
5647  CALL wrf_error_fatal ( &
5648 'frame/module_domain.f: Failed to allocate grid%vv%v3(1,1,1).  ')
5649  endif
5650 ENDIF
5651 IF(.NOT.inter_domain)THEN
5652 ALLOCATE(grid%vv%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5653  if (ierr.ne.0) then
5654  CALL wrf_error_fatal ( &
5655 'frame/module_domain.f: Failed to allocate grid%vv%v4(sm31:em31,sm32:em32,sm33:em33). ')
5656  endif
5657   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v4=initial_data_value
5658 ELSE
5659 ALLOCATE(grid%vv%v4(1,1,1),STAT=ierr)
5660  if (ierr.ne.0) then
5661  CALL wrf_error_fatal ( &
5662 'frame/module_domain.f: Failed to allocate grid%vv%v4(1,1,1).  ')
5663  endif
5664 ENDIF
5665 IF(.NOT.inter_domain)THEN
5666 ALLOCATE(grid%vv%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5667  if (ierr.ne.0) then
5668  CALL wrf_error_fatal ( &
5669 'frame/module_domain.f: Failed to allocate grid%vv%v5(sm31:em31,sm32:em32,sm33:em33). ')
5670  endif
5671   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v5=initial_data_value
5672 ELSE
5673 ALLOCATE(grid%vv%v5(1,1,1),STAT=ierr)
5674  if (ierr.ne.0) then
5675  CALL wrf_error_fatal ( &
5676 'frame/module_domain.f: Failed to allocate grid%vv%v5(1,1,1).  ')
5677  endif
5678 ENDIF
5679 IF(.NOT.inter_domain)THEN
5680 ALLOCATE(grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
5681  if (ierr.ne.0) then
5682  CALL wrf_error_fatal ( &
5683 'frame/module_domain.f: Failed to allocate grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
5684  endif
5685   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%alpha=initial_data_value
5686 ELSE
5687 ALLOCATE(grid%vv%alpha(1,1,1),STAT=ierr)
5688  if (ierr.ne.0) then
5689  CALL wrf_error_fatal ( &
5690 'frame/module_domain.f: Failed to allocate grid%vv%alpha(1,1,1).  ')
5691  endif
5692 ENDIF
5693 IF(.NOT.inter_domain)THEN
5694 ALLOCATE(grid%vp%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5695  if (ierr.ne.0) then
5696  CALL wrf_error_fatal ( &
5697 'frame/module_domain.f: Failed to allocate grid%vp%v1(sm31:em31,sm32:em32,sm33:em33). ')
5698  endif
5699   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v1=initial_data_value
5700 ELSE
5701 ALLOCATE(grid%vp%v1(1,1,1),STAT=ierr)
5702  if (ierr.ne.0) then
5703  CALL wrf_error_fatal ( &
5704 'frame/module_domain.f: Failed to allocate grid%vp%v1(1,1,1).  ')
5705  endif
5706 ENDIF
5707 IF(.NOT.inter_domain)THEN
5708 ALLOCATE(grid%vp%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5709  if (ierr.ne.0) then
5710  CALL wrf_error_fatal ( &
5711 'frame/module_domain.f: Failed to allocate grid%vp%v2(sm31:em31,sm32:em32,sm33:em33). ')
5712  endif
5713   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v2=initial_data_value
5714 ELSE
5715 ALLOCATE(grid%vp%v2(1,1,1),STAT=ierr)
5716  if (ierr.ne.0) then
5717  CALL wrf_error_fatal ( &
5718 'frame/module_domain.f: Failed to allocate grid%vp%v2(1,1,1).  ')
5719  endif
5720 ENDIF
5721 IF(.NOT.inter_domain)THEN
5722 ALLOCATE(grid%vp%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5723  if (ierr.ne.0) then
5724  CALL wrf_error_fatal ( &
5725 'frame/module_domain.f: Failed to allocate grid%vp%v3(sm31:em31,sm32:em32,sm33:em33). ')
5726  endif
5727   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v3=initial_data_value
5728 ELSE
5729 ALLOCATE(grid%vp%v3(1,1,1),STAT=ierr)
5730  if (ierr.ne.0) then
5731  CALL wrf_error_fatal ( &
5732 'frame/module_domain.f: Failed to allocate grid%vp%v3(1,1,1).  ')
5733  endif
5734 ENDIF
5735 IF(.NOT.inter_domain)THEN
5736 ALLOCATE(grid%vp%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5737  if (ierr.ne.0) then
5738  CALL wrf_error_fatal ( &
5739 'frame/module_domain.f: Failed to allocate grid%vp%v4(sm31:em31,sm32:em32,sm33:em33). ')
5740  endif
5741   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v4=initial_data_value
5742 ELSE
5743 ALLOCATE(grid%vp%v4(1,1,1),STAT=ierr)
5744  if (ierr.ne.0) then
5745  CALL wrf_error_fatal ( &
5746 'frame/module_domain.f: Failed to allocate grid%vp%v4(1,1,1).  ')
5747  endif
5748 ENDIF
5749 IF(.NOT.inter_domain)THEN
5750 ALLOCATE(grid%vp%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5751  if (ierr.ne.0) then
5752  CALL wrf_error_fatal ( &
5753 'frame/module_domain.f: Failed to allocate grid%vp%v5(sm31:em31,sm32:em32,sm33:em33). ')
5754  endif
5755   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v5=initial_data_value
5756 ELSE
5757 ALLOCATE(grid%vp%v5(1,1,1),STAT=ierr)
5758  if (ierr.ne.0) then
5759  CALL wrf_error_fatal ( &
5760 'frame/module_domain.f: Failed to allocate grid%vp%v5(1,1,1).  ')
5761  endif
5762 ENDIF
5763 IF(.NOT.inter_domain)THEN
5764 ALLOCATE(grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
5765  if (ierr.ne.0) then
5766  CALL wrf_error_fatal ( &
5767 'frame/module_domain.f: Failed to allocate grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
5768  endif
5769   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%alpha=initial_data_value
5770 ELSE
5771 ALLOCATE(grid%vp%alpha(1,1,1),STAT=ierr)
5772  if (ierr.ne.0) then
5773  CALL wrf_error_fatal ( &
5774 'frame/module_domain.f: Failed to allocate grid%vp%alpha(1,1,1).  ')
5775  endif
5776 ENDIF
5777 IF ( setinitval .EQ. 3 ) grid%ep%ne=0
5778 IF(.NOT.inter_domain)THEN
5779 ALLOCATE(grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
5780  if (ierr.ne.0) then
5781  CALL wrf_error_fatal ( &
5782 'frame/module_domain.f: Failed to allocate grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
5783  endif
5784   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v1=initial_data_value
5785 ELSE
5786 ALLOCATE(grid%ep%v1(1,1,1,1),STAT=ierr)
5787  if (ierr.ne.0) then
5788  CALL wrf_error_fatal ( &
5789 'frame/module_domain.f: Failed to allocate grid%ep%v1(1,1,1,1).  ')
5790  endif
5791 ENDIF
5792 IF(.NOT.inter_domain)THEN
5793 ALLOCATE(grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
5794  if (ierr.ne.0) then
5795  CALL wrf_error_fatal ( &
5796 'frame/module_domain.f: Failed to allocate grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
5797  endif
5798   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v2=initial_data_value
5799 ELSE
5800 ALLOCATE(grid%ep%v2(1,1,1,1),STAT=ierr)
5801  if (ierr.ne.0) then
5802  CALL wrf_error_fatal ( &
5803 'frame/module_domain.f: Failed to allocate grid%ep%v2(1,1,1,1).  ')
5804  endif
5805 ENDIF
5806 IF(.NOT.inter_domain)THEN
5807 ALLOCATE(grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
5808  if (ierr.ne.0) then
5809  CALL wrf_error_fatal ( &
5810 'frame/module_domain.f: Failed to allocate grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
5811  endif
5812   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v3=initial_data_value
5813 ELSE
5814 ALLOCATE(grid%ep%v3(1,1,1,1),STAT=ierr)
5815  if (ierr.ne.0) then
5816  CALL wrf_error_fatal ( &
5817 'frame/module_domain.f: Failed to allocate grid%ep%v3(1,1,1,1).  ')
5818  endif
5819 ENDIF
5820 IF(.NOT.inter_domain)THEN
5821 ALLOCATE(grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
5822  if (ierr.ne.0) then
5823  CALL wrf_error_fatal ( &
5824 'frame/module_domain.f: Failed to allocate grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
5825  endif
5826   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v4=initial_data_value
5827 ELSE
5828 ALLOCATE(grid%ep%v4(1,1,1,1),STAT=ierr)
5829  if (ierr.ne.0) then
5830  CALL wrf_error_fatal ( &
5831 'frame/module_domain.f: Failed to allocate grid%ep%v4(1,1,1,1).  ')
5832  endif
5833 ENDIF
5834 IF(.NOT.inter_domain)THEN
5835 ALLOCATE(grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
5836  if (ierr.ne.0) then
5837  CALL wrf_error_fatal ( &
5838 'frame/module_domain.f: Failed to allocate grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
5839  endif
5840   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v5=initial_data_value
5841 ELSE
5842 ALLOCATE(grid%ep%v5(1,1,1,1),STAT=ierr)
5843  if (ierr.ne.0) then
5844  CALL wrf_error_fatal ( &
5845 'frame/module_domain.f: Failed to allocate grid%ep%v5(1,1,1,1).  ')
5846  endif
5847 ENDIF
5848 IF ( setinitval .EQ. 3 ) grid%xb%map=0
5849 IF ( setinitval .EQ. 3 ) grid%xb%ptop=initial_data_value
5850 IF ( setinitval .EQ. 3 ) grid%xb%ztop=initial_data_value
5851 IF ( setinitval .EQ. 3 ) grid%xb%ps0=initial_data_value
5852 IF ( setinitval .EQ. 3 ) grid%xb%ts0=initial_data_value
5853 IF ( setinitval .EQ. 3 ) grid%xb%tlp=initial_data_value
5854 IF ( setinitval .EQ. 3 ) grid%xb%tis0=initial_data_value
5855 IF ( setinitval .EQ. 3 ) grid%xb%ds=initial_data_value
5856 IF ( setinitval .EQ. 3 ) grid%xb%sigmaf_0=initial_data_value
5857 IF ( setinitval .EQ. 3 ) grid%xb%mix=0
5858 IF ( setinitval .EQ. 3 ) grid%xb%mjy=0
5859 IF ( setinitval .EQ. 3 ) grid%xb%mkz=0
5860 IF ( setinitval .EQ. 3 ) grid%xb%num_of_var=0
5861 IF ( setinitval .EQ. 3 ) grid%xb%ids=0
5862 IF ( setinitval .EQ. 3 ) grid%xb%ide=0
5863 IF ( setinitval .EQ. 3 ) grid%xb%jds=0
5864 IF ( setinitval .EQ. 3 ) grid%xb%jde=0
5865 IF ( setinitval .EQ. 3 ) grid%xb%kds=0
5866 IF ( setinitval .EQ. 3 ) grid%xb%kde=0
5867 IF ( setinitval .EQ. 3 ) grid%xb%ims=0
5868 IF ( setinitval .EQ. 3 ) grid%xb%ime=0
5869 IF ( setinitval .EQ. 3 ) grid%xb%jms=0
5870 IF ( setinitval .EQ. 3 ) grid%xb%jme=0
5871 IF ( setinitval .EQ. 3 ) grid%xb%kms=0
5872 IF ( setinitval .EQ. 3 ) grid%xb%kme=0
5873 IF ( setinitval .EQ. 3 ) grid%xb%its=0
5874 IF ( setinitval .EQ. 3 ) grid%xb%ite=0
5875 IF ( setinitval .EQ. 3 ) grid%xb%jts=0
5876 IF ( setinitval .EQ. 3 ) grid%xb%jte=0
5877 IF ( setinitval .EQ. 3 ) grid%xb%kts=0
5878 IF ( setinitval .EQ. 3 ) grid%xb%kte=0
5879 IF(.NOT.inter_domain)THEN
5880 ALLOCATE(grid%xb%grid_box_area(sm31:em31,sm32:em32),STAT=ierr)
5881  if (ierr.ne.0) then
5882  CALL wrf_error_fatal ( &
5883 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(sm31:em31,sm32:em32). ')
5884  endif
5885   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%grid_box_area=initial_data_value
5886 ELSE
5887 ALLOCATE(grid%xb%grid_box_area(1,1),STAT=ierr)
5888  if (ierr.ne.0) then
5889  CALL wrf_error_fatal ( &
5890 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(1,1).  ')
5891  endif
5892 ENDIF
5893 IF(.NOT.inter_domain)THEN
5894 ALLOCATE(grid%xb%map_factor(sm31:em31,sm32:em32),STAT=ierr)
5895  if (ierr.ne.0) then
5896  CALL wrf_error_fatal ( &
5897 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(sm31:em31,sm32:em32). ')
5898  endif
5899   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%map_factor=initial_data_value
5900 ELSE
5901 ALLOCATE(grid%xb%map_factor(1,1),STAT=ierr)
5902  if (ierr.ne.0) then
5903  CALL wrf_error_fatal ( &
5904 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(1,1).  ')
5905  endif
5906 ENDIF
5907 IF(.NOT.inter_domain)THEN
5908 ALLOCATE(grid%xb%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5909  if (ierr.ne.0) then
5910  CALL wrf_error_fatal ( &
5911 'frame/module_domain.f: Failed to allocate grid%xb%u(sm31:em31,sm32:em32,sm33:em33). ')
5912  endif
5913   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u=initial_data_value
5914 ELSE
5915 ALLOCATE(grid%xb%u(1,1,1),STAT=ierr)
5916  if (ierr.ne.0) then
5917  CALL wrf_error_fatal ( &
5918 'frame/module_domain.f: Failed to allocate grid%xb%u(1,1,1).  ')
5919  endif
5920 ENDIF
5921 IF(.NOT.inter_domain)THEN
5922 ALLOCATE(grid%xb%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5923  if (ierr.ne.0) then
5924  CALL wrf_error_fatal ( &
5925 'frame/module_domain.f: Failed to allocate grid%xb%v(sm31:em31,sm32:em32,sm33:em33). ')
5926  endif
5927   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v=initial_data_value
5928 ELSE
5929 ALLOCATE(grid%xb%v(1,1,1),STAT=ierr)
5930  if (ierr.ne.0) then
5931  CALL wrf_error_fatal ( &
5932 'frame/module_domain.f: Failed to allocate grid%xb%v(1,1,1).  ')
5933  endif
5934 ENDIF
5935 IF(.NOT.inter_domain)THEN
5936 ALLOCATE(grid%xb%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5937  if (ierr.ne.0) then
5938  CALL wrf_error_fatal ( &
5939 'frame/module_domain.f: Failed to allocate grid%xb%w(sm31:em31,sm32:em32,sm33:em33). ')
5940  endif
5941   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%w=initial_data_value
5942 ELSE
5943 ALLOCATE(grid%xb%w(1,1,1),STAT=ierr)
5944  if (ierr.ne.0) then
5945  CALL wrf_error_fatal ( &
5946 'frame/module_domain.f: Failed to allocate grid%xb%w(1,1,1).  ')
5947  endif
5948 ENDIF
5949 IF(.NOT.inter_domain)THEN
5950 ALLOCATE(grid%xb%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5951  if (ierr.ne.0) then
5952  CALL wrf_error_fatal ( &
5953 'frame/module_domain.f: Failed to allocate grid%xb%t(sm31:em31,sm32:em32,sm33:em33). ')
5954  endif
5955   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t=initial_data_value
5956 ELSE
5957 ALLOCATE(grid%xb%t(1,1,1),STAT=ierr)
5958  if (ierr.ne.0) then
5959  CALL wrf_error_fatal ( &
5960 'frame/module_domain.f: Failed to allocate grid%xb%t(1,1,1).  ')
5961  endif
5962 ENDIF
5963 IF(.NOT.inter_domain)THEN
5964 ALLOCATE(grid%xb%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5965  if (ierr.ne.0) then
5966  CALL wrf_error_fatal ( &
5967 'frame/module_domain.f: Failed to allocate grid%xb%p(sm31:em31,sm32:em32,sm33:em33). ')
5968  endif
5969   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%p=initial_data_value
5970 ELSE
5971 ALLOCATE(grid%xb%p(1,1,1),STAT=ierr)
5972  if (ierr.ne.0) then
5973  CALL wrf_error_fatal ( &
5974 'frame/module_domain.f: Failed to allocate grid%xb%p(1,1,1).  ')
5975  endif
5976 ENDIF
5977 IF(.NOT.inter_domain)THEN
5978 ALLOCATE(grid%xb%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5979  if (ierr.ne.0) then
5980  CALL wrf_error_fatal ( &
5981 'frame/module_domain.f: Failed to allocate grid%xb%q(sm31:em31,sm32:em32,sm33:em33). ')
5982  endif
5983   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q=initial_data_value
5984 ELSE
5985 ALLOCATE(grid%xb%q(1,1,1),STAT=ierr)
5986  if (ierr.ne.0) then
5987  CALL wrf_error_fatal ( &
5988 'frame/module_domain.f: Failed to allocate grid%xb%q(1,1,1).  ')
5989  endif
5990 ENDIF
5991 IF(.NOT.inter_domain)THEN
5992 ALLOCATE(grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
5993  if (ierr.ne.0) then
5994  CALL wrf_error_fatal ( &
5995 'frame/module_domain.f: Failed to allocate grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33). ')
5996  endif
5997   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qrn=initial_data_value
5998 ELSE
5999 ALLOCATE(grid%xb%qrn(1,1,1),STAT=ierr)
6000  if (ierr.ne.0) then
6001  CALL wrf_error_fatal ( &
6002 'frame/module_domain.f: Failed to allocate grid%xb%qrn(1,1,1).  ')
6003  endif
6004 ENDIF
6005 IF(.NOT.inter_domain)THEN
6006 ALLOCATE(grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6007  if (ierr.ne.0) then
6008  CALL wrf_error_fatal ( &
6009 'frame/module_domain.f: Failed to allocate grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33). ')
6010  endif
6011   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qcw=initial_data_value
6012 ELSE
6013 ALLOCATE(grid%xb%qcw(1,1,1),STAT=ierr)
6014  if (ierr.ne.0) then
6015  CALL wrf_error_fatal ( &
6016 'frame/module_domain.f: Failed to allocate grid%xb%qcw(1,1,1).  ')
6017  endif
6018 ENDIF
6019 IF(.NOT.inter_domain)THEN
6020 ALLOCATE(grid%xb%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6021  if (ierr.ne.0) then
6022  CALL wrf_error_fatal ( &
6023 'frame/module_domain.f: Failed to allocate grid%xb%qci(sm31:em31,sm32:em32,sm33:em33). ')
6024  endif
6025   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qci=initial_data_value
6026 ELSE
6027 ALLOCATE(grid%xb%qci(1,1,1),STAT=ierr)
6028  if (ierr.ne.0) then
6029  CALL wrf_error_fatal ( &
6030 'frame/module_domain.f: Failed to allocate grid%xb%qci(1,1,1).  ')
6031  endif
6032 ENDIF
6033 IF(.NOT.inter_domain)THEN
6034 ALLOCATE(grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6035  if (ierr.ne.0) then
6036  CALL wrf_error_fatal ( &
6037 'frame/module_domain.f: Failed to allocate grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33). ')
6038  endif
6039   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qsn=initial_data_value
6040 ELSE
6041 ALLOCATE(grid%xb%qsn(1,1,1),STAT=ierr)
6042  if (ierr.ne.0) then
6043  CALL wrf_error_fatal ( &
6044 'frame/module_domain.f: Failed to allocate grid%xb%qsn(1,1,1).  ')
6045  endif
6046 ENDIF
6047 IF(.NOT.inter_domain)THEN
6048 ALLOCATE(grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6049  if (ierr.ne.0) then
6050  CALL wrf_error_fatal ( &
6051 'frame/module_domain.f: Failed to allocate grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33). ')
6052  endif
6053   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qgr=initial_data_value
6054 ELSE
6055 ALLOCATE(grid%xb%qgr(1,1,1),STAT=ierr)
6056  if (ierr.ne.0) then
6057  CALL wrf_error_fatal ( &
6058 'frame/module_domain.f: Failed to allocate grid%xb%qgr(1,1,1).  ')
6059  endif
6060 ENDIF
6061 IF(.NOT.inter_domain)THEN
6062 ALLOCATE(grid%xb%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6063  if (ierr.ne.0) then
6064  CALL wrf_error_fatal ( &
6065 'frame/module_domain.f: Failed to allocate grid%xb%qt(sm31:em31,sm32:em32,sm33:em33). ')
6066  endif
6067   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qt=initial_data_value
6068 ELSE
6069 ALLOCATE(grid%xb%qt(1,1,1),STAT=ierr)
6070  if (ierr.ne.0) then
6071  CALL wrf_error_fatal ( &
6072 'frame/module_domain.f: Failed to allocate grid%xb%qt(1,1,1).  ')
6073  endif
6074 ENDIF
6075 IF(.NOT.inter_domain)THEN
6076 ALLOCATE(grid%xb%delt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6077  if (ierr.ne.0) then
6078  CALL wrf_error_fatal ( &
6079 'frame/module_domain.f: Failed to allocate grid%xb%delt(sm31:em31,sm32:em32,sm33:em33). ')
6080  endif
6081   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%delt=initial_data_value
6082 ELSE
6083 ALLOCATE(grid%xb%delt(1,1,1),STAT=ierr)
6084  if (ierr.ne.0) then
6085  CALL wrf_error_fatal ( &
6086 'frame/module_domain.f: Failed to allocate grid%xb%delt(1,1,1).  ')
6087  endif
6088 ENDIF
6089 IF(.NOT.inter_domain)THEN
6090 ALLOCATE(grid%xb%h(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6091  if (ierr.ne.0) then
6092  CALL wrf_error_fatal ( &
6093 'frame/module_domain.f: Failed to allocate grid%xb%h(sm31:em31,sm32:em32,sm33:em33). ')
6094  endif
6095   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%h=initial_data_value
6096 ELSE
6097 ALLOCATE(grid%xb%h(1,1,1),STAT=ierr)
6098  if (ierr.ne.0) then
6099  CALL wrf_error_fatal ( &
6100 'frame/module_domain.f: Failed to allocate grid%xb%h(1,1,1).  ')
6101  endif
6102 ENDIF
6103 IF(.NOT.inter_domain)THEN
6104 ALLOCATE(grid%xb%hf(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6105  if (ierr.ne.0) then
6106  CALL wrf_error_fatal ( &
6107 'frame/module_domain.f: Failed to allocate grid%xb%hf(sm31:em31,sm32:em32,sm33:em33). ')
6108  endif
6109   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%hf=initial_data_value
6110 ELSE
6111 ALLOCATE(grid%xb%hf(1,1,1),STAT=ierr)
6112  if (ierr.ne.0) then
6113  CALL wrf_error_fatal ( &
6114 'frame/module_domain.f: Failed to allocate grid%xb%hf(1,1,1).  ')
6115  endif
6116 ENDIF
6117 IF(.NOT.inter_domain)THEN
6118 ALLOCATE(grid%xb%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6119  if (ierr.ne.0) then
6120  CALL wrf_error_fatal ( &
6121 'frame/module_domain.f: Failed to allocate grid%xb%wh(sm31:em31,sm32:em32,sm33:em33). ')
6122  endif
6123   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%wh=initial_data_value
6124 ELSE
6125 ALLOCATE(grid%xb%wh(1,1,1),STAT=ierr)
6126  if (ierr.ne.0) then
6127  CALL wrf_error_fatal ( &
6128 'frame/module_domain.f: Failed to allocate grid%xb%wh(1,1,1).  ')
6129  endif
6130 ENDIF
6131 IF(.NOT.inter_domain)THEN
6132 ALLOCATE(grid%xb%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6133  if (ierr.ne.0) then
6134  CALL wrf_error_fatal ( &
6135 'frame/module_domain.f: Failed to allocate grid%xb%rho(sm31:em31,sm32:em32,sm33:em33). ')
6136  endif
6137   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rho=initial_data_value
6138 ELSE
6139 ALLOCATE(grid%xb%rho(1,1,1),STAT=ierr)
6140  if (ierr.ne.0) then
6141  CALL wrf_error_fatal ( &
6142 'frame/module_domain.f: Failed to allocate grid%xb%rho(1,1,1).  ')
6143  endif
6144 ENDIF
6145 IF(.NOT.inter_domain)THEN
6146 ALLOCATE(grid%xb%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6147  if (ierr.ne.0) then
6148  CALL wrf_error_fatal ( &
6149 'frame/module_domain.f: Failed to allocate grid%xb%rh(sm31:em31,sm32:em32,sm33:em33). ')
6150  endif
6151   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rh=initial_data_value
6152 ELSE
6153 ALLOCATE(grid%xb%rh(1,1,1),STAT=ierr)
6154  if (ierr.ne.0) then
6155  CALL wrf_error_fatal ( &
6156 'frame/module_domain.f: Failed to allocate grid%xb%rh(1,1,1).  ')
6157  endif
6158 ENDIF
6159 IF(.NOT.inter_domain)THEN
6160 ALLOCATE(grid%xb%es(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6161  if (ierr.ne.0) then
6162  CALL wrf_error_fatal ( &
6163 'frame/module_domain.f: Failed to allocate grid%xb%es(sm31:em31,sm32:em32,sm33:em33). ')
6164  endif
6165   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%es=initial_data_value
6166 ELSE
6167 ALLOCATE(grid%xb%es(1,1,1),STAT=ierr)
6168  if (ierr.ne.0) then
6169  CALL wrf_error_fatal ( &
6170 'frame/module_domain.f: Failed to allocate grid%xb%es(1,1,1).  ')
6171  endif
6172 ENDIF
6173 IF(.NOT.inter_domain)THEN
6174 ALLOCATE(grid%xb%qs(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6175  if (ierr.ne.0) then
6176  CALL wrf_error_fatal ( &
6177 'frame/module_domain.f: Failed to allocate grid%xb%qs(sm31:em31,sm32:em32,sm33:em33). ')
6178  endif
6179   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qs=initial_data_value
6180 ELSE
6181 ALLOCATE(grid%xb%qs(1,1,1),STAT=ierr)
6182  if (ierr.ne.0) then
6183  CALL wrf_error_fatal ( &
6184 'frame/module_domain.f: Failed to allocate grid%xb%qs(1,1,1).  ')
6185  endif
6186 ENDIF
6187 IF(.NOT.inter_domain)THEN
6188 ALLOCATE(grid%xb%td(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6189  if (ierr.ne.0) then
6190  CALL wrf_error_fatal ( &
6191 'frame/module_domain.f: Failed to allocate grid%xb%td(sm31:em31,sm32:em32,sm33:em33). ')
6192  endif
6193   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%td=initial_data_value
6194 ELSE
6195 ALLOCATE(grid%xb%td(1,1,1),STAT=ierr)
6196  if (ierr.ne.0) then
6197  CALL wrf_error_fatal ( &
6198 'frame/module_domain.f: Failed to allocate grid%xb%td(1,1,1).  ')
6199  endif
6200 ENDIF
6201 IF(.NOT.inter_domain)THEN
6202 ALLOCATE(grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6203  if (ierr.ne.0) then
6204  CALL wrf_error_fatal ( &
6205 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33). ')
6206  endif
6207   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vertical_inner_product=initial_data_value
6208 ELSE
6209 ALLOCATE(grid%xb%vertical_inner_product(1,1,1),STAT=ierr)
6210  if (ierr.ne.0) then
6211  CALL wrf_error_fatal ( &
6212 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(1,1,1).  ')
6213  endif
6214 ENDIF
6215 IF(.NOT.inter_domain)THEN
6216 ALLOCATE(grid%xb%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6217  if (ierr.ne.0) then
6218  CALL wrf_error_fatal ( &
6219 'frame/module_domain.f: Failed to allocate grid%xb%ref(sm31:em31,sm32:em32,sm33:em33). ')
6220  endif
6221   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ref=initial_data_value
6222 ELSE
6223 ALLOCATE(grid%xb%ref(1,1,1),STAT=ierr)
6224  if (ierr.ne.0) then
6225  CALL wrf_error_fatal ( &
6226 'frame/module_domain.f: Failed to allocate grid%xb%ref(1,1,1).  ')
6227  endif
6228 ENDIF
6229 IF(.NOT.inter_domain)THEN
6230 ALLOCATE(grid%xb%rough(sm31:em31,sm32:em32),STAT=ierr)
6231  if (ierr.ne.0) then
6232  CALL wrf_error_fatal ( &
6233 'frame/module_domain.f: Failed to allocate grid%xb%rough(sm31:em31,sm32:em32). ')
6234  endif
6235   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rough=initial_data_value
6236 ELSE
6237 ALLOCATE(grid%xb%rough(1,1),STAT=ierr)
6238  if (ierr.ne.0) then
6239  CALL wrf_error_fatal ( &
6240 'frame/module_domain.f: Failed to allocate grid%xb%rough(1,1).  ')
6241  endif
6242 ENDIF
6243 IF(.NOT.inter_domain)THEN
6244 ALLOCATE(grid%xb%tpw(sm31:em31,sm32:em32),STAT=ierr)
6245  if (ierr.ne.0) then
6246  CALL wrf_error_fatal ( &
6247 'frame/module_domain.f: Failed to allocate grid%xb%tpw(sm31:em31,sm32:em32). ')
6248  endif
6249   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tpw=initial_data_value
6250 ELSE
6251 ALLOCATE(grid%xb%tpw(1,1),STAT=ierr)
6252  if (ierr.ne.0) then
6253  CALL wrf_error_fatal ( &
6254 'frame/module_domain.f: Failed to allocate grid%xb%tpw(1,1).  ')
6255  endif
6256 ENDIF
6257 IF(.NOT.inter_domain)THEN
6258 ALLOCATE(grid%xb%slp(sm31:em31,sm32:em32),STAT=ierr)
6259  if (ierr.ne.0) then
6260  CALL wrf_error_fatal ( &
6261 'frame/module_domain.f: Failed to allocate grid%xb%slp(sm31:em31,sm32:em32). ')
6262  endif
6263   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%slp=initial_data_value
6264 ELSE
6265 ALLOCATE(grid%xb%slp(1,1),STAT=ierr)
6266  if (ierr.ne.0) then
6267  CALL wrf_error_fatal ( &
6268 'frame/module_domain.f: Failed to allocate grid%xb%slp(1,1).  ')
6269  endif
6270 ENDIF
6271 IF(.NOT.inter_domain)THEN
6272 ALLOCATE(grid%xb%speed(sm31:em31,sm32:em32),STAT=ierr)
6273  if (ierr.ne.0) then
6274  CALL wrf_error_fatal ( &
6275 'frame/module_domain.f: Failed to allocate grid%xb%speed(sm31:em31,sm32:em32). ')
6276  endif
6277   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%speed=initial_data_value
6278 ELSE
6279 ALLOCATE(grid%xb%speed(1,1),STAT=ierr)
6280  if (ierr.ne.0) then
6281  CALL wrf_error_fatal ( &
6282 'frame/module_domain.f: Failed to allocate grid%xb%speed(1,1).  ')
6283  endif
6284 ENDIF
6285 IF(.NOT.inter_domain)THEN
6286 ALLOCATE(grid%xb%tb19v(sm31:em31,sm32:em32),STAT=ierr)
6287  if (ierr.ne.0) then
6288  CALL wrf_error_fatal ( &
6289 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(sm31:em31,sm32:em32). ')
6290  endif
6291   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19v=initial_data_value
6292 ELSE
6293 ALLOCATE(grid%xb%tb19v(1,1),STAT=ierr)
6294  if (ierr.ne.0) then
6295  CALL wrf_error_fatal ( &
6296 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(1,1).  ')
6297  endif
6298 ENDIF
6299 IF(.NOT.inter_domain)THEN
6300 ALLOCATE(grid%xb%tb19h(sm31:em31,sm32:em32),STAT=ierr)
6301  if (ierr.ne.0) then
6302  CALL wrf_error_fatal ( &
6303 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(sm31:em31,sm32:em32). ')
6304  endif
6305   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19h=initial_data_value
6306 ELSE
6307 ALLOCATE(grid%xb%tb19h(1,1),STAT=ierr)
6308  if (ierr.ne.0) then
6309  CALL wrf_error_fatal ( &
6310 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(1,1).  ')
6311  endif
6312 ENDIF
6313 IF(.NOT.inter_domain)THEN
6314 ALLOCATE(grid%xb%tb22v(sm31:em31,sm32:em32),STAT=ierr)
6315  if (ierr.ne.0) then
6316  CALL wrf_error_fatal ( &
6317 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(sm31:em31,sm32:em32). ')
6318  endif
6319   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb22v=initial_data_value
6320 ELSE
6321 ALLOCATE(grid%xb%tb22v(1,1),STAT=ierr)
6322  if (ierr.ne.0) then
6323  CALL wrf_error_fatal ( &
6324 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(1,1).  ')
6325  endif
6326 ENDIF
6327 IF(.NOT.inter_domain)THEN
6328 ALLOCATE(grid%xb%tb37v(sm31:em31,sm32:em32),STAT=ierr)
6329  if (ierr.ne.0) then
6330  CALL wrf_error_fatal ( &
6331 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(sm31:em31,sm32:em32). ')
6332  endif
6333   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37v=initial_data_value
6334 ELSE
6335 ALLOCATE(grid%xb%tb37v(1,1),STAT=ierr)
6336  if (ierr.ne.0) then
6337  CALL wrf_error_fatal ( &
6338 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(1,1).  ')
6339  endif
6340 ENDIF
6341 IF(.NOT.inter_domain)THEN
6342 ALLOCATE(grid%xb%tb37h(sm31:em31,sm32:em32),STAT=ierr)
6343  if (ierr.ne.0) then
6344  CALL wrf_error_fatal ( &
6345 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(sm31:em31,sm32:em32). ')
6346  endif
6347   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37h=initial_data_value
6348 ELSE
6349 ALLOCATE(grid%xb%tb37h(1,1),STAT=ierr)
6350  if (ierr.ne.0) then
6351  CALL wrf_error_fatal ( &
6352 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(1,1).  ')
6353  endif
6354 ENDIF
6355 IF(.NOT.inter_domain)THEN
6356 ALLOCATE(grid%xb%tb85v(sm31:em31,sm32:em32),STAT=ierr)
6357  if (ierr.ne.0) then
6358  CALL wrf_error_fatal ( &
6359 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(sm31:em31,sm32:em32). ')
6360  endif
6361   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85v=initial_data_value
6362 ELSE
6363 ALLOCATE(grid%xb%tb85v(1,1),STAT=ierr)
6364  if (ierr.ne.0) then
6365  CALL wrf_error_fatal ( &
6366 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(1,1).  ')
6367  endif
6368 ENDIF
6369 IF(.NOT.inter_domain)THEN
6370 ALLOCATE(grid%xb%tb85h(sm31:em31,sm32:em32),STAT=ierr)
6371  if (ierr.ne.0) then
6372  CALL wrf_error_fatal ( &
6373 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(sm31:em31,sm32:em32). ')
6374  endif
6375   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85h=initial_data_value
6376 ELSE
6377 ALLOCATE(grid%xb%tb85h(1,1),STAT=ierr)
6378  if (ierr.ne.0) then
6379  CALL wrf_error_fatal ( &
6380 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(1,1).  ')
6381  endif
6382 ENDIF
6383 IF(.NOT.inter_domain)THEN
6384 ALLOCATE(grid%xb%cori(sm31:em31,sm32:em32),STAT=ierr)
6385  if (ierr.ne.0) then
6386  CALL wrf_error_fatal ( &
6387 'frame/module_domain.f: Failed to allocate grid%xb%cori(sm31:em31,sm32:em32). ')
6388  endif
6389   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%cori=initial_data_value
6390 ELSE
6391 ALLOCATE(grid%xb%cori(1,1),STAT=ierr)
6392  if (ierr.ne.0) then
6393  CALL wrf_error_fatal ( &
6394 'frame/module_domain.f: Failed to allocate grid%xb%cori(1,1).  ')
6395  endif
6396 ENDIF
6397 IF(.NOT.inter_domain)THEN
6398 ALLOCATE(grid%xb%tgrn(sm31:em31,sm32:em32),STAT=ierr)
6399  if (ierr.ne.0) then
6400  CALL wrf_error_fatal ( &
6401 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(sm31:em31,sm32:em32). ')
6402  endif
6403   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tgrn=initial_data_value
6404 ELSE
6405 ALLOCATE(grid%xb%tgrn(1,1),STAT=ierr)
6406  if (ierr.ne.0) then
6407  CALL wrf_error_fatal ( &
6408 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(1,1).  ')
6409  endif
6410 ENDIF
6411 IF(.NOT.inter_domain)THEN
6412 ALLOCATE(grid%xb%lat(sm31:em31,sm32:em32),STAT=ierr)
6413  if (ierr.ne.0) then
6414  CALL wrf_error_fatal ( &
6415 'frame/module_domain.f: Failed to allocate grid%xb%lat(sm31:em31,sm32:em32). ')
6416  endif
6417   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lat=initial_data_value
6418 ELSE
6419 ALLOCATE(grid%xb%lat(1,1),STAT=ierr)
6420  if (ierr.ne.0) then
6421  CALL wrf_error_fatal ( &
6422 'frame/module_domain.f: Failed to allocate grid%xb%lat(1,1).  ')
6423  endif
6424 ENDIF
6425 IF(.NOT.inter_domain)THEN
6426 ALLOCATE(grid%xb%lon(sm31:em31,sm32:em32),STAT=ierr)
6427  if (ierr.ne.0) then
6428  CALL wrf_error_fatal ( &
6429 'frame/module_domain.f: Failed to allocate grid%xb%lon(sm31:em31,sm32:em32). ')
6430  endif
6431   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lon=initial_data_value
6432 ELSE
6433 ALLOCATE(grid%xb%lon(1,1),STAT=ierr)
6434  if (ierr.ne.0) then
6435  CALL wrf_error_fatal ( &
6436 'frame/module_domain.f: Failed to allocate grid%xb%lon(1,1).  ')
6437  endif
6438 ENDIF
6439 IF(.NOT.inter_domain)THEN
6440 ALLOCATE(grid%xb%terr(sm31:em31,sm32:em32),STAT=ierr)
6441  if (ierr.ne.0) then
6442  CALL wrf_error_fatal ( &
6443 'frame/module_domain.f: Failed to allocate grid%xb%terr(sm31:em31,sm32:em32). ')
6444  endif
6445   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%terr=initial_data_value
6446 ELSE
6447 ALLOCATE(grid%xb%terr(1,1),STAT=ierr)
6448  if (ierr.ne.0) then
6449  CALL wrf_error_fatal ( &
6450 'frame/module_domain.f: Failed to allocate grid%xb%terr(1,1).  ')
6451  endif
6452 ENDIF
6453 IF(.NOT.inter_domain)THEN
6454 ALLOCATE(grid%xb%psac(sm31:em31,sm32:em32),STAT=ierr)
6455  if (ierr.ne.0) then
6456  CALL wrf_error_fatal ( &
6457 'frame/module_domain.f: Failed to allocate grid%xb%psac(sm31:em31,sm32:em32). ')
6458  endif
6459   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psac=initial_data_value
6460 ELSE
6461 ALLOCATE(grid%xb%psac(1,1),STAT=ierr)
6462  if (ierr.ne.0) then
6463  CALL wrf_error_fatal ( &
6464 'frame/module_domain.f: Failed to allocate grid%xb%psac(1,1).  ')
6465  endif
6466 ENDIF
6467 IF(.NOT.inter_domain)THEN
6468 ALLOCATE(grid%xb%lanu(sm31:em31,sm32:em32),STAT=ierr)
6469  if (ierr.ne.0) then
6470  CALL wrf_error_fatal ( &
6471 'frame/module_domain.f: Failed to allocate grid%xb%lanu(sm31:em31,sm32:em32). ')
6472  endif
6473   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lanu=initial_data_value
6474 ELSE
6475 ALLOCATE(grid%xb%lanu(1,1),STAT=ierr)
6476  if (ierr.ne.0) then
6477  CALL wrf_error_fatal ( &
6478 'frame/module_domain.f: Failed to allocate grid%xb%lanu(1,1).  ')
6479  endif
6480 ENDIF
6481 IF(.NOT.inter_domain)THEN
6482 ALLOCATE(grid%xb%snow(sm31:em31,sm32:em32),STAT=ierr)
6483  if (ierr.ne.0) then
6484  CALL wrf_error_fatal ( &
6485 'frame/module_domain.f: Failed to allocate grid%xb%snow(sm31:em31,sm32:em32). ')
6486  endif
6487   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snow=initial_data_value
6488 ELSE
6489 ALLOCATE(grid%xb%snow(1,1),STAT=ierr)
6490  if (ierr.ne.0) then
6491  CALL wrf_error_fatal ( &
6492 'frame/module_domain.f: Failed to allocate grid%xb%snow(1,1).  ')
6493  endif
6494 ENDIF
6495 IF(.NOT.inter_domain)THEN
6496 ALLOCATE(grid%xb%xland(sm31:em31,sm32:em32),STAT=ierr)
6497  if (ierr.ne.0) then
6498  CALL wrf_error_fatal ( &
6499 'frame/module_domain.f: Failed to allocate grid%xb%xland(sm31:em31,sm32:em32). ')
6500  endif
6501   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xland=initial_data_value
6502 ELSE
6503 ALLOCATE(grid%xb%xland(1,1),STAT=ierr)
6504  if (ierr.ne.0) then
6505  CALL wrf_error_fatal ( &
6506 'frame/module_domain.f: Failed to allocate grid%xb%xland(1,1).  ')
6507  endif
6508 ENDIF
6509 IF(.NOT.inter_domain)THEN
6510 ALLOCATE(grid%xb%landmask(sm31:em31,sm32:em32),STAT=ierr)
6511  if (ierr.ne.0) then
6512  CALL wrf_error_fatal ( &
6513 'frame/module_domain.f: Failed to allocate grid%xb%landmask(sm31:em31,sm32:em32). ')
6514  endif
6515   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%landmask=initial_data_value
6516 ELSE
6517 ALLOCATE(grid%xb%landmask(1,1),STAT=ierr)
6518  if (ierr.ne.0) then
6519  CALL wrf_error_fatal ( &
6520 'frame/module_domain.f: Failed to allocate grid%xb%landmask(1,1).  ')
6521  endif
6522 ENDIF
6523 IF(.NOT.inter_domain)THEN
6524 ALLOCATE(grid%xb%u10(sm31:em31,sm32:em32),STAT=ierr)
6525  if (ierr.ne.0) then
6526  CALL wrf_error_fatal ( &
6527 'frame/module_domain.f: Failed to allocate grid%xb%u10(sm31:em31,sm32:em32). ')
6528  endif
6529   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u10=initial_data_value
6530 ELSE
6531 ALLOCATE(grid%xb%u10(1,1),STAT=ierr)
6532  if (ierr.ne.0) then
6533  CALL wrf_error_fatal ( &
6534 'frame/module_domain.f: Failed to allocate grid%xb%u10(1,1).  ')
6535  endif
6536 ENDIF
6537 IF(.NOT.inter_domain)THEN
6538 ALLOCATE(grid%xb%v10(sm31:em31,sm32:em32),STAT=ierr)
6539  if (ierr.ne.0) then
6540  CALL wrf_error_fatal ( &
6541 'frame/module_domain.f: Failed to allocate grid%xb%v10(sm31:em31,sm32:em32). ')
6542  endif
6543   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v10=initial_data_value
6544 ELSE
6545 ALLOCATE(grid%xb%v10(1,1),STAT=ierr)
6546  if (ierr.ne.0) then
6547  CALL wrf_error_fatal ( &
6548 'frame/module_domain.f: Failed to allocate grid%xb%v10(1,1).  ')
6549  endif
6550 ENDIF
6551 IF(.NOT.inter_domain)THEN
6552 ALLOCATE(grid%xb%t2(sm31:em31,sm32:em32),STAT=ierr)
6553  if (ierr.ne.0) then
6554  CALL wrf_error_fatal ( &
6555 'frame/module_domain.f: Failed to allocate grid%xb%t2(sm31:em31,sm32:em32). ')
6556  endif
6557   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t2=initial_data_value
6558 ELSE
6559 ALLOCATE(grid%xb%t2(1,1),STAT=ierr)
6560  if (ierr.ne.0) then
6561  CALL wrf_error_fatal ( &
6562 'frame/module_domain.f: Failed to allocate grid%xb%t2(1,1).  ')
6563  endif
6564 ENDIF
6565 IF(.NOT.inter_domain)THEN
6566 ALLOCATE(grid%xb%q2(sm31:em31,sm32:em32),STAT=ierr)
6567  if (ierr.ne.0) then
6568  CALL wrf_error_fatal ( &
6569 'frame/module_domain.f: Failed to allocate grid%xb%q2(sm31:em31,sm32:em32). ')
6570  endif
6571   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q2=initial_data_value
6572 ELSE
6573 ALLOCATE(grid%xb%q2(1,1),STAT=ierr)
6574  if (ierr.ne.0) then
6575  CALL wrf_error_fatal ( &
6576 'frame/module_domain.f: Failed to allocate grid%xb%q2(1,1).  ')
6577  endif
6578 ENDIF
6579 IF(.NOT.inter_domain)THEN
6580 ALLOCATE(grid%xb%psfc(sm31:em31,sm32:em32),STAT=ierr)
6581  if (ierr.ne.0) then
6582  CALL wrf_error_fatal ( &
6583 'frame/module_domain.f: Failed to allocate grid%xb%psfc(sm31:em31,sm32:em32). ')
6584  endif
6585   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psfc=initial_data_value
6586 ELSE
6587 ALLOCATE(grid%xb%psfc(1,1),STAT=ierr)
6588  if (ierr.ne.0) then
6589  CALL wrf_error_fatal ( &
6590 'frame/module_domain.f: Failed to allocate grid%xb%psfc(1,1).  ')
6591  endif
6592 ENDIF
6593 IF(.NOT.inter_domain)THEN
6594 ALLOCATE(grid%xb%tsk(sm31:em31,sm32:em32),STAT=ierr)
6595  if (ierr.ne.0) then
6596  CALL wrf_error_fatal ( &
6597 'frame/module_domain.f: Failed to allocate grid%xb%tsk(sm31:em31,sm32:em32). ')
6598  endif
6599   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tsk=initial_data_value
6600 ELSE
6601 ALLOCATE(grid%xb%tsk(1,1),STAT=ierr)
6602  if (ierr.ne.0) then
6603  CALL wrf_error_fatal ( &
6604 'frame/module_domain.f: Failed to allocate grid%xb%tsk(1,1).  ')
6605  endif
6606 ENDIF
6607 IF(.NOT.inter_domain)THEN
6608 ALLOCATE(grid%xb%smois(sm31:em31,sm32:em32),STAT=ierr)
6609  if (ierr.ne.0) then
6610  CALL wrf_error_fatal ( &
6611 'frame/module_domain.f: Failed to allocate grid%xb%smois(sm31:em31,sm32:em32). ')
6612  endif
6613   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%smois=initial_data_value
6614 ELSE
6615 ALLOCATE(grid%xb%smois(1,1),STAT=ierr)
6616  if (ierr.ne.0) then
6617  CALL wrf_error_fatal ( &
6618 'frame/module_domain.f: Failed to allocate grid%xb%smois(1,1).  ')
6619  endif
6620 ENDIF
6621 IF(.NOT.inter_domain)THEN
6622 ALLOCATE(grid%xb%tslb(sm31:em31,sm32:em32),STAT=ierr)
6623  if (ierr.ne.0) then
6624  CALL wrf_error_fatal ( &
6625 'frame/module_domain.f: Failed to allocate grid%xb%tslb(sm31:em31,sm32:em32). ')
6626  endif
6627   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tslb=initial_data_value
6628 ELSE
6629 ALLOCATE(grid%xb%tslb(1,1),STAT=ierr)
6630  if (ierr.ne.0) then
6631  CALL wrf_error_fatal ( &
6632 'frame/module_domain.f: Failed to allocate grid%xb%tslb(1,1).  ')
6633  endif
6634 ENDIF
6635 IF(.NOT.inter_domain)THEN
6636 ALLOCATE(grid%xb%xice(sm31:em31,sm32:em32),STAT=ierr)
6637  if (ierr.ne.0) then
6638  CALL wrf_error_fatal ( &
6639 'frame/module_domain.f: Failed to allocate grid%xb%xice(sm31:em31,sm32:em32). ')
6640  endif
6641   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xice=initial_data_value
6642 ELSE
6643 ALLOCATE(grid%xb%xice(1,1),STAT=ierr)
6644  if (ierr.ne.0) then
6645  CALL wrf_error_fatal ( &
6646 'frame/module_domain.f: Failed to allocate grid%xb%xice(1,1).  ')
6647  endif
6648 ENDIF
6649 IF(.NOT.inter_domain)THEN
6650 ALLOCATE(grid%xb%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
6651  if (ierr.ne.0) then
6652  CALL wrf_error_fatal ( &
6653 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(sm31:em31,sm32:em32). ')
6654  endif
6655   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ivgtyp=0
6656 ELSE
6657 ALLOCATE(grid%xb%ivgtyp(1,1),STAT=ierr)
6658  if (ierr.ne.0) then
6659  CALL wrf_error_fatal ( &
6660 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(1,1).  ')
6661  endif
6662 ENDIF
6663 IF(.NOT.inter_domain)THEN
6664 ALLOCATE(grid%xb%isltyp(sm31:em31,sm32:em32),STAT=ierr)
6665  if (ierr.ne.0) then
6666  CALL wrf_error_fatal ( &
6667 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(sm31:em31,sm32:em32). ')
6668  endif
6669   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%isltyp=0
6670 ELSE
6671 ALLOCATE(grid%xb%isltyp(1,1),STAT=ierr)
6672  if (ierr.ne.0) then
6673  CALL wrf_error_fatal ( &
6674 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(1,1).  ')
6675  endif
6676 ENDIF
6677 IF(.NOT.inter_domain)THEN
6678 ALLOCATE(grid%xb%vegfra(sm31:em31,sm32:em32),STAT=ierr)
6679  if (ierr.ne.0) then
6680  CALL wrf_error_fatal ( &
6681 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(sm31:em31,sm32:em32). ')
6682  endif
6683   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vegfra=initial_data_value
6684 ELSE
6685 ALLOCATE(grid%xb%vegfra(1,1),STAT=ierr)
6686  if (ierr.ne.0) then
6687  CALL wrf_error_fatal ( &
6688 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(1,1).  ')
6689  endif
6690 ENDIF
6691 IF(.NOT.inter_domain)THEN
6692 ALLOCATE(grid%xb%snowh(sm31:em31,sm32:em32),STAT=ierr)
6693  if (ierr.ne.0) then
6694  CALL wrf_error_fatal ( &
6695 'frame/module_domain.f: Failed to allocate grid%xb%snowh(sm31:em31,sm32:em32). ')
6696  endif
6697   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snowh=initial_data_value
6698 ELSE
6699 ALLOCATE(grid%xb%snowh(1,1),STAT=ierr)
6700  if (ierr.ne.0) then
6701  CALL wrf_error_fatal ( &
6702 'frame/module_domain.f: Failed to allocate grid%xb%snowh(1,1).  ')
6703  endif
6704 ENDIF
6705 IF(.NOT.inter_domain)THEN
6706 ALLOCATE(grid%xb%regime(sm31:em31,sm32:em32),STAT=ierr)
6707  if (ierr.ne.0) then
6708  CALL wrf_error_fatal ( &
6709 'frame/module_domain.f: Failed to allocate grid%xb%regime(sm31:em31,sm32:em32). ')
6710  endif
6711   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%regime=initial_data_value
6712 ELSE
6713 ALLOCATE(grid%xb%regime(1,1),STAT=ierr)
6714  if (ierr.ne.0) then
6715  CALL wrf_error_fatal ( &
6716 'frame/module_domain.f: Failed to allocate grid%xb%regime(1,1).  ')
6717  endif
6718 ENDIF
6719 IF(.NOT.inter_domain)THEN
6720 ALLOCATE(grid%xb%znu(sm33:em33),STAT=ierr)
6721  if (ierr.ne.0) then
6722  CALL wrf_error_fatal ( &
6723 'frame/module_domain.f: Failed to allocate grid%xb%znu(sm33:em33). ')
6724  endif
6725   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znu=initial_data_value
6726 ELSE
6727 ALLOCATE(grid%xb%znu(1),STAT=ierr)
6728  if (ierr.ne.0) then
6729  CALL wrf_error_fatal ( &
6730 'frame/module_domain.f: Failed to allocate grid%xb%znu(1).  ')
6731  endif
6732 ENDIF
6733 IF(.NOT.inter_domain)THEN
6734 ALLOCATE(grid%xb%znw(sm33:em33),STAT=ierr)
6735  if (ierr.ne.0) then
6736  CALL wrf_error_fatal ( &
6737 'frame/module_domain.f: Failed to allocate grid%xb%znw(sm33:em33). ')
6738  endif
6739   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znw=initial_data_value
6740 ELSE
6741 ALLOCATE(grid%xb%znw(1),STAT=ierr)
6742  if (ierr.ne.0) then
6743  CALL wrf_error_fatal ( &
6744 'frame/module_domain.f: Failed to allocate grid%xb%znw(1).  ')
6745  endif
6746 ENDIF
6747 IF(.NOT.inter_domain)THEN
6748 ALLOCATE(grid%xb%dn(sm33:em33),STAT=ierr)
6749  if (ierr.ne.0) then
6750  CALL wrf_error_fatal ( &
6751 'frame/module_domain.f: Failed to allocate grid%xb%dn(sm33:em33). ')
6752  endif
6753   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dn=initial_data_value
6754 ELSE
6755 ALLOCATE(grid%xb%dn(1),STAT=ierr)
6756  if (ierr.ne.0) then
6757  CALL wrf_error_fatal ( &
6758 'frame/module_domain.f: Failed to allocate grid%xb%dn(1).  ')
6759  endif
6760 ENDIF
6761 IF(.NOT.inter_domain)THEN
6762 ALLOCATE(grid%xb%dnw(sm33:em33),STAT=ierr)
6763  if (ierr.ne.0) then
6764  CALL wrf_error_fatal ( &
6765 'frame/module_domain.f: Failed to allocate grid%xb%dnw(sm33:em33). ')
6766  endif
6767   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dnw=initial_data_value
6768 ELSE
6769 ALLOCATE(grid%xb%dnw(1),STAT=ierr)
6770  if (ierr.ne.0) then
6771  CALL wrf_error_fatal ( &
6772 'frame/module_domain.f: Failed to allocate grid%xb%dnw(1).  ')
6773  endif
6774 ENDIF
6775 IF(.NOT.inter_domain)THEN
6776 ALLOCATE(grid%xb%sigmah(sm33:em33),STAT=ierr)
6777  if (ierr.ne.0) then
6778  CALL wrf_error_fatal ( &
6779 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(sm33:em33). ')
6780  endif
6781   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmah=initial_data_value
6782 ELSE
6783 ALLOCATE(grid%xb%sigmah(1),STAT=ierr)
6784  if (ierr.ne.0) then
6785  CALL wrf_error_fatal ( &
6786 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(1).  ')
6787  endif
6788 ENDIF
6789 IF(.NOT.inter_domain)THEN
6790 ALLOCATE(grid%xb%sigmaf(sm33:em33),STAT=ierr)
6791  if (ierr.ne.0) then
6792  CALL wrf_error_fatal ( &
6793 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(sm33:em33). ')
6794  endif
6795   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmaf=initial_data_value
6796 ELSE
6797 ALLOCATE(grid%xb%sigmaf(1),STAT=ierr)
6798  if (ierr.ne.0) then
6799  CALL wrf_error_fatal ( &
6800 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(1).  ')
6801  endif
6802 ENDIF
6803 IF(.NOT.inter_domain)THEN
6804 ALLOCATE(grid%xb%coefx(sm31:em31,sm32:em32),STAT=ierr)
6805  if (ierr.ne.0) then
6806  CALL wrf_error_fatal ( &
6807 'frame/module_domain.f: Failed to allocate grid%xb%coefx(sm31:em31,sm32:em32). ')
6808  endif
6809   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefx=initial_data_value
6810 ELSE
6811 ALLOCATE(grid%xb%coefx(1,1),STAT=ierr)
6812  if (ierr.ne.0) then
6813  CALL wrf_error_fatal ( &
6814 'frame/module_domain.f: Failed to allocate grid%xb%coefx(1,1).  ')
6815  endif
6816 ENDIF
6817 IF(.NOT.inter_domain)THEN
6818 ALLOCATE(grid%xb%coefy(sm31:em31,sm32:em32),STAT=ierr)
6819  if (ierr.ne.0) then
6820  CALL wrf_error_fatal ( &
6821 'frame/module_domain.f: Failed to allocate grid%xb%coefy(sm31:em31,sm32:em32). ')
6822  endif
6823   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefy=initial_data_value
6824 ELSE
6825 ALLOCATE(grid%xb%coefy(1,1),STAT=ierr)
6826  if (ierr.ne.0) then
6827  CALL wrf_error_fatal ( &
6828 'frame/module_domain.f: Failed to allocate grid%xb%coefy(1,1).  ')
6829  endif
6830 ENDIF
6831 IF(.NOT.inter_domain)THEN
6832 ALLOCATE(grid%xb%coefz(sm31:em31,sm32:em32),STAT=ierr)
6833  if (ierr.ne.0) then
6834  CALL wrf_error_fatal ( &
6835 'frame/module_domain.f: Failed to allocate grid%xb%coefz(sm31:em31,sm32:em32). ')
6836  endif
6837   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefz=initial_data_value
6838 ELSE
6839 ALLOCATE(grid%xb%coefz(1,1),STAT=ierr)
6840  if (ierr.ne.0) then
6841  CALL wrf_error_fatal ( &
6842 'frame/module_domain.f: Failed to allocate grid%xb%coefz(1,1).  ')
6843  endif
6844 ENDIF
6845 IF(.NOT.inter_domain)THEN
6846 ALLOCATE(grid%xb%kma_a(sm33:em33),STAT=ierr)
6847  if (ierr.ne.0) then
6848  CALL wrf_error_fatal ( &
6849 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(sm33:em33). ')
6850  endif
6851   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_a=initial_data_value
6852 ELSE
6853 ALLOCATE(grid%xb%kma_a(1),STAT=ierr)
6854  if (ierr.ne.0) then
6855  CALL wrf_error_fatal ( &
6856 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(1).  ')
6857  endif
6858 ENDIF
6859 IF(.NOT.inter_domain)THEN
6860 ALLOCATE(grid%xb%kma_b(sm33:em33),STAT=ierr)
6861  if (ierr.ne.0) then
6862  CALL wrf_error_fatal ( &
6863 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(sm33:em33). ')
6864  endif
6865   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_b=initial_data_value
6866 ELSE
6867 ALLOCATE(grid%xb%kma_b(1),STAT=ierr)
6868  if (ierr.ne.0) then
6869  CALL wrf_error_fatal ( &
6870 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(1).  ')
6871  endif
6872 ENDIF
6873 IF(.NOT.inter_domain)THEN
6874 ALLOCATE(grid%xa%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6875  if (ierr.ne.0) then
6876  CALL wrf_error_fatal ( &
6877 'frame/module_domain.f: Failed to allocate grid%xa%u(sm31:em31,sm32:em32,sm33:em33). ')
6878  endif
6879   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u=initial_data_value
6880 ELSE
6881 ALLOCATE(grid%xa%u(1,1,1),STAT=ierr)
6882  if (ierr.ne.0) then
6883  CALL wrf_error_fatal ( &
6884 'frame/module_domain.f: Failed to allocate grid%xa%u(1,1,1).  ')
6885  endif
6886 ENDIF
6887 IF(.NOT.inter_domain)THEN
6888 ALLOCATE(grid%xa%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6889  if (ierr.ne.0) then
6890  CALL wrf_error_fatal ( &
6891 'frame/module_domain.f: Failed to allocate grid%xa%v(sm31:em31,sm32:em32,sm33:em33). ')
6892  endif
6893   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v=initial_data_value
6894 ELSE
6895 ALLOCATE(grid%xa%v(1,1,1),STAT=ierr)
6896  if (ierr.ne.0) then
6897  CALL wrf_error_fatal ( &
6898 'frame/module_domain.f: Failed to allocate grid%xa%v(1,1,1).  ')
6899  endif
6900 ENDIF
6901 IF(.NOT.inter_domain)THEN
6902 ALLOCATE(grid%xa%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6903  if (ierr.ne.0) then
6904  CALL wrf_error_fatal ( &
6905 'frame/module_domain.f: Failed to allocate grid%xa%w(sm31:em31,sm32:em32,sm33:em33). ')
6906  endif
6907   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%w=initial_data_value
6908 ELSE
6909 ALLOCATE(grid%xa%w(1,1,1),STAT=ierr)
6910  if (ierr.ne.0) then
6911  CALL wrf_error_fatal ( &
6912 'frame/module_domain.f: Failed to allocate grid%xa%w(1,1,1).  ')
6913  endif
6914 ENDIF
6915 IF(.NOT.inter_domain)THEN
6916 ALLOCATE(grid%xa%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6917  if (ierr.ne.0) then
6918  CALL wrf_error_fatal ( &
6919 'frame/module_domain.f: Failed to allocate grid%xa%t(sm31:em31,sm32:em32,sm33:em33). ')
6920  endif
6921   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t=initial_data_value
6922 ELSE
6923 ALLOCATE(grid%xa%t(1,1,1),STAT=ierr)
6924  if (ierr.ne.0) then
6925  CALL wrf_error_fatal ( &
6926 'frame/module_domain.f: Failed to allocate grid%xa%t(1,1,1).  ')
6927  endif
6928 ENDIF
6929 IF(.NOT.inter_domain)THEN
6930 ALLOCATE(grid%xa%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6931  if (ierr.ne.0) then
6932  CALL wrf_error_fatal ( &
6933 'frame/module_domain.f: Failed to allocate grid%xa%q(sm31:em31,sm32:em32,sm33:em33). ')
6934  endif
6935   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q=initial_data_value
6936 ELSE
6937 ALLOCATE(grid%xa%q(1,1,1),STAT=ierr)
6938  if (ierr.ne.0) then
6939  CALL wrf_error_fatal ( &
6940 'frame/module_domain.f: Failed to allocate grid%xa%q(1,1,1).  ')
6941  endif
6942 ENDIF
6943 IF(.NOT.inter_domain)THEN
6944 ALLOCATE(grid%xa%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6945  if (ierr.ne.0) then
6946  CALL wrf_error_fatal ( &
6947 'frame/module_domain.f: Failed to allocate grid%xa%p(sm31:em31,sm32:em32,sm33:em33). ')
6948  endif
6949   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%p=initial_data_value
6950 ELSE
6951 ALLOCATE(grid%xa%p(1,1,1),STAT=ierr)
6952  if (ierr.ne.0) then
6953  CALL wrf_error_fatal ( &
6954 'frame/module_domain.f: Failed to allocate grid%xa%p(1,1,1).  ')
6955  endif
6956 ENDIF
6957 IF(.NOT.inter_domain)THEN
6958 ALLOCATE(grid%xa%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6959  if (ierr.ne.0) then
6960  CALL wrf_error_fatal ( &
6961 'frame/module_domain.f: Failed to allocate grid%xa%rh(sm31:em31,sm32:em32,sm33:em33). ')
6962  endif
6963   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rh=initial_data_value
6964 ELSE
6965 ALLOCATE(grid%xa%rh(1,1,1),STAT=ierr)
6966  if (ierr.ne.0) then
6967  CALL wrf_error_fatal ( &
6968 'frame/module_domain.f: Failed to allocate grid%xa%rh(1,1,1).  ')
6969  endif
6970 ENDIF
6971 IF(.NOT.inter_domain)THEN
6972 ALLOCATE(grid%xa%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6973  if (ierr.ne.0) then
6974  CALL wrf_error_fatal ( &
6975 'frame/module_domain.f: Failed to allocate grid%xa%rho(sm31:em31,sm32:em32,sm33:em33). ')
6976  endif
6977   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rho=initial_data_value
6978 ELSE
6979 ALLOCATE(grid%xa%rho(1,1,1),STAT=ierr)
6980  if (ierr.ne.0) then
6981  CALL wrf_error_fatal ( &
6982 'frame/module_domain.f: Failed to allocate grid%xa%rho(1,1,1).  ')
6983  endif
6984 ENDIF
6985 IF(.NOT.inter_domain)THEN
6986 ALLOCATE(grid%xa%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
6987  if (ierr.ne.0) then
6988  CALL wrf_error_fatal ( &
6989 'frame/module_domain.f: Failed to allocate grid%xa%wh(sm31:em31,sm32:em32,sm33:em33). ')
6990  endif
6991   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%wh=initial_data_value
6992 ELSE
6993 ALLOCATE(grid%xa%wh(1,1,1),STAT=ierr)
6994  if (ierr.ne.0) then
6995  CALL wrf_error_fatal ( &
6996 'frame/module_domain.f: Failed to allocate grid%xa%wh(1,1,1).  ')
6997  endif
6998 ENDIF
6999 IF(.NOT.inter_domain)THEN
7000 ALLOCATE(grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7001  if (ierr.ne.0) then
7002  CALL wrf_error_fatal ( &
7003 'frame/module_domain.f: Failed to allocate grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33). ')
7004  endif
7005   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qrn=initial_data_value
7006 ELSE
7007 ALLOCATE(grid%xa%qrn(1,1,1),STAT=ierr)
7008  if (ierr.ne.0) then
7009  CALL wrf_error_fatal ( &
7010 'frame/module_domain.f: Failed to allocate grid%xa%qrn(1,1,1).  ')
7011  endif
7012 ENDIF
7013 IF(.NOT.inter_domain)THEN
7014 ALLOCATE(grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7015  if (ierr.ne.0) then
7016  CALL wrf_error_fatal ( &
7017 'frame/module_domain.f: Failed to allocate grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33). ')
7018  endif
7019   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qcw=initial_data_value
7020 ELSE
7021 ALLOCATE(grid%xa%qcw(1,1,1),STAT=ierr)
7022  if (ierr.ne.0) then
7023  CALL wrf_error_fatal ( &
7024 'frame/module_domain.f: Failed to allocate grid%xa%qcw(1,1,1).  ')
7025  endif
7026 ENDIF
7027 IF(.NOT.inter_domain)THEN
7028 ALLOCATE(grid%xa%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7029  if (ierr.ne.0) then
7030  CALL wrf_error_fatal ( &
7031 'frame/module_domain.f: Failed to allocate grid%xa%qci(sm31:em31,sm32:em32,sm33:em33). ')
7032  endif
7033   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qci=initial_data_value
7034 ELSE
7035 ALLOCATE(grid%xa%qci(1,1,1),STAT=ierr)
7036  if (ierr.ne.0) then
7037  CALL wrf_error_fatal ( &
7038 'frame/module_domain.f: Failed to allocate grid%xa%qci(1,1,1).  ')
7039  endif
7040 ENDIF
7041 IF(.NOT.inter_domain)THEN
7042 ALLOCATE(grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7043  if (ierr.ne.0) then
7044  CALL wrf_error_fatal ( &
7045 'frame/module_domain.f: Failed to allocate grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33). ')
7046  endif
7047   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qsn=initial_data_value
7048 ELSE
7049 ALLOCATE(grid%xa%qsn(1,1,1),STAT=ierr)
7050  if (ierr.ne.0) then
7051  CALL wrf_error_fatal ( &
7052 'frame/module_domain.f: Failed to allocate grid%xa%qsn(1,1,1).  ')
7053  endif
7054 ENDIF
7055 IF(.NOT.inter_domain)THEN
7056 ALLOCATE(grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7057  if (ierr.ne.0) then
7058  CALL wrf_error_fatal ( &
7059 'frame/module_domain.f: Failed to allocate grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33). ')
7060  endif
7061   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qgr=initial_data_value
7062 ELSE
7063 ALLOCATE(grid%xa%qgr(1,1,1),STAT=ierr)
7064  if (ierr.ne.0) then
7065  CALL wrf_error_fatal ( &
7066 'frame/module_domain.f: Failed to allocate grid%xa%qgr(1,1,1).  ')
7067  endif
7068 ENDIF
7069 IF(.NOT.inter_domain)THEN
7070 ALLOCATE(grid%xa%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7071  if (ierr.ne.0) then
7072  CALL wrf_error_fatal ( &
7073 'frame/module_domain.f: Failed to allocate grid%xa%qt(sm31:em31,sm32:em32,sm33:em33). ')
7074  endif
7075   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qt=initial_data_value
7076 ELSE
7077 ALLOCATE(grid%xa%qt(1,1,1),STAT=ierr)
7078  if (ierr.ne.0) then
7079  CALL wrf_error_fatal ( &
7080 'frame/module_domain.f: Failed to allocate grid%xa%qt(1,1,1).  ')
7081  endif
7082 ENDIF
7083 IF(.NOT.inter_domain)THEN
7084 ALLOCATE(grid%xa%tgrn(sm31:em31,sm32:em32),STAT=ierr)
7085  if (ierr.ne.0) then
7086  CALL wrf_error_fatal ( &
7087 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(sm31:em31,sm32:em32). ')
7088  endif
7089   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tgrn=initial_data_value
7090 ELSE
7091 ALLOCATE(grid%xa%tgrn(1,1),STAT=ierr)
7092  if (ierr.ne.0) then
7093  CALL wrf_error_fatal ( &
7094 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(1,1).  ')
7095  endif
7096 ENDIF
7097 IF(.NOT.inter_domain)THEN
7098 ALLOCATE(grid%xa%psfc(sm31:em31,sm32:em32),STAT=ierr)
7099  if (ierr.ne.0) then
7100  CALL wrf_error_fatal ( &
7101 'frame/module_domain.f: Failed to allocate grid%xa%psfc(sm31:em31,sm32:em32). ')
7102  endif
7103   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%psfc=initial_data_value
7104 ELSE
7105 ALLOCATE(grid%xa%psfc(1,1),STAT=ierr)
7106  if (ierr.ne.0) then
7107  CALL wrf_error_fatal ( &
7108 'frame/module_domain.f: Failed to allocate grid%xa%psfc(1,1).  ')
7109  endif
7110 ENDIF
7111 IF(.NOT.inter_domain)THEN
7112 ALLOCATE(grid%xa%u10(sm31:em31,sm32:em32),STAT=ierr)
7113  if (ierr.ne.0) then
7114  CALL wrf_error_fatal ( &
7115 'frame/module_domain.f: Failed to allocate grid%xa%u10(sm31:em31,sm32:em32). ')
7116  endif
7117   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u10=initial_data_value
7118 ELSE
7119 ALLOCATE(grid%xa%u10(1,1),STAT=ierr)
7120  if (ierr.ne.0) then
7121  CALL wrf_error_fatal ( &
7122 'frame/module_domain.f: Failed to allocate grid%xa%u10(1,1).  ')
7123  endif
7124 ENDIF
7125 IF(.NOT.inter_domain)THEN
7126 ALLOCATE(grid%xa%v10(sm31:em31,sm32:em32),STAT=ierr)
7127  if (ierr.ne.0) then
7128  CALL wrf_error_fatal ( &
7129 'frame/module_domain.f: Failed to allocate grid%xa%v10(sm31:em31,sm32:em32). ')
7130  endif
7131   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v10=initial_data_value
7132 ELSE
7133 ALLOCATE(grid%xa%v10(1,1),STAT=ierr)
7134  if (ierr.ne.0) then
7135  CALL wrf_error_fatal ( &
7136 'frame/module_domain.f: Failed to allocate grid%xa%v10(1,1).  ')
7137  endif
7138 ENDIF
7139 IF(.NOT.inter_domain)THEN
7140 ALLOCATE(grid%xa%t2(sm31:em31,sm32:em32),STAT=ierr)
7141  if (ierr.ne.0) then
7142  CALL wrf_error_fatal ( &
7143 'frame/module_domain.f: Failed to allocate grid%xa%t2(sm31:em31,sm32:em32). ')
7144  endif
7145   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t2=initial_data_value
7146 ELSE
7147 ALLOCATE(grid%xa%t2(1,1),STAT=ierr)
7148  if (ierr.ne.0) then
7149  CALL wrf_error_fatal ( &
7150 'frame/module_domain.f: Failed to allocate grid%xa%t2(1,1).  ')
7151  endif
7152 ENDIF
7153 IF(.NOT.inter_domain)THEN
7154 ALLOCATE(grid%xa%q2(sm31:em31,sm32:em32),STAT=ierr)
7155  if (ierr.ne.0) then
7156  CALL wrf_error_fatal ( &
7157 'frame/module_domain.f: Failed to allocate grid%xa%q2(sm31:em31,sm32:em32). ')
7158  endif
7159   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q2=initial_data_value
7160 ELSE
7161 ALLOCATE(grid%xa%q2(1,1),STAT=ierr)
7162  if (ierr.ne.0) then
7163  CALL wrf_error_fatal ( &
7164 'frame/module_domain.f: Failed to allocate grid%xa%q2(1,1).  ')
7165  endif
7166 ENDIF
7167 IF(.NOT.inter_domain)THEN
7168 ALLOCATE(grid%xa%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7169  if (ierr.ne.0) then
7170  CALL wrf_error_fatal ( &
7171 'frame/module_domain.f: Failed to allocate grid%xa%ref(sm31:em31,sm32:em32,sm33:em33). ')
7172  endif
7173   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%ref=initial_data_value
7174 ELSE
7175 ALLOCATE(grid%xa%ref(1,1,1),STAT=ierr)
7176  if (ierr.ne.0) then
7177  CALL wrf_error_fatal ( &
7178 'frame/module_domain.f: Failed to allocate grid%xa%ref(1,1,1).  ')
7179  endif
7180 ENDIF
7181 IF(.NOT.inter_domain)THEN
7182 ALLOCATE(grid%xa%tpw(sm31:em31,sm32:em32),STAT=ierr)
7183  if (ierr.ne.0) then
7184  CALL wrf_error_fatal ( &
7185 'frame/module_domain.f: Failed to allocate grid%xa%tpw(sm31:em31,sm32:em32). ')
7186  endif
7187   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tpw=initial_data_value
7188 ELSE
7189 ALLOCATE(grid%xa%tpw(1,1),STAT=ierr)
7190  if (ierr.ne.0) then
7191  CALL wrf_error_fatal ( &
7192 'frame/module_domain.f: Failed to allocate grid%xa%tpw(1,1).  ')
7193  endif
7194 ENDIF
7195 IF(.NOT.inter_domain)THEN
7196 ALLOCATE(grid%xa%speed(sm31:em31,sm32:em32),STAT=ierr)
7197  if (ierr.ne.0) then
7198  CALL wrf_error_fatal ( &
7199 'frame/module_domain.f: Failed to allocate grid%xa%speed(sm31:em31,sm32:em32). ')
7200  endif
7201   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%speed=initial_data_value
7202 ELSE
7203 ALLOCATE(grid%xa%speed(1,1),STAT=ierr)
7204  if (ierr.ne.0) then
7205  CALL wrf_error_fatal ( &
7206 'frame/module_domain.f: Failed to allocate grid%xa%speed(1,1).  ')
7207  endif
7208 ENDIF
7209 IF(.NOT.inter_domain)THEN
7210 ALLOCATE(grid%xa%tb19v(sm31:em31,sm32:em32),STAT=ierr)
7211  if (ierr.ne.0) then
7212  CALL wrf_error_fatal ( &
7213 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(sm31:em31,sm32:em32). ')
7214  endif
7215   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19v=initial_data_value
7216 ELSE
7217 ALLOCATE(grid%xa%tb19v(1,1),STAT=ierr)
7218  if (ierr.ne.0) then
7219  CALL wrf_error_fatal ( &
7220 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(1,1).  ')
7221  endif
7222 ENDIF
7223 IF(.NOT.inter_domain)THEN
7224 ALLOCATE(grid%xa%tb19h(sm31:em31,sm32:em32),STAT=ierr)
7225  if (ierr.ne.0) then
7226  CALL wrf_error_fatal ( &
7227 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(sm31:em31,sm32:em32). ')
7228  endif
7229   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19h=initial_data_value
7230 ELSE
7231 ALLOCATE(grid%xa%tb19h(1,1),STAT=ierr)
7232  if (ierr.ne.0) then
7233  CALL wrf_error_fatal ( &
7234 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(1,1).  ')
7235  endif
7236 ENDIF
7237 IF(.NOT.inter_domain)THEN
7238 ALLOCATE(grid%xa%tb22v(sm31:em31,sm32:em32),STAT=ierr)
7239  if (ierr.ne.0) then
7240  CALL wrf_error_fatal ( &
7241 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(sm31:em31,sm32:em32). ')
7242  endif
7243   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb22v=initial_data_value
7244 ELSE
7245 ALLOCATE(grid%xa%tb22v(1,1),STAT=ierr)
7246  if (ierr.ne.0) then
7247  CALL wrf_error_fatal ( &
7248 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(1,1).  ')
7249  endif
7250 ENDIF
7251 IF(.NOT.inter_domain)THEN
7252 ALLOCATE(grid%xa%tb37v(sm31:em31,sm32:em32),STAT=ierr)
7253  if (ierr.ne.0) then
7254  CALL wrf_error_fatal ( &
7255 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(sm31:em31,sm32:em32). ')
7256  endif
7257   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37v=initial_data_value
7258 ELSE
7259 ALLOCATE(grid%xa%tb37v(1,1),STAT=ierr)
7260  if (ierr.ne.0) then
7261  CALL wrf_error_fatal ( &
7262 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(1,1).  ')
7263  endif
7264 ENDIF
7265 IF(.NOT.inter_domain)THEN
7266 ALLOCATE(grid%xa%tb37h(sm31:em31,sm32:em32),STAT=ierr)
7267  if (ierr.ne.0) then
7268  CALL wrf_error_fatal ( &
7269 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(sm31:em31,sm32:em32). ')
7270  endif
7271   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37h=initial_data_value
7272 ELSE
7273 ALLOCATE(grid%xa%tb37h(1,1),STAT=ierr)
7274  if (ierr.ne.0) then
7275  CALL wrf_error_fatal ( &
7276 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(1,1).  ')
7277  endif
7278 ENDIF
7279 IF(.NOT.inter_domain)THEN
7280 ALLOCATE(grid%xa%tb85v(sm31:em31,sm32:em32),STAT=ierr)
7281  if (ierr.ne.0) then
7282  CALL wrf_error_fatal ( &
7283 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(sm31:em31,sm32:em32). ')
7284  endif
7285   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85v=initial_data_value
7286 ELSE
7287 ALLOCATE(grid%xa%tb85v(1,1),STAT=ierr)
7288  if (ierr.ne.0) then
7289  CALL wrf_error_fatal ( &
7290 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(1,1).  ')
7291  endif
7292 ENDIF
7293 IF(.NOT.inter_domain)THEN
7294 ALLOCATE(grid%xa%tb85h(sm31:em31,sm32:em32),STAT=ierr)
7295  if (ierr.ne.0) then
7296  CALL wrf_error_fatal ( &
7297 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(sm31:em31,sm32:em32). ')
7298  endif
7299   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85h=initial_data_value
7300 ELSE
7301 ALLOCATE(grid%xa%tb85h(1,1),STAT=ierr)
7302  if (ierr.ne.0) then
7303  CALL wrf_error_fatal ( &
7304 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(1,1).  ')
7305  endif
7306 ENDIF
7307 IF ( setinitval .EQ. 3 ) grid%xp%domdesc=0
7308 IF ( setinitval .EQ. 3 ) grid%xp%comms(max_comms)=0
7309 IF ( setinitval .EQ. 3 ) grid%xp%halo_id0=0
7310 IF ( setinitval .EQ. 3 ) grid%xp%halo_id1=0
7311 IF ( setinitval .EQ. 3 ) grid%xp%halo_id2=0
7312 IF ( setinitval .EQ. 3 ) grid%xp%halo_id3=0
7313 IF ( setinitval .EQ. 3 ) grid%xp%halo_id4=0
7314 IF ( setinitval .EQ. 3 ) grid%xp%halo_id5=0
7315 IF ( setinitval .EQ. 3 ) grid%xp%halo_id6=0
7316 IF ( setinitval .EQ. 3 ) grid%xp%halo_id7=0
7317 IF ( setinitval .EQ. 3 ) grid%xp%halo_id8=0
7318 IF ( setinitval .EQ. 3 ) grid%xp%halo_id9=0
7319 IF ( setinitval .EQ. 3 ) grid%xp%halo_id10=0
7320 IF ( setinitval .EQ. 3 ) grid%xp%halo_id11=0
7321 IF ( setinitval .EQ. 3 ) grid%xp%halo_id12=0
7322 IF ( setinitval .EQ. 3 ) grid%xp%halo_id13=0
7323 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id1=0
7324 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id2=0
7325 IF ( setinitval .EQ. 3 ) grid%xp%ids=0
7326 IF ( setinitval .EQ. 3 ) grid%xp%ide=0
7327 IF ( setinitval .EQ. 3 ) grid%xp%jds=0
7328 IF ( setinitval .EQ. 3 ) grid%xp%jde=0
7329 IF ( setinitval .EQ. 3 ) grid%xp%kds=0
7330 IF ( setinitval .EQ. 3 ) grid%xp%kde=0
7331 IF ( setinitval .EQ. 3 ) grid%xp%ims=0
7332 IF ( setinitval .EQ. 3 ) grid%xp%ime=0
7333 IF ( setinitval .EQ. 3 ) grid%xp%jms=0
7334 IF ( setinitval .EQ. 3 ) grid%xp%jme=0
7335 IF ( setinitval .EQ. 3 ) grid%xp%kms=0
7336 IF ( setinitval .EQ. 3 ) grid%xp%kme=0
7337 IF ( setinitval .EQ. 3 ) grid%xp%its=0
7338 IF ( setinitval .EQ. 3 ) grid%xp%ite=0
7339 IF ( setinitval .EQ. 3 ) grid%xp%jts=0
7340 IF ( setinitval .EQ. 3 ) grid%xp%jte=0
7341 IF ( setinitval .EQ. 3 ) grid%xp%kts=0
7342 IF ( setinitval .EQ. 3 ) grid%xp%kte=0
7343 IF ( setinitval .EQ. 3 ) grid%xp%ips=0
7344 IF ( setinitval .EQ. 3 ) grid%xp%ipe=0
7345 IF ( setinitval .EQ. 3 ) grid%xp%jps=0
7346 IF ( setinitval .EQ. 3 ) grid%xp%jpe=0
7347 IF ( setinitval .EQ. 3 ) grid%xp%kps=0
7348 IF ( setinitval .EQ. 3 ) grid%xp%kpe=0
7349 IF ( setinitval .EQ. 3 ) grid%xp%idsx=0
7350 IF ( setinitval .EQ. 3 ) grid%xp%idex=0
7351 IF ( setinitval .EQ. 3 ) grid%xp%jdsx=0
7352 IF ( setinitval .EQ. 3 ) grid%xp%jdex=0
7353 IF ( setinitval .EQ. 3 ) grid%xp%kdsx=0
7354 IF ( setinitval .EQ. 3 ) grid%xp%kdex=0
7355 IF ( setinitval .EQ. 3 ) grid%xp%imsx=0
7356 IF ( setinitval .EQ. 3 ) grid%xp%imex=0
7357 IF ( setinitval .EQ. 3 ) grid%xp%jmsx=0
7358 IF ( setinitval .EQ. 3 ) grid%xp%jmex=0
7359 IF ( setinitval .EQ. 3 ) grid%xp%kmsx=0
7360 IF ( setinitval .EQ. 3 ) grid%xp%kmex=0
7361 IF ( setinitval .EQ. 3 ) grid%xp%itsx=0
7362 IF ( setinitval .EQ. 3 ) grid%xp%itex=0
7363 IF ( setinitval .EQ. 3 ) grid%xp%jtsx=0
7364 IF ( setinitval .EQ. 3 ) grid%xp%jtex=0
7365 IF ( setinitval .EQ. 3 ) grid%xp%ktsx=0
7366 IF ( setinitval .EQ. 3 ) grid%xp%ktex=0
7367 IF ( setinitval .EQ. 3 ) grid%xp%ipsx=0
7368 IF ( setinitval .EQ. 3 ) grid%xp%ipex=0
7369 IF ( setinitval .EQ. 3 ) grid%xp%jpsx=0
7370 IF ( setinitval .EQ. 3 ) grid%xp%jpex=0
7371 IF ( setinitval .EQ. 3 ) grid%xp%kpsx=0
7372 IF ( setinitval .EQ. 3 ) grid%xp%kpex=0
7373 IF ( setinitval .EQ. 3 ) grid%xp%idsy=0
7374 IF ( setinitval .EQ. 3 ) grid%xp%idey=0
7375 IF ( setinitval .EQ. 3 ) grid%xp%jdsy=0
7376 IF ( setinitval .EQ. 3 ) grid%xp%jdey=0
7377 IF ( setinitval .EQ. 3 ) grid%xp%kdsy=0
7378 IF ( setinitval .EQ. 3 ) grid%xp%kdey=0
7379 IF ( setinitval .EQ. 3 ) grid%xp%imsy=0
7380 IF ( setinitval .EQ. 3 ) grid%xp%imey=0
7381 IF ( setinitval .EQ. 3 ) grid%xp%jmsy=0
7382 IF ( setinitval .EQ. 3 ) grid%xp%jmey=0
7383 IF ( setinitval .EQ. 3 ) grid%xp%kmsy=0
7384 IF ( setinitval .EQ. 3 ) grid%xp%kmey=0
7385 IF ( setinitval .EQ. 3 ) grid%xp%itsy=0
7386 IF ( setinitval .EQ. 3 ) grid%xp%itey=0
7387 IF ( setinitval .EQ. 3 ) grid%xp%jtsy=0
7388 IF ( setinitval .EQ. 3 ) grid%xp%jtey=0
7389 IF ( setinitval .EQ. 3 ) grid%xp%ktsy=0
7390 IF ( setinitval .EQ. 3 ) grid%xp%ktey=0
7391 IF ( setinitval .EQ. 3 ) grid%xp%ipsy=0
7392 IF ( setinitval .EQ. 3 ) grid%xp%ipey=0
7393 IF ( setinitval .EQ. 3 ) grid%xp%jpsy=0
7394 IF ( setinitval .EQ. 3 ) grid%xp%jpey=0
7395 IF ( setinitval .EQ. 3 ) grid%xp%kpsy=0
7396 IF ( setinitval .EQ. 3 ) grid%xp%kpey=0
7397 IF(.NOT.inter_domain)THEN
7398 ALLOCATE(grid%xp%vxy(sm31:em31,sm32:em32),STAT=ierr)
7399  if (ierr.ne.0) then
7400  CALL wrf_error_fatal ( &
7401 'frame/module_domain.f: Failed to allocate grid%xp%vxy(sm31:em31,sm32:em32). ')
7402  endif
7403   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%vxy=initial_data_value
7404 ELSE
7405 ALLOCATE(grid%xp%vxy(1,1),STAT=ierr)
7406  if (ierr.ne.0) then
7407  CALL wrf_error_fatal ( &
7408 'frame/module_domain.f: Failed to allocate grid%xp%vxy(1,1).  ')
7409  endif
7410 ENDIF
7411 IF(.NOT.inter_domain)THEN
7412 ALLOCATE(grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7413  if (ierr.ne.0) then
7414  CALL wrf_error_fatal ( &
7415 'frame/module_domain.f: Failed to allocate grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33). ')
7416  endif
7417   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1z=initial_data_value
7418 ELSE
7419 ALLOCATE(grid%xp%v1z(1,1,1),STAT=ierr)
7420  if (ierr.ne.0) then
7421  CALL wrf_error_fatal ( &
7422 'frame/module_domain.f: Failed to allocate grid%xp%v1z(1,1,1).  ')
7423  endif
7424 ENDIF
7425 IF(.NOT.inter_domain)THEN
7426 ALLOCATE(grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
7427  if (ierr.ne.0) then
7428  CALL wrf_error_fatal ( &
7429 'frame/module_domain.f: Failed to allocate grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
7430  endif
7431   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1x=initial_data_value
7432 ELSE
7433 ALLOCATE(grid%xp%v1x(1,1,1),STAT=ierr)
7434  if (ierr.ne.0) then
7435  CALL wrf_error_fatal ( &
7436 'frame/module_domain.f: Failed to allocate grid%xp%v1x(1,1,1).  ')
7437  endif
7438 ENDIF
7439 IF(.NOT.inter_domain)THEN
7440 ALLOCATE(grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
7441  if (ierr.ne.0) then
7442  CALL wrf_error_fatal ( &
7443 'frame/module_domain.f: Failed to allocate grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
7444  endif
7445   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1y=initial_data_value
7446 ELSE
7447 ALLOCATE(grid%xp%v1y(1,1,1),STAT=ierr)
7448  if (ierr.ne.0) then
7449  CALL wrf_error_fatal ( &
7450 'frame/module_domain.f: Failed to allocate grid%xp%v1y(1,1,1).  ')
7451  endif
7452 ENDIF
7453 IF(.NOT.inter_domain)THEN
7454 ALLOCATE(grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
7455  if (ierr.ne.0) then
7456  CALL wrf_error_fatal ( &
7457 'frame/module_domain.f: Failed to allocate grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33). ')
7458  endif
7459   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2z=initial_data_value
7460 ELSE
7461 ALLOCATE(grid%xp%v2z(1,1,1),STAT=ierr)
7462  if (ierr.ne.0) then
7463  CALL wrf_error_fatal ( &
7464 'frame/module_domain.f: Failed to allocate grid%xp%v2z(1,1,1).  ')
7465  endif
7466 ENDIF
7467 IF(.NOT.inter_domain)THEN
7468 ALLOCATE(grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
7469  if (ierr.ne.0) then
7470  CALL wrf_error_fatal ( &
7471 'frame/module_domain.f: Failed to allocate grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
7472  endif
7473   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2x=initial_data_value
7474 ELSE
7475 ALLOCATE(grid%xp%v2x(1,1,1),STAT=ierr)
7476  if (ierr.ne.0) then
7477  CALL wrf_error_fatal ( &
7478 'frame/module_domain.f: Failed to allocate grid%xp%v2x(1,1,1).  ')
7479  endif
7480 ENDIF
7481 IF(.NOT.inter_domain)THEN
7482 ALLOCATE(grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
7483  if (ierr.ne.0) then
7484  CALL wrf_error_fatal ( &
7485 'frame/module_domain.f: Failed to allocate grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
7486  endif
7487   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2y=initial_data_value
7488 ELSE
7489 ALLOCATE(grid%xp%v2y(1,1,1),STAT=ierr)
7490  if (ierr.ne.0) then
7491  CALL wrf_error_fatal ( &
7492 'frame/module_domain.f: Failed to allocate grid%xp%v2y(1,1,1).  ')
7493  endif
7494 ENDIF
7495 IF ( setinitval .EQ. 3 ) grid%fdob%domain_tot=0
7496 IF ( setinitval .EQ. 3 ) grid%fdob%domain_init=0
7497 IF ( setinitval .EQ. 3 ) grid%fdob%ieodi=0
7498 IF ( setinitval .EQ. 3 ) grid%fdob%iwtsig=0
7499 IF ( setinitval .EQ. 3 ) grid%fdob%nstat=0
7500 IF ( setinitval .EQ. 3 ) grid%fdob%ktaur=0
7501 IF ( setinitval .EQ. 3 ) grid%fdob%sn_maxcg=0
7502 IF ( setinitval .EQ. 3 ) grid%fdob%we_maxcg=0
7503 IF ( setinitval .EQ. 3 ) grid%fdob%sn_end=0
7504 IF ( setinitval .EQ. 3 ) grid%fdob%levidn(max_domains)=0
7505 IF ( setinitval .EQ. 3 ) grid%fdob%ds_cg=initial_data_value
7506 IF ( setinitval .EQ. 3 ) grid%fdob%window=initial_data_value
7507 IF ( setinitval .EQ. 3 ) grid%fdob%rtlast=initial_data_value
7508 IF ( setinitval .EQ. 3 ) grid%fdob%datend=initial_data_value
7509 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmn=initial_data_value
7510 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmx=initial_data_value
7511 IF ( setinitval .EQ. 3 ) grid%fdob%pfree=initial_data_value
7512 IF ( setinitval .EQ. 3 ) grid%fdob%dcon=initial_data_value
7513 IF ( setinitval .EQ. 3 ) grid%fdob%dpsmx=initial_data_value
7514 IF ( setinitval .EQ. 3 ) grid%fdob%tfaci=initial_data_value
7515 IF ( setinitval .EQ. 3 ) grid%fdob%xn=initial_data_value
7516 IF(.NOT.inter_domain)THEN
7517 ALLOCATE(grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs),STAT=ierr)
7518  if (ierr.ne.0) then
7519  CALL wrf_error_fatal ( &
7520 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs). ')
7521  endif
7522   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%varobs=initial_data_value
7523 ELSE
7524 ALLOCATE(grid%fdob%varobs(1,1),STAT=ierr)
7525  if (ierr.ne.0) then
7526  CALL wrf_error_fatal ( &
7527 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1,1).  ')
7528  endif
7529 ENDIF
7530 IF(.NOT.inter_domain)THEN
7531 ALLOCATE(grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs),STAT=ierr)
7532  if (ierr.ne.0) then
7533  CALL wrf_error_fatal ( &
7534 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs). ')
7535  endif
7536   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%errf=initial_data_value
7537 ELSE
7538 ALLOCATE(grid%fdob%errf(1,1),STAT=ierr)
7539  if (ierr.ne.0) then
7540  CALL wrf_error_fatal ( &
7541 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1,1).  ')
7542  endif
7543 ENDIF
7544 IF(.NOT.inter_domain)THEN
7545 ALLOCATE(grid%fdob%timeob(1:model_config_rec%max_obs),STAT=ierr)
7546  if (ierr.ne.0) then
7547  CALL wrf_error_fatal ( &
7548 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1:model_config_rec%max_obs). ')
7549  endif
7550   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%timeob=initial_data_value
7551 ELSE
7552 ALLOCATE(grid%fdob%timeob(1),STAT=ierr)
7553  if (ierr.ne.0) then
7554  CALL wrf_error_fatal ( &
7555 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1).  ')
7556  endif
7557 ENDIF
7558 IF(.NOT.inter_domain)THEN
7559 ALLOCATE(grid%fdob%nlevs_ob(1:model_config_rec%max_obs),STAT=ierr)
7560  if (ierr.ne.0) then
7561  CALL wrf_error_fatal ( &
7562 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1:model_config_rec%max_obs). ')
7563  endif
7564   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%nlevs_ob=initial_data_value
7565 ELSE
7566 ALLOCATE(grid%fdob%nlevs_ob(1),STAT=ierr)
7567  if (ierr.ne.0) then
7568  CALL wrf_error_fatal ( &
7569 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1).  ')
7570  endif
7571 ENDIF
7572 IF(.NOT.inter_domain)THEN
7573 ALLOCATE(grid%fdob%lev_in_ob(1:model_config_rec%max_obs),STAT=ierr)
7574  if (ierr.ne.0) then
7575  CALL wrf_error_fatal ( &
7576 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1:model_config_rec%max_obs). ')
7577  endif
7578   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%lev_in_ob=initial_data_value
7579 ELSE
7580 ALLOCATE(grid%fdob%lev_in_ob(1),STAT=ierr)
7581  if (ierr.ne.0) then
7582  CALL wrf_error_fatal ( &
7583 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1).  ')
7584  endif
7585 ENDIF
7586 IF(.NOT.inter_domain)THEN
7587 ALLOCATE(grid%fdob%plfo(1:model_config_rec%max_obs),STAT=ierr)
7588  if (ierr.ne.0) then
7589  CALL wrf_error_fatal ( &
7590 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1:model_config_rec%max_obs). ')
7591  endif
7592   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%plfo=initial_data_value
7593 ELSE
7594 ALLOCATE(grid%fdob%plfo(1),STAT=ierr)
7595  if (ierr.ne.0) then
7596  CALL wrf_error_fatal ( &
7597 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1).  ')
7598  endif
7599 ENDIF
7600 IF(.NOT.inter_domain)THEN
7601 ALLOCATE(grid%fdob%elevob(1:model_config_rec%max_obs),STAT=ierr)
7602  if (ierr.ne.0) then
7603  CALL wrf_error_fatal ( &
7604 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1:model_config_rec%max_obs). ')
7605  endif
7606   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%elevob=initial_data_value
7607 ELSE
7608 ALLOCATE(grid%fdob%elevob(1),STAT=ierr)
7609  if (ierr.ne.0) then
7610  CALL wrf_error_fatal ( &
7611 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1).  ')
7612  endif
7613 ENDIF
7614 IF(.NOT.inter_domain)THEN
7615 ALLOCATE(grid%fdob%rio(1:model_config_rec%max_obs),STAT=ierr)
7616  if (ierr.ne.0) then
7617  CALL wrf_error_fatal ( &
7618 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1:model_config_rec%max_obs). ')
7619  endif
7620   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rio=initial_data_value
7621 ELSE
7622 ALLOCATE(grid%fdob%rio(1),STAT=ierr)
7623  if (ierr.ne.0) then
7624  CALL wrf_error_fatal ( &
7625 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1).  ')
7626  endif
7627 ENDIF
7628 IF(.NOT.inter_domain)THEN
7629 ALLOCATE(grid%fdob%rjo(1:model_config_rec%max_obs),STAT=ierr)
7630  if (ierr.ne.0) then
7631  CALL wrf_error_fatal ( &
7632 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1:model_config_rec%max_obs). ')
7633  endif
7634   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rjo=initial_data_value
7635 ELSE
7636 ALLOCATE(grid%fdob%rjo(1),STAT=ierr)
7637  if (ierr.ne.0) then
7638  CALL wrf_error_fatal ( &
7639 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1).  ')
7640  endif
7641 ENDIF
7642 IF(.NOT.inter_domain)THEN
7643 ALLOCATE(grid%fdob%rko(1:model_config_rec%max_obs),STAT=ierr)
7644  if (ierr.ne.0) then
7645  CALL wrf_error_fatal ( &
7646 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1:model_config_rec%max_obs). ')
7647  endif
7648   IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rko=initial_data_value
7649 ELSE
7650 ALLOCATE(grid%fdob%rko(1),STAT=ierr)
7651  if (ierr.ne.0) then
7652  CALL wrf_error_fatal ( &
7653 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1).  ')
7654  endif
7655 ENDIF
7656 !ENDOFREGISTRYGENERATEDINCLUDE