nodyn_allocs.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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 ALLOCATE(grid%nest_pos(sm31:em31,sm32:em32),STAT=ierr)
28 if (ierr.ne.0) then
29 CALL wrf_error_fatal ( &
30 'frame/module_domain.f: Failed to allocate grid%nest_pos(sm31:em31,sm32:em32). ')
31 endif
32 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_pos=initial_data_value
33 ALLOCATE(grid%nest_mask(sm31:em31,sm32:em32),STAT=ierr)
34 if (ierr.ne.0) then
35 CALL wrf_error_fatal ( &
36 'frame/module_domain.f: Failed to allocate grid%nest_mask(sm31:em31,sm32:em32). ')
37 endif
38 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_mask=initial_data_value
39 IF(.NOT.inter_domain)THEN
40 ALLOCATE(grid%ht_coarse(sm31:em31,sm32:em32),STAT=ierr)
41 if (ierr.ne.0) then
42 CALL wrf_error_fatal ( &
43 'frame/module_domain.f: Failed to allocate grid%ht_coarse(sm31:em31,sm32:em32). ')
44 endif
45 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_coarse=initial_data_value
46 ELSE
47 ALLOCATE(grid%ht_coarse(1,1),STAT=ierr)
48 if (ierr.ne.0) then
49 CALL wrf_error_fatal ( &
50 'frame/module_domain.f: Failed to allocate grid%ht_coarse(1,1). ')
51 endif
52 ENDIF
53 IF ( setinitval .EQ. 3 ) grid%cfn=initial_data_value
54 IF ( setinitval .EQ. 3 ) grid%cfn1=initial_data_value
55 IF ( setinitval .EQ. 3 ) grid%step_number=0
56 IF(.NOT.inter_domain)THEN
57 ALLOCATE(grid%kma_a(sm33:em33),STAT=ierr)
58 if (ierr.ne.0) then
59 CALL wrf_error_fatal ( &
60 'frame/module_domain.f: Failed to allocate grid%kma_a(sm33:em33). ')
61 endif
62 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_a=initial_data_value
63 ELSE
64 ALLOCATE(grid%kma_a(1),STAT=ierr)
65 if (ierr.ne.0) then
66 CALL wrf_error_fatal ( &
67 'frame/module_domain.f: Failed to allocate grid%kma_a(1). ')
68 endif
69 ENDIF
70 IF(.NOT.inter_domain)THEN
71 ALLOCATE(grid%kma_b(sm33:em33),STAT=ierr)
72 if (ierr.ne.0) then
73 CALL wrf_error_fatal ( &
74 'frame/module_domain.f: Failed to allocate grid%kma_b(sm33:em33). ')
75 endif
76 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kma_b=initial_data_value
77 ELSE
78 ALLOCATE(grid%kma_b(1),STAT=ierr)
79 if (ierr.ne.0) then
80 CALL wrf_error_fatal ( &
81 'frame/module_domain.f: Failed to allocate grid%kma_b(1). ')
82 endif
83 ENDIF
84 IF(.NOT.inter_domain)THEN
85 ALLOCATE(grid%q2(sm31:em31,sm32:em32),STAT=ierr)
86 if (ierr.ne.0) then
87 CALL wrf_error_fatal ( &
88 'frame/module_domain.f: Failed to allocate grid%q2(sm31:em31,sm32:em32). ')
89 endif
90 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2=initial_data_value
91 ELSE
92 ALLOCATE(grid%q2(1,1),STAT=ierr)
93 if (ierr.ne.0) then
94 CALL wrf_error_fatal ( &
95 'frame/module_domain.f: Failed to allocate grid%q2(1,1). ')
96 endif
97 ENDIF
98 IF(.NOT.inter_domain)THEN
99 ALLOCATE(grid%t2(sm31:em31,sm32:em32),STAT=ierr)
100 if (ierr.ne.0) then
101 CALL wrf_error_fatal ( &
102 'frame/module_domain.f: Failed to allocate grid%t2(sm31:em31,sm32:em32). ')
103 endif
104 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t2=initial_data_value
105 ELSE
106 ALLOCATE(grid%t2(1,1),STAT=ierr)
107 if (ierr.ne.0) then
108 CALL wrf_error_fatal ( &
109 'frame/module_domain.f: Failed to allocate grid%t2(1,1). ')
110 endif
111 ENDIF
112 IF(.NOT.inter_domain)THEN
113 ALLOCATE(grid%th2(sm31:em31,sm32:em32),STAT=ierr)
114 if (ierr.ne.0) then
115 CALL wrf_error_fatal ( &
116 'frame/module_domain.f: Failed to allocate grid%th2(sm31:em31,sm32:em32). ')
117 endif
118 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th2=initial_data_value
119 ELSE
120 ALLOCATE(grid%th2(1,1),STAT=ierr)
121 if (ierr.ne.0) then
122 CALL wrf_error_fatal ( &
123 'frame/module_domain.f: Failed to allocate grid%th2(1,1). ')
124 endif
125 ENDIF
126 IF(.NOT.inter_domain)THEN
127 ALLOCATE(grid%psfc(sm31:em31,sm32:em32),STAT=ierr)
128 if (ierr.ne.0) then
129 CALL wrf_error_fatal ( &
130 'frame/module_domain.f: Failed to allocate grid%psfc(sm31:em31,sm32:em32). ')
131 endif
132 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psfc=initial_data_value
133 ELSE
134 ALLOCATE(grid%psfc(1,1),STAT=ierr)
135 if (ierr.ne.0) then
136 CALL wrf_error_fatal ( &
137 'frame/module_domain.f: Failed to allocate grid%psfc(1,1). ')
138 endif
139 ENDIF
140 IF(.NOT.inter_domain)THEN
141 ALLOCATE(grid%u10(sm31:em31,sm32:em32),STAT=ierr)
142 if (ierr.ne.0) then
143 CALL wrf_error_fatal ( &
144 'frame/module_domain.f: Failed to allocate grid%u10(sm31:em31,sm32:em32). ')
145 endif
146 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u10=initial_data_value
147 ELSE
148 ALLOCATE(grid%u10(1,1),STAT=ierr)
149 if (ierr.ne.0) then
150 CALL wrf_error_fatal ( &
151 'frame/module_domain.f: Failed to allocate grid%u10(1,1). ')
152 endif
153 ENDIF
154 IF(.NOT.inter_domain)THEN
155 ALLOCATE(grid%v10(sm31:em31,sm32:em32),STAT=ierr)
156 if (ierr.ne.0) then
157 CALL wrf_error_fatal ( &
158 'frame/module_domain.f: Failed to allocate grid%v10(sm31:em31,sm32:em32). ')
159 endif
160 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v10=initial_data_value
161 ELSE
162 ALLOCATE(grid%v10(1,1),STAT=ierr)
163 if (ierr.ne.0) then
164 CALL wrf_error_fatal ( &
165 'frame/module_domain.f: Failed to allocate grid%v10(1,1). ')
166 endif
167 ENDIF
168 IF(.NOT.inter_domain)THEN
169 ALLOCATE(grid%uratx(sm31:em31,sm32:em32),STAT=ierr)
170 if (ierr.ne.0) then
171 CALL wrf_error_fatal ( &
172 'frame/module_domain.f: Failed to allocate grid%uratx(sm31:em31,sm32:em32). ')
173 endif
174 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%uratx=initial_data_value
175 ELSE
176 ALLOCATE(grid%uratx(1,1),STAT=ierr)
177 if (ierr.ne.0) then
178 CALL wrf_error_fatal ( &
179 'frame/module_domain.f: Failed to allocate grid%uratx(1,1). ')
180 endif
181 ENDIF
182 IF(.NOT.inter_domain)THEN
183 ALLOCATE(grid%vratx(sm31:em31,sm32:em32),STAT=ierr)
184 if (ierr.ne.0) then
185 CALL wrf_error_fatal ( &
186 'frame/module_domain.f: Failed to allocate grid%vratx(sm31:em31,sm32:em32). ')
187 endif
188 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vratx=initial_data_value
189 ELSE
190 ALLOCATE(grid%vratx(1,1),STAT=ierr)
191 if (ierr.ne.0) then
192 CALL wrf_error_fatal ( &
193 'frame/module_domain.f: Failed to allocate grid%vratx(1,1). ')
194 endif
195 ENDIF
196 IF(.NOT.inter_domain)THEN
197 ALLOCATE(grid%tratx(sm31:em31,sm32:em32),STAT=ierr)
198 if (ierr.ne.0) then
199 CALL wrf_error_fatal ( &
200 'frame/module_domain.f: Failed to allocate grid%tratx(sm31:em31,sm32:em32). ')
201 endif
202 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tratx=initial_data_value
203 ELSE
204 ALLOCATE(grid%tratx(1,1),STAT=ierr)
205 if (ierr.ne.0) then
206 CALL wrf_error_fatal ( &
207 'frame/module_domain.f: Failed to allocate grid%tratx(1,1). ')
208 endif
209 ENDIF
210 IF ( setinitval .EQ. 3 ) grid%rdx=initial_data_value
211 IF ( setinitval .EQ. 3 ) grid%rdy=initial_data_value
212 IF ( setinitval .EQ. 3 ) grid%dts=initial_data_value
213 IF ( setinitval .EQ. 3 ) grid%dtseps=initial_data_value
214 IF ( setinitval .EQ. 3 ) grid%resm=initial_data_value
215 IF ( setinitval .EQ. 3 ) grid%zetatop=initial_data_value
216 IF ( setinitval .EQ. 3 ) grid%cf1=initial_data_value
217 IF ( setinitval .EQ. 3 ) grid%cf2=initial_data_value
218 IF ( setinitval .EQ. 3 ) grid%cf3=initial_data_value
219 IF ( setinitval .EQ. 3 ) grid%number_at_same_level=0
220 IF ( setinitval .EQ. 3 ) grid%itimestep=0
221 IF ( setinitval .EQ. 3 ) grid%xtime=initial_data_value
222 IF ( setinitval .EQ. 3 ) grid%julian=initial_data_value
223 IF ( setinitval .EQ. 3 ) grid%lbc_fid=0
224 IF ( setinitval .EQ. 3 ) grid%tiled=.FALSE.
225 IF ( setinitval .EQ. 3 ) grid%patched=.FALSE.
226 IF(.NOT.inter_domain)THEN
227 ALLOCATE(grid%imask_nostag(sm31:em31,sm32:em32),STAT=ierr)
228 if (ierr.ne.0) then
229 CALL wrf_error_fatal ( &
230 'frame/module_domain.f: Failed to allocate grid%imask_nostag(sm31:em31,sm32:em32). ')
231 endif
232 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_nostag=0
233 ELSE
234 ALLOCATE(grid%imask_nostag(1,1),STAT=ierr)
235 if (ierr.ne.0) then
236 CALL wrf_error_fatal ( &
237 'frame/module_domain.f: Failed to allocate grid%imask_nostag(1,1). ')
238 endif
239 ENDIF
240 IF(.NOT.inter_domain)THEN
241 ALLOCATE(grid%imask_xstag(sm31:em31,sm32:em32),STAT=ierr)
242 if (ierr.ne.0) then
243 CALL wrf_error_fatal ( &
244 'frame/module_domain.f: Failed to allocate grid%imask_xstag(sm31:em31,sm32:em32). ')
245 endif
246 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xstag=0
247 ELSE
248 ALLOCATE(grid%imask_xstag(1,1),STAT=ierr)
249 if (ierr.ne.0) then
250 CALL wrf_error_fatal ( &
251 'frame/module_domain.f: Failed to allocate grid%imask_xstag(1,1). ')
252 endif
253 ENDIF
254 IF(.NOT.inter_domain)THEN
255 ALLOCATE(grid%imask_ystag(sm31:em31,sm32:em32),STAT=ierr)
256 if (ierr.ne.0) then
257 CALL wrf_error_fatal ( &
258 'frame/module_domain.f: Failed to allocate grid%imask_ystag(sm31:em31,sm32:em32). ')
259 endif
260 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_ystag=0
261 ELSE
262 ALLOCATE(grid%imask_ystag(1,1),STAT=ierr)
263 if (ierr.ne.0) then
264 CALL wrf_error_fatal ( &
265 'frame/module_domain.f: Failed to allocate grid%imask_ystag(1,1). ')
266 endif
267 ENDIF
268 IF(.NOT.inter_domain)THEN
269 ALLOCATE(grid%imask_xystag(sm31:em31,sm32:em32),STAT=ierr)
270 if (ierr.ne.0) then
271 CALL wrf_error_fatal ( &
272 'frame/module_domain.f: Failed to allocate grid%imask_xystag(sm31:em31,sm32:em32). ')
273 endif
274 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xystag=0
275 ELSE
276 ALLOCATE(grid%imask_xystag(1,1),STAT=ierr)
277 if (ierr.ne.0) then
278 CALL wrf_error_fatal ( &
279 'frame/module_domain.f: Failed to allocate grid%imask_xystag(1,1). ')
280 endif
281 ENDIF
282 IF ( setinitval .EQ. 3 ) grid%xi=initial_data_value
283 IF ( setinitval .EQ. 3 ) grid%xj=initial_data_value
284 IF ( setinitval .EQ. 3 ) grid%vc_i=initial_data_value
285 IF ( setinitval .EQ. 3 ) grid%vc_j=initial_data_value
286 ALLOCATE(grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist),STAT=ierr)
287 if (ierr.ne.0) then
288 CALL wrf_error_fatal ( &
289 'frame/module_domain.f: Failed to allocate grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist). ')
290 endif
291 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist=initial_data_value
292 ALLOCATE(grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist),STAT=ierr)
293 if (ierr.ne.0) then
294 CALL wrf_error_fatal ( &
295 'frame/module_domain.f: Failed to allocate grid%a_moist(sm31:em31,sm32:em32,sm33:em33,num_a_moist). ')
296 endif
297 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist=initial_data_value
298 ALLOCATE(grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist),STAT=ierr)
299 if (ierr.ne.0) then
300 CALL wrf_error_fatal ( &
301 'frame/module_domain.f: Failed to allocate grid%g_moist(sm31:em31,sm32:em32,sm33:em33,num_g_moist). ')
302 endif
303 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist=initial_data_value
304 IF(.NOT.inter_domain)THEN
305 ALLOCATE(grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
306 if (ierr.ne.0) then
307 CALL wrf_error_fatal ( &
308 'frame/module_domain.f: Failed to allocate grid%moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
309 endif
310 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_b=initial_data_value
311 ELSE
312 ALLOCATE(grid%moist_b(1,1,1,1,num_moist),STAT=ierr)
313 if (ierr.ne.0) then
314 CALL wrf_error_fatal ( &
315 'frame/module_domain.f: Failed to allocate grid%moist_b(1,1,1,1,num_moist). ')
316 endif
317 ENDIF
318 IF(.NOT.inter_domain)THEN
319 ALLOCATE(grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist),STAT=ierr)
320 if (ierr.ne.0) then
321 CALL wrf_error_fatal ( &
322 'frame/module_domain.f: Failed to allocate grid%moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_moist). ')
323 endif
324 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bt=initial_data_value
325 ELSE
326 ALLOCATE(grid%moist_bt(1,1,1,1,num_moist),STAT=ierr)
327 if (ierr.ne.0) then
328 CALL wrf_error_fatal ( &
329 'frame/module_domain.f: Failed to allocate grid%moist_bt(1,1,1,1,num_moist). ')
330 endif
331 ENDIF
332 IF(.NOT.inter_domain)THEN
333 ALLOCATE(grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
334 if (ierr.ne.0) then
335 CALL wrf_error_fatal ( &
336 'frame/module_domain.f: Failed to allocate grid%a_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
337 endif
338 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_b=initial_data_value
339 ELSE
340 ALLOCATE(grid%a_moist_b(1,1,1,1,num_a_moist),STAT=ierr)
341 if (ierr.ne.0) then
342 CALL wrf_error_fatal ( &
343 'frame/module_domain.f: Failed to allocate grid%a_moist_b(1,1,1,1,num_a_moist). ')
344 endif
345 ENDIF
346 IF(.NOT.inter_domain)THEN
347 ALLOCATE(grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist),STAT=ierr)
348 if (ierr.ne.0) then
349 CALL wrf_error_fatal ( &
350 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_a_moist). ')
351 endif
352 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_moist_bt=initial_data_value
353 ELSE
354 ALLOCATE(grid%a_moist_bt(1,1,1,1,num_a_moist),STAT=ierr)
355 if (ierr.ne.0) then
356 CALL wrf_error_fatal ( &
357 'frame/module_domain.f: Failed to allocate grid%a_moist_bt(1,1,1,1,num_a_moist). ')
358 endif
359 ENDIF
360 IF(.NOT.inter_domain)THEN
361 ALLOCATE(grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
362 if (ierr.ne.0) then
363 CALL wrf_error_fatal ( &
364 'frame/module_domain.f: Failed to allocate grid%g_moist_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
365 endif
366 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_b=initial_data_value
367 ELSE
368 ALLOCATE(grid%g_moist_b(1,1,1,1,num_g_moist),STAT=ierr)
369 if (ierr.ne.0) then
370 CALL wrf_error_fatal ( &
371 'frame/module_domain.f: Failed to allocate grid%g_moist_b(1,1,1,1,num_g_moist). ')
372 endif
373 ENDIF
374 IF(.NOT.inter_domain)THEN
375 ALLOCATE(grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist),STAT=ierr)
376 if (ierr.ne.0) then
377 CALL wrf_error_fatal ( &
378 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_g_moist). ')
379 endif
380 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_moist_bt=initial_data_value
381 ELSE
382 ALLOCATE(grid%g_moist_bt(1,1,1,1,num_g_moist),STAT=ierr)
383 if (ierr.ne.0) then
384 CALL wrf_error_fatal ( &
385 'frame/module_domain.f: Failed to allocate grid%g_moist_bt(1,1,1,1,num_g_moist). ')
386 endif
387 ENDIF
388 ALLOCATE(grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar),STAT=ierr)
389 if (ierr.ne.0) then
390 CALL wrf_error_fatal ( &
391 'frame/module_domain.f: Failed to allocate grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar). ')
392 endif
393 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar=initial_data_value
394 ALLOCATE(grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar),STAT=ierr)
395 if (ierr.ne.0) then
396 CALL wrf_error_fatal ( &
397 'frame/module_domain.f: Failed to allocate grid%a_scalar(sm31:em31,sm32:em32,sm33:em33,num_a_scalar). ')
398 endif
399 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_scalar=initial_data_value
400 ALLOCATE(grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar),STAT=ierr)
401 if (ierr.ne.0) then
402 CALL wrf_error_fatal ( &
403 'frame/module_domain.f: Failed to allocate grid%g_scalar(sm31:em31,sm32:em32,sm33:em33,num_g_scalar). ')
404 endif
405 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_scalar=initial_data_value
406 IF(.NOT.inter_domain)THEN
407 ALLOCATE(grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
408 if (ierr.ne.0) then
409 CALL wrf_error_fatal ( &
410 'frame/module_domain.f: Failed to allocate grid%scalar_b(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
411 endif
412 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_b=initial_data_value
413 ELSE
414 ALLOCATE(grid%scalar_b(1,1,1,1,num_scalar),STAT=ierr)
415 if (ierr.ne.0) then
416 CALL wrf_error_fatal ( &
417 'frame/module_domain.f: Failed to allocate grid%scalar_b(1,1,1,1,num_scalar). ')
418 endif
419 ENDIF
420 IF(.NOT.inter_domain)THEN
421 ALLOCATE(grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar),STAT=ierr)
422 if (ierr.ne.0) then
423 CALL wrf_error_fatal ( &
424 'frame/module_domain.f: Failed to allocate grid%scalar_bt(max(ed31,ed32),sd33:ed33,spec_bdy_width,4,num_scalar). ')
425 endif
426 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bt=initial_data_value
427 ELSE
428 ALLOCATE(grid%scalar_bt(1,1,1,1,num_scalar),STAT=ierr)
429 if (ierr.ne.0) then
430 CALL wrf_error_fatal ( &
431 'frame/module_domain.f: Failed to allocate grid%scalar_bt(1,1,1,1,num_scalar). ')
432 endif
433 ENDIF
434 IF(.NOT.inter_domain)THEN
435 ALLOCATE(grid%fcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
436 if (ierr.ne.0) then
437 CALL wrf_error_fatal ( &
438 'frame/module_domain.f: Failed to allocate grid%fcx(1:model_config_rec%spec_bdy_width). ')
439 endif
440 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fcx=initial_data_value
441 ELSE
442 ALLOCATE(grid%fcx(1),STAT=ierr)
443 if (ierr.ne.0) then
444 CALL wrf_error_fatal ( &
445 'frame/module_domain.f: Failed to allocate grid%fcx(1). ')
446 endif
447 ENDIF
448 IF(.NOT.inter_domain)THEN
449 ALLOCATE(grid%gcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
450 if (ierr.ne.0) then
451 CALL wrf_error_fatal ( &
452 'frame/module_domain.f: Failed to allocate grid%gcx(1:model_config_rec%spec_bdy_width). ')
453 endif
454 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gcx=initial_data_value
455 ELSE
456 ALLOCATE(grid%gcx(1),STAT=ierr)
457 if (ierr.ne.0) then
458 CALL wrf_error_fatal ( &
459 'frame/module_domain.f: Failed to allocate grid%gcx(1). ')
460 endif
461 ENDIF
462 IF ( setinitval .EQ. 3 ) grid%dtbc=initial_data_value
463 ALLOCATE(grid%landmask(sm31:em31,sm32:em32),STAT=ierr)
464 if (ierr.ne.0) then
465 CALL wrf_error_fatal ( &
466 'frame/module_domain.f: Failed to allocate grid%landmask(sm31:em31,sm32:em32). ')
467 endif
468 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%landmask=initial_data_value
469 IF(.NOT.inter_domain)THEN
470 ALLOCATE(grid%shdmax(sm31:em31,sm32:em32),STAT=ierr)
471 if (ierr.ne.0) then
472 CALL wrf_error_fatal ( &
473 'frame/module_domain.f: Failed to allocate grid%shdmax(sm31:em31,sm32:em32). ')
474 endif
475 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmax=initial_data_value
476 ELSE
477 ALLOCATE(grid%shdmax(1,1),STAT=ierr)
478 if (ierr.ne.0) then
479 CALL wrf_error_fatal ( &
480 'frame/module_domain.f: Failed to allocate grid%shdmax(1,1). ')
481 endif
482 ENDIF
483 IF(.NOT.inter_domain)THEN
484 ALLOCATE(grid%shdmin(sm31:em31,sm32:em32),STAT=ierr)
485 if (ierr.ne.0) then
486 CALL wrf_error_fatal ( &
487 'frame/module_domain.f: Failed to allocate grid%shdmin(sm31:em31,sm32:em32). ')
488 endif
489 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmin=initial_data_value
490 ELSE
491 ALLOCATE(grid%shdmin(1,1),STAT=ierr)
492 if (ierr.ne.0) then
493 CALL wrf_error_fatal ( &
494 'frame/module_domain.f: Failed to allocate grid%shdmin(1,1). ')
495 endif
496 ENDIF
497 IF(.NOT.inter_domain)THEN
498 ALLOCATE(grid%snoalb(sm31:em31,sm32:em32),STAT=ierr)
499 if (ierr.ne.0) then
500 CALL wrf_error_fatal ( &
501 'frame/module_domain.f: Failed to allocate grid%snoalb(sm31:em31,sm32:em32). ')
502 endif
503 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snoalb=initial_data_value
504 ELSE
505 ALLOCATE(grid%snoalb(1,1),STAT=ierr)
506 if (ierr.ne.0) then
507 CALL wrf_error_fatal ( &
508 'frame/module_domain.f: Failed to allocate grid%snoalb(1,1). ')
509 endif
510 ENDIF
511 ALLOCATE(grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
512 if (ierr.ne.0) then
513 CALL wrf_error_fatal ( &
514 'frame/module_domain.f: Failed to allocate grid%tslb(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
515 endif
516 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tslb=initial_data_value
517 IF(.NOT.inter_domain)THEN
518 ALLOCATE(grid%zs(1:model_config_rec%num_soil_layers),STAT=ierr)
519 if (ierr.ne.0) then
520 CALL wrf_error_fatal ( &
521 'frame/module_domain.f: Failed to allocate grid%zs(1:model_config_rec%num_soil_layers). ')
522 endif
523 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zs=initial_data_value
524 ELSE
525 ALLOCATE(grid%zs(1),STAT=ierr)
526 if (ierr.ne.0) then
527 CALL wrf_error_fatal ( &
528 'frame/module_domain.f: Failed to allocate grid%zs(1). ')
529 endif
530 ENDIF
531 IF(.NOT.inter_domain)THEN
532 ALLOCATE(grid%dzs(1:model_config_rec%num_soil_layers),STAT=ierr)
533 if (ierr.ne.0) then
534 CALL wrf_error_fatal ( &
535 'frame/module_domain.f: Failed to allocate grid%dzs(1:model_config_rec%num_soil_layers). ')
536 endif
537 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzs=initial_data_value
538 ELSE
539 ALLOCATE(grid%dzs(1),STAT=ierr)
540 if (ierr.ne.0) then
541 CALL wrf_error_fatal ( &
542 'frame/module_domain.f: Failed to allocate grid%dzs(1). ')
543 endif
544 ENDIF
545 ALLOCATE(grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
546 if (ierr.ne.0) then
547 CALL wrf_error_fatal ( &
548 'frame/module_domain.f: Failed to allocate grid%smois(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
549 endif
550 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smois=initial_data_value
551 ALLOCATE(grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers),STAT=ierr)
552 if (ierr.ne.0) then
553 CALL wrf_error_fatal ( &
554 'frame/module_domain.f: Failed to allocate grid%sh2o(sm31:em31,sm32:em32,1:model_config_rec%num_soil_layers). ')
555 endif
556 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sh2o=initial_data_value
557 ALLOCATE(grid%xice(sm31:em31,sm32:em32),STAT=ierr)
558 if (ierr.ne.0) then
559 CALL wrf_error_fatal ( &
560 'frame/module_domain.f: Failed to allocate grid%xice(sm31:em31,sm32:em32). ')
561 endif
562 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xice=initial_data_value
563 ALLOCATE(grid%sfcrunoff(sm31:em31,sm32:em32),STAT=ierr)
564 if (ierr.ne.0) then
565 CALL wrf_error_fatal ( &
566 'frame/module_domain.f: Failed to allocate grid%sfcrunoff(sm31:em31,sm32:em32). ')
567 endif
568 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcrunoff=initial_data_value
569 ALLOCATE(grid%udrunoff(sm31:em31,sm32:em32),STAT=ierr)
570 if (ierr.ne.0) then
571 CALL wrf_error_fatal ( &
572 'frame/module_domain.f: Failed to allocate grid%udrunoff(sm31:em31,sm32:em32). ')
573 endif
574 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%udrunoff=initial_data_value
575 ALLOCATE(grid%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
576 if (ierr.ne.0) then
577 CALL wrf_error_fatal ( &
578 'frame/module_domain.f: Failed to allocate grid%ivgtyp(sm31:em31,sm32:em32). ')
579 endif
580 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ivgtyp=0
581 ALLOCATE(grid%isltyp(sm31:em31,sm32:em32),STAT=ierr)
582 if (ierr.ne.0) then
583 CALL wrf_error_fatal ( &
584 'frame/module_domain.f: Failed to allocate grid%isltyp(sm31:em31,sm32:em32). ')
585 endif
586 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%isltyp=0
587 ALLOCATE(grid%vegfra(sm31:em31,sm32:em32),STAT=ierr)
588 if (ierr.ne.0) then
589 CALL wrf_error_fatal ( &
590 'frame/module_domain.f: Failed to allocate grid%vegfra(sm31:em31,sm32:em32). ')
591 endif
592 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegfra=initial_data_value
593 IF(.NOT.inter_domain)THEN
594 ALLOCATE(grid%sfcevp(sm31:em31,sm32:em32),STAT=ierr)
595 if (ierr.ne.0) then
596 CALL wrf_error_fatal ( &
597 'frame/module_domain.f: Failed to allocate grid%sfcevp(sm31:em31,sm32:em32). ')
598 endif
599 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcevp=initial_data_value
600 ELSE
601 ALLOCATE(grid%sfcevp(1,1),STAT=ierr)
602 if (ierr.ne.0) then
603 CALL wrf_error_fatal ( &
604 'frame/module_domain.f: Failed to allocate grid%sfcevp(1,1). ')
605 endif
606 ENDIF
607 ALLOCATE(grid%acsnow(sm31:em31,sm32:em32),STAT=ierr)
608 if (ierr.ne.0) then
609 CALL wrf_error_fatal ( &
610 'frame/module_domain.f: Failed to allocate grid%acsnow(sm31:em31,sm32:em32). ')
611 endif
612 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnow=initial_data_value
613 ALLOCATE(grid%acsnom(sm31:em31,sm32:em32),STAT=ierr)
614 if (ierr.ne.0) then
615 CALL wrf_error_fatal ( &
616 'frame/module_domain.f: Failed to allocate grid%acsnom(sm31:em31,sm32:em32). ')
617 endif
618 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnom=initial_data_value
619 ALLOCATE(grid%snow(sm31:em31,sm32:em32),STAT=ierr)
620 if (ierr.ne.0) then
621 CALL wrf_error_fatal ( &
622 'frame/module_domain.f: Failed to allocate grid%snow(sm31:em31,sm32:em32). ')
623 endif
624 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snow=initial_data_value
625 ALLOCATE(grid%snowh(sm31:em31,sm32:em32),STAT=ierr)
626 if (ierr.ne.0) then
627 CALL wrf_error_fatal ( &
628 'frame/module_domain.f: Failed to allocate grid%snowh(sm31:em31,sm32:em32). ')
629 endif
630 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowh=initial_data_value
631 ALLOCATE(grid%rhosn(sm31:em31,sm32:em32),STAT=ierr)
632 if (ierr.ne.0) then
633 CALL wrf_error_fatal ( &
634 'frame/module_domain.f: Failed to allocate grid%rhosn(sm31:em31,sm32:em32). ')
635 endif
636 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rhosn=initial_data_value
637 ALLOCATE(grid%canwat(sm31:em31,sm32:em32),STAT=ierr)
638 if (ierr.ne.0) then
639 CALL wrf_error_fatal ( &
640 'frame/module_domain.f: Failed to allocate grid%canwat(sm31:em31,sm32:em32). ')
641 endif
642 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%canwat=initial_data_value
643 ALLOCATE(grid%sst(sm31:em31,sm32:em32),STAT=ierr)
644 if (ierr.ne.0) then
645 CALL wrf_error_fatal ( &
646 'frame/module_domain.f: Failed to allocate grid%sst(sm31:em31,sm32:em32). ')
647 endif
648 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sst=initial_data_value
649 IF ( setinitval .EQ. 3 ) grid%ifndsnowh=0
650 IF ( setinitval .EQ. 3 ) grid%ifndsoilw=0
651 IF(.NOT.inter_domain)THEN
652 ALLOCATE(grid%htop(sm31:em31,sm32:em32),STAT=ierr)
653 if (ierr.ne.0) then
654 CALL wrf_error_fatal ( &
655 'frame/module_domain.f: Failed to allocate grid%htop(sm31:em31,sm32:em32). ')
656 endif
657 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%htop=initial_data_value
658 ELSE
659 ALLOCATE(grid%htop(1,1),STAT=ierr)
660 if (ierr.ne.0) then
661 CALL wrf_error_fatal ( &
662 'frame/module_domain.f: Failed to allocate grid%htop(1,1). ')
663 endif
664 ENDIF
665 IF(.NOT.inter_domain)THEN
666 ALLOCATE(grid%hbot(sm31:em31,sm32:em32),STAT=ierr)
667 if (ierr.ne.0) then
668 CALL wrf_error_fatal ( &
669 'frame/module_domain.f: Failed to allocate grid%hbot(sm31:em31,sm32:em32). ')
670 endif
671 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hbot=initial_data_value
672 ELSE
673 ALLOCATE(grid%hbot(1,1),STAT=ierr)
674 if (ierr.ne.0) then
675 CALL wrf_error_fatal ( &
676 'frame/module_domain.f: Failed to allocate grid%hbot(1,1). ')
677 endif
678 ENDIF
679 IF(.NOT.inter_domain)THEN
680 ALLOCATE(grid%cuppt(sm31:em31,sm32:em32),STAT=ierr)
681 if (ierr.ne.0) then
682 CALL wrf_error_fatal ( &
683 'frame/module_domain.f: Failed to allocate grid%cuppt(sm31:em31,sm32:em32). ')
684 endif
685 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cuppt=initial_data_value
686 ELSE
687 ALLOCATE(grid%cuppt(1,1),STAT=ierr)
688 if (ierr.ne.0) then
689 CALL wrf_error_fatal ( &
690 'frame/module_domain.f: Failed to allocate grid%cuppt(1,1). ')
691 endif
692 ENDIF
693 IF(.NOT.inter_domain)THEN
694 ALLOCATE(grid%rswtoa(sm31:em31,sm32:em32),STAT=ierr)
695 if (ierr.ne.0) then
696 CALL wrf_error_fatal ( &
697 'frame/module_domain.f: Failed to allocate grid%rswtoa(sm31:em31,sm32:em32). ')
698 endif
699 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswtoa=initial_data_value
700 ELSE
701 ALLOCATE(grid%rswtoa(1,1),STAT=ierr)
702 if (ierr.ne.0) then
703 CALL wrf_error_fatal ( &
704 'frame/module_domain.f: Failed to allocate grid%rswtoa(1,1). ')
705 endif
706 ENDIF
707 IF(.NOT.inter_domain)THEN
708 ALLOCATE(grid%rlwtoa(sm31:em31,sm32:em32),STAT=ierr)
709 if (ierr.ne.0) then
710 CALL wrf_error_fatal ( &
711 'frame/module_domain.f: Failed to allocate grid%rlwtoa(sm31:em31,sm32:em32). ')
712 endif
713 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwtoa=initial_data_value
714 ELSE
715 ALLOCATE(grid%rlwtoa(1,1),STAT=ierr)
716 if (ierr.ne.0) then
717 CALL wrf_error_fatal ( &
718 'frame/module_domain.f: Failed to allocate grid%rlwtoa(1,1). ')
719 endif
720 ENDIF
721 IF(.NOT.inter_domain)THEN
722 ALLOCATE(grid%czmean(sm31:em31,sm32:em32),STAT=ierr)
723 if (ierr.ne.0) then
724 CALL wrf_error_fatal ( &
725 'frame/module_domain.f: Failed to allocate grid%czmean(sm31:em31,sm32:em32). ')
726 endif
727 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%czmean=initial_data_value
728 ELSE
729 ALLOCATE(grid%czmean(1,1),STAT=ierr)
730 if (ierr.ne.0) then
731 CALL wrf_error_fatal ( &
732 'frame/module_domain.f: Failed to allocate grid%czmean(1,1). ')
733 endif
734 ENDIF
735 IF(.NOT.inter_domain)THEN
736 ALLOCATE(grid%cfracl(sm31:em31,sm32:em32),STAT=ierr)
737 if (ierr.ne.0) then
738 CALL wrf_error_fatal ( &
739 'frame/module_domain.f: Failed to allocate grid%cfracl(sm31:em31,sm32:em32). ')
740 endif
741 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracl=initial_data_value
742 ELSE
743 ALLOCATE(grid%cfracl(1,1),STAT=ierr)
744 if (ierr.ne.0) then
745 CALL wrf_error_fatal ( &
746 'frame/module_domain.f: Failed to allocate grid%cfracl(1,1). ')
747 endif
748 ENDIF
749 IF(.NOT.inter_domain)THEN
750 ALLOCATE(grid%cfracm(sm31:em31,sm32:em32),STAT=ierr)
751 if (ierr.ne.0) then
752 CALL wrf_error_fatal ( &
753 'frame/module_domain.f: Failed to allocate grid%cfracm(sm31:em31,sm32:em32). ')
754 endif
755 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracm=initial_data_value
756 ELSE
757 ALLOCATE(grid%cfracm(1,1),STAT=ierr)
758 if (ierr.ne.0) then
759 CALL wrf_error_fatal ( &
760 'frame/module_domain.f: Failed to allocate grid%cfracm(1,1). ')
761 endif
762 ENDIF
763 IF(.NOT.inter_domain)THEN
764 ALLOCATE(grid%cfrach(sm31:em31,sm32:em32),STAT=ierr)
765 if (ierr.ne.0) then
766 CALL wrf_error_fatal ( &
767 'frame/module_domain.f: Failed to allocate grid%cfrach(sm31:em31,sm32:em32). ')
768 endif
769 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfrach=initial_data_value
770 ELSE
771 ALLOCATE(grid%cfrach(1,1),STAT=ierr)
772 if (ierr.ne.0) then
773 CALL wrf_error_fatal ( &
774 'frame/module_domain.f: Failed to allocate grid%cfrach(1,1). ')
775 endif
776 ENDIF
777 IF(.NOT.inter_domain)THEN
778 ALLOCATE(grid%acfrst(sm31:em31,sm32:em32),STAT=ierr)
779 if (ierr.ne.0) then
780 CALL wrf_error_fatal ( &
781 'frame/module_domain.f: Failed to allocate grid%acfrst(sm31:em31,sm32:em32). ')
782 endif
783 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrst=initial_data_value
784 ELSE
785 ALLOCATE(grid%acfrst(1,1),STAT=ierr)
786 if (ierr.ne.0) then
787 CALL wrf_error_fatal ( &
788 'frame/module_domain.f: Failed to allocate grid%acfrst(1,1). ')
789 endif
790 ENDIF
791 IF(.NOT.inter_domain)THEN
792 ALLOCATE(grid%ncfrst(sm31:em31,sm32:em32),STAT=ierr)
793 if (ierr.ne.0) then
794 CALL wrf_error_fatal ( &
795 'frame/module_domain.f: Failed to allocate grid%ncfrst(sm31:em31,sm32:em32). ')
796 endif
797 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrst=0
798 ELSE
799 ALLOCATE(grid%ncfrst(1,1),STAT=ierr)
800 if (ierr.ne.0) then
801 CALL wrf_error_fatal ( &
802 'frame/module_domain.f: Failed to allocate grid%ncfrst(1,1). ')
803 endif
804 ENDIF
805 IF(.NOT.inter_domain)THEN
806 ALLOCATE(grid%acfrcv(sm31:em31,sm32:em32),STAT=ierr)
807 if (ierr.ne.0) then
808 CALL wrf_error_fatal ( &
809 'frame/module_domain.f: Failed to allocate grid%acfrcv(sm31:em31,sm32:em32). ')
810 endif
811 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrcv=initial_data_value
812 ELSE
813 ALLOCATE(grid%acfrcv(1,1),STAT=ierr)
814 if (ierr.ne.0) then
815 CALL wrf_error_fatal ( &
816 'frame/module_domain.f: Failed to allocate grid%acfrcv(1,1). ')
817 endif
818 ENDIF
819 IF(.NOT.inter_domain)THEN
820 ALLOCATE(grid%ncfrcv(sm31:em31,sm32:em32),STAT=ierr)
821 if (ierr.ne.0) then
822 CALL wrf_error_fatal ( &
823 'frame/module_domain.f: Failed to allocate grid%ncfrcv(sm31:em31,sm32:em32). ')
824 endif
825 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrcv=0
826 ELSE
827 ALLOCATE(grid%ncfrcv(1,1),STAT=ierr)
828 if (ierr.ne.0) then
829 CALL wrf_error_fatal ( &
830 'frame/module_domain.f: Failed to allocate grid%ncfrcv(1,1). ')
831 endif
832 ENDIF
833 IF(.NOT.inter_domain)THEN
834 ALLOCATE(grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
835 if (ierr.ne.0) then
836 CALL wrf_error_fatal ( &
837 'frame/module_domain.f: Failed to allocate grid%h_diabatic(sm31:em31,sm32:em32,sm33:em33). ')
838 endif
839 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%h_diabatic=initial_data_value
840 ELSE
841 ALLOCATE(grid%h_diabatic(1,1,1),STAT=ierr)
842 if (ierr.ne.0) then
843 CALL wrf_error_fatal ( &
844 'frame/module_domain.f: Failed to allocate grid%h_diabatic(1,1,1). ')
845 endif
846 ENDIF
847 ALLOCATE(grid%msft(sm31:em31,sm32:em32),STAT=ierr)
848 if (ierr.ne.0) then
849 CALL wrf_error_fatal ( &
850 'frame/module_domain.f: Failed to allocate grid%msft(sm31:em31,sm32:em32). ')
851 endif
852 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msft=initial_data_value
853 ALLOCATE(grid%msfu(sm31:em31,sm32:em32),STAT=ierr)
854 if (ierr.ne.0) then
855 CALL wrf_error_fatal ( &
856 'frame/module_domain.f: Failed to allocate grid%msfu(sm31:em31,sm32:em32). ')
857 endif
858 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfu=initial_data_value
859 ALLOCATE(grid%msfv(sm31:em31,sm32:em32),STAT=ierr)
860 if (ierr.ne.0) then
861 CALL wrf_error_fatal ( &
862 'frame/module_domain.f: Failed to allocate grid%msfv(sm31:em31,sm32:em32). ')
863 endif
864 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msfv=initial_data_value
865 ALLOCATE(grid%f(sm31:em31,sm32:em32),STAT=ierr)
866 if (ierr.ne.0) then
867 CALL wrf_error_fatal ( &
868 'frame/module_domain.f: Failed to allocate grid%f(sm31:em31,sm32:em32). ')
869 endif
870 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f=initial_data_value
871 ALLOCATE(grid%e(sm31:em31,sm32:em32),STAT=ierr)
872 if (ierr.ne.0) then
873 CALL wrf_error_fatal ( &
874 'frame/module_domain.f: Failed to allocate grid%e(sm31:em31,sm32:em32). ')
875 endif
876 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%e=initial_data_value
877 ALLOCATE(grid%sina(sm31:em31,sm32:em32),STAT=ierr)
878 if (ierr.ne.0) then
879 CALL wrf_error_fatal ( &
880 'frame/module_domain.f: Failed to allocate grid%sina(sm31:em31,sm32:em32). ')
881 endif
882 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sina=initial_data_value
883 ALLOCATE(grid%cosa(sm31:em31,sm32:em32),STAT=ierr)
884 if (ierr.ne.0) then
885 CALL wrf_error_fatal ( &
886 'frame/module_domain.f: Failed to allocate grid%cosa(sm31:em31,sm32:em32). ')
887 endif
888 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cosa=initial_data_value
889 ALLOCATE(grid%ht(sm31:em31,sm32:em32),STAT=ierr)
890 if (ierr.ne.0) then
891 CALL wrf_error_fatal ( &
892 'frame/module_domain.f: Failed to allocate grid%ht(sm31:em31,sm32:em32). ')
893 endif
894 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht=initial_data_value
895 IF(.NOT.inter_domain)THEN
896 ALLOCATE(grid%ht_fine(sm31:em31,sm32:em32),STAT=ierr)
897 if (ierr.ne.0) then
898 CALL wrf_error_fatal ( &
899 'frame/module_domain.f: Failed to allocate grid%ht_fine(sm31:em31,sm32:em32). ')
900 endif
901 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_fine=initial_data_value
902 ELSE
903 ALLOCATE(grid%ht_fine(1,1),STAT=ierr)
904 if (ierr.ne.0) then
905 CALL wrf_error_fatal ( &
906 'frame/module_domain.f: Failed to allocate grid%ht_fine(1,1). ')
907 endif
908 ENDIF
909 IF(.NOT.inter_domain)THEN
910 ALLOCATE(grid%ht_int(sm31:em31,sm32:em32),STAT=ierr)
911 if (ierr.ne.0) then
912 CALL wrf_error_fatal ( &
913 'frame/module_domain.f: Failed to allocate grid%ht_int(sm31:em31,sm32:em32). ')
914 endif
915 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_int=initial_data_value
916 ELSE
917 ALLOCATE(grid%ht_int(1,1),STAT=ierr)
918 if (ierr.ne.0) then
919 CALL wrf_error_fatal ( &
920 'frame/module_domain.f: Failed to allocate grid%ht_int(1,1). ')
921 endif
922 ENDIF
923 IF(.NOT.inter_domain)THEN
924 ALLOCATE(grid%ht_input(sm31:em31,sm32:em32),STAT=ierr)
925 if (ierr.ne.0) then
926 CALL wrf_error_fatal ( &
927 'frame/module_domain.f: Failed to allocate grid%ht_input(sm31:em31,sm32:em32). ')
928 endif
929 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_input=initial_data_value
930 ELSE
931 ALLOCATE(grid%ht_input(1,1),STAT=ierr)
932 if (ierr.ne.0) then
933 CALL wrf_error_fatal ( &
934 'frame/module_domain.f: Failed to allocate grid%ht_input(1,1). ')
935 endif
936 ENDIF
937 ALLOCATE(grid%tsk(sm31:em31,sm32:em32),STAT=ierr)
938 if (ierr.ne.0) then
939 CALL wrf_error_fatal ( &
940 'frame/module_domain.f: Failed to allocate grid%tsk(sm31:em31,sm32:em32). ')
941 endif
942 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk=initial_data_value
943 IF(.NOT.inter_domain)THEN
944 ALLOCATE(grid%tsk_save(sm31:em31,sm32:em32),STAT=ierr)
945 if (ierr.ne.0) then
946 CALL wrf_error_fatal ( &
947 'frame/module_domain.f: Failed to allocate grid%tsk_save(sm31:em31,sm32:em32). ')
948 endif
949 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk_save=initial_data_value
950 ELSE
951 ALLOCATE(grid%tsk_save(1,1),STAT=ierr)
952 if (ierr.ne.0) then
953 CALL wrf_error_fatal ( &
954 'frame/module_domain.f: Failed to allocate grid%tsk_save(1,1). ')
955 endif
956 ENDIF
957 IF(.NOT.inter_domain)THEN
958 ALLOCATE(grid%u_base(sm33:em33),STAT=ierr)
959 if (ierr.ne.0) then
960 CALL wrf_error_fatal ( &
961 'frame/module_domain.f: Failed to allocate grid%u_base(sm33:em33). ')
962 endif
963 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_base=initial_data_value
964 ELSE
965 ALLOCATE(grid%u_base(1),STAT=ierr)
966 if (ierr.ne.0) then
967 CALL wrf_error_fatal ( &
968 'frame/module_domain.f: Failed to allocate grid%u_base(1). ')
969 endif
970 ENDIF
971 IF(.NOT.inter_domain)THEN
972 ALLOCATE(grid%v_base(sm33:em33),STAT=ierr)
973 if (ierr.ne.0) then
974 CALL wrf_error_fatal ( &
975 'frame/module_domain.f: Failed to allocate grid%v_base(sm33:em33). ')
976 endif
977 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_base=initial_data_value
978 ELSE
979 ALLOCATE(grid%v_base(1),STAT=ierr)
980 if (ierr.ne.0) then
981 CALL wrf_error_fatal ( &
982 'frame/module_domain.f: Failed to allocate grid%v_base(1). ')
983 endif
984 ENDIF
985 IF(.NOT.inter_domain)THEN
986 ALLOCATE(grid%qv_base(sm33:em33),STAT=ierr)
987 if (ierr.ne.0) then
988 CALL wrf_error_fatal ( &
989 'frame/module_domain.f: Failed to allocate grid%qv_base(sm33:em33). ')
990 endif
991 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_base=initial_data_value
992 ELSE
993 ALLOCATE(grid%qv_base(1),STAT=ierr)
994 if (ierr.ne.0) then
995 CALL wrf_error_fatal ( &
996 'frame/module_domain.f: Failed to allocate grid%qv_base(1). ')
997 endif
998 ENDIF
999 IF(.NOT.inter_domain)THEN
1000 ALLOCATE(grid%z_base(sm33:em33),STAT=ierr)
1001 if (ierr.ne.0) then
1002 CALL wrf_error_fatal ( &
1003 'frame/module_domain.f: Failed to allocate grid%z_base(sm33:em33). ')
1004 endif
1005 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_base=initial_data_value
1006 ELSE
1007 ALLOCATE(grid%z_base(1),STAT=ierr)
1008 if (ierr.ne.0) then
1009 CALL wrf_error_fatal ( &
1010 'frame/module_domain.f: Failed to allocate grid%z_base(1). ')
1011 endif
1012 ENDIF
1013 IF ( setinitval .EQ. 3 ) grid%u_frame=initial_data_value
1014 IF ( setinitval .EQ. 3 ) grid%v_frame=initial_data_value
1015 IF ( setinitval .EQ. 3 ) grid%p_top=initial_data_value
1016 IF ( setinitval .EQ. 3 ) grid%imicrogram=0
1017 ALLOCATE(grid%rainc(sm31:em31,sm32:em32),STAT=ierr)
1018 if (ierr.ne.0) then
1019 CALL wrf_error_fatal ( &
1020 'frame/module_domain.f: Failed to allocate grid%rainc(sm31:em31,sm32:em32). ')
1021 endif
1022 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainc=initial_data_value
1023 ALLOCATE(grid%rainnc(sm31:em31,sm32:em32),STAT=ierr)
1024 if (ierr.ne.0) then
1025 CALL wrf_error_fatal ( &
1026 'frame/module_domain.f: Failed to allocate grid%rainnc(sm31:em31,sm32:em32). ')
1027 endif
1028 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainnc=initial_data_value
1029 ALLOCATE(grid%xlat(sm31:em31,sm32:em32),STAT=ierr)
1030 if (ierr.ne.0) then
1031 CALL wrf_error_fatal ( &
1032 'frame/module_domain.f: Failed to allocate grid%xlat(sm31:em31,sm32:em32). ')
1033 endif
1034 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat=initial_data_value
1035 ALLOCATE(grid%xlong(sm31:em31,sm32:em32),STAT=ierr)
1036 if (ierr.ne.0) then
1037 CALL wrf_error_fatal ( &
1038 'frame/module_domain.f: Failed to allocate grid%xlong(sm31:em31,sm32:em32). ')
1039 endif
1040 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong=initial_data_value
1041 IF(.NOT.inter_domain)THEN
1042 ALLOCATE(grid%albbck(sm31:em31,sm32:em32),STAT=ierr)
1043 if (ierr.ne.0) then
1044 CALL wrf_error_fatal ( &
1045 'frame/module_domain.f: Failed to allocate grid%albbck(sm31:em31,sm32:em32). ')
1046 endif
1047 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albbck=initial_data_value
1048 ELSE
1049 ALLOCATE(grid%albbck(1,1),STAT=ierr)
1050 if (ierr.ne.0) then
1051 CALL wrf_error_fatal ( &
1052 'frame/module_domain.f: Failed to allocate grid%albbck(1,1). ')
1053 endif
1054 ENDIF
1055 IF(.NOT.inter_domain)THEN
1056 ALLOCATE(grid%mp_restart_state(1:7501),STAT=ierr)
1057 if (ierr.ne.0) then
1058 CALL wrf_error_fatal ( &
1059 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1:7501). ')
1060 endif
1061 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mp_restart_state=initial_data_value
1062 ELSE
1063 ALLOCATE(grid%mp_restart_state(1),STAT=ierr)
1064 if (ierr.ne.0) then
1065 CALL wrf_error_fatal ( &
1066 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1). ')
1067 endif
1068 ENDIF
1069 IF(.NOT.inter_domain)THEN
1070 ALLOCATE(grid%tbpvs_state(1:7501),STAT=ierr)
1071 if (ierr.ne.0) then
1072 CALL wrf_error_fatal ( &
1073 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1:7501). ')
1074 endif
1075 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs_state=initial_data_value
1076 ELSE
1077 ALLOCATE(grid%tbpvs_state(1),STAT=ierr)
1078 if (ierr.ne.0) then
1079 CALL wrf_error_fatal ( &
1080 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1). ')
1081 endif
1082 ENDIF
1083 IF(.NOT.inter_domain)THEN
1084 ALLOCATE(grid%tbpvs0_state(1:7501),STAT=ierr)
1085 if (ierr.ne.0) then
1086 CALL wrf_error_fatal ( &
1087 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1:7501). ')
1088 endif
1089 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs0_state=initial_data_value
1090 ELSE
1091 ALLOCATE(grid%tbpvs0_state(1),STAT=ierr)
1092 if (ierr.ne.0) then
1093 CALL wrf_error_fatal ( &
1094 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1). ')
1095 endif
1096 ENDIF
1097 ALLOCATE(grid%tmn(sm31:em31,sm32:em32),STAT=ierr)
1098 if (ierr.ne.0) then
1099 CALL wrf_error_fatal ( &
1100 'frame/module_domain.f: Failed to allocate grid%tmn(sm31:em31,sm32:em32). ')
1101 endif
1102 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tmn=initial_data_value
1103 ALLOCATE(grid%xland(sm31:em31,sm32:em32),STAT=ierr)
1104 if (ierr.ne.0) then
1105 CALL wrf_error_fatal ( &
1106 'frame/module_domain.f: Failed to allocate grid%xland(sm31:em31,sm32:em32). ')
1107 endif
1108 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xland=initial_data_value
1109 IF(.NOT.inter_domain)THEN
1110 ALLOCATE(grid%znt(sm31:em31,sm32:em32),STAT=ierr)
1111 if (ierr.ne.0) then
1112 CALL wrf_error_fatal ( &
1113 'frame/module_domain.f: Failed to allocate grid%znt(sm31:em31,sm32:em32). ')
1114 endif
1115 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znt=initial_data_value
1116 ELSE
1117 ALLOCATE(grid%znt(1,1),STAT=ierr)
1118 if (ierr.ne.0) then
1119 CALL wrf_error_fatal ( &
1120 'frame/module_domain.f: Failed to allocate grid%znt(1,1). ')
1121 endif
1122 ENDIF
1123 ALLOCATE(grid%snowc(sm31:em31,sm32:em32),STAT=ierr)
1124 if (ierr.ne.0) then
1125 CALL wrf_error_fatal ( &
1126 'frame/module_domain.f: Failed to allocate grid%snowc(sm31:em31,sm32:em32). ')
1127 endif
1128 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowc=initial_data_value
1129 IF ( setinitval .EQ. 3 ) grid%stepbl=0
1130 IF(.NOT.inter_domain)THEN
1131 ALLOCATE(grid%xkmv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1132 if (ierr.ne.0) then
1133 CALL wrf_error_fatal ( &
1134 'frame/module_domain.f: Failed to allocate grid%xkmv(sm31:em31,sm32:em32,sm33:em33). ')
1135 endif
1136 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmv=initial_data_value
1137 ELSE
1138 ALLOCATE(grid%xkmv(1,1,1),STAT=ierr)
1139 if (ierr.ne.0) then
1140 CALL wrf_error_fatal ( &
1141 'frame/module_domain.f: Failed to allocate grid%xkmv(1,1,1). ')
1142 endif
1143 ENDIF
1144 IF(.NOT.inter_domain)THEN
1145 ALLOCATE(grid%xkmh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1146 if (ierr.ne.0) then
1147 CALL wrf_error_fatal ( &
1148 'frame/module_domain.f: Failed to allocate grid%xkmh(sm31:em31,sm32:em32,sm33:em33). ')
1149 endif
1150 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmh=initial_data_value
1151 ELSE
1152 ALLOCATE(grid%xkmh(1,1,1),STAT=ierr)
1153 if (ierr.ne.0) then
1154 CALL wrf_error_fatal ( &
1155 'frame/module_domain.f: Failed to allocate grid%xkmh(1,1,1). ')
1156 endif
1157 ENDIF
1158 IF(.NOT.inter_domain)THEN
1159 ALLOCATE(grid%xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1160 if (ierr.ne.0) then
1161 CALL wrf_error_fatal ( &
1162 'frame/module_domain.f: Failed to allocate grid%xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
1163 endif
1164 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmhd=initial_data_value
1165 ELSE
1166 ALLOCATE(grid%xkmhd(1,1,1),STAT=ierr)
1167 if (ierr.ne.0) then
1168 CALL wrf_error_fatal ( &
1169 'frame/module_domain.f: Failed to allocate grid%xkmhd(1,1,1). ')
1170 endif
1171 ENDIF
1172 IF(.NOT.inter_domain)THEN
1173 ALLOCATE(grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1174 if (ierr.ne.0) then
1175 CALL wrf_error_fatal ( &
1176 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
1177 endif
1178 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_xkmhd=initial_data_value
1179 ELSE
1180 ALLOCATE(grid%a_xkmhd(1,1,1),STAT=ierr)
1181 if (ierr.ne.0) then
1182 CALL wrf_error_fatal ( &
1183 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(1,1,1). ')
1184 endif
1185 ENDIF
1186 IF(.NOT.inter_domain)THEN
1187 ALLOCATE(grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1188 if (ierr.ne.0) then
1189 CALL wrf_error_fatal ( &
1190 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
1191 endif
1192 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_xkmhd=initial_data_value
1193 ELSE
1194 ALLOCATE(grid%g_xkmhd(1,1,1),STAT=ierr)
1195 if (ierr.ne.0) then
1196 CALL wrf_error_fatal ( &
1197 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(1,1,1). ')
1198 endif
1199 ENDIF
1200 IF(.NOT.inter_domain)THEN
1201 ALLOCATE(grid%xkhv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1202 if (ierr.ne.0) then
1203 CALL wrf_error_fatal ( &
1204 'frame/module_domain.f: Failed to allocate grid%xkhv(sm31:em31,sm32:em32,sm33:em33). ')
1205 endif
1206 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhv=initial_data_value
1207 ELSE
1208 ALLOCATE(grid%xkhv(1,1,1),STAT=ierr)
1209 if (ierr.ne.0) then
1210 CALL wrf_error_fatal ( &
1211 'frame/module_domain.f: Failed to allocate grid%xkhv(1,1,1). ')
1212 endif
1213 ENDIF
1214 IF(.NOT.inter_domain)THEN
1215 ALLOCATE(grid%xkhh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1216 if (ierr.ne.0) then
1217 CALL wrf_error_fatal ( &
1218 'frame/module_domain.f: Failed to allocate grid%xkhh(sm31:em31,sm32:em32,sm33:em33). ')
1219 endif
1220 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhh=initial_data_value
1221 ELSE
1222 ALLOCATE(grid%xkhh(1,1,1),STAT=ierr)
1223 if (ierr.ne.0) then
1224 CALL wrf_error_fatal ( &
1225 'frame/module_domain.f: Failed to allocate grid%xkhh(1,1,1). ')
1226 endif
1227 ENDIF
1228 IF ( setinitval .EQ. 3 ) grid%warm_rain=.FALSE.
1229 IF ( setinitval .EQ. 3 ) grid%adv_moist_cond=.FALSE.
1230 IF ( setinitval .EQ. 3 ) grid%moved=.FALSE.
1231 IF ( setinitval .EQ. 3 ) grid%write_increments=.FALSE.
1232 IF ( setinitval .EQ. 3 ) grid%var4d=.FALSE.
1233 IF ( setinitval .EQ. 3 ) grid%var4d_coupling=0
1234 IF ( setinitval .EQ. 3 ) grid%global=.FALSE.
1235 IF ( setinitval .EQ. 3 ) grid%oi_use=.FALSE.
1236 IF ( setinitval .EQ. 3 ) grid%print_detail_airep=.FALSE.
1237 IF ( setinitval .EQ. 3 ) grid%print_detail_radar=.FALSE.
1238 IF ( setinitval .EQ. 3 ) grid%print_detail_rad=.FALSE.
1239 IF ( setinitval .EQ. 3 ) grid%print_detail_xa=.FALSE.
1240 IF ( setinitval .EQ. 3 ) grid%print_detail_xb=.FALSE.
1241 IF ( setinitval .EQ. 3 ) grid%print_detail_obs=.FALSE.
1242 IF ( setinitval .EQ. 3 ) grid%print_detail_f_obs=.FALSE.
1243 IF ( setinitval .EQ. 3 ) grid%print_detail_map=.FALSE.
1244 IF ( setinitval .EQ. 3 ) grid%print_detail_grad=.FALSE.
1245 IF ( setinitval .EQ. 3 ) grid%print_detail_regression=.FALSE.
1246 IF ( setinitval .EQ. 3 ) grid%print_detail_spectral=.FALSE.
1247 IF ( setinitval .EQ. 3 ) grid%print_detail_testing=.FALSE.
1248 IF ( setinitval .EQ. 3 ) grid%print_detail_parallel=.FALSE.
1249 IF ( setinitval .EQ. 3 ) grid%print_detail_be=.FALSE.
1250 IF ( setinitval .EQ. 3 ) grid%print_detail_timing=.FALSE.
1251 IF ( setinitval .EQ. 3 ) grid%check_max_iv_print=.FALSE.
1252 IF ( setinitval .EQ. 3 ) grid%analysis_accu=0
1253 IF ( setinitval .EQ. 3 ) grid%calc_w_increment=.FALSE.
1254 IF ( setinitval .EQ. 3 ) grid%dt_cloud_model=.FALSE.
1255 IF ( setinitval .EQ. 3 ) grid%write_qcw=.FALSE.
1256 IF ( setinitval .EQ. 3 ) grid%write_qrn=.FALSE.
1257 IF ( setinitval .EQ. 3 ) grid%write_qci=.FALSE.
1258 IF ( setinitval .EQ. 3 ) grid%write_qsn=.FALSE.
1259 IF ( setinitval .EQ. 3 ) grid%write_qgr=.FALSE.
1260 IF ( setinitval .EQ. 3 ) grid%write_filtered_obs=.FALSE.
1261 IF ( setinitval .EQ. 3 ) grid%fg_format=0
1262 IF ( setinitval .EQ. 3 ) grid%ob_format=0
1263 IF ( setinitval .EQ. 3 ) grid%num_fgat_time=0
1264 IF ( setinitval .EQ. 3 ) grid%use_synopobs=.FALSE.
1265 IF ( setinitval .EQ. 3 ) grid%use_shipsobs=.FALSE.
1266 IF ( setinitval .EQ. 3 ) grid%use_metarobs=.FALSE.
1267 IF ( setinitval .EQ. 3 ) grid%use_soundobs=.FALSE.
1268 IF ( setinitval .EQ. 3 ) grid%use_pilotobs=.FALSE.
1269 IF ( setinitval .EQ. 3 ) grid%use_airepobs=.FALSE.
1270 IF ( setinitval .EQ. 3 ) grid%use_geoamvobs=.FALSE.
1271 IF ( setinitval .EQ. 3 ) grid%use_polaramvobs=.FALSE.
1272 IF ( setinitval .EQ. 3 ) grid%use_bogusobs=.FALSE.
1273 IF ( setinitval .EQ. 3 ) grid%use_buoyobs=.FALSE.
1274 IF ( setinitval .EQ. 3 ) grid%use_profilerobs=.FALSE.
1275 IF ( setinitval .EQ. 3 ) grid%use_satemobs=.FALSE.
1276 IF ( setinitval .EQ. 3 ) grid%use_gpspwobs=.FALSE.
1277 IF ( setinitval .EQ. 3 ) grid%use_gpsrefobs=.FALSE.
1278 IF ( setinitval .EQ. 3 ) grid%use_ssmiretrievalobs=.FALSE.
1279 IF ( setinitval .EQ. 3 ) grid%use_ssmitbobs=.FALSE.
1280 IF ( setinitval .EQ. 3 ) grid%use_ssmt1obs=.FALSE.
1281 IF ( setinitval .EQ. 3 ) grid%use_ssmt2obs=.FALSE.
1282 IF ( setinitval .EQ. 3 ) grid%use_qscatobs=.FALSE.
1283 IF ( setinitval .EQ. 3 ) grid%use_radarobs=.FALSE.
1284 IF ( setinitval .EQ. 3 ) grid%use_radar_rv=.FALSE.
1285 IF ( setinitval .EQ. 3 ) grid%use_radar_rf=.FALSE.
1286 IF ( setinitval .EQ. 3 ) grid%use_hirs2obs=.FALSE.
1287 IF ( setinitval .EQ. 3 ) grid%use_hirs3obs=.FALSE.
1288 IF ( setinitval .EQ. 3 ) grid%use_msuobs=.FALSE.
1289 IF ( setinitval .EQ. 3 ) grid%use_amsuaobs=.FALSE.
1290 IF ( setinitval .EQ. 3 ) grid%use_amsubobs=.FALSE.
1291 IF ( setinitval .EQ. 3 ) grid%use_airsobs=.FALSE.
1292 IF ( setinitval .EQ. 3 ) grid%use_airsretobs=.FALSE.
1293 IF ( setinitval .EQ. 3 ) grid%use_eos_amsuaobs=.FALSE.
1294 IF ( setinitval .EQ. 3 ) grid%use_eos_radobs=.FALSE.
1295 IF ( setinitval .EQ. 3 ) grid%use_hsbobs=.FALSE.
1296 IF ( setinitval .EQ. 3 ) grid%use_ssmisobs=.FALSE.
1297 IF ( setinitval .EQ. 3 ) grid%use_kma1dvar=.FALSE.
1298 IF ( setinitval .EQ. 3 ) grid%use_filtered_rad=.FALSE.
1299 IF ( setinitval .EQ. 3 ) grid%use_rad=.FALSE.
1300 IF ( setinitval .EQ. 3 ) grid%use_obsgts=.FALSE.
1301 IF ( setinitval .EQ. 3 ) grid%use_obs_errfac=.FALSE.
1302 IF ( setinitval .EQ. 3 ) grid%check_max_iv=.FALSE.
1303 IF ( setinitval .EQ. 3 ) grid%put_rand_seed=.FALSE.
1304 IF ( setinitval .EQ. 3 ) grid%omb_set_rand=.FALSE.
1305 IF ( setinitval .EQ. 3 ) grid%omb_add_noise=.FALSE.
1306 IF ( setinitval .EQ. 3 ) grid%obs_qc_pointer=0
1307 IF ( setinitval .EQ. 3 ) grid%max_sound_input=0
1308 IF ( setinitval .EQ. 3 ) grid%max_synop_input=0
1309 IF ( setinitval .EQ. 3 ) grid%max_geoamv_input=0
1310 IF ( setinitval .EQ. 3 ) grid%max_polaramv_input=0
1311 IF ( setinitval .EQ. 3 ) grid%max_airep_input=0
1312 IF ( setinitval .EQ. 3 ) grid%max_satem_input=0
1313 IF ( setinitval .EQ. 3 ) grid%max_pilot_input=0
1314 IF ( setinitval .EQ. 3 ) grid%max_radar_input=0
1315 IF ( setinitval .EQ. 3 ) grid%max_metar_input=0
1316 IF ( setinitval .EQ. 3 ) grid%max_gpspw_input=0
1317 IF ( setinitval .EQ. 3 ) grid%max_ships_input=0
1318 IF ( setinitval .EQ. 3 ) grid%max_profiler_input=0
1319 IF ( setinitval .EQ. 3 ) grid%max_bogus_input=0
1320 IF ( setinitval .EQ. 3 ) grid%max_buoy_input=0
1321 IF ( setinitval .EQ. 3 ) grid%max_ssmi_ret_input=0
1322 IF ( setinitval .EQ. 3 ) grid%max_ssmi_tb_input=0
1323 IF ( setinitval .EQ. 3 ) grid%max_ssmt1_input=0
1324 IF ( setinitval .EQ. 3 ) grid%max_ssmt2_input=0
1325 IF ( setinitval .EQ. 3 ) grid%max_qscat_input=0
1326 IF ( setinitval .EQ. 3 ) grid%max_gpsref_input=0
1327 IF ( setinitval .EQ. 3 ) grid%max_airsret_input=0
1328 IF ( setinitval .EQ. 3 ) grid%max_tovs_input=0
1329 IF ( setinitval .EQ. 3 ) grid%max_ssmis_input=0
1330 IF ( setinitval .EQ. 3 ) grid%report_start=0
1331 IF ( setinitval .EQ. 3 ) grid%report_end=0
1332 IF ( setinitval .EQ. 3 ) grid%tovs_start=0
1333 IF ( setinitval .EQ. 3 ) grid%tovs_end=0
1334 IF ( setinitval .EQ. 3 ) grid%max_ext_its=0
1335 IF ( setinitval .EQ. 3 ) grid%ntmax=0
1336 IF ( setinitval .EQ. 3 ) grid%nsave=0
1337 IF ( setinitval .EQ. 3 ) grid%write_interval=0
1338 IF ( setinitval .EQ. 3 ) grid%eps=initial_data_value
1339 IF ( setinitval .EQ. 3 ) grid%rf_passes=0
1340 IF ( setinitval .EQ. 3 ) grid%var_scaling1=initial_data_value
1341 IF ( setinitval .EQ. 3 ) grid%var_scaling2=initial_data_value
1342 IF ( setinitval .EQ. 3 ) grid%var_scaling3=initial_data_value
1343 IF ( setinitval .EQ. 3 ) grid%var_scaling4=initial_data_value
1344 IF ( setinitval .EQ. 3 ) grid%var_scaling5=initial_data_value
1345 IF ( setinitval .EQ. 3 ) grid%len_scaling1=initial_data_value
1346 IF ( setinitval .EQ. 3 ) grid%len_scaling2=initial_data_value
1347 IF ( setinitval .EQ. 3 ) grid%len_scaling3=initial_data_value
1348 IF ( setinitval .EQ. 3 ) grid%len_scaling4=initial_data_value
1349 IF ( setinitval .EQ. 3 ) grid%len_scaling5=initial_data_value
1350 IF ( setinitval .EQ. 3 ) grid%jb_factor=initial_data_value
1351 IF ( setinitval .EQ. 3 ) grid%je_factor=initial_data_value
1352 IF ( setinitval .EQ. 3 ) grid%power_truncation=initial_data_value
1353 IF ( setinitval .EQ. 3 ) grid%def_sub_domain=.FALSE.
1354 IF ( setinitval .EQ. 3 ) grid%x_start_sub_domain=initial_data_value
1355 IF ( setinitval .EQ. 3 ) grid%y_start_sub_domain=initial_data_value
1356 IF ( setinitval .EQ. 3 ) grid%x_end_sub_domain=initial_data_value
1357 IF ( setinitval .EQ. 3 ) grid%y_end_sub_domain=initial_data_value
1358 IF ( setinitval .EQ. 3 ) grid%stdout=0
1359 IF ( setinitval .EQ. 3 ) grid%stderr=0
1360 IF ( setinitval .EQ. 3 ) grid%trace_unit=0
1361 IF ( setinitval .EQ. 3 ) grid%trace_pe=0
1362 IF ( setinitval .EQ. 3 ) grid%trace_repeat_head=0
1363 IF ( setinitval .EQ. 3 ) grid%trace_repeat_body=0
1364 IF ( setinitval .EQ. 3 ) grid%trace_max_depth=0
1365 IF ( setinitval .EQ. 3 ) grid%trace_use=.FALSE.
1366 IF ( setinitval .EQ. 3 ) grid%trace_use_frequent=.FALSE.
1367 IF ( setinitval .EQ. 3 ) grid%trace_memory=.FALSE.
1368 IF ( setinitval .EQ. 3 ) grid%trace_all_pes=.FALSE.
1369 IF ( setinitval .EQ. 3 ) grid%trace_csv=.FALSE.
1370 IF ( setinitval .EQ. 3 ) grid%use_html=.FALSE.
1371 IF ( setinitval .EQ. 3 ) grid%warnings_are_fatal=.FALSE.
1372 IF ( setinitval .EQ. 3 ) grid%testing_wrfvar=.FALSE.
1373 IF ( setinitval .EQ. 3 ) grid%test_transforms=.FALSE.
1374 IF ( setinitval .EQ. 3 ) grid%test_statistics=.FALSE.
1375 IF ( setinitval .EQ. 3 ) grid%interpolate_stats=.FALSE.
1376 IF ( setinitval .EQ. 3 ) grid%testing_dm_exact=.FALSE.
1377 IF ( setinitval .EQ. 3 ) grid%cv_options_hum=0
1378 IF ( setinitval .EQ. 3 ) grid%check_rh=0
1379 IF ( setinitval .EQ. 3 ) grid%set_omb_rand_fac=0
1380 IF ( setinitval .EQ. 3 ) grid%seed_array1=0
1381 IF ( setinitval .EQ. 3 ) grid%seed_array2=0
1382 IF ( setinitval .EQ. 3 ) grid%sfc_assi_options=0
1383 IF ( setinitval .EQ. 3 ) grid%calculate_cg_cost_fn=.FALSE.
1384 IF ( setinitval .EQ. 3 ) grid%lat_stats_option=.FALSE.
1385 IF ( setinitval .EQ. 3 ) grid%as1=initial_data_value
1386 IF ( setinitval .EQ. 3 ) grid%as2=initial_data_value
1387 IF ( setinitval .EQ. 3 ) grid%as3=initial_data_value
1388 IF ( setinitval .EQ. 3 ) grid%as4=initial_data_value
1389 IF ( setinitval .EQ. 3 ) grid%as5=initial_data_value
1390 IF ( setinitval .EQ. 3 ) grid%balance_type=0
1391 IF ( setinitval .EQ. 3 ) grid%vert_corr=0
1392 IF ( setinitval .EQ. 3 ) grid%vertical_ip=0
1393 IF ( setinitval .EQ. 3 ) grid%vert_evalue=0
1394 IF ( setinitval .EQ. 3 ) grid%max_vert_var1=initial_data_value
1395 IF ( setinitval .EQ. 3 ) grid%max_vert_var2=initial_data_value
1396 IF ( setinitval .EQ. 3 ) grid%max_vert_var3=initial_data_value
1397 IF ( setinitval .EQ. 3 ) grid%max_vert_var4=initial_data_value
1398 IF ( setinitval .EQ. 3 ) grid%max_vert_var5=initial_data_value
1399 IF ( setinitval .EQ. 3 ) grid%rtminit_print=0
1400 IF ( setinitval .EQ. 3 ) grid%rtminit_nsensor=0
1401 IF ( setinitval .EQ. 3 ) grid%rtminit_platform=0
1402 IF ( setinitval .EQ. 3 ) grid%rtminit_satid=0
1403 IF ( setinitval .EQ. 3 ) grid%rtminit_sensor=0
1404 IF ( setinitval .EQ. 3 ) grid%rad_monitoring=0
1405 IF ( setinitval .EQ. 3 ) grid%thinning_mesh=initial_data_value
1406 IF ( setinitval .EQ. 3 ) grid%thinning=.FALSE.
1407 IF ( setinitval .EQ. 3 ) grid%read_biascoef=.FALSE.
1408 IF ( setinitval .EQ. 3 ) grid%biascorr=.FALSE.
1409 IF ( setinitval .EQ. 3 ) grid%biasprep=.FALSE.
1410 IF ( setinitval .EQ. 3 ) grid%rttov_scatt=.FALSE.
1411 IF ( setinitval .EQ. 3 ) grid%write_profile=.FALSE.
1412 IF ( setinitval .EQ. 3 ) grid%qc_rad=.FALSE.
1413 IF ( setinitval .EQ. 3 ) grid%write_iv_rad_ascii=.FALSE.
1414 IF ( setinitval .EQ. 3 ) grid%write_oa_rad_ascii=.FALSE.
1415 IF ( setinitval .EQ. 3 ) grid%write_filtered_rad=.FALSE.
1416 IF ( setinitval .EQ. 3 ) grid%use_error_factor_rad=.FALSE.
1417 IF ( setinitval .EQ. 3 ) grid%use_landem=.FALSE.
1418 IF ( setinitval .EQ. 3 ) grid%mw_emis_sea=0
1419 IF ( setinitval .EQ. 3 ) grid%tovs_min_transfer=0
1420 IF ( setinitval .EQ. 3 ) grid%tovs_batch=.FALSE.
1421 IF ( setinitval .EQ. 3 ) grid%rtm_option=0
1422 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix=.FALSE.
1423 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix_fast=.FALSE.
1424 IF ( setinitval .EQ. 3 ) grid%crtm_cloud=.FALSE.
1425 IF ( setinitval .EQ. 3 ) grid%only_sea_rad=.FALSE.
1426 IF ( setinitval .EQ. 3 ) grid%num_pseudo=0
1427 IF ( setinitval .EQ. 3 ) grid%pseudo_x=initial_data_value
1428 IF ( setinitval .EQ. 3 ) grid%pseudo_y=initial_data_value
1429 IF ( setinitval .EQ. 3 ) grid%pseudo_z=initial_data_value
1430 IF ( setinitval .EQ. 3 ) grid%pseudo_val=initial_data_value
1431 IF ( setinitval .EQ. 3 ) grid%pseudo_err=initial_data_value
1432 IF ( setinitval .EQ. 3 ) grid%alphacv_method=0
1433 IF ( setinitval .EQ. 3 ) grid%ensdim_alpha=0
1434 IF ( setinitval .EQ. 3 ) grid%alpha_truncation=0
1435 IF ( setinitval .EQ. 3 ) grid%alpha_corr_type=0
1436 IF ( setinitval .EQ. 3 ) grid%alpha_corr_scale=initial_data_value
1437 IF ( setinitval .EQ. 3 ) grid%alpha_std_dev=initial_data_value
1438 IF ( setinitval .EQ. 3 ) grid%run_days=0
1439 IF ( setinitval .EQ. 3 ) grid%run_hours=0
1440 IF ( setinitval .EQ. 3 ) grid%run_minutes=0
1441 IF ( setinitval .EQ. 3 ) grid%run_seconds=0
1442 IF ( setinitval .EQ. 3 ) grid%start_year=0
1443 IF ( setinitval .EQ. 3 ) grid%start_month=0
1444 IF ( setinitval .EQ. 3 ) grid%start_day=0
1445 IF ( setinitval .EQ. 3 ) grid%start_hour=0
1446 IF ( setinitval .EQ. 3 ) grid%start_minute=0
1447 IF ( setinitval .EQ. 3 ) grid%start_second=0
1448 IF ( setinitval .EQ. 3 ) grid%end_year=0
1449 IF ( setinitval .EQ. 3 ) grid%end_month=0
1450 IF ( setinitval .EQ. 3 ) grid%end_day=0
1451 IF ( setinitval .EQ. 3 ) grid%end_hour=0
1452 IF ( setinitval .EQ. 3 ) grid%end_minute=0
1453 IF ( setinitval .EQ. 3 ) grid%end_second=0
1454 IF ( setinitval .EQ. 3 ) grid%interval_seconds=0
1455 IF ( setinitval .EQ. 3 ) grid%input_from_file=.FALSE.
1456 IF ( setinitval .EQ. 3 ) grid%fine_input_stream=0
1457 IF ( setinitval .EQ. 3 ) grid%input_from_hires=.FALSE.
1458 IF ( setinitval .EQ. 3 ) grid%oid=0
1459 IF ( setinitval .EQ. 3 ) grid%auxhist1_oid=0
1460 IF ( setinitval .EQ. 3 ) grid%auxhist2_oid=0
1461 IF ( setinitval .EQ. 3 ) grid%auxhist3_oid=0
1462 IF ( setinitval .EQ. 3 ) grid%auxhist4_oid=0
1463 IF ( setinitval .EQ. 3 ) grid%auxhist5_oid=0
1464 IF ( setinitval .EQ. 3 ) grid%auxhist6_oid=0
1465 IF ( setinitval .EQ. 3 ) grid%auxhist7_oid=0
1466 IF ( setinitval .EQ. 3 ) grid%auxhist8_oid=0
1467 IF ( setinitval .EQ. 3 ) grid%auxhist9_oid=0
1468 IF ( setinitval .EQ. 3 ) grid%auxhist10_oid=0
1469 IF ( setinitval .EQ. 3 ) grid%auxhist11_oid=0
1470 IF ( setinitval .EQ. 3 ) grid%auxinput1_oid=0
1471 IF ( setinitval .EQ. 3 ) grid%auxinput2_oid=0
1472 IF ( setinitval .EQ. 3 ) grid%auxinput3_oid=0
1473 IF ( setinitval .EQ. 3 ) grid%auxinput4_oid=0
1474 IF ( setinitval .EQ. 3 ) grid%auxinput5_oid=0
1475 IF ( setinitval .EQ. 3 ) grid%auxinput6_oid=0
1476 IF ( setinitval .EQ. 3 ) grid%auxinput7_oid=0
1477 IF ( setinitval .EQ. 3 ) grid%auxinput8_oid=0
1478 IF ( setinitval .EQ. 3 ) grid%auxinput9_oid=0
1479 IF ( setinitval .EQ. 3 ) grid%auxinput10_oid=0
1480 IF ( setinitval .EQ. 3 ) grid%auxinput11_oid=0
1481 IF ( setinitval .EQ. 3 ) grid%history_interval=0
1482 IF ( setinitval .EQ. 3 ) grid%frames_per_outfile=0
1483 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist1=0
1484 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist2=0
1485 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist3=0
1486 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist4=0
1487 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist5=0
1488 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist6=0
1489 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist7=0
1490 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist8=0
1491 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist9=0
1492 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist10=0
1493 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist11=0
1494 IF ( setinitval .EQ. 3 ) grid%restart=.FALSE.
1495 IF ( setinitval .EQ. 3 ) grid%restart_interval=0
1496 IF ( setinitval .EQ. 3 ) grid%io_form_input=0
1497 IF ( setinitval .EQ. 3 ) grid%io_form_history=0
1498 IF ( setinitval .EQ. 3 ) grid%io_form_restart=0
1499 IF ( setinitval .EQ. 3 ) grid%io_form_boundary=0
1500 IF ( setinitval .EQ. 3 ) grid%debug_level=0
1501 IF ( setinitval .EQ. 3 ) grid%self_test_domain=.FALSE.
1502 IF ( setinitval .EQ. 3 ) grid%history_interval_mo=0
1503 IF ( setinitval .EQ. 3 ) grid%history_interval_d=0
1504 IF ( setinitval .EQ. 3 ) grid%history_interval_h=0
1505 IF ( setinitval .EQ. 3 ) grid%history_interval_m=0
1506 IF ( setinitval .EQ. 3 ) grid%history_interval_s=0
1507 IF ( setinitval .EQ. 3 ) grid%inputout_interval_mo=0
1508 IF ( setinitval .EQ. 3 ) grid%inputout_interval_d=0
1509 IF ( setinitval .EQ. 3 ) grid%inputout_interval_h=0
1510 IF ( setinitval .EQ. 3 ) grid%inputout_interval_m=0
1511 IF ( setinitval .EQ. 3 ) grid%inputout_interval_s=0
1512 IF ( setinitval .EQ. 3 ) grid%inputout_interval=0
1513 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_mo=0
1514 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_d=0
1515 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_h=0
1516 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_m=0
1517 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_s=0
1518 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval=0
1519 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_mo=0
1520 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_d=0
1521 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_h=0
1522 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_m=0
1523 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_s=0
1524 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval=0
1525 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_mo=0
1526 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_d=0
1527 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_h=0
1528 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_m=0
1529 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_s=0
1530 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval=0
1531 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_mo=0
1532 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_d=0
1533 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_h=0
1534 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_m=0
1535 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_s=0
1536 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval=0
1537 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_mo=0
1538 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_d=0
1539 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_h=0
1540 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_m=0
1541 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_s=0
1542 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval=0
1543 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_mo=0
1544 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_d=0
1545 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_h=0
1546 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_m=0
1547 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_s=0
1548 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval=0
1549 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_mo=0
1550 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_d=0
1551 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_h=0
1552 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_m=0
1553 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_s=0
1554 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval=0
1555 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_mo=0
1556 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_d=0
1557 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_h=0
1558 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_m=0
1559 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_s=0
1560 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval=0
1561 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_mo=0
1562 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_d=0
1563 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_h=0
1564 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_m=0
1565 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_s=0
1566 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval=0
1567 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_mo=0
1568 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_d=0
1569 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_h=0
1570 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_m=0
1571 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_s=0
1572 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval=0
1573 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_mo=0
1574 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_d=0
1575 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_h=0
1576 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_m=0
1577 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_s=0
1578 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval=0
1579 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_mo=0
1580 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_d=0
1581 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_h=0
1582 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_m=0
1583 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_s=0
1584 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval=0
1585 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_mo=0
1586 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_d=0
1587 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_h=0
1588 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_m=0
1589 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_s=0
1590 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval=0
1591 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_mo=0
1592 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_d=0
1593 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_h=0
1594 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_m=0
1595 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_s=0
1596 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval=0
1597 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_mo=0
1598 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_d=0
1599 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_h=0
1600 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_m=0
1601 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_s=0
1602 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval=0
1603 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_mo=0
1604 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_d=0
1605 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_h=0
1606 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_m=0
1607 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_s=0
1608 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval=0
1609 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_mo=0
1610 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_d=0
1611 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_h=0
1612 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_m=0
1613 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_s=0
1614 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval=0
1615 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_mo=0
1616 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_d=0
1617 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_h=0
1618 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_m=0
1619 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_s=0
1620 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval=0
1621 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_mo=0
1622 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_d=0
1623 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_h=0
1624 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_m=0
1625 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_s=0
1626 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval=0
1627 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_mo=0
1628 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_d=0
1629 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_h=0
1630 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_m=0
1631 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_s=0
1632 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval=0
1633 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_mo=0
1634 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_d=0
1635 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_h=0
1636 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_m=0
1637 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_s=0
1638 IF ( setinitval .EQ. 3 ) grid%gfdda_interval=0
1639 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_mo=0
1640 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_d=0
1641 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_h=0
1642 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_m=0
1643 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_s=0
1644 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval=0
1645 IF ( setinitval .EQ. 3 ) grid%restart_interval_mo=0
1646 IF ( setinitval .EQ. 3 ) grid%restart_interval_d=0
1647 IF ( setinitval .EQ. 3 ) grid%restart_interval_h=0
1648 IF ( setinitval .EQ. 3 ) grid%restart_interval_m=0
1649 IF ( setinitval .EQ. 3 ) grid%restart_interval_s=0
1650 IF ( setinitval .EQ. 3 ) grid%history_begin_y=0
1651 IF ( setinitval .EQ. 3 ) grid%history_begin_mo=0
1652 IF ( setinitval .EQ. 3 ) grid%history_begin_d=0
1653 IF ( setinitval .EQ. 3 ) grid%history_begin_h=0
1654 IF ( setinitval .EQ. 3 ) grid%history_begin_m=0
1655 IF ( setinitval .EQ. 3 ) grid%history_begin_s=0
1656 IF ( setinitval .EQ. 3 ) grid%inputout_begin_y=0
1657 IF ( setinitval .EQ. 3 ) grid%inputout_begin_mo=0
1658 IF ( setinitval .EQ. 3 ) grid%inputout_begin_d=0
1659 IF ( setinitval .EQ. 3 ) grid%inputout_begin_h=0
1660 IF ( setinitval .EQ. 3 ) grid%inputout_begin_m=0
1661 IF ( setinitval .EQ. 3 ) grid%inputout_begin_s=0
1662 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_y=0
1663 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_mo=0
1664 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_d=0
1665 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_h=0
1666 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_m=0
1667 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_s=0
1668 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_y=0
1669 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_mo=0
1670 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_d=0
1671 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_h=0
1672 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_m=0
1673 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_s=0
1674 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_y=0
1675 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_mo=0
1676 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_d=0
1677 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_h=0
1678 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_m=0
1679 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_s=0
1680 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_y=0
1681 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_mo=0
1682 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_d=0
1683 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_h=0
1684 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_m=0
1685 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_s=0
1686 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_y=0
1687 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_mo=0
1688 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_d=0
1689 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_h=0
1690 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_m=0
1691 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_s=0
1692 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_y=0
1693 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_mo=0
1694 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_d=0
1695 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_h=0
1696 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_m=0
1697 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_s=0
1698 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_y=0
1699 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_mo=0
1700 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_d=0
1701 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_h=0
1702 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_m=0
1703 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_s=0
1704 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_y=0
1705 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_mo=0
1706 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_d=0
1707 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_h=0
1708 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_m=0
1709 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_s=0
1710 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_y=0
1711 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_mo=0
1712 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_d=0
1713 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_h=0
1714 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_m=0
1715 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_s=0
1716 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_y=0
1717 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_mo=0
1718 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_d=0
1719 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_h=0
1720 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_m=0
1721 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_s=0
1722 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_y=0
1723 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_mo=0
1724 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_d=0
1725 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_h=0
1726 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_m=0
1727 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_s=0
1728 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_y=0
1729 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_mo=0
1730 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_d=0
1731 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_h=0
1732 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_m=0
1733 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_s=0
1734 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_y=0
1735 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_mo=0
1736 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_d=0
1737 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_h=0
1738 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_m=0
1739 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_s=0
1740 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_y=0
1741 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_mo=0
1742 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_d=0
1743 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_h=0
1744 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_m=0
1745 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_s=0
1746 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_y=0
1747 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_mo=0
1748 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_d=0
1749 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_h=0
1750 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_m=0
1751 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_s=0
1752 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_y=0
1753 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_mo=0
1754 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_d=0
1755 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_h=0
1756 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_m=0
1757 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_s=0
1758 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_y=0
1759 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_mo=0
1760 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_d=0
1761 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_h=0
1762 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_m=0
1763 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_s=0
1764 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_y=0
1765 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_mo=0
1766 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_d=0
1767 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_h=0
1768 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_m=0
1769 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_s=0
1770 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_y=0
1771 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_mo=0
1772 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_d=0
1773 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_h=0
1774 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_m=0
1775 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_s=0
1776 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_y=0
1777 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_mo=0
1778 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_d=0
1779 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_h=0
1780 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_m=0
1781 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_s=0
1782 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_y=0
1783 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_mo=0
1784 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_d=0
1785 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_h=0
1786 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_m=0
1787 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_s=0
1788 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_y=0
1789 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_mo=0
1790 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_d=0
1791 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_h=0
1792 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_m=0
1793 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_s=0
1794 IF ( setinitval .EQ. 3 ) grid%restart_begin_y=0
1795 IF ( setinitval .EQ. 3 ) grid%restart_begin_mo=0
1796 IF ( setinitval .EQ. 3 ) grid%restart_begin_d=0
1797 IF ( setinitval .EQ. 3 ) grid%restart_begin_h=0
1798 IF ( setinitval .EQ. 3 ) grid%restart_begin_m=0
1799 IF ( setinitval .EQ. 3 ) grid%restart_begin_s=0
1800 IF ( setinitval .EQ. 3 ) grid%history_end_y=0
1801 IF ( setinitval .EQ. 3 ) grid%history_end_mo=0
1802 IF ( setinitval .EQ. 3 ) grid%history_end_d=0
1803 IF ( setinitval .EQ. 3 ) grid%history_end_h=0
1804 IF ( setinitval .EQ. 3 ) grid%history_end_m=0
1805 IF ( setinitval .EQ. 3 ) grid%history_end_s=0
1806 IF ( setinitval .EQ. 3 ) grid%inputout_end_y=0
1807 IF ( setinitval .EQ. 3 ) grid%inputout_end_mo=0
1808 IF ( setinitval .EQ. 3 ) grid%inputout_end_d=0
1809 IF ( setinitval .EQ. 3 ) grid%inputout_end_h=0
1810 IF ( setinitval .EQ. 3 ) grid%inputout_end_m=0
1811 IF ( setinitval .EQ. 3 ) grid%inputout_end_s=0
1812 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_y=0
1813 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_mo=0
1814 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_d=0
1815 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_h=0
1816 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_m=0
1817 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_s=0
1818 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_y=0
1819 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_mo=0
1820 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_d=0
1821 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_h=0
1822 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_m=0
1823 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_s=0
1824 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_y=0
1825 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_mo=0
1826 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_d=0
1827 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_h=0
1828 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_m=0
1829 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_s=0
1830 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_y=0
1831 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_mo=0
1832 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_d=0
1833 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_h=0
1834 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_m=0
1835 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_s=0
1836 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_y=0
1837 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_mo=0
1838 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_d=0
1839 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_h=0
1840 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_m=0
1841 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_s=0
1842 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_y=0
1843 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_mo=0
1844 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_d=0
1845 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_h=0
1846 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_m=0
1847 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_s=0
1848 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_y=0
1849 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_mo=0
1850 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_d=0
1851 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_h=0
1852 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_m=0
1853 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_s=0
1854 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_y=0
1855 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_mo=0
1856 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_d=0
1857 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_h=0
1858 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_m=0
1859 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_s=0
1860 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_y=0
1861 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_mo=0
1862 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_d=0
1863 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_h=0
1864 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_m=0
1865 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_s=0
1866 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_y=0
1867 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_mo=0
1868 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_d=0
1869 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_h=0
1870 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_m=0
1871 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_s=0
1872 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_y=0
1873 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_mo=0
1874 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_d=0
1875 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_h=0
1876 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_m=0
1877 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_s=0
1878 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_y=0
1879 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_mo=0
1880 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_d=0
1881 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_h=0
1882 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_m=0
1883 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_s=0
1884 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_y=0
1885 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_mo=0
1886 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_d=0
1887 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_h=0
1888 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_m=0
1889 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_s=0
1890 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_y=0
1891 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_mo=0
1892 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_d=0
1893 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_h=0
1894 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_m=0
1895 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_s=0
1896 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_y=0
1897 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_mo=0
1898 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_d=0
1899 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_h=0
1900 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_m=0
1901 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_s=0
1902 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_y=0
1903 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_mo=0
1904 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_d=0
1905 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_h=0
1906 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_m=0
1907 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_s=0
1908 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_y=0
1909 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_mo=0
1910 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_d=0
1911 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_h=0
1912 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_m=0
1913 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_s=0
1914 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_y=0
1915 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_mo=0
1916 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_d=0
1917 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_h=0
1918 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_m=0
1919 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_s=0
1920 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_y=0
1921 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_mo=0
1922 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_d=0
1923 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_h=0
1924 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_m=0
1925 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_s=0
1926 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_y=0
1927 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_mo=0
1928 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_d=0
1929 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_h=0
1930 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_m=0
1931 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_s=0
1932 IF ( setinitval .EQ. 3 ) grid%gfdda_end_y=0
1933 IF ( setinitval .EQ. 3 ) grid%gfdda_end_mo=0
1934 IF ( setinitval .EQ. 3 ) grid%gfdda_end_d=0
1935 IF ( setinitval .EQ. 3 ) grid%gfdda_end_h=0
1936 IF ( setinitval .EQ. 3 ) grid%gfdda_end_m=0
1937 IF ( setinitval .EQ. 3 ) grid%gfdda_end_s=0
1938 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_y=0
1939 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_mo=0
1940 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_d=0
1941 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_h=0
1942 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_m=0
1943 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_s=0
1944 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput1=0
1945 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput2=0
1946 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput3=0
1947 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput4=0
1948 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput5=0
1949 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput6=0
1950 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput7=0
1951 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput8=0
1952 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput9=0
1953 IF ( setinitval .EQ. 3 ) grid%io_form_gfdda=0
1954 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput11=0
1955 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist1=0
1956 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist2=0
1957 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist3=0
1958 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist4=0
1959 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist5=0
1960 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist6=0
1961 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist7=0
1962 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist8=0
1963 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist9=0
1964 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist10=0
1965 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist11=0
1966 IF ( setinitval .EQ. 3 ) grid%julyr=0
1967 IF ( setinitval .EQ. 3 ) grid%julday=0
1968 IF ( setinitval .EQ. 3 ) grid%gmt=initial_data_value
1969 IF ( setinitval .EQ. 3 ) grid%write_input=.FALSE.
1970 IF ( setinitval .EQ. 3 ) grid%write_restart_at_0h=.FALSE.
1971 IF ( setinitval .EQ. 3 ) grid%adjust_output_times=.FALSE.
1972 IF ( setinitval .EQ. 3 ) grid%adjust_input_times=.FALSE.
1973 IF ( setinitval .EQ. 3 ) grid%nocolons=.FALSE.
1974 IF ( setinitval .EQ. 3 ) grid%time_step=0
1975 IF ( setinitval .EQ. 3 ) grid%time_step_fract_num=0
1976 IF ( setinitval .EQ. 3 ) grid%time_step_fract_den=0
1977 IF ( setinitval .EQ. 3 ) grid%max_dom=0
1978 IF ( setinitval .EQ. 3 ) grid%s_we=0
1979 IF ( setinitval .EQ. 3 ) grid%e_we=0
1980 IF ( setinitval .EQ. 3 ) grid%s_sn=0
1981 IF ( setinitval .EQ. 3 ) grid%e_sn=0
1982 IF ( setinitval .EQ. 3 ) grid%s_vert=0
1983 IF ( setinitval .EQ. 3 ) grid%e_vert=0
1984 IF ( setinitval .EQ. 3 ) grid%num_metgrid_levels=0
1985 IF ( setinitval .EQ. 3 ) grid%p_top_requested=initial_data_value
1986 IF ( setinitval .EQ. 3 ) grid%interp_type=0
1987 IF ( setinitval .EQ. 3 ) grid%lowest_lev_from_sfc=.FALSE.
1988 IF ( setinitval .EQ. 3 ) grid%lagrange_order=0
1989 IF ( setinitval .EQ. 3 ) grid%dx=initial_data_value
1990 IF ( setinitval .EQ. 3 ) grid%dy=initial_data_value
1991 IF ( setinitval .EQ. 3 ) grid%grid_id=0
1992 IF ( setinitval .EQ. 3 ) grid%parent_id=0
1993 IF ( setinitval .EQ. 3 ) grid%i_parent_start=0
1994 IF ( setinitval .EQ. 3 ) grid%j_parent_start=0
1995 IF ( setinitval .EQ. 3 ) grid%parent_grid_ratio=0
1996 IF ( setinitval .EQ. 3 ) grid%parent_time_step_ratio=0
1997 IF ( setinitval .EQ. 3 ) grid%feedback=0
1998 IF ( setinitval .EQ. 3 ) grid%smooth_option=0
1999 IF ( setinitval .EQ. 3 ) grid%blend_width=0
2000 IF ( setinitval .EQ. 3 ) grid%ztop=initial_data_value
2001 IF ( setinitval .EQ. 3 ) grid%moad_grid_ratio=0
2002 IF ( setinitval .EQ. 3 ) grid%moad_time_step_ratio=0
2003 IF ( setinitval .EQ. 3 ) grid%shw=0
2004 IF ( setinitval .EQ. 3 ) grid%tile_sz_x=0
2005 IF ( setinitval .EQ. 3 ) grid%tile_sz_y=0
2006 IF ( setinitval .EQ. 3 ) grid%numtiles=0
2007 IF ( setinitval .EQ. 3 ) grid%nproc_x=0
2008 IF ( setinitval .EQ. 3 ) grid%nproc_y=0
2009 IF ( setinitval .EQ. 3 ) grid%irand=0
2010 IF ( setinitval .EQ. 3 ) grid%dt=initial_data_value
2011 IF ( setinitval .EQ. 3 ) grid%num_moves=0
2012 IF ( setinitval .EQ. 3 ) grid%vortex_interval=0
2013 IF ( setinitval .EQ. 3 ) grid%max_vortex_speed=0
2014 IF ( setinitval .EQ. 3 ) grid%corral_dist=0
2015 IF ( setinitval .EQ. 3 ) grid%move_id=0
2016 IF ( setinitval .EQ. 3 ) grid%move_interval=0
2017 IF ( setinitval .EQ. 3 ) grid%move_cd_x=0
2018 IF ( setinitval .EQ. 3 ) grid%move_cd_y=0
2019 IF ( setinitval .EQ. 3 ) grid%swap_x=.FALSE.
2020 IF ( setinitval .EQ. 3 ) grid%swap_y=.FALSE.
2021 IF ( setinitval .EQ. 3 ) grid%cycle_x=.FALSE.
2022 IF ( setinitval .EQ. 3 ) grid%cycle_y=.FALSE.
2023 IF ( setinitval .EQ. 3 ) grid%reorder_mesh=.FALSE.
2024 IF ( setinitval .EQ. 3 ) grid%perturb_input=.FALSE.
2025 IF ( setinitval .EQ. 3 ) grid%eta_levels=initial_data_value
2026 IF ( setinitval .EQ. 3 ) grid%max_dz=initial_data_value
2027 IF ( setinitval .EQ. 3 ) grid%mp_physics=0
2028 IF ( setinitval .EQ. 3 ) grid%ra_lw_physics=0
2029 IF ( setinitval .EQ. 3 ) grid%ra_sw_physics=0
2030 IF ( setinitval .EQ. 3 ) grid%radt=initial_data_value
2031 IF ( setinitval .EQ. 3 ) grid%sf_sfclay_physics=0
2032 IF ( setinitval .EQ. 3 ) grid%sf_surface_physics=0
2033 IF ( setinitval .EQ. 3 ) grid%bl_pbl_physics=0
2034 IF ( setinitval .EQ. 3 ) grid%bldt=initial_data_value
2035 IF ( setinitval .EQ. 3 ) grid%cu_physics=0
2036 IF ( setinitval .EQ. 3 ) grid%cudt=initial_data_value
2037 IF ( setinitval .EQ. 3 ) grid%gsmdt=initial_data_value
2038 IF ( setinitval .EQ. 3 ) grid%isfflx=0
2039 IF ( setinitval .EQ. 3 ) grid%ifsnow=0
2040 IF ( setinitval .EQ. 3 ) grid%icloud=0
2041 IF ( setinitval .EQ. 3 ) grid%swrad_scat=initial_data_value
2042 IF ( setinitval .EQ. 3 ) grid%surface_input_source=0
2043 IF ( setinitval .EQ. 3 ) grid%num_soil_layers=0
2044 IF ( setinitval .EQ. 3 ) grid%num_months=0
2045 IF ( setinitval .EQ. 3 ) grid%maxiens=0
2046 IF ( setinitval .EQ. 3 ) grid%maxens=0
2047 IF ( setinitval .EQ. 3 ) grid%maxens2=0
2048 IF ( setinitval .EQ. 3 ) grid%maxens3=0
2049 IF ( setinitval .EQ. 3 ) grid%ensdim=0
2050 IF ( setinitval .EQ. 3 ) grid%chem_opt=0
2051 IF ( setinitval .EQ. 3 ) grid%num_land_cat=0
2052 IF ( setinitval .EQ. 3 ) grid%num_soil_cat=0
2053 IF ( setinitval .EQ. 3 ) grid%mp_zero_out=0
2054 IF ( setinitval .EQ. 3 ) grid%mp_zero_out_thresh=initial_data_value
2055 IF ( setinitval .EQ. 3 ) grid%seaice_threshold=initial_data_value
2056 IF ( setinitval .EQ. 3 ) grid%sst_update=0
2057 IF ( setinitval .EQ. 3 ) grid%ucmcall=0
2058 IF ( setinitval .EQ. 3 ) grid%co2tf=0
2059 IF ( setinitval .EQ. 3 ) grid%ra_call_offset=0
2060 IF ( setinitval .EQ. 3 ) grid%cam_abs_freq_s=initial_data_value
2061 IF ( setinitval .EQ. 3 ) grid%levsiz=0
2062 IF ( setinitval .EQ. 3 ) grid%paerlev=0
2063 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim1=0
2064 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim2=0
2065 IF ( setinitval .EQ. 3 ) grid%fgdt=initial_data_value
2066 IF ( setinitval .EQ. 3 ) grid%grid_fdda=0
2067 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_uv=0
2068 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_t=0
2069 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_q=0
2070 IF ( setinitval .EQ. 3 ) grid%if_zfac_uv=0
2071 IF ( setinitval .EQ. 3 ) grid%k_zfac_uv=0
2072 IF ( setinitval .EQ. 3 ) grid%if_zfac_t=0
2073 IF ( setinitval .EQ. 3 ) grid%k_zfac_t=0
2074 IF ( setinitval .EQ. 3 ) grid%if_zfac_q=0
2075 IF ( setinitval .EQ. 3 ) grid%k_zfac_q=0
2076 IF ( setinitval .EQ. 3 ) grid%guv=initial_data_value
2077 IF ( setinitval .EQ. 3 ) grid%gt=initial_data_value
2078 IF ( setinitval .EQ. 3 ) grid%gq=initial_data_value
2079 IF ( setinitval .EQ. 3 ) grid%dtramp_min=initial_data_value
2080 IF ( setinitval .EQ. 3 ) grid%if_ramping=0
2081 IF ( setinitval .EQ. 3 ) grid%obs_nudge_opt=0
2082 IF ( setinitval .EQ. 3 ) grid%max_obs=0
2083 IF ( setinitval .EQ. 3 ) grid%nobs_ndg_vars=0
2084 IF ( setinitval .EQ. 3 ) grid%nobs_err_flds=0
2085 IF ( setinitval .EQ. 3 ) grid%fdda_start=initial_data_value
2086 IF ( setinitval .EQ. 3 ) grid%fdda_end=initial_data_value
2087 IF ( setinitval .EQ. 3 ) grid%obs_nudge_wind=0
2088 IF ( setinitval .EQ. 3 ) grid%obs_coef_wind=initial_data_value
2089 IF ( setinitval .EQ. 3 ) grid%obs_nudge_temp=0
2090 IF ( setinitval .EQ. 3 ) grid%obs_coef_temp=initial_data_value
2091 IF ( setinitval .EQ. 3 ) grid%obs_nudge_mois=0
2092 IF ( setinitval .EQ. 3 ) grid%obs_coef_mois=initial_data_value
2093 IF ( setinitval .EQ. 3 ) grid%obs_nudge_pstr=0
2094 IF ( setinitval .EQ. 3 ) grid%obs_coef_pstr=initial_data_value
2095 IF ( setinitval .EQ. 3 ) grid%obs_rinxy=initial_data_value
2096 IF ( setinitval .EQ. 3 ) grid%obs_rinsig=initial_data_value
2097 IF ( setinitval .EQ. 3 ) grid%obs_twindo=initial_data_value
2098 IF ( setinitval .EQ. 3 ) grid%obs_npfi=0
2099 IF ( setinitval .EQ. 3 ) grid%obs_ionf=0
2100 IF ( setinitval .EQ. 3 ) grid%obs_idynin=0
2101 IF ( setinitval .EQ. 3 ) grid%obs_dtramp=initial_data_value
2102 IF ( setinitval .EQ. 3 ) grid%obs_ipf_in4dob=.FALSE.
2103 IF ( setinitval .EQ. 3 ) grid%dyn_opt=0
2104 IF ( setinitval .EQ. 3 ) grid%rk_ord=0
2105 IF ( setinitval .EQ. 3 ) grid%w_damping=0
2106 IF ( setinitval .EQ. 3 ) grid%diff_opt=0
2107 IF ( setinitval .EQ. 3 ) grid%km_opt=0
2108 IF ( setinitval .EQ. 3 ) grid%damp_opt=0
2109 IF ( setinitval .EQ. 3 ) grid%zdamp=initial_data_value
2110 IF ( setinitval .EQ. 3 ) grid%dampcoef=initial_data_value
2111 IF ( setinitval .EQ. 3 ) grid%khdif=initial_data_value
2112 IF ( setinitval .EQ. 3 ) grid%kvdif=initial_data_value
2113 IF ( setinitval .EQ. 3 ) grid%diff_6th_factor=initial_data_value
2114 IF ( setinitval .EQ. 3 ) grid%diff_6th_opt=0
2115 IF ( setinitval .EQ. 3 ) grid%smdiv=initial_data_value
2116 IF ( setinitval .EQ. 3 ) grid%emdiv=initial_data_value
2117 IF ( setinitval .EQ. 3 ) grid%epssm=initial_data_value
2118 IF ( setinitval .EQ. 3 ) grid%non_hydrostatic=.FALSE.
2119 IF ( setinitval .EQ. 3 ) grid%time_step_sound=0
2120 IF ( setinitval .EQ. 3 ) grid%h_mom_adv_order=0
2121 IF ( setinitval .EQ. 3 ) grid%v_mom_adv_order=0
2122 IF ( setinitval .EQ. 3 ) grid%h_sca_adv_order=0
2123 IF ( setinitval .EQ. 3 ) grid%v_sca_adv_order=0
2124 IF ( setinitval .EQ. 3 ) grid%pd_moist=.FALSE.
2125 IF ( setinitval .EQ. 3 ) grid%pd_chem=.FALSE.
2126 IF ( setinitval .EQ. 3 ) grid%pd_scalar=.FALSE.
2127 IF ( setinitval .EQ. 3 ) grid%pd_tke=.FALSE.
2128 IF ( setinitval .EQ. 3 ) grid%top_radiation=.FALSE.
2129 IF ( setinitval .EQ. 3 ) grid%mix_cr_len=initial_data_value
2130 IF ( setinitval .EQ. 3 ) grid%tke_upper_bound=initial_data_value
2131 IF ( setinitval .EQ. 3 ) grid%kh_tke_upper_bound=initial_data_value
2132 IF ( setinitval .EQ. 3 ) grid%kv_tke_upper_bound=initial_data_value
2133 IF ( setinitval .EQ. 3 ) grid%tke_drag_coefficient=initial_data_value
2134 IF ( setinitval .EQ. 3 ) grid%tke_heat_flux=initial_data_value
2135 IF ( setinitval .EQ. 3 ) grid%pert_coriolis=.FALSE.
2136 IF ( setinitval .EQ. 3 ) grid%mix_full_fields=.FALSE.
2137 IF ( setinitval .EQ. 3 ) grid%base_pres=initial_data_value
2138 IF ( setinitval .EQ. 3 ) grid%base_temp=initial_data_value
2139 IF ( setinitval .EQ. 3 ) grid%base_lapse=initial_data_value
2140 IF ( setinitval .EQ. 3 ) grid%jcdfi_use=.FALSE.
2141 IF ( setinitval .EQ. 3 ) grid%jcdfi_tauc=initial_data_value
2142 IF ( setinitval .EQ. 3 ) grid%jcdfi_gama=initial_data_value
2143 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_wind=initial_data_value
2144 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_t=initial_data_value
2145 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_q=initial_data_value
2146 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_mu=initial_data_value
2147 IF ( setinitval .EQ. 3 ) grid%spec_bdy_width=0
2148 IF ( setinitval .EQ. 3 ) grid%spec_zone=0
2149 IF ( setinitval .EQ. 3 ) grid%relax_zone=0
2150 IF ( setinitval .EQ. 3 ) grid%specified=.FALSE.
2151 IF ( setinitval .EQ. 3 ) grid%periodic_x=.FALSE.
2152 IF ( setinitval .EQ. 3 ) grid%symmetric_xs=.FALSE.
2153 IF ( setinitval .EQ. 3 ) grid%symmetric_xe=.FALSE.
2154 IF ( setinitval .EQ. 3 ) grid%open_xs=.FALSE.
2155 IF ( setinitval .EQ. 3 ) grid%open_xe=.FALSE.
2156 IF ( setinitval .EQ. 3 ) grid%periodic_y=.FALSE.
2157 IF ( setinitval .EQ. 3 ) grid%symmetric_ys=.FALSE.
2158 IF ( setinitval .EQ. 3 ) grid%symmetric_ye=.FALSE.
2159 IF ( setinitval .EQ. 3 ) grid%open_ys=.FALSE.
2160 IF ( setinitval .EQ. 3 ) grid%open_ye=.FALSE.
2161 IF ( setinitval .EQ. 3 ) grid%nested=.FALSE.
2162 IF ( setinitval .EQ. 3 ) grid%real_data_init_type=0
2163 IF ( setinitval .EQ. 3 ) grid%background_proc_id=0
2164 IF ( setinitval .EQ. 3 ) grid%forecast_proc_id=0
2165 IF ( setinitval .EQ. 3 ) grid%production_status=0
2166 IF ( setinitval .EQ. 3 ) grid%compression=0
2167 IF ( setinitval .EQ. 3 ) grid%cen_lat=initial_data_value
2168 IF ( setinitval .EQ. 3 ) grid%cen_lon=initial_data_value
2169 IF ( setinitval .EQ. 3 ) grid%truelat1=initial_data_value
2170 IF ( setinitval .EQ. 3 ) grid%truelat2=initial_data_value
2171 IF ( setinitval .EQ. 3 ) grid%moad_cen_lat=initial_data_value
2172 IF ( setinitval .EQ. 3 ) grid%stand_lon=initial_data_value
2173 IF ( setinitval .EQ. 3 ) grid%bdyfrq=initial_data_value
2174 IF ( setinitval .EQ. 3 ) grid%iswater=0
2175 IF ( setinitval .EQ. 3 ) grid%isice=0
2176 IF ( setinitval .EQ. 3 ) grid%isurban=0
2177 IF ( setinitval .EQ. 3 ) grid%isoilwater=0
2178 IF ( setinitval .EQ. 3 ) grid%map_proj=0
2179 IF ( setinitval .EQ. 3 ) grid%simulation_start_year=0
2180 IF ( setinitval .EQ. 3 ) grid%simulation_start_month=0
2181 IF ( setinitval .EQ. 3 ) grid%simulation_start_day=0
2182 IF ( setinitval .EQ. 3 ) grid%simulation_start_hour=0
2183 IF ( setinitval .EQ. 3 ) grid%simulation_start_minute=0
2184 IF ( setinitval .EQ. 3 ) grid%simulation_start_second=0
2185 IF ( setinitval .EQ. 3 ) grid%nodyn_nodyn_dummy=0
2186 IF(.NOT.inter_domain)THEN
2187 ALLOCATE(grid%vv%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2188 if (ierr.ne.0) then
2189 CALL wrf_error_fatal ( &
2190 'frame/module_domain.f: Failed to allocate grid%vv%v1(sm31:em31,sm32:em32,sm33:em33). ')
2191 endif
2192 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v1=initial_data_value
2193 ELSE
2194 ALLOCATE(grid%vv%v1(1,1,1),STAT=ierr)
2195 if (ierr.ne.0) then
2196 CALL wrf_error_fatal ( &
2197 'frame/module_domain.f: Failed to allocate grid%vv%v1(1,1,1). ')
2198 endif
2199 ENDIF
2200 IF(.NOT.inter_domain)THEN
2201 ALLOCATE(grid%vv%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2202 if (ierr.ne.0) then
2203 CALL wrf_error_fatal ( &
2204 'frame/module_domain.f: Failed to allocate grid%vv%v2(sm31:em31,sm32:em32,sm33:em33). ')
2205 endif
2206 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v2=initial_data_value
2207 ELSE
2208 ALLOCATE(grid%vv%v2(1,1,1),STAT=ierr)
2209 if (ierr.ne.0) then
2210 CALL wrf_error_fatal ( &
2211 'frame/module_domain.f: Failed to allocate grid%vv%v2(1,1,1). ')
2212 endif
2213 ENDIF
2214 IF(.NOT.inter_domain)THEN
2215 ALLOCATE(grid%vv%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2216 if (ierr.ne.0) then
2217 CALL wrf_error_fatal ( &
2218 'frame/module_domain.f: Failed to allocate grid%vv%v3(sm31:em31,sm32:em32,sm33:em33). ')
2219 endif
2220 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v3=initial_data_value
2221 ELSE
2222 ALLOCATE(grid%vv%v3(1,1,1),STAT=ierr)
2223 if (ierr.ne.0) then
2224 CALL wrf_error_fatal ( &
2225 'frame/module_domain.f: Failed to allocate grid%vv%v3(1,1,1). ')
2226 endif
2227 ENDIF
2228 IF(.NOT.inter_domain)THEN
2229 ALLOCATE(grid%vv%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2230 if (ierr.ne.0) then
2231 CALL wrf_error_fatal ( &
2232 'frame/module_domain.f: Failed to allocate grid%vv%v4(sm31:em31,sm32:em32,sm33:em33). ')
2233 endif
2234 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v4=initial_data_value
2235 ELSE
2236 ALLOCATE(grid%vv%v4(1,1,1),STAT=ierr)
2237 if (ierr.ne.0) then
2238 CALL wrf_error_fatal ( &
2239 'frame/module_domain.f: Failed to allocate grid%vv%v4(1,1,1). ')
2240 endif
2241 ENDIF
2242 IF(.NOT.inter_domain)THEN
2243 ALLOCATE(grid%vv%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2244 if (ierr.ne.0) then
2245 CALL wrf_error_fatal ( &
2246 'frame/module_domain.f: Failed to allocate grid%vv%v5(sm31:em31,sm32:em32,sm33:em33). ')
2247 endif
2248 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v5=initial_data_value
2249 ELSE
2250 ALLOCATE(grid%vv%v5(1,1,1),STAT=ierr)
2251 if (ierr.ne.0) then
2252 CALL wrf_error_fatal ( &
2253 'frame/module_domain.f: Failed to allocate grid%vv%v5(1,1,1). ')
2254 endif
2255 ENDIF
2256 IF(.NOT.inter_domain)THEN
2257 ALLOCATE(grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
2258 if (ierr.ne.0) then
2259 CALL wrf_error_fatal ( &
2260 'frame/module_domain.f: Failed to allocate grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
2261 endif
2262 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%alpha=initial_data_value
2263 ELSE
2264 ALLOCATE(grid%vv%alpha(1,1,1),STAT=ierr)
2265 if (ierr.ne.0) then
2266 CALL wrf_error_fatal ( &
2267 'frame/module_domain.f: Failed to allocate grid%vv%alpha(1,1,1). ')
2268 endif
2269 ENDIF
2270 IF(.NOT.inter_domain)THEN
2271 ALLOCATE(grid%vp%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2272 if (ierr.ne.0) then
2273 CALL wrf_error_fatal ( &
2274 'frame/module_domain.f: Failed to allocate grid%vp%v1(sm31:em31,sm32:em32,sm33:em33). ')
2275 endif
2276 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v1=initial_data_value
2277 ELSE
2278 ALLOCATE(grid%vp%v1(1,1,1),STAT=ierr)
2279 if (ierr.ne.0) then
2280 CALL wrf_error_fatal ( &
2281 'frame/module_domain.f: Failed to allocate grid%vp%v1(1,1,1). ')
2282 endif
2283 ENDIF
2284 IF(.NOT.inter_domain)THEN
2285 ALLOCATE(grid%vp%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2286 if (ierr.ne.0) then
2287 CALL wrf_error_fatal ( &
2288 'frame/module_domain.f: Failed to allocate grid%vp%v2(sm31:em31,sm32:em32,sm33:em33). ')
2289 endif
2290 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v2=initial_data_value
2291 ELSE
2292 ALLOCATE(grid%vp%v2(1,1,1),STAT=ierr)
2293 if (ierr.ne.0) then
2294 CALL wrf_error_fatal ( &
2295 'frame/module_domain.f: Failed to allocate grid%vp%v2(1,1,1). ')
2296 endif
2297 ENDIF
2298 IF(.NOT.inter_domain)THEN
2299 ALLOCATE(grid%vp%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2300 if (ierr.ne.0) then
2301 CALL wrf_error_fatal ( &
2302 'frame/module_domain.f: Failed to allocate grid%vp%v3(sm31:em31,sm32:em32,sm33:em33). ')
2303 endif
2304 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v3=initial_data_value
2305 ELSE
2306 ALLOCATE(grid%vp%v3(1,1,1),STAT=ierr)
2307 if (ierr.ne.0) then
2308 CALL wrf_error_fatal ( &
2309 'frame/module_domain.f: Failed to allocate grid%vp%v3(1,1,1). ')
2310 endif
2311 ENDIF
2312 IF(.NOT.inter_domain)THEN
2313 ALLOCATE(grid%vp%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2314 if (ierr.ne.0) then
2315 CALL wrf_error_fatal ( &
2316 'frame/module_domain.f: Failed to allocate grid%vp%v4(sm31:em31,sm32:em32,sm33:em33). ')
2317 endif
2318 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v4=initial_data_value
2319 ELSE
2320 ALLOCATE(grid%vp%v4(1,1,1),STAT=ierr)
2321 if (ierr.ne.0) then
2322 CALL wrf_error_fatal ( &
2323 'frame/module_domain.f: Failed to allocate grid%vp%v4(1,1,1). ')
2324 endif
2325 ENDIF
2326 IF(.NOT.inter_domain)THEN
2327 ALLOCATE(grid%vp%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2328 if (ierr.ne.0) then
2329 CALL wrf_error_fatal ( &
2330 'frame/module_domain.f: Failed to allocate grid%vp%v5(sm31:em31,sm32:em32,sm33:em33). ')
2331 endif
2332 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v5=initial_data_value
2333 ELSE
2334 ALLOCATE(grid%vp%v5(1,1,1),STAT=ierr)
2335 if (ierr.ne.0) then
2336 CALL wrf_error_fatal ( &
2337 'frame/module_domain.f: Failed to allocate grid%vp%v5(1,1,1). ')
2338 endif
2339 ENDIF
2340 IF(.NOT.inter_domain)THEN
2341 ALLOCATE(grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
2342 if (ierr.ne.0) then
2343 CALL wrf_error_fatal ( &
2344 'frame/module_domain.f: Failed to allocate grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
2345 endif
2346 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%alpha=initial_data_value
2347 ELSE
2348 ALLOCATE(grid%vp%alpha(1,1,1),STAT=ierr)
2349 if (ierr.ne.0) then
2350 CALL wrf_error_fatal ( &
2351 'frame/module_domain.f: Failed to allocate grid%vp%alpha(1,1,1). ')
2352 endif
2353 ENDIF
2354 IF ( setinitval .EQ. 3 ) grid%ep%ne=0
2355 IF(.NOT.inter_domain)THEN
2356 ALLOCATE(grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
2357 if (ierr.ne.0) then
2358 CALL wrf_error_fatal ( &
2359 'frame/module_domain.f: Failed to allocate grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
2360 endif
2361 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v1=initial_data_value
2362 ELSE
2363 ALLOCATE(grid%ep%v1(1,1,1,1),STAT=ierr)
2364 if (ierr.ne.0) then
2365 CALL wrf_error_fatal ( &
2366 'frame/module_domain.f: Failed to allocate grid%ep%v1(1,1,1,1). ')
2367 endif
2368 ENDIF
2369 IF(.NOT.inter_domain)THEN
2370 ALLOCATE(grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
2371 if (ierr.ne.0) then
2372 CALL wrf_error_fatal ( &
2373 'frame/module_domain.f: Failed to allocate grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
2374 endif
2375 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v2=initial_data_value
2376 ELSE
2377 ALLOCATE(grid%ep%v2(1,1,1,1),STAT=ierr)
2378 if (ierr.ne.0) then
2379 CALL wrf_error_fatal ( &
2380 'frame/module_domain.f: Failed to allocate grid%ep%v2(1,1,1,1). ')
2381 endif
2382 ENDIF
2383 IF(.NOT.inter_domain)THEN
2384 ALLOCATE(grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
2385 if (ierr.ne.0) then
2386 CALL wrf_error_fatal ( &
2387 'frame/module_domain.f: Failed to allocate grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
2388 endif
2389 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v3=initial_data_value
2390 ELSE
2391 ALLOCATE(grid%ep%v3(1,1,1,1),STAT=ierr)
2392 if (ierr.ne.0) then
2393 CALL wrf_error_fatal ( &
2394 'frame/module_domain.f: Failed to allocate grid%ep%v3(1,1,1,1). ')
2395 endif
2396 ENDIF
2397 IF(.NOT.inter_domain)THEN
2398 ALLOCATE(grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
2399 if (ierr.ne.0) then
2400 CALL wrf_error_fatal ( &
2401 'frame/module_domain.f: Failed to allocate grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
2402 endif
2403 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v4=initial_data_value
2404 ELSE
2405 ALLOCATE(grid%ep%v4(1,1,1,1),STAT=ierr)
2406 if (ierr.ne.0) then
2407 CALL wrf_error_fatal ( &
2408 'frame/module_domain.f: Failed to allocate grid%ep%v4(1,1,1,1). ')
2409 endif
2410 ENDIF
2411 IF(.NOT.inter_domain)THEN
2412 ALLOCATE(grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
2413 if (ierr.ne.0) then
2414 CALL wrf_error_fatal ( &
2415 'frame/module_domain.f: Failed to allocate grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
2416 endif
2417 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v5=initial_data_value
2418 ELSE
2419 ALLOCATE(grid%ep%v5(1,1,1,1),STAT=ierr)
2420 if (ierr.ne.0) then
2421 CALL wrf_error_fatal ( &
2422 'frame/module_domain.f: Failed to allocate grid%ep%v5(1,1,1,1). ')
2423 endif
2424 ENDIF
2425 IF ( setinitval .EQ. 3 ) grid%xb%map=0
2426 IF ( setinitval .EQ. 3 ) grid%xb%ptop=initial_data_value
2427 IF ( setinitval .EQ. 3 ) grid%xb%ztop=initial_data_value
2428 IF ( setinitval .EQ. 3 ) grid%xb%ps0=initial_data_value
2429 IF ( setinitval .EQ. 3 ) grid%xb%ts0=initial_data_value
2430 IF ( setinitval .EQ. 3 ) grid%xb%tlp=initial_data_value
2431 IF ( setinitval .EQ. 3 ) grid%xb%tis0=initial_data_value
2432 IF ( setinitval .EQ. 3 ) grid%xb%ds=initial_data_value
2433 IF ( setinitval .EQ. 3 ) grid%xb%sigmaf_0=initial_data_value
2434 IF ( setinitval .EQ. 3 ) grid%xb%mix=0
2435 IF ( setinitval .EQ. 3 ) grid%xb%mjy=0
2436 IF ( setinitval .EQ. 3 ) grid%xb%mkz=0
2437 IF ( setinitval .EQ. 3 ) grid%xb%num_of_var=0
2438 IF ( setinitval .EQ. 3 ) grid%xb%ids=0
2439 IF ( setinitval .EQ. 3 ) grid%xb%ide=0
2440 IF ( setinitval .EQ. 3 ) grid%xb%jds=0
2441 IF ( setinitval .EQ. 3 ) grid%xb%jde=0
2442 IF ( setinitval .EQ. 3 ) grid%xb%kds=0
2443 IF ( setinitval .EQ. 3 ) grid%xb%kde=0
2444 IF ( setinitval .EQ. 3 ) grid%xb%ims=0
2445 IF ( setinitval .EQ. 3 ) grid%xb%ime=0
2446 IF ( setinitval .EQ. 3 ) grid%xb%jms=0
2447 IF ( setinitval .EQ. 3 ) grid%xb%jme=0
2448 IF ( setinitval .EQ. 3 ) grid%xb%kms=0
2449 IF ( setinitval .EQ. 3 ) grid%xb%kme=0
2450 IF ( setinitval .EQ. 3 ) grid%xb%its=0
2451 IF ( setinitval .EQ. 3 ) grid%xb%ite=0
2452 IF ( setinitval .EQ. 3 ) grid%xb%jts=0
2453 IF ( setinitval .EQ. 3 ) grid%xb%jte=0
2454 IF ( setinitval .EQ. 3 ) grid%xb%kts=0
2455 IF ( setinitval .EQ. 3 ) grid%xb%kte=0
2456 IF(.NOT.inter_domain)THEN
2457 ALLOCATE(grid%xb%grid_box_area(sm31:em31,sm32:em32),STAT=ierr)
2458 if (ierr.ne.0) then
2459 CALL wrf_error_fatal ( &
2460 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(sm31:em31,sm32:em32). ')
2461 endif
2462 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%grid_box_area=initial_data_value
2463 ELSE
2464 ALLOCATE(grid%xb%grid_box_area(1,1),STAT=ierr)
2465 if (ierr.ne.0) then
2466 CALL wrf_error_fatal ( &
2467 'frame/module_domain.f: Failed to allocate grid%xb%grid_box_area(1,1). ')
2468 endif
2469 ENDIF
2470 IF(.NOT.inter_domain)THEN
2471 ALLOCATE(grid%xb%map_factor(sm31:em31,sm32:em32),STAT=ierr)
2472 if (ierr.ne.0) then
2473 CALL wrf_error_fatal ( &
2474 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(sm31:em31,sm32:em32). ')
2475 endif
2476 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%map_factor=initial_data_value
2477 ELSE
2478 ALLOCATE(grid%xb%map_factor(1,1),STAT=ierr)
2479 if (ierr.ne.0) then
2480 CALL wrf_error_fatal ( &
2481 'frame/module_domain.f: Failed to allocate grid%xb%map_factor(1,1). ')
2482 endif
2483 ENDIF
2484 IF(.NOT.inter_domain)THEN
2485 ALLOCATE(grid%xb%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2486 if (ierr.ne.0) then
2487 CALL wrf_error_fatal ( &
2488 'frame/module_domain.f: Failed to allocate grid%xb%u(sm31:em31,sm32:em32,sm33:em33). ')
2489 endif
2490 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u=initial_data_value
2491 ELSE
2492 ALLOCATE(grid%xb%u(1,1,1),STAT=ierr)
2493 if (ierr.ne.0) then
2494 CALL wrf_error_fatal ( &
2495 'frame/module_domain.f: Failed to allocate grid%xb%u(1,1,1). ')
2496 endif
2497 ENDIF
2498 IF(.NOT.inter_domain)THEN
2499 ALLOCATE(grid%xb%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2500 if (ierr.ne.0) then
2501 CALL wrf_error_fatal ( &
2502 'frame/module_domain.f: Failed to allocate grid%xb%v(sm31:em31,sm32:em32,sm33:em33). ')
2503 endif
2504 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v=initial_data_value
2505 ELSE
2506 ALLOCATE(grid%xb%v(1,1,1),STAT=ierr)
2507 if (ierr.ne.0) then
2508 CALL wrf_error_fatal ( &
2509 'frame/module_domain.f: Failed to allocate grid%xb%v(1,1,1). ')
2510 endif
2511 ENDIF
2512 IF(.NOT.inter_domain)THEN
2513 ALLOCATE(grid%xb%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2514 if (ierr.ne.0) then
2515 CALL wrf_error_fatal ( &
2516 'frame/module_domain.f: Failed to allocate grid%xb%w(sm31:em31,sm32:em32,sm33:em33). ')
2517 endif
2518 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%w=initial_data_value
2519 ELSE
2520 ALLOCATE(grid%xb%w(1,1,1),STAT=ierr)
2521 if (ierr.ne.0) then
2522 CALL wrf_error_fatal ( &
2523 'frame/module_domain.f: Failed to allocate grid%xb%w(1,1,1). ')
2524 endif
2525 ENDIF
2526 IF(.NOT.inter_domain)THEN
2527 ALLOCATE(grid%xb%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2528 if (ierr.ne.0) then
2529 CALL wrf_error_fatal ( &
2530 'frame/module_domain.f: Failed to allocate grid%xb%t(sm31:em31,sm32:em32,sm33:em33). ')
2531 endif
2532 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t=initial_data_value
2533 ELSE
2534 ALLOCATE(grid%xb%t(1,1,1),STAT=ierr)
2535 if (ierr.ne.0) then
2536 CALL wrf_error_fatal ( &
2537 'frame/module_domain.f: Failed to allocate grid%xb%t(1,1,1). ')
2538 endif
2539 ENDIF
2540 IF(.NOT.inter_domain)THEN
2541 ALLOCATE(grid%xb%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2542 if (ierr.ne.0) then
2543 CALL wrf_error_fatal ( &
2544 'frame/module_domain.f: Failed to allocate grid%xb%p(sm31:em31,sm32:em32,sm33:em33). ')
2545 endif
2546 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%p=initial_data_value
2547 ELSE
2548 ALLOCATE(grid%xb%p(1,1,1),STAT=ierr)
2549 if (ierr.ne.0) then
2550 CALL wrf_error_fatal ( &
2551 'frame/module_domain.f: Failed to allocate grid%xb%p(1,1,1). ')
2552 endif
2553 ENDIF
2554 IF(.NOT.inter_domain)THEN
2555 ALLOCATE(grid%xb%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2556 if (ierr.ne.0) then
2557 CALL wrf_error_fatal ( &
2558 'frame/module_domain.f: Failed to allocate grid%xb%q(sm31:em31,sm32:em32,sm33:em33). ')
2559 endif
2560 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q=initial_data_value
2561 ELSE
2562 ALLOCATE(grid%xb%q(1,1,1),STAT=ierr)
2563 if (ierr.ne.0) then
2564 CALL wrf_error_fatal ( &
2565 'frame/module_domain.f: Failed to allocate grid%xb%q(1,1,1). ')
2566 endif
2567 ENDIF
2568 IF(.NOT.inter_domain)THEN
2569 ALLOCATE(grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2570 if (ierr.ne.0) then
2571 CALL wrf_error_fatal ( &
2572 'frame/module_domain.f: Failed to allocate grid%xb%qrn(sm31:em31,sm32:em32,sm33:em33). ')
2573 endif
2574 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qrn=initial_data_value
2575 ELSE
2576 ALLOCATE(grid%xb%qrn(1,1,1),STAT=ierr)
2577 if (ierr.ne.0) then
2578 CALL wrf_error_fatal ( &
2579 'frame/module_domain.f: Failed to allocate grid%xb%qrn(1,1,1). ')
2580 endif
2581 ENDIF
2582 IF(.NOT.inter_domain)THEN
2583 ALLOCATE(grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2584 if (ierr.ne.0) then
2585 CALL wrf_error_fatal ( &
2586 'frame/module_domain.f: Failed to allocate grid%xb%qcw(sm31:em31,sm32:em32,sm33:em33). ')
2587 endif
2588 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qcw=initial_data_value
2589 ELSE
2590 ALLOCATE(grid%xb%qcw(1,1,1),STAT=ierr)
2591 if (ierr.ne.0) then
2592 CALL wrf_error_fatal ( &
2593 'frame/module_domain.f: Failed to allocate grid%xb%qcw(1,1,1). ')
2594 endif
2595 ENDIF
2596 IF(.NOT.inter_domain)THEN
2597 ALLOCATE(grid%xb%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2598 if (ierr.ne.0) then
2599 CALL wrf_error_fatal ( &
2600 'frame/module_domain.f: Failed to allocate grid%xb%qci(sm31:em31,sm32:em32,sm33:em33). ')
2601 endif
2602 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qci=initial_data_value
2603 ELSE
2604 ALLOCATE(grid%xb%qci(1,1,1),STAT=ierr)
2605 if (ierr.ne.0) then
2606 CALL wrf_error_fatal ( &
2607 'frame/module_domain.f: Failed to allocate grid%xb%qci(1,1,1). ')
2608 endif
2609 ENDIF
2610 IF(.NOT.inter_domain)THEN
2611 ALLOCATE(grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2612 if (ierr.ne.0) then
2613 CALL wrf_error_fatal ( &
2614 'frame/module_domain.f: Failed to allocate grid%xb%qsn(sm31:em31,sm32:em32,sm33:em33). ')
2615 endif
2616 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qsn=initial_data_value
2617 ELSE
2618 ALLOCATE(grid%xb%qsn(1,1,1),STAT=ierr)
2619 if (ierr.ne.0) then
2620 CALL wrf_error_fatal ( &
2621 'frame/module_domain.f: Failed to allocate grid%xb%qsn(1,1,1). ')
2622 endif
2623 ENDIF
2624 IF(.NOT.inter_domain)THEN
2625 ALLOCATE(grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2626 if (ierr.ne.0) then
2627 CALL wrf_error_fatal ( &
2628 'frame/module_domain.f: Failed to allocate grid%xb%qgr(sm31:em31,sm32:em32,sm33:em33). ')
2629 endif
2630 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qgr=initial_data_value
2631 ELSE
2632 ALLOCATE(grid%xb%qgr(1,1,1),STAT=ierr)
2633 if (ierr.ne.0) then
2634 CALL wrf_error_fatal ( &
2635 'frame/module_domain.f: Failed to allocate grid%xb%qgr(1,1,1). ')
2636 endif
2637 ENDIF
2638 IF(.NOT.inter_domain)THEN
2639 ALLOCATE(grid%xb%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2640 if (ierr.ne.0) then
2641 CALL wrf_error_fatal ( &
2642 'frame/module_domain.f: Failed to allocate grid%xb%qt(sm31:em31,sm32:em32,sm33:em33). ')
2643 endif
2644 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qt=initial_data_value
2645 ELSE
2646 ALLOCATE(grid%xb%qt(1,1,1),STAT=ierr)
2647 if (ierr.ne.0) then
2648 CALL wrf_error_fatal ( &
2649 'frame/module_domain.f: Failed to allocate grid%xb%qt(1,1,1). ')
2650 endif
2651 ENDIF
2652 IF(.NOT.inter_domain)THEN
2653 ALLOCATE(grid%xb%delt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2654 if (ierr.ne.0) then
2655 CALL wrf_error_fatal ( &
2656 'frame/module_domain.f: Failed to allocate grid%xb%delt(sm31:em31,sm32:em32,sm33:em33). ')
2657 endif
2658 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%delt=initial_data_value
2659 ELSE
2660 ALLOCATE(grid%xb%delt(1,1,1),STAT=ierr)
2661 if (ierr.ne.0) then
2662 CALL wrf_error_fatal ( &
2663 'frame/module_domain.f: Failed to allocate grid%xb%delt(1,1,1). ')
2664 endif
2665 ENDIF
2666 IF(.NOT.inter_domain)THEN
2667 ALLOCATE(grid%xb%h(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2668 if (ierr.ne.0) then
2669 CALL wrf_error_fatal ( &
2670 'frame/module_domain.f: Failed to allocate grid%xb%h(sm31:em31,sm32:em32,sm33:em33). ')
2671 endif
2672 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%h=initial_data_value
2673 ELSE
2674 ALLOCATE(grid%xb%h(1,1,1),STAT=ierr)
2675 if (ierr.ne.0) then
2676 CALL wrf_error_fatal ( &
2677 'frame/module_domain.f: Failed to allocate grid%xb%h(1,1,1). ')
2678 endif
2679 ENDIF
2680 IF(.NOT.inter_domain)THEN
2681 ALLOCATE(grid%xb%hf(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2682 if (ierr.ne.0) then
2683 CALL wrf_error_fatal ( &
2684 'frame/module_domain.f: Failed to allocate grid%xb%hf(sm31:em31,sm32:em32,sm33:em33). ')
2685 endif
2686 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%hf=initial_data_value
2687 ELSE
2688 ALLOCATE(grid%xb%hf(1,1,1),STAT=ierr)
2689 if (ierr.ne.0) then
2690 CALL wrf_error_fatal ( &
2691 'frame/module_domain.f: Failed to allocate grid%xb%hf(1,1,1). ')
2692 endif
2693 ENDIF
2694 IF(.NOT.inter_domain)THEN
2695 ALLOCATE(grid%xb%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2696 if (ierr.ne.0) then
2697 CALL wrf_error_fatal ( &
2698 'frame/module_domain.f: Failed to allocate grid%xb%wh(sm31:em31,sm32:em32,sm33:em33). ')
2699 endif
2700 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%wh=initial_data_value
2701 ELSE
2702 ALLOCATE(grid%xb%wh(1,1,1),STAT=ierr)
2703 if (ierr.ne.0) then
2704 CALL wrf_error_fatal ( &
2705 'frame/module_domain.f: Failed to allocate grid%xb%wh(1,1,1). ')
2706 endif
2707 ENDIF
2708 IF(.NOT.inter_domain)THEN
2709 ALLOCATE(grid%xb%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2710 if (ierr.ne.0) then
2711 CALL wrf_error_fatal ( &
2712 'frame/module_domain.f: Failed to allocate grid%xb%rho(sm31:em31,sm32:em32,sm33:em33). ')
2713 endif
2714 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rho=initial_data_value
2715 ELSE
2716 ALLOCATE(grid%xb%rho(1,1,1),STAT=ierr)
2717 if (ierr.ne.0) then
2718 CALL wrf_error_fatal ( &
2719 'frame/module_domain.f: Failed to allocate grid%xb%rho(1,1,1). ')
2720 endif
2721 ENDIF
2722 IF(.NOT.inter_domain)THEN
2723 ALLOCATE(grid%xb%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2724 if (ierr.ne.0) then
2725 CALL wrf_error_fatal ( &
2726 'frame/module_domain.f: Failed to allocate grid%xb%rh(sm31:em31,sm32:em32,sm33:em33). ')
2727 endif
2728 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rh=initial_data_value
2729 ELSE
2730 ALLOCATE(grid%xb%rh(1,1,1),STAT=ierr)
2731 if (ierr.ne.0) then
2732 CALL wrf_error_fatal ( &
2733 'frame/module_domain.f: Failed to allocate grid%xb%rh(1,1,1). ')
2734 endif
2735 ENDIF
2736 IF(.NOT.inter_domain)THEN
2737 ALLOCATE(grid%xb%es(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2738 if (ierr.ne.0) then
2739 CALL wrf_error_fatal ( &
2740 'frame/module_domain.f: Failed to allocate grid%xb%es(sm31:em31,sm32:em32,sm33:em33). ')
2741 endif
2742 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%es=initial_data_value
2743 ELSE
2744 ALLOCATE(grid%xb%es(1,1,1),STAT=ierr)
2745 if (ierr.ne.0) then
2746 CALL wrf_error_fatal ( &
2747 'frame/module_domain.f: Failed to allocate grid%xb%es(1,1,1). ')
2748 endif
2749 ENDIF
2750 IF(.NOT.inter_domain)THEN
2751 ALLOCATE(grid%xb%qs(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2752 if (ierr.ne.0) then
2753 CALL wrf_error_fatal ( &
2754 'frame/module_domain.f: Failed to allocate grid%xb%qs(sm31:em31,sm32:em32,sm33:em33). ')
2755 endif
2756 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qs=initial_data_value
2757 ELSE
2758 ALLOCATE(grid%xb%qs(1,1,1),STAT=ierr)
2759 if (ierr.ne.0) then
2760 CALL wrf_error_fatal ( &
2761 'frame/module_domain.f: Failed to allocate grid%xb%qs(1,1,1). ')
2762 endif
2763 ENDIF
2764 IF(.NOT.inter_domain)THEN
2765 ALLOCATE(grid%xb%td(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2766 if (ierr.ne.0) then
2767 CALL wrf_error_fatal ( &
2768 'frame/module_domain.f: Failed to allocate grid%xb%td(sm31:em31,sm32:em32,sm33:em33). ')
2769 endif
2770 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%td=initial_data_value
2771 ELSE
2772 ALLOCATE(grid%xb%td(1,1,1),STAT=ierr)
2773 if (ierr.ne.0) then
2774 CALL wrf_error_fatal ( &
2775 'frame/module_domain.f: Failed to allocate grid%xb%td(1,1,1). ')
2776 endif
2777 ENDIF
2778 IF(.NOT.inter_domain)THEN
2779 ALLOCATE(grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2780 if (ierr.ne.0) then
2781 CALL wrf_error_fatal ( &
2782 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33). ')
2783 endif
2784 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vertical_inner_product=initial_data_value
2785 ELSE
2786 ALLOCATE(grid%xb%vertical_inner_product(1,1,1),STAT=ierr)
2787 if (ierr.ne.0) then
2788 CALL wrf_error_fatal ( &
2789 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(1,1,1). ')
2790 endif
2791 ENDIF
2792 IF(.NOT.inter_domain)THEN
2793 ALLOCATE(grid%xb%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2794 if (ierr.ne.0) then
2795 CALL wrf_error_fatal ( &
2796 'frame/module_domain.f: Failed to allocate grid%xb%ref(sm31:em31,sm32:em32,sm33:em33). ')
2797 endif
2798 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ref=initial_data_value
2799 ELSE
2800 ALLOCATE(grid%xb%ref(1,1,1),STAT=ierr)
2801 if (ierr.ne.0) then
2802 CALL wrf_error_fatal ( &
2803 'frame/module_domain.f: Failed to allocate grid%xb%ref(1,1,1). ')
2804 endif
2805 ENDIF
2806 IF(.NOT.inter_domain)THEN
2807 ALLOCATE(grid%xb%rough(sm31:em31,sm32:em32),STAT=ierr)
2808 if (ierr.ne.0) then
2809 CALL wrf_error_fatal ( &
2810 'frame/module_domain.f: Failed to allocate grid%xb%rough(sm31:em31,sm32:em32). ')
2811 endif
2812 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rough=initial_data_value
2813 ELSE
2814 ALLOCATE(grid%xb%rough(1,1),STAT=ierr)
2815 if (ierr.ne.0) then
2816 CALL wrf_error_fatal ( &
2817 'frame/module_domain.f: Failed to allocate grid%xb%rough(1,1). ')
2818 endif
2819 ENDIF
2820 IF(.NOT.inter_domain)THEN
2821 ALLOCATE(grid%xb%tpw(sm31:em31,sm32:em32),STAT=ierr)
2822 if (ierr.ne.0) then
2823 CALL wrf_error_fatal ( &
2824 'frame/module_domain.f: Failed to allocate grid%xb%tpw(sm31:em31,sm32:em32). ')
2825 endif
2826 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tpw=initial_data_value
2827 ELSE
2828 ALLOCATE(grid%xb%tpw(1,1),STAT=ierr)
2829 if (ierr.ne.0) then
2830 CALL wrf_error_fatal ( &
2831 'frame/module_domain.f: Failed to allocate grid%xb%tpw(1,1). ')
2832 endif
2833 ENDIF
2834 IF(.NOT.inter_domain)THEN
2835 ALLOCATE(grid%xb%slp(sm31:em31,sm32:em32),STAT=ierr)
2836 if (ierr.ne.0) then
2837 CALL wrf_error_fatal ( &
2838 'frame/module_domain.f: Failed to allocate grid%xb%slp(sm31:em31,sm32:em32). ')
2839 endif
2840 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%slp=initial_data_value
2841 ELSE
2842 ALLOCATE(grid%xb%slp(1,1),STAT=ierr)
2843 if (ierr.ne.0) then
2844 CALL wrf_error_fatal ( &
2845 'frame/module_domain.f: Failed to allocate grid%xb%slp(1,1). ')
2846 endif
2847 ENDIF
2848 IF(.NOT.inter_domain)THEN
2849 ALLOCATE(grid%xb%speed(sm31:em31,sm32:em32),STAT=ierr)
2850 if (ierr.ne.0) then
2851 CALL wrf_error_fatal ( &
2852 'frame/module_domain.f: Failed to allocate grid%xb%speed(sm31:em31,sm32:em32). ')
2853 endif
2854 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%speed=initial_data_value
2855 ELSE
2856 ALLOCATE(grid%xb%speed(1,1),STAT=ierr)
2857 if (ierr.ne.0) then
2858 CALL wrf_error_fatal ( &
2859 'frame/module_domain.f: Failed to allocate grid%xb%speed(1,1). ')
2860 endif
2861 ENDIF
2862 IF(.NOT.inter_domain)THEN
2863 ALLOCATE(grid%xb%tb19v(sm31:em31,sm32:em32),STAT=ierr)
2864 if (ierr.ne.0) then
2865 CALL wrf_error_fatal ( &
2866 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(sm31:em31,sm32:em32). ')
2867 endif
2868 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19v=initial_data_value
2869 ELSE
2870 ALLOCATE(grid%xb%tb19v(1,1),STAT=ierr)
2871 if (ierr.ne.0) then
2872 CALL wrf_error_fatal ( &
2873 'frame/module_domain.f: Failed to allocate grid%xb%tb19v(1,1). ')
2874 endif
2875 ENDIF
2876 IF(.NOT.inter_domain)THEN
2877 ALLOCATE(grid%xb%tb19h(sm31:em31,sm32:em32),STAT=ierr)
2878 if (ierr.ne.0) then
2879 CALL wrf_error_fatal ( &
2880 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(sm31:em31,sm32:em32). ')
2881 endif
2882 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19h=initial_data_value
2883 ELSE
2884 ALLOCATE(grid%xb%tb19h(1,1),STAT=ierr)
2885 if (ierr.ne.0) then
2886 CALL wrf_error_fatal ( &
2887 'frame/module_domain.f: Failed to allocate grid%xb%tb19h(1,1). ')
2888 endif
2889 ENDIF
2890 IF(.NOT.inter_domain)THEN
2891 ALLOCATE(grid%xb%tb22v(sm31:em31,sm32:em32),STAT=ierr)
2892 if (ierr.ne.0) then
2893 CALL wrf_error_fatal ( &
2894 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(sm31:em31,sm32:em32). ')
2895 endif
2896 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb22v=initial_data_value
2897 ELSE
2898 ALLOCATE(grid%xb%tb22v(1,1),STAT=ierr)
2899 if (ierr.ne.0) then
2900 CALL wrf_error_fatal ( &
2901 'frame/module_domain.f: Failed to allocate grid%xb%tb22v(1,1). ')
2902 endif
2903 ENDIF
2904 IF(.NOT.inter_domain)THEN
2905 ALLOCATE(grid%xb%tb37v(sm31:em31,sm32:em32),STAT=ierr)
2906 if (ierr.ne.0) then
2907 CALL wrf_error_fatal ( &
2908 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(sm31:em31,sm32:em32). ')
2909 endif
2910 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37v=initial_data_value
2911 ELSE
2912 ALLOCATE(grid%xb%tb37v(1,1),STAT=ierr)
2913 if (ierr.ne.0) then
2914 CALL wrf_error_fatal ( &
2915 'frame/module_domain.f: Failed to allocate grid%xb%tb37v(1,1). ')
2916 endif
2917 ENDIF
2918 IF(.NOT.inter_domain)THEN
2919 ALLOCATE(grid%xb%tb37h(sm31:em31,sm32:em32),STAT=ierr)
2920 if (ierr.ne.0) then
2921 CALL wrf_error_fatal ( &
2922 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(sm31:em31,sm32:em32). ')
2923 endif
2924 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37h=initial_data_value
2925 ELSE
2926 ALLOCATE(grid%xb%tb37h(1,1),STAT=ierr)
2927 if (ierr.ne.0) then
2928 CALL wrf_error_fatal ( &
2929 'frame/module_domain.f: Failed to allocate grid%xb%tb37h(1,1). ')
2930 endif
2931 ENDIF
2932 IF(.NOT.inter_domain)THEN
2933 ALLOCATE(grid%xb%tb85v(sm31:em31,sm32:em32),STAT=ierr)
2934 if (ierr.ne.0) then
2935 CALL wrf_error_fatal ( &
2936 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(sm31:em31,sm32:em32). ')
2937 endif
2938 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85v=initial_data_value
2939 ELSE
2940 ALLOCATE(grid%xb%tb85v(1,1),STAT=ierr)
2941 if (ierr.ne.0) then
2942 CALL wrf_error_fatal ( &
2943 'frame/module_domain.f: Failed to allocate grid%xb%tb85v(1,1). ')
2944 endif
2945 ENDIF
2946 IF(.NOT.inter_domain)THEN
2947 ALLOCATE(grid%xb%tb85h(sm31:em31,sm32:em32),STAT=ierr)
2948 if (ierr.ne.0) then
2949 CALL wrf_error_fatal ( &
2950 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(sm31:em31,sm32:em32). ')
2951 endif
2952 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85h=initial_data_value
2953 ELSE
2954 ALLOCATE(grid%xb%tb85h(1,1),STAT=ierr)
2955 if (ierr.ne.0) then
2956 CALL wrf_error_fatal ( &
2957 'frame/module_domain.f: Failed to allocate grid%xb%tb85h(1,1). ')
2958 endif
2959 ENDIF
2960 IF(.NOT.inter_domain)THEN
2961 ALLOCATE(grid%xb%cori(sm31:em31,sm32:em32),STAT=ierr)
2962 if (ierr.ne.0) then
2963 CALL wrf_error_fatal ( &
2964 'frame/module_domain.f: Failed to allocate grid%xb%cori(sm31:em31,sm32:em32). ')
2965 endif
2966 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%cori=initial_data_value
2967 ELSE
2968 ALLOCATE(grid%xb%cori(1,1),STAT=ierr)
2969 if (ierr.ne.0) then
2970 CALL wrf_error_fatal ( &
2971 'frame/module_domain.f: Failed to allocate grid%xb%cori(1,1). ')
2972 endif
2973 ENDIF
2974 IF(.NOT.inter_domain)THEN
2975 ALLOCATE(grid%xb%tgrn(sm31:em31,sm32:em32),STAT=ierr)
2976 if (ierr.ne.0) then
2977 CALL wrf_error_fatal ( &
2978 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(sm31:em31,sm32:em32). ')
2979 endif
2980 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tgrn=initial_data_value
2981 ELSE
2982 ALLOCATE(grid%xb%tgrn(1,1),STAT=ierr)
2983 if (ierr.ne.0) then
2984 CALL wrf_error_fatal ( &
2985 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(1,1). ')
2986 endif
2987 ENDIF
2988 IF(.NOT.inter_domain)THEN
2989 ALLOCATE(grid%xb%lat(sm31:em31,sm32:em32),STAT=ierr)
2990 if (ierr.ne.0) then
2991 CALL wrf_error_fatal ( &
2992 'frame/module_domain.f: Failed to allocate grid%xb%lat(sm31:em31,sm32:em32). ')
2993 endif
2994 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lat=initial_data_value
2995 ELSE
2996 ALLOCATE(grid%xb%lat(1,1),STAT=ierr)
2997 if (ierr.ne.0) then
2998 CALL wrf_error_fatal ( &
2999 'frame/module_domain.f: Failed to allocate grid%xb%lat(1,1). ')
3000 endif
3001 ENDIF
3002 IF(.NOT.inter_domain)THEN
3003 ALLOCATE(grid%xb%lon(sm31:em31,sm32:em32),STAT=ierr)
3004 if (ierr.ne.0) then
3005 CALL wrf_error_fatal ( &
3006 'frame/module_domain.f: Failed to allocate grid%xb%lon(sm31:em31,sm32:em32). ')
3007 endif
3008 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lon=initial_data_value
3009 ELSE
3010 ALLOCATE(grid%xb%lon(1,1),STAT=ierr)
3011 if (ierr.ne.0) then
3012 CALL wrf_error_fatal ( &
3013 'frame/module_domain.f: Failed to allocate grid%xb%lon(1,1). ')
3014 endif
3015 ENDIF
3016 IF(.NOT.inter_domain)THEN
3017 ALLOCATE(grid%xb%terr(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%xb%terr(sm31:em31,sm32:em32). ')
3021 endif
3022 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%terr=initial_data_value
3023 ELSE
3024 ALLOCATE(grid%xb%terr(1,1),STAT=ierr)
3025 if (ierr.ne.0) then
3026 CALL wrf_error_fatal ( &
3027 'frame/module_domain.f: Failed to allocate grid%xb%terr(1,1). ')
3028 endif
3029 ENDIF
3030 IF(.NOT.inter_domain)THEN
3031 ALLOCATE(grid%xb%psac(sm31:em31,sm32:em32),STAT=ierr)
3032 if (ierr.ne.0) then
3033 CALL wrf_error_fatal ( &
3034 'frame/module_domain.f: Failed to allocate grid%xb%psac(sm31:em31,sm32:em32). ')
3035 endif
3036 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psac=initial_data_value
3037 ELSE
3038 ALLOCATE(grid%xb%psac(1,1),STAT=ierr)
3039 if (ierr.ne.0) then
3040 CALL wrf_error_fatal ( &
3041 'frame/module_domain.f: Failed to allocate grid%xb%psac(1,1). ')
3042 endif
3043 ENDIF
3044 IF(.NOT.inter_domain)THEN
3045 ALLOCATE(grid%xb%lanu(sm31:em31,sm32:em32),STAT=ierr)
3046 if (ierr.ne.0) then
3047 CALL wrf_error_fatal ( &
3048 'frame/module_domain.f: Failed to allocate grid%xb%lanu(sm31:em31,sm32:em32). ')
3049 endif
3050 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lanu=initial_data_value
3051 ELSE
3052 ALLOCATE(grid%xb%lanu(1,1),STAT=ierr)
3053 if (ierr.ne.0) then
3054 CALL wrf_error_fatal ( &
3055 'frame/module_domain.f: Failed to allocate grid%xb%lanu(1,1). ')
3056 endif
3057 ENDIF
3058 IF(.NOT.inter_domain)THEN
3059 ALLOCATE(grid%xb%snow(sm31:em31,sm32:em32),STAT=ierr)
3060 if (ierr.ne.0) then
3061 CALL wrf_error_fatal ( &
3062 'frame/module_domain.f: Failed to allocate grid%xb%snow(sm31:em31,sm32:em32). ')
3063 endif
3064 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snow=initial_data_value
3065 ELSE
3066 ALLOCATE(grid%xb%snow(1,1),STAT=ierr)
3067 if (ierr.ne.0) then
3068 CALL wrf_error_fatal ( &
3069 'frame/module_domain.f: Failed to allocate grid%xb%snow(1,1). ')
3070 endif
3071 ENDIF
3072 IF(.NOT.inter_domain)THEN
3073 ALLOCATE(grid%xb%xland(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%xb%xland(sm31:em31,sm32:em32). ')
3077 endif
3078 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xland=initial_data_value
3079 ELSE
3080 ALLOCATE(grid%xb%xland(1,1),STAT=ierr)
3081 if (ierr.ne.0) then
3082 CALL wrf_error_fatal ( &
3083 'frame/module_domain.f: Failed to allocate grid%xb%xland(1,1). ')
3084 endif
3085 ENDIF
3086 IF(.NOT.inter_domain)THEN
3087 ALLOCATE(grid%xb%landmask(sm31:em31,sm32:em32),STAT=ierr)
3088 if (ierr.ne.0) then
3089 CALL wrf_error_fatal ( &
3090 'frame/module_domain.f: Failed to allocate grid%xb%landmask(sm31:em31,sm32:em32). ')
3091 endif
3092 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%landmask=initial_data_value
3093 ELSE
3094 ALLOCATE(grid%xb%landmask(1,1),STAT=ierr)
3095 if (ierr.ne.0) then
3096 CALL wrf_error_fatal ( &
3097 'frame/module_domain.f: Failed to allocate grid%xb%landmask(1,1). ')
3098 endif
3099 ENDIF
3100 IF(.NOT.inter_domain)THEN
3101 ALLOCATE(grid%xb%u10(sm31:em31,sm32:em32),STAT=ierr)
3102 if (ierr.ne.0) then
3103 CALL wrf_error_fatal ( &
3104 'frame/module_domain.f: Failed to allocate grid%xb%u10(sm31:em31,sm32:em32). ')
3105 endif
3106 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u10=initial_data_value
3107 ELSE
3108 ALLOCATE(grid%xb%u10(1,1),STAT=ierr)
3109 if (ierr.ne.0) then
3110 CALL wrf_error_fatal ( &
3111 'frame/module_domain.f: Failed to allocate grid%xb%u10(1,1). ')
3112 endif
3113 ENDIF
3114 IF(.NOT.inter_domain)THEN
3115 ALLOCATE(grid%xb%v10(sm31:em31,sm32:em32),STAT=ierr)
3116 if (ierr.ne.0) then
3117 CALL wrf_error_fatal ( &
3118 'frame/module_domain.f: Failed to allocate grid%xb%v10(sm31:em31,sm32:em32). ')
3119 endif
3120 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v10=initial_data_value
3121 ELSE
3122 ALLOCATE(grid%xb%v10(1,1),STAT=ierr)
3123 if (ierr.ne.0) then
3124 CALL wrf_error_fatal ( &
3125 'frame/module_domain.f: Failed to allocate grid%xb%v10(1,1). ')
3126 endif
3127 ENDIF
3128 IF(.NOT.inter_domain)THEN
3129 ALLOCATE(grid%xb%t2(sm31:em31,sm32:em32),STAT=ierr)
3130 if (ierr.ne.0) then
3131 CALL wrf_error_fatal ( &
3132 'frame/module_domain.f: Failed to allocate grid%xb%t2(sm31:em31,sm32:em32). ')
3133 endif
3134 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t2=initial_data_value
3135 ELSE
3136 ALLOCATE(grid%xb%t2(1,1),STAT=ierr)
3137 if (ierr.ne.0) then
3138 CALL wrf_error_fatal ( &
3139 'frame/module_domain.f: Failed to allocate grid%xb%t2(1,1). ')
3140 endif
3141 ENDIF
3142 IF(.NOT.inter_domain)THEN
3143 ALLOCATE(grid%xb%q2(sm31:em31,sm32:em32),STAT=ierr)
3144 if (ierr.ne.0) then
3145 CALL wrf_error_fatal ( &
3146 'frame/module_domain.f: Failed to allocate grid%xb%q2(sm31:em31,sm32:em32). ')
3147 endif
3148 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q2=initial_data_value
3149 ELSE
3150 ALLOCATE(grid%xb%q2(1,1),STAT=ierr)
3151 if (ierr.ne.0) then
3152 CALL wrf_error_fatal ( &
3153 'frame/module_domain.f: Failed to allocate grid%xb%q2(1,1). ')
3154 endif
3155 ENDIF
3156 IF(.NOT.inter_domain)THEN
3157 ALLOCATE(grid%xb%psfc(sm31:em31,sm32:em32),STAT=ierr)
3158 if (ierr.ne.0) then
3159 CALL wrf_error_fatal ( &
3160 'frame/module_domain.f: Failed to allocate grid%xb%psfc(sm31:em31,sm32:em32). ')
3161 endif
3162 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psfc=initial_data_value
3163 ELSE
3164 ALLOCATE(grid%xb%psfc(1,1),STAT=ierr)
3165 if (ierr.ne.0) then
3166 CALL wrf_error_fatal ( &
3167 'frame/module_domain.f: Failed to allocate grid%xb%psfc(1,1). ')
3168 endif
3169 ENDIF
3170 IF(.NOT.inter_domain)THEN
3171 ALLOCATE(grid%xb%tsk(sm31:em31,sm32:em32),STAT=ierr)
3172 if (ierr.ne.0) then
3173 CALL wrf_error_fatal ( &
3174 'frame/module_domain.f: Failed to allocate grid%xb%tsk(sm31:em31,sm32:em32). ')
3175 endif
3176 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tsk=initial_data_value
3177 ELSE
3178 ALLOCATE(grid%xb%tsk(1,1),STAT=ierr)
3179 if (ierr.ne.0) then
3180 CALL wrf_error_fatal ( &
3181 'frame/module_domain.f: Failed to allocate grid%xb%tsk(1,1). ')
3182 endif
3183 ENDIF
3184 IF(.NOT.inter_domain)THEN
3185 ALLOCATE(grid%xb%smois(sm31:em31,sm32:em32),STAT=ierr)
3186 if (ierr.ne.0) then
3187 CALL wrf_error_fatal ( &
3188 'frame/module_domain.f: Failed to allocate grid%xb%smois(sm31:em31,sm32:em32). ')
3189 endif
3190 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%smois=initial_data_value
3191 ELSE
3192 ALLOCATE(grid%xb%smois(1,1),STAT=ierr)
3193 if (ierr.ne.0) then
3194 CALL wrf_error_fatal ( &
3195 'frame/module_domain.f: Failed to allocate grid%xb%smois(1,1). ')
3196 endif
3197 ENDIF
3198 IF(.NOT.inter_domain)THEN
3199 ALLOCATE(grid%xb%tslb(sm31:em31,sm32:em32),STAT=ierr)
3200 if (ierr.ne.0) then
3201 CALL wrf_error_fatal ( &
3202 'frame/module_domain.f: Failed to allocate grid%xb%tslb(sm31:em31,sm32:em32). ')
3203 endif
3204 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tslb=initial_data_value
3205 ELSE
3206 ALLOCATE(grid%xb%tslb(1,1),STAT=ierr)
3207 if (ierr.ne.0) then
3208 CALL wrf_error_fatal ( &
3209 'frame/module_domain.f: Failed to allocate grid%xb%tslb(1,1). ')
3210 endif
3211 ENDIF
3212 IF(.NOT.inter_domain)THEN
3213 ALLOCATE(grid%xb%xice(sm31:em31,sm32:em32),STAT=ierr)
3214 if (ierr.ne.0) then
3215 CALL wrf_error_fatal ( &
3216 'frame/module_domain.f: Failed to allocate grid%xb%xice(sm31:em31,sm32:em32). ')
3217 endif
3218 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xice=initial_data_value
3219 ELSE
3220 ALLOCATE(grid%xb%xice(1,1),STAT=ierr)
3221 if (ierr.ne.0) then
3222 CALL wrf_error_fatal ( &
3223 'frame/module_domain.f: Failed to allocate grid%xb%xice(1,1). ')
3224 endif
3225 ENDIF
3226 IF(.NOT.inter_domain)THEN
3227 ALLOCATE(grid%xb%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
3228 if (ierr.ne.0) then
3229 CALL wrf_error_fatal ( &
3230 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(sm31:em31,sm32:em32). ')
3231 endif
3232 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ivgtyp=0
3233 ELSE
3234 ALLOCATE(grid%xb%ivgtyp(1,1),STAT=ierr)
3235 if (ierr.ne.0) then
3236 CALL wrf_error_fatal ( &
3237 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(1,1). ')
3238 endif
3239 ENDIF
3240 IF(.NOT.inter_domain)THEN
3241 ALLOCATE(grid%xb%isltyp(sm31:em31,sm32:em32),STAT=ierr)
3242 if (ierr.ne.0) then
3243 CALL wrf_error_fatal ( &
3244 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(sm31:em31,sm32:em32). ')
3245 endif
3246 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%isltyp=0
3247 ELSE
3248 ALLOCATE(grid%xb%isltyp(1,1),STAT=ierr)
3249 if (ierr.ne.0) then
3250 CALL wrf_error_fatal ( &
3251 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(1,1). ')
3252 endif
3253 ENDIF
3254 IF(.NOT.inter_domain)THEN
3255 ALLOCATE(grid%xb%vegfra(sm31:em31,sm32:em32),STAT=ierr)
3256 if (ierr.ne.0) then
3257 CALL wrf_error_fatal ( &
3258 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(sm31:em31,sm32:em32). ')
3259 endif
3260 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vegfra=initial_data_value
3261 ELSE
3262 ALLOCATE(grid%xb%vegfra(1,1),STAT=ierr)
3263 if (ierr.ne.0) then
3264 CALL wrf_error_fatal ( &
3265 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(1,1). ')
3266 endif
3267 ENDIF
3268 IF(.NOT.inter_domain)THEN
3269 ALLOCATE(grid%xb%snowh(sm31:em31,sm32:em32),STAT=ierr)
3270 if (ierr.ne.0) then
3271 CALL wrf_error_fatal ( &
3272 'frame/module_domain.f: Failed to allocate grid%xb%snowh(sm31:em31,sm32:em32). ')
3273 endif
3274 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snowh=initial_data_value
3275 ELSE
3276 ALLOCATE(grid%xb%snowh(1,1),STAT=ierr)
3277 if (ierr.ne.0) then
3278 CALL wrf_error_fatal ( &
3279 'frame/module_domain.f: Failed to allocate grid%xb%snowh(1,1). ')
3280 endif
3281 ENDIF
3282 IF(.NOT.inter_domain)THEN
3283 ALLOCATE(grid%xb%regime(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%xb%regime(sm31:em31,sm32:em32). ')
3287 endif
3288 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%regime=initial_data_value
3289 ELSE
3290 ALLOCATE(grid%xb%regime(1,1),STAT=ierr)
3291 if (ierr.ne.0) then
3292 CALL wrf_error_fatal ( &
3293 'frame/module_domain.f: Failed to allocate grid%xb%regime(1,1). ')
3294 endif
3295 ENDIF
3296 IF(.NOT.inter_domain)THEN
3297 ALLOCATE(grid%xb%znu(sm33:em33),STAT=ierr)
3298 if (ierr.ne.0) then
3299 CALL wrf_error_fatal ( &
3300 'frame/module_domain.f: Failed to allocate grid%xb%znu(sm33:em33). ')
3301 endif
3302 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znu=initial_data_value
3303 ELSE
3304 ALLOCATE(grid%xb%znu(1),STAT=ierr)
3305 if (ierr.ne.0) then
3306 CALL wrf_error_fatal ( &
3307 'frame/module_domain.f: Failed to allocate grid%xb%znu(1). ')
3308 endif
3309 ENDIF
3310 IF(.NOT.inter_domain)THEN
3311 ALLOCATE(grid%xb%znw(sm33:em33),STAT=ierr)
3312 if (ierr.ne.0) then
3313 CALL wrf_error_fatal ( &
3314 'frame/module_domain.f: Failed to allocate grid%xb%znw(sm33:em33). ')
3315 endif
3316 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znw=initial_data_value
3317 ELSE
3318 ALLOCATE(grid%xb%znw(1),STAT=ierr)
3319 if (ierr.ne.0) then
3320 CALL wrf_error_fatal ( &
3321 'frame/module_domain.f: Failed to allocate grid%xb%znw(1). ')
3322 endif
3323 ENDIF
3324 IF(.NOT.inter_domain)THEN
3325 ALLOCATE(grid%xb%dn(sm33:em33),STAT=ierr)
3326 if (ierr.ne.0) then
3327 CALL wrf_error_fatal ( &
3328 'frame/module_domain.f: Failed to allocate grid%xb%dn(sm33:em33). ')
3329 endif
3330 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dn=initial_data_value
3331 ELSE
3332 ALLOCATE(grid%xb%dn(1),STAT=ierr)
3333 if (ierr.ne.0) then
3334 CALL wrf_error_fatal ( &
3335 'frame/module_domain.f: Failed to allocate grid%xb%dn(1). ')
3336 endif
3337 ENDIF
3338 IF(.NOT.inter_domain)THEN
3339 ALLOCATE(grid%xb%dnw(sm33:em33),STAT=ierr)
3340 if (ierr.ne.0) then
3341 CALL wrf_error_fatal ( &
3342 'frame/module_domain.f: Failed to allocate grid%xb%dnw(sm33:em33). ')
3343 endif
3344 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dnw=initial_data_value
3345 ELSE
3346 ALLOCATE(grid%xb%dnw(1),STAT=ierr)
3347 if (ierr.ne.0) then
3348 CALL wrf_error_fatal ( &
3349 'frame/module_domain.f: Failed to allocate grid%xb%dnw(1). ')
3350 endif
3351 ENDIF
3352 IF(.NOT.inter_domain)THEN
3353 ALLOCATE(grid%xb%sigmah(sm33:em33),STAT=ierr)
3354 if (ierr.ne.0) then
3355 CALL wrf_error_fatal ( &
3356 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(sm33:em33). ')
3357 endif
3358 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmah=initial_data_value
3359 ELSE
3360 ALLOCATE(grid%xb%sigmah(1),STAT=ierr)
3361 if (ierr.ne.0) then
3362 CALL wrf_error_fatal ( &
3363 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(1). ')
3364 endif
3365 ENDIF
3366 IF(.NOT.inter_domain)THEN
3367 ALLOCATE(grid%xb%sigmaf(sm33:em33),STAT=ierr)
3368 if (ierr.ne.0) then
3369 CALL wrf_error_fatal ( &
3370 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(sm33:em33). ')
3371 endif
3372 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmaf=initial_data_value
3373 ELSE
3374 ALLOCATE(grid%xb%sigmaf(1),STAT=ierr)
3375 if (ierr.ne.0) then
3376 CALL wrf_error_fatal ( &
3377 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(1). ')
3378 endif
3379 ENDIF
3380 IF(.NOT.inter_domain)THEN
3381 ALLOCATE(grid%xb%coefx(sm31:em31,sm32:em32),STAT=ierr)
3382 if (ierr.ne.0) then
3383 CALL wrf_error_fatal ( &
3384 'frame/module_domain.f: Failed to allocate grid%xb%coefx(sm31:em31,sm32:em32). ')
3385 endif
3386 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefx=initial_data_value
3387 ELSE
3388 ALLOCATE(grid%xb%coefx(1,1),STAT=ierr)
3389 if (ierr.ne.0) then
3390 CALL wrf_error_fatal ( &
3391 'frame/module_domain.f: Failed to allocate grid%xb%coefx(1,1). ')
3392 endif
3393 ENDIF
3394 IF(.NOT.inter_domain)THEN
3395 ALLOCATE(grid%xb%coefy(sm31:em31,sm32:em32),STAT=ierr)
3396 if (ierr.ne.0) then
3397 CALL wrf_error_fatal ( &
3398 'frame/module_domain.f: Failed to allocate grid%xb%coefy(sm31:em31,sm32:em32). ')
3399 endif
3400 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefy=initial_data_value
3401 ELSE
3402 ALLOCATE(grid%xb%coefy(1,1),STAT=ierr)
3403 if (ierr.ne.0) then
3404 CALL wrf_error_fatal ( &
3405 'frame/module_domain.f: Failed to allocate grid%xb%coefy(1,1). ')
3406 endif
3407 ENDIF
3408 IF(.NOT.inter_domain)THEN
3409 ALLOCATE(grid%xb%coefz(sm31:em31,sm32:em32),STAT=ierr)
3410 if (ierr.ne.0) then
3411 CALL wrf_error_fatal ( &
3412 'frame/module_domain.f: Failed to allocate grid%xb%coefz(sm31:em31,sm32:em32). ')
3413 endif
3414 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefz=initial_data_value
3415 ELSE
3416 ALLOCATE(grid%xb%coefz(1,1),STAT=ierr)
3417 if (ierr.ne.0) then
3418 CALL wrf_error_fatal ( &
3419 'frame/module_domain.f: Failed to allocate grid%xb%coefz(1,1). ')
3420 endif
3421 ENDIF
3422 IF(.NOT.inter_domain)THEN
3423 ALLOCATE(grid%xb%kma_a(sm33:em33),STAT=ierr)
3424 if (ierr.ne.0) then
3425 CALL wrf_error_fatal ( &
3426 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(sm33:em33). ')
3427 endif
3428 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_a=initial_data_value
3429 ELSE
3430 ALLOCATE(grid%xb%kma_a(1),STAT=ierr)
3431 if (ierr.ne.0) then
3432 CALL wrf_error_fatal ( &
3433 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(1). ')
3434 endif
3435 ENDIF
3436 IF(.NOT.inter_domain)THEN
3437 ALLOCATE(grid%xb%kma_b(sm33:em33),STAT=ierr)
3438 if (ierr.ne.0) then
3439 CALL wrf_error_fatal ( &
3440 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(sm33:em33). ')
3441 endif
3442 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_b=initial_data_value
3443 ELSE
3444 ALLOCATE(grid%xb%kma_b(1),STAT=ierr)
3445 if (ierr.ne.0) then
3446 CALL wrf_error_fatal ( &
3447 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(1). ')
3448 endif
3449 ENDIF
3450 IF(.NOT.inter_domain)THEN
3451 ALLOCATE(grid%xa%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3452 if (ierr.ne.0) then
3453 CALL wrf_error_fatal ( &
3454 'frame/module_domain.f: Failed to allocate grid%xa%u(sm31:em31,sm32:em32,sm33:em33). ')
3455 endif
3456 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u=initial_data_value
3457 ELSE
3458 ALLOCATE(grid%xa%u(1,1,1),STAT=ierr)
3459 if (ierr.ne.0) then
3460 CALL wrf_error_fatal ( &
3461 'frame/module_domain.f: Failed to allocate grid%xa%u(1,1,1). ')
3462 endif
3463 ENDIF
3464 IF(.NOT.inter_domain)THEN
3465 ALLOCATE(grid%xa%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3466 if (ierr.ne.0) then
3467 CALL wrf_error_fatal ( &
3468 'frame/module_domain.f: Failed to allocate grid%xa%v(sm31:em31,sm32:em32,sm33:em33). ')
3469 endif
3470 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v=initial_data_value
3471 ELSE
3472 ALLOCATE(grid%xa%v(1,1,1),STAT=ierr)
3473 if (ierr.ne.0) then
3474 CALL wrf_error_fatal ( &
3475 'frame/module_domain.f: Failed to allocate grid%xa%v(1,1,1). ')
3476 endif
3477 ENDIF
3478 IF(.NOT.inter_domain)THEN
3479 ALLOCATE(grid%xa%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3480 if (ierr.ne.0) then
3481 CALL wrf_error_fatal ( &
3482 'frame/module_domain.f: Failed to allocate grid%xa%w(sm31:em31,sm32:em32,sm33:em33). ')
3483 endif
3484 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%w=initial_data_value
3485 ELSE
3486 ALLOCATE(grid%xa%w(1,1,1),STAT=ierr)
3487 if (ierr.ne.0) then
3488 CALL wrf_error_fatal ( &
3489 'frame/module_domain.f: Failed to allocate grid%xa%w(1,1,1). ')
3490 endif
3491 ENDIF
3492 IF(.NOT.inter_domain)THEN
3493 ALLOCATE(grid%xa%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3494 if (ierr.ne.0) then
3495 CALL wrf_error_fatal ( &
3496 'frame/module_domain.f: Failed to allocate grid%xa%t(sm31:em31,sm32:em32,sm33:em33). ')
3497 endif
3498 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t=initial_data_value
3499 ELSE
3500 ALLOCATE(grid%xa%t(1,1,1),STAT=ierr)
3501 if (ierr.ne.0) then
3502 CALL wrf_error_fatal ( &
3503 'frame/module_domain.f: Failed to allocate grid%xa%t(1,1,1). ')
3504 endif
3505 ENDIF
3506 IF(.NOT.inter_domain)THEN
3507 ALLOCATE(grid%xa%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3508 if (ierr.ne.0) then
3509 CALL wrf_error_fatal ( &
3510 'frame/module_domain.f: Failed to allocate grid%xa%q(sm31:em31,sm32:em32,sm33:em33). ')
3511 endif
3512 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q=initial_data_value
3513 ELSE
3514 ALLOCATE(grid%xa%q(1,1,1),STAT=ierr)
3515 if (ierr.ne.0) then
3516 CALL wrf_error_fatal ( &
3517 'frame/module_domain.f: Failed to allocate grid%xa%q(1,1,1). ')
3518 endif
3519 ENDIF
3520 IF(.NOT.inter_domain)THEN
3521 ALLOCATE(grid%xa%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3522 if (ierr.ne.0) then
3523 CALL wrf_error_fatal ( &
3524 'frame/module_domain.f: Failed to allocate grid%xa%p(sm31:em31,sm32:em32,sm33:em33). ')
3525 endif
3526 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%p=initial_data_value
3527 ELSE
3528 ALLOCATE(grid%xa%p(1,1,1),STAT=ierr)
3529 if (ierr.ne.0) then
3530 CALL wrf_error_fatal ( &
3531 'frame/module_domain.f: Failed to allocate grid%xa%p(1,1,1). ')
3532 endif
3533 ENDIF
3534 IF(.NOT.inter_domain)THEN
3535 ALLOCATE(grid%xa%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3536 if (ierr.ne.0) then
3537 CALL wrf_error_fatal ( &
3538 'frame/module_domain.f: Failed to allocate grid%xa%rh(sm31:em31,sm32:em32,sm33:em33). ')
3539 endif
3540 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rh=initial_data_value
3541 ELSE
3542 ALLOCATE(grid%xa%rh(1,1,1),STAT=ierr)
3543 if (ierr.ne.0) then
3544 CALL wrf_error_fatal ( &
3545 'frame/module_domain.f: Failed to allocate grid%xa%rh(1,1,1). ')
3546 endif
3547 ENDIF
3548 IF(.NOT.inter_domain)THEN
3549 ALLOCATE(grid%xa%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3550 if (ierr.ne.0) then
3551 CALL wrf_error_fatal ( &
3552 'frame/module_domain.f: Failed to allocate grid%xa%rho(sm31:em31,sm32:em32,sm33:em33). ')
3553 endif
3554 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rho=initial_data_value
3555 ELSE
3556 ALLOCATE(grid%xa%rho(1,1,1),STAT=ierr)
3557 if (ierr.ne.0) then
3558 CALL wrf_error_fatal ( &
3559 'frame/module_domain.f: Failed to allocate grid%xa%rho(1,1,1). ')
3560 endif
3561 ENDIF
3562 IF(.NOT.inter_domain)THEN
3563 ALLOCATE(grid%xa%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3564 if (ierr.ne.0) then
3565 CALL wrf_error_fatal ( &
3566 'frame/module_domain.f: Failed to allocate grid%xa%wh(sm31:em31,sm32:em32,sm33:em33). ')
3567 endif
3568 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%wh=initial_data_value
3569 ELSE
3570 ALLOCATE(grid%xa%wh(1,1,1),STAT=ierr)
3571 if (ierr.ne.0) then
3572 CALL wrf_error_fatal ( &
3573 'frame/module_domain.f: Failed to allocate grid%xa%wh(1,1,1). ')
3574 endif
3575 ENDIF
3576 IF(.NOT.inter_domain)THEN
3577 ALLOCATE(grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3578 if (ierr.ne.0) then
3579 CALL wrf_error_fatal ( &
3580 'frame/module_domain.f: Failed to allocate grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33). ')
3581 endif
3582 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qrn=initial_data_value
3583 ELSE
3584 ALLOCATE(grid%xa%qrn(1,1,1),STAT=ierr)
3585 if (ierr.ne.0) then
3586 CALL wrf_error_fatal ( &
3587 'frame/module_domain.f: Failed to allocate grid%xa%qrn(1,1,1). ')
3588 endif
3589 ENDIF
3590 IF(.NOT.inter_domain)THEN
3591 ALLOCATE(grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3592 if (ierr.ne.0) then
3593 CALL wrf_error_fatal ( &
3594 'frame/module_domain.f: Failed to allocate grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33). ')
3595 endif
3596 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qcw=initial_data_value
3597 ELSE
3598 ALLOCATE(grid%xa%qcw(1,1,1),STAT=ierr)
3599 if (ierr.ne.0) then
3600 CALL wrf_error_fatal ( &
3601 'frame/module_domain.f: Failed to allocate grid%xa%qcw(1,1,1). ')
3602 endif
3603 ENDIF
3604 IF(.NOT.inter_domain)THEN
3605 ALLOCATE(grid%xa%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3606 if (ierr.ne.0) then
3607 CALL wrf_error_fatal ( &
3608 'frame/module_domain.f: Failed to allocate grid%xa%qci(sm31:em31,sm32:em32,sm33:em33). ')
3609 endif
3610 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qci=initial_data_value
3611 ELSE
3612 ALLOCATE(grid%xa%qci(1,1,1),STAT=ierr)
3613 if (ierr.ne.0) then
3614 CALL wrf_error_fatal ( &
3615 'frame/module_domain.f: Failed to allocate grid%xa%qci(1,1,1). ')
3616 endif
3617 ENDIF
3618 IF(.NOT.inter_domain)THEN
3619 ALLOCATE(grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3620 if (ierr.ne.0) then
3621 CALL wrf_error_fatal ( &
3622 'frame/module_domain.f: Failed to allocate grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33). ')
3623 endif
3624 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qsn=initial_data_value
3625 ELSE
3626 ALLOCATE(grid%xa%qsn(1,1,1),STAT=ierr)
3627 if (ierr.ne.0) then
3628 CALL wrf_error_fatal ( &
3629 'frame/module_domain.f: Failed to allocate grid%xa%qsn(1,1,1). ')
3630 endif
3631 ENDIF
3632 IF(.NOT.inter_domain)THEN
3633 ALLOCATE(grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3634 if (ierr.ne.0) then
3635 CALL wrf_error_fatal ( &
3636 'frame/module_domain.f: Failed to allocate grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33). ')
3637 endif
3638 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qgr=initial_data_value
3639 ELSE
3640 ALLOCATE(grid%xa%qgr(1,1,1),STAT=ierr)
3641 if (ierr.ne.0) then
3642 CALL wrf_error_fatal ( &
3643 'frame/module_domain.f: Failed to allocate grid%xa%qgr(1,1,1). ')
3644 endif
3645 ENDIF
3646 IF(.NOT.inter_domain)THEN
3647 ALLOCATE(grid%xa%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3648 if (ierr.ne.0) then
3649 CALL wrf_error_fatal ( &
3650 'frame/module_domain.f: Failed to allocate grid%xa%qt(sm31:em31,sm32:em32,sm33:em33). ')
3651 endif
3652 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qt=initial_data_value
3653 ELSE
3654 ALLOCATE(grid%xa%qt(1,1,1),STAT=ierr)
3655 if (ierr.ne.0) then
3656 CALL wrf_error_fatal ( &
3657 'frame/module_domain.f: Failed to allocate grid%xa%qt(1,1,1). ')
3658 endif
3659 ENDIF
3660 IF(.NOT.inter_domain)THEN
3661 ALLOCATE(grid%xa%tgrn(sm31:em31,sm32:em32),STAT=ierr)
3662 if (ierr.ne.0) then
3663 CALL wrf_error_fatal ( &
3664 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(sm31:em31,sm32:em32). ')
3665 endif
3666 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tgrn=initial_data_value
3667 ELSE
3668 ALLOCATE(grid%xa%tgrn(1,1),STAT=ierr)
3669 if (ierr.ne.0) then
3670 CALL wrf_error_fatal ( &
3671 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(1,1). ')
3672 endif
3673 ENDIF
3674 IF(.NOT.inter_domain)THEN
3675 ALLOCATE(grid%xa%psfc(sm31:em31,sm32:em32),STAT=ierr)
3676 if (ierr.ne.0) then
3677 CALL wrf_error_fatal ( &
3678 'frame/module_domain.f: Failed to allocate grid%xa%psfc(sm31:em31,sm32:em32). ')
3679 endif
3680 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%psfc=initial_data_value
3681 ELSE
3682 ALLOCATE(grid%xa%psfc(1,1),STAT=ierr)
3683 if (ierr.ne.0) then
3684 CALL wrf_error_fatal ( &
3685 'frame/module_domain.f: Failed to allocate grid%xa%psfc(1,1). ')
3686 endif
3687 ENDIF
3688 IF(.NOT.inter_domain)THEN
3689 ALLOCATE(grid%xa%u10(sm31:em31,sm32:em32),STAT=ierr)
3690 if (ierr.ne.0) then
3691 CALL wrf_error_fatal ( &
3692 'frame/module_domain.f: Failed to allocate grid%xa%u10(sm31:em31,sm32:em32). ')
3693 endif
3694 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u10=initial_data_value
3695 ELSE
3696 ALLOCATE(grid%xa%u10(1,1),STAT=ierr)
3697 if (ierr.ne.0) then
3698 CALL wrf_error_fatal ( &
3699 'frame/module_domain.f: Failed to allocate grid%xa%u10(1,1). ')
3700 endif
3701 ENDIF
3702 IF(.NOT.inter_domain)THEN
3703 ALLOCATE(grid%xa%v10(sm31:em31,sm32:em32),STAT=ierr)
3704 if (ierr.ne.0) then
3705 CALL wrf_error_fatal ( &
3706 'frame/module_domain.f: Failed to allocate grid%xa%v10(sm31:em31,sm32:em32). ')
3707 endif
3708 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v10=initial_data_value
3709 ELSE
3710 ALLOCATE(grid%xa%v10(1,1),STAT=ierr)
3711 if (ierr.ne.0) then
3712 CALL wrf_error_fatal ( &
3713 'frame/module_domain.f: Failed to allocate grid%xa%v10(1,1). ')
3714 endif
3715 ENDIF
3716 IF(.NOT.inter_domain)THEN
3717 ALLOCATE(grid%xa%t2(sm31:em31,sm32:em32),STAT=ierr)
3718 if (ierr.ne.0) then
3719 CALL wrf_error_fatal ( &
3720 'frame/module_domain.f: Failed to allocate grid%xa%t2(sm31:em31,sm32:em32). ')
3721 endif
3722 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t2=initial_data_value
3723 ELSE
3724 ALLOCATE(grid%xa%t2(1,1),STAT=ierr)
3725 if (ierr.ne.0) then
3726 CALL wrf_error_fatal ( &
3727 'frame/module_domain.f: Failed to allocate grid%xa%t2(1,1). ')
3728 endif
3729 ENDIF
3730 IF(.NOT.inter_domain)THEN
3731 ALLOCATE(grid%xa%q2(sm31:em31,sm32:em32),STAT=ierr)
3732 if (ierr.ne.0) then
3733 CALL wrf_error_fatal ( &
3734 'frame/module_domain.f: Failed to allocate grid%xa%q2(sm31:em31,sm32:em32). ')
3735 endif
3736 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q2=initial_data_value
3737 ELSE
3738 ALLOCATE(grid%xa%q2(1,1),STAT=ierr)
3739 if (ierr.ne.0) then
3740 CALL wrf_error_fatal ( &
3741 'frame/module_domain.f: Failed to allocate grid%xa%q2(1,1). ')
3742 endif
3743 ENDIF
3744 IF(.NOT.inter_domain)THEN
3745 ALLOCATE(grid%xa%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3746 if (ierr.ne.0) then
3747 CALL wrf_error_fatal ( &
3748 'frame/module_domain.f: Failed to allocate grid%xa%ref(sm31:em31,sm32:em32,sm33:em33). ')
3749 endif
3750 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%ref=initial_data_value
3751 ELSE
3752 ALLOCATE(grid%xa%ref(1,1,1),STAT=ierr)
3753 if (ierr.ne.0) then
3754 CALL wrf_error_fatal ( &
3755 'frame/module_domain.f: Failed to allocate grid%xa%ref(1,1,1). ')
3756 endif
3757 ENDIF
3758 IF(.NOT.inter_domain)THEN
3759 ALLOCATE(grid%xa%tpw(sm31:em31,sm32:em32),STAT=ierr)
3760 if (ierr.ne.0) then
3761 CALL wrf_error_fatal ( &
3762 'frame/module_domain.f: Failed to allocate grid%xa%tpw(sm31:em31,sm32:em32). ')
3763 endif
3764 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tpw=initial_data_value
3765 ELSE
3766 ALLOCATE(grid%xa%tpw(1,1),STAT=ierr)
3767 if (ierr.ne.0) then
3768 CALL wrf_error_fatal ( &
3769 'frame/module_domain.f: Failed to allocate grid%xa%tpw(1,1). ')
3770 endif
3771 ENDIF
3772 IF(.NOT.inter_domain)THEN
3773 ALLOCATE(grid%xa%speed(sm31:em31,sm32:em32),STAT=ierr)
3774 if (ierr.ne.0) then
3775 CALL wrf_error_fatal ( &
3776 'frame/module_domain.f: Failed to allocate grid%xa%speed(sm31:em31,sm32:em32). ')
3777 endif
3778 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%speed=initial_data_value
3779 ELSE
3780 ALLOCATE(grid%xa%speed(1,1),STAT=ierr)
3781 if (ierr.ne.0) then
3782 CALL wrf_error_fatal ( &
3783 'frame/module_domain.f: Failed to allocate grid%xa%speed(1,1). ')
3784 endif
3785 ENDIF
3786 IF(.NOT.inter_domain)THEN
3787 ALLOCATE(grid%xa%tb19v(sm31:em31,sm32:em32),STAT=ierr)
3788 if (ierr.ne.0) then
3789 CALL wrf_error_fatal ( &
3790 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(sm31:em31,sm32:em32). ')
3791 endif
3792 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19v=initial_data_value
3793 ELSE
3794 ALLOCATE(grid%xa%tb19v(1,1),STAT=ierr)
3795 if (ierr.ne.0) then
3796 CALL wrf_error_fatal ( &
3797 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(1,1). ')
3798 endif
3799 ENDIF
3800 IF(.NOT.inter_domain)THEN
3801 ALLOCATE(grid%xa%tb19h(sm31:em31,sm32:em32),STAT=ierr)
3802 if (ierr.ne.0) then
3803 CALL wrf_error_fatal ( &
3804 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(sm31:em31,sm32:em32). ')
3805 endif
3806 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19h=initial_data_value
3807 ELSE
3808 ALLOCATE(grid%xa%tb19h(1,1),STAT=ierr)
3809 if (ierr.ne.0) then
3810 CALL wrf_error_fatal ( &
3811 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(1,1). ')
3812 endif
3813 ENDIF
3814 IF(.NOT.inter_domain)THEN
3815 ALLOCATE(grid%xa%tb22v(sm31:em31,sm32:em32),STAT=ierr)
3816 if (ierr.ne.0) then
3817 CALL wrf_error_fatal ( &
3818 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(sm31:em31,sm32:em32). ')
3819 endif
3820 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb22v=initial_data_value
3821 ELSE
3822 ALLOCATE(grid%xa%tb22v(1,1),STAT=ierr)
3823 if (ierr.ne.0) then
3824 CALL wrf_error_fatal ( &
3825 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(1,1). ')
3826 endif
3827 ENDIF
3828 IF(.NOT.inter_domain)THEN
3829 ALLOCATE(grid%xa%tb37v(sm31:em31,sm32:em32),STAT=ierr)
3830 if (ierr.ne.0) then
3831 CALL wrf_error_fatal ( &
3832 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(sm31:em31,sm32:em32). ')
3833 endif
3834 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37v=initial_data_value
3835 ELSE
3836 ALLOCATE(grid%xa%tb37v(1,1),STAT=ierr)
3837 if (ierr.ne.0) then
3838 CALL wrf_error_fatal ( &
3839 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(1,1). ')
3840 endif
3841 ENDIF
3842 IF(.NOT.inter_domain)THEN
3843 ALLOCATE(grid%xa%tb37h(sm31:em31,sm32:em32),STAT=ierr)
3844 if (ierr.ne.0) then
3845 CALL wrf_error_fatal ( &
3846 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(sm31:em31,sm32:em32). ')
3847 endif
3848 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37h=initial_data_value
3849 ELSE
3850 ALLOCATE(grid%xa%tb37h(1,1),STAT=ierr)
3851 if (ierr.ne.0) then
3852 CALL wrf_error_fatal ( &
3853 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(1,1). ')
3854 endif
3855 ENDIF
3856 IF(.NOT.inter_domain)THEN
3857 ALLOCATE(grid%xa%tb85v(sm31:em31,sm32:em32),STAT=ierr)
3858 if (ierr.ne.0) then
3859 CALL wrf_error_fatal ( &
3860 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(sm31:em31,sm32:em32). ')
3861 endif
3862 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85v=initial_data_value
3863 ELSE
3864 ALLOCATE(grid%xa%tb85v(1,1),STAT=ierr)
3865 if (ierr.ne.0) then
3866 CALL wrf_error_fatal ( &
3867 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(1,1). ')
3868 endif
3869 ENDIF
3870 IF(.NOT.inter_domain)THEN
3871 ALLOCATE(grid%xa%tb85h(sm31:em31,sm32:em32),STAT=ierr)
3872 if (ierr.ne.0) then
3873 CALL wrf_error_fatal ( &
3874 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(sm31:em31,sm32:em32). ')
3875 endif
3876 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85h=initial_data_value
3877 ELSE
3878 ALLOCATE(grid%xa%tb85h(1,1),STAT=ierr)
3879 if (ierr.ne.0) then
3880 CALL wrf_error_fatal ( &
3881 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(1,1). ')
3882 endif
3883 ENDIF
3884 IF ( setinitval .EQ. 3 ) grid%xp%domdesc=0
3885 IF ( setinitval .EQ. 3 ) grid%xp%comms(max_comms)=0
3886 IF ( setinitval .EQ. 3 ) grid%xp%halo_id0=0
3887 IF ( setinitval .EQ. 3 ) grid%xp%halo_id1=0
3888 IF ( setinitval .EQ. 3 ) grid%xp%halo_id2=0
3889 IF ( setinitval .EQ. 3 ) grid%xp%halo_id3=0
3890 IF ( setinitval .EQ. 3 ) grid%xp%halo_id4=0
3891 IF ( setinitval .EQ. 3 ) grid%xp%halo_id5=0
3892 IF ( setinitval .EQ. 3 ) grid%xp%halo_id6=0
3893 IF ( setinitval .EQ. 3 ) grid%xp%halo_id7=0
3894 IF ( setinitval .EQ. 3 ) grid%xp%halo_id8=0
3895 IF ( setinitval .EQ. 3 ) grid%xp%halo_id9=0
3896 IF ( setinitval .EQ. 3 ) grid%xp%halo_id10=0
3897 IF ( setinitval .EQ. 3 ) grid%xp%halo_id11=0
3898 IF ( setinitval .EQ. 3 ) grid%xp%halo_id12=0
3899 IF ( setinitval .EQ. 3 ) grid%xp%halo_id13=0
3900 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id1=0
3901 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id2=0
3902 IF ( setinitval .EQ. 3 ) grid%xp%ids=0
3903 IF ( setinitval .EQ. 3 ) grid%xp%ide=0
3904 IF ( setinitval .EQ. 3 ) grid%xp%jds=0
3905 IF ( setinitval .EQ. 3 ) grid%xp%jde=0
3906 IF ( setinitval .EQ. 3 ) grid%xp%kds=0
3907 IF ( setinitval .EQ. 3 ) grid%xp%kde=0
3908 IF ( setinitval .EQ. 3 ) grid%xp%ims=0
3909 IF ( setinitval .EQ. 3 ) grid%xp%ime=0
3910 IF ( setinitval .EQ. 3 ) grid%xp%jms=0
3911 IF ( setinitval .EQ. 3 ) grid%xp%jme=0
3912 IF ( setinitval .EQ. 3 ) grid%xp%kms=0
3913 IF ( setinitval .EQ. 3 ) grid%xp%kme=0
3914 IF ( setinitval .EQ. 3 ) grid%xp%its=0
3915 IF ( setinitval .EQ. 3 ) grid%xp%ite=0
3916 IF ( setinitval .EQ. 3 ) grid%xp%jts=0
3917 IF ( setinitval .EQ. 3 ) grid%xp%jte=0
3918 IF ( setinitval .EQ. 3 ) grid%xp%kts=0
3919 IF ( setinitval .EQ. 3 ) grid%xp%kte=0
3920 IF ( setinitval .EQ. 3 ) grid%xp%ips=0
3921 IF ( setinitval .EQ. 3 ) grid%xp%ipe=0
3922 IF ( setinitval .EQ. 3 ) grid%xp%jps=0
3923 IF ( setinitval .EQ. 3 ) grid%xp%jpe=0
3924 IF ( setinitval .EQ. 3 ) grid%xp%kps=0
3925 IF ( setinitval .EQ. 3 ) grid%xp%kpe=0
3926 IF ( setinitval .EQ. 3 ) grid%xp%idsx=0
3927 IF ( setinitval .EQ. 3 ) grid%xp%idex=0
3928 IF ( setinitval .EQ. 3 ) grid%xp%jdsx=0
3929 IF ( setinitval .EQ. 3 ) grid%xp%jdex=0
3930 IF ( setinitval .EQ. 3 ) grid%xp%kdsx=0
3931 IF ( setinitval .EQ. 3 ) grid%xp%kdex=0
3932 IF ( setinitval .EQ. 3 ) grid%xp%imsx=0
3933 IF ( setinitval .EQ. 3 ) grid%xp%imex=0
3934 IF ( setinitval .EQ. 3 ) grid%xp%jmsx=0
3935 IF ( setinitval .EQ. 3 ) grid%xp%jmex=0
3936 IF ( setinitval .EQ. 3 ) grid%xp%kmsx=0
3937 IF ( setinitval .EQ. 3 ) grid%xp%kmex=0
3938 IF ( setinitval .EQ. 3 ) grid%xp%itsx=0
3939 IF ( setinitval .EQ. 3 ) grid%xp%itex=0
3940 IF ( setinitval .EQ. 3 ) grid%xp%jtsx=0
3941 IF ( setinitval .EQ. 3 ) grid%xp%jtex=0
3942 IF ( setinitval .EQ. 3 ) grid%xp%ktsx=0
3943 IF ( setinitval .EQ. 3 ) grid%xp%ktex=0
3944 IF ( setinitval .EQ. 3 ) grid%xp%ipsx=0
3945 IF ( setinitval .EQ. 3 ) grid%xp%ipex=0
3946 IF ( setinitval .EQ. 3 ) grid%xp%jpsx=0
3947 IF ( setinitval .EQ. 3 ) grid%xp%jpex=0
3948 IF ( setinitval .EQ. 3 ) grid%xp%kpsx=0
3949 IF ( setinitval .EQ. 3 ) grid%xp%kpex=0
3950 IF ( setinitval .EQ. 3 ) grid%xp%idsy=0
3951 IF ( setinitval .EQ. 3 ) grid%xp%idey=0
3952 IF ( setinitval .EQ. 3 ) grid%xp%jdsy=0
3953 IF ( setinitval .EQ. 3 ) grid%xp%jdey=0
3954 IF ( setinitval .EQ. 3 ) grid%xp%kdsy=0
3955 IF ( setinitval .EQ. 3 ) grid%xp%kdey=0
3956 IF ( setinitval .EQ. 3 ) grid%xp%imsy=0
3957 IF ( setinitval .EQ. 3 ) grid%xp%imey=0
3958 IF ( setinitval .EQ. 3 ) grid%xp%jmsy=0
3959 IF ( setinitval .EQ. 3 ) grid%xp%jmey=0
3960 IF ( setinitval .EQ. 3 ) grid%xp%kmsy=0
3961 IF ( setinitval .EQ. 3 ) grid%xp%kmey=0
3962 IF ( setinitval .EQ. 3 ) grid%xp%itsy=0
3963 IF ( setinitval .EQ. 3 ) grid%xp%itey=0
3964 IF ( setinitval .EQ. 3 ) grid%xp%jtsy=0
3965 IF ( setinitval .EQ. 3 ) grid%xp%jtey=0
3966 IF ( setinitval .EQ. 3 ) grid%xp%ktsy=0
3967 IF ( setinitval .EQ. 3 ) grid%xp%ktey=0
3968 IF ( setinitval .EQ. 3 ) grid%xp%ipsy=0
3969 IF ( setinitval .EQ. 3 ) grid%xp%ipey=0
3970 IF ( setinitval .EQ. 3 ) grid%xp%jpsy=0
3971 IF ( setinitval .EQ. 3 ) grid%xp%jpey=0
3972 IF ( setinitval .EQ. 3 ) grid%xp%kpsy=0
3973 IF ( setinitval .EQ. 3 ) grid%xp%kpey=0
3974 IF(.NOT.inter_domain)THEN
3975 ALLOCATE(grid%xp%vxy(sm31:em31,sm32:em32),STAT=ierr)
3976 if (ierr.ne.0) then
3977 CALL wrf_error_fatal ( &
3978 'frame/module_domain.f: Failed to allocate grid%xp%vxy(sm31:em31,sm32:em32). ')
3979 endif
3980 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%vxy=initial_data_value
3981 ELSE
3982 ALLOCATE(grid%xp%vxy(1,1),STAT=ierr)
3983 if (ierr.ne.0) then
3984 CALL wrf_error_fatal ( &
3985 'frame/module_domain.f: Failed to allocate grid%xp%vxy(1,1). ')
3986 endif
3987 ENDIF
3988 IF(.NOT.inter_domain)THEN
3989 ALLOCATE(grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3990 if (ierr.ne.0) then
3991 CALL wrf_error_fatal ( &
3992 'frame/module_domain.f: Failed to allocate grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33). ')
3993 endif
3994 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1z=initial_data_value
3995 ELSE
3996 ALLOCATE(grid%xp%v1z(1,1,1),STAT=ierr)
3997 if (ierr.ne.0) then
3998 CALL wrf_error_fatal ( &
3999 'frame/module_domain.f: Failed to allocate grid%xp%v1z(1,1,1). ')
4000 endif
4001 ENDIF
4002 IF(.NOT.inter_domain)THEN
4003 ALLOCATE(grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
4004 if (ierr.ne.0) then
4005 CALL wrf_error_fatal ( &
4006 'frame/module_domain.f: Failed to allocate grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
4007 endif
4008 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1x=initial_data_value
4009 ELSE
4010 ALLOCATE(grid%xp%v1x(1,1,1),STAT=ierr)
4011 if (ierr.ne.0) then
4012 CALL wrf_error_fatal ( &
4013 'frame/module_domain.f: Failed to allocate grid%xp%v1x(1,1,1). ')
4014 endif
4015 ENDIF
4016 IF(.NOT.inter_domain)THEN
4017 ALLOCATE(grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
4018 if (ierr.ne.0) then
4019 CALL wrf_error_fatal ( &
4020 'frame/module_domain.f: Failed to allocate grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
4021 endif
4022 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1y=initial_data_value
4023 ELSE
4024 ALLOCATE(grid%xp%v1y(1,1,1),STAT=ierr)
4025 if (ierr.ne.0) then
4026 CALL wrf_error_fatal ( &
4027 'frame/module_domain.f: Failed to allocate grid%xp%v1y(1,1,1). ')
4028 endif
4029 ENDIF
4030 IF(.NOT.inter_domain)THEN
4031 ALLOCATE(grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4032 if (ierr.ne.0) then
4033 CALL wrf_error_fatal ( &
4034 'frame/module_domain.f: Failed to allocate grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33). ')
4035 endif
4036 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2z=initial_data_value
4037 ELSE
4038 ALLOCATE(grid%xp%v2z(1,1,1),STAT=ierr)
4039 if (ierr.ne.0) then
4040 CALL wrf_error_fatal ( &
4041 'frame/module_domain.f: Failed to allocate grid%xp%v2z(1,1,1). ')
4042 endif
4043 ENDIF
4044 IF(.NOT.inter_domain)THEN
4045 ALLOCATE(grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
4046 if (ierr.ne.0) then
4047 CALL wrf_error_fatal ( &
4048 'frame/module_domain.f: Failed to allocate grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
4049 endif
4050 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2x=initial_data_value
4051 ELSE
4052 ALLOCATE(grid%xp%v2x(1,1,1),STAT=ierr)
4053 if (ierr.ne.0) then
4054 CALL wrf_error_fatal ( &
4055 'frame/module_domain.f: Failed to allocate grid%xp%v2x(1,1,1). ')
4056 endif
4057 ENDIF
4058 IF(.NOT.inter_domain)THEN
4059 ALLOCATE(grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
4060 if (ierr.ne.0) then
4061 CALL wrf_error_fatal ( &
4062 'frame/module_domain.f: Failed to allocate grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
4063 endif
4064 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2y=initial_data_value
4065 ELSE
4066 ALLOCATE(grid%xp%v2y(1,1,1),STAT=ierr)
4067 if (ierr.ne.0) then
4068 CALL wrf_error_fatal ( &
4069 'frame/module_domain.f: Failed to allocate grid%xp%v2y(1,1,1). ')
4070 endif
4071 ENDIF
4072 IF ( setinitval .EQ. 3 ) grid%fdob%domain_tot=0
4073 IF ( setinitval .EQ. 3 ) grid%fdob%domain_init=0
4074 IF ( setinitval .EQ. 3 ) grid%fdob%ieodi=0
4075 IF ( setinitval .EQ. 3 ) grid%fdob%iwtsig=0
4076 IF ( setinitval .EQ. 3 ) grid%fdob%nstat=0
4077 IF ( setinitval .EQ. 3 ) grid%fdob%ktaur=0
4078 IF ( setinitval .EQ. 3 ) grid%fdob%sn_maxcg=0
4079 IF ( setinitval .EQ. 3 ) grid%fdob%we_maxcg=0
4080 IF ( setinitval .EQ. 3 ) grid%fdob%sn_end=0
4081 IF ( setinitval .EQ. 3 ) grid%fdob%levidn(max_domains)=0
4082 IF ( setinitval .EQ. 3 ) grid%fdob%ds_cg=initial_data_value
4083 IF ( setinitval .EQ. 3 ) grid%fdob%window=initial_data_value
4084 IF ( setinitval .EQ. 3 ) grid%fdob%rtlast=initial_data_value
4085 IF ( setinitval .EQ. 3 ) grid%fdob%datend=initial_data_value
4086 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmn=initial_data_value
4087 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmx=initial_data_value
4088 IF ( setinitval .EQ. 3 ) grid%fdob%pfree=initial_data_value
4089 IF ( setinitval .EQ. 3 ) grid%fdob%dcon=initial_data_value
4090 IF ( setinitval .EQ. 3 ) grid%fdob%dpsmx=initial_data_value
4091 IF ( setinitval .EQ. 3 ) grid%fdob%tfaci=initial_data_value
4092 IF ( setinitval .EQ. 3 ) grid%fdob%xn=initial_data_value
4093 IF(.NOT.inter_domain)THEN
4094 ALLOCATE(grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs),STAT=ierr)
4095 if (ierr.ne.0) then
4096 CALL wrf_error_fatal ( &
4097 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs). ')
4098 endif
4099 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%varobs=initial_data_value
4100 ELSE
4101 ALLOCATE(grid%fdob%varobs(1,1),STAT=ierr)
4102 if (ierr.ne.0) then
4103 CALL wrf_error_fatal ( &
4104 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1,1). ')
4105 endif
4106 ENDIF
4107 IF(.NOT.inter_domain)THEN
4108 ALLOCATE(grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs),STAT=ierr)
4109 if (ierr.ne.0) then
4110 CALL wrf_error_fatal ( &
4111 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs). ')
4112 endif
4113 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%errf=initial_data_value
4114 ELSE
4115 ALLOCATE(grid%fdob%errf(1,1),STAT=ierr)
4116 if (ierr.ne.0) then
4117 CALL wrf_error_fatal ( &
4118 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1,1). ')
4119 endif
4120 ENDIF
4121 IF(.NOT.inter_domain)THEN
4122 ALLOCATE(grid%fdob%timeob(1:model_config_rec%max_obs),STAT=ierr)
4123 if (ierr.ne.0) then
4124 CALL wrf_error_fatal ( &
4125 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1:model_config_rec%max_obs). ')
4126 endif
4127 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%timeob=initial_data_value
4128 ELSE
4129 ALLOCATE(grid%fdob%timeob(1),STAT=ierr)
4130 if (ierr.ne.0) then
4131 CALL wrf_error_fatal ( &
4132 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1). ')
4133 endif
4134 ENDIF
4135 IF(.NOT.inter_domain)THEN
4136 ALLOCATE(grid%fdob%nlevs_ob(1:model_config_rec%max_obs),STAT=ierr)
4137 if (ierr.ne.0) then
4138 CALL wrf_error_fatal ( &
4139 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1:model_config_rec%max_obs). ')
4140 endif
4141 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%nlevs_ob=initial_data_value
4142 ELSE
4143 ALLOCATE(grid%fdob%nlevs_ob(1),STAT=ierr)
4144 if (ierr.ne.0) then
4145 CALL wrf_error_fatal ( &
4146 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1). ')
4147 endif
4148 ENDIF
4149 IF(.NOT.inter_domain)THEN
4150 ALLOCATE(grid%fdob%lev_in_ob(1:model_config_rec%max_obs),STAT=ierr)
4151 if (ierr.ne.0) then
4152 CALL wrf_error_fatal ( &
4153 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1:model_config_rec%max_obs). ')
4154 endif
4155 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%lev_in_ob=initial_data_value
4156 ELSE
4157 ALLOCATE(grid%fdob%lev_in_ob(1),STAT=ierr)
4158 if (ierr.ne.0) then
4159 CALL wrf_error_fatal ( &
4160 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1). ')
4161 endif
4162 ENDIF
4163 IF(.NOT.inter_domain)THEN
4164 ALLOCATE(grid%fdob%plfo(1:model_config_rec%max_obs),STAT=ierr)
4165 if (ierr.ne.0) then
4166 CALL wrf_error_fatal ( &
4167 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1:model_config_rec%max_obs). ')
4168 endif
4169 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%plfo=initial_data_value
4170 ELSE
4171 ALLOCATE(grid%fdob%plfo(1),STAT=ierr)
4172 if (ierr.ne.0) then
4173 CALL wrf_error_fatal ( &
4174 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1). ')
4175 endif
4176 ENDIF
4177 IF(.NOT.inter_domain)THEN
4178 ALLOCATE(grid%fdob%elevob(1:model_config_rec%max_obs),STAT=ierr)
4179 if (ierr.ne.0) then
4180 CALL wrf_error_fatal ( &
4181 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1:model_config_rec%max_obs). ')
4182 endif
4183 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%elevob=initial_data_value
4184 ELSE
4185 ALLOCATE(grid%fdob%elevob(1),STAT=ierr)
4186 if (ierr.ne.0) then
4187 CALL wrf_error_fatal ( &
4188 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1). ')
4189 endif
4190 ENDIF
4191 IF(.NOT.inter_domain)THEN
4192 ALLOCATE(grid%fdob%rio(1:model_config_rec%max_obs),STAT=ierr)
4193 if (ierr.ne.0) then
4194 CALL wrf_error_fatal ( &
4195 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1:model_config_rec%max_obs). ')
4196 endif
4197 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rio=initial_data_value
4198 ELSE
4199 ALLOCATE(grid%fdob%rio(1),STAT=ierr)
4200 if (ierr.ne.0) then
4201 CALL wrf_error_fatal ( &
4202 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1). ')
4203 endif
4204 ENDIF
4205 IF(.NOT.inter_domain)THEN
4206 ALLOCATE(grid%fdob%rjo(1:model_config_rec%max_obs),STAT=ierr)
4207 if (ierr.ne.0) then
4208 CALL wrf_error_fatal ( &
4209 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1:model_config_rec%max_obs). ')
4210 endif
4211 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rjo=initial_data_value
4212 ELSE
4213 ALLOCATE(grid%fdob%rjo(1),STAT=ierr)
4214 if (ierr.ne.0) then
4215 CALL wrf_error_fatal ( &
4216 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1). ')
4217 endif
4218 ENDIF
4219 IF(.NOT.inter_domain)THEN
4220 ALLOCATE(grid%fdob%rko(1:model_config_rec%max_obs),STAT=ierr)
4221 if (ierr.ne.0) then
4222 CALL wrf_error_fatal ( &
4223 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1:model_config_rec%max_obs). ')
4224 endif
4225 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rko=initial_data_value
4226 ELSE
4227 ALLOCATE(grid%fdob%rko(1),STAT=ierr)
4228 if (ierr.ne.0) then
4229 CALL wrf_error_fatal ( &
4230 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1). ')
4231 endif
4232 ENDIF
4233 !ENDOFREGISTRYGENERATEDINCLUDE