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 IF(.NOT.inter_domain)THEN
1018 ALLOCATE(grid%rthcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1019 if (ierr.ne.0) then
1020 CALL wrf_error_fatal ( &
1021 'frame/module_domain.f: Failed to allocate grid%rthcuten(sm31:em31,sm32:em32,sm33:em33). ')
1022 endif
1023 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthcuten=initial_data_value
1024 ELSE
1025 ALLOCATE(grid%rthcuten(1,1,1),STAT=ierr)
1026 if (ierr.ne.0) then
1027 CALL wrf_error_fatal ( &
1028 'frame/module_domain.f: Failed to allocate grid%rthcuten(1,1,1). ')
1029 endif
1030 ENDIF
1031 IF(.NOT.inter_domain)THEN
1032 ALLOCATE(grid%rqvcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1033 if (ierr.ne.0) then
1034 CALL wrf_error_fatal ( &
1035 'frame/module_domain.f: Failed to allocate grid%rqvcuten(sm31:em31,sm32:em32,sm33:em33). ')
1036 endif
1037 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvcuten=initial_data_value
1038 ELSE
1039 ALLOCATE(grid%rqvcuten(1,1,1),STAT=ierr)
1040 if (ierr.ne.0) then
1041 CALL wrf_error_fatal ( &
1042 'frame/module_domain.f: Failed to allocate grid%rqvcuten(1,1,1). ')
1043 endif
1044 ENDIF
1045 IF(.NOT.inter_domain)THEN
1046 ALLOCATE(grid%rqrcuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1047 if (ierr.ne.0) then
1048 CALL wrf_error_fatal ( &
1049 'frame/module_domain.f: Failed to allocate grid%rqrcuten(sm31:em31,sm32:em32,sm33:em33). ')
1050 endif
1051 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqrcuten=initial_data_value
1052 ELSE
1053 ALLOCATE(grid%rqrcuten(1,1,1),STAT=ierr)
1054 if (ierr.ne.0) then
1055 CALL wrf_error_fatal ( &
1056 'frame/module_domain.f: Failed to allocate grid%rqrcuten(1,1,1). ')
1057 endif
1058 ENDIF
1059 IF(.NOT.inter_domain)THEN
1060 ALLOCATE(grid%rqccuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1061 if (ierr.ne.0) then
1062 CALL wrf_error_fatal ( &
1063 'frame/module_domain.f: Failed to allocate grid%rqccuten(sm31:em31,sm32:em32,sm33:em33). ')
1064 endif
1065 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqccuten=initial_data_value
1066 ELSE
1067 ALLOCATE(grid%rqccuten(1,1,1),STAT=ierr)
1068 if (ierr.ne.0) then
1069 CALL wrf_error_fatal ( &
1070 'frame/module_domain.f: Failed to allocate grid%rqccuten(1,1,1). ')
1071 endif
1072 ENDIF
1073 IF(.NOT.inter_domain)THEN
1074 ALLOCATE(grid%rqscuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1075 if (ierr.ne.0) then
1076 CALL wrf_error_fatal ( &
1077 'frame/module_domain.f: Failed to allocate grid%rqscuten(sm31:em31,sm32:em32,sm33:em33). ')
1078 endif
1079 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqscuten=initial_data_value
1080 ELSE
1081 ALLOCATE(grid%rqscuten(1,1,1),STAT=ierr)
1082 if (ierr.ne.0) then
1083 CALL wrf_error_fatal ( &
1084 'frame/module_domain.f: Failed to allocate grid%rqscuten(1,1,1). ')
1085 endif
1086 ENDIF
1087 IF(.NOT.inter_domain)THEN
1088 ALLOCATE(grid%rqicuten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1089 if (ierr.ne.0) then
1090 CALL wrf_error_fatal ( &
1091 'frame/module_domain.f: Failed to allocate grid%rqicuten(sm31:em31,sm32:em32,sm33:em33). ')
1092 endif
1093 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqicuten=initial_data_value
1094 ELSE
1095 ALLOCATE(grid%rqicuten(1,1,1),STAT=ierr)
1096 if (ierr.ne.0) then
1097 CALL wrf_error_fatal ( &
1098 'frame/module_domain.f: Failed to allocate grid%rqicuten(1,1,1). ')
1099 endif
1100 ENDIF
1101 IF(.NOT.inter_domain)THEN
1102 ALLOCATE(grid%w0avg(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1103 if (ierr.ne.0) then
1104 CALL wrf_error_fatal ( &
1105 'frame/module_domain.f: Failed to allocate grid%w0avg(sm31:em31,sm32:em32,sm33:em33). ')
1106 endif
1107 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w0avg=initial_data_value
1108 ELSE
1109 ALLOCATE(grid%w0avg(1,1,1),STAT=ierr)
1110 if (ierr.ne.0) then
1111 CALL wrf_error_fatal ( &
1112 'frame/module_domain.f: Failed to allocate grid%w0avg(1,1,1). ')
1113 endif
1114 ENDIF
1115 ALLOCATE(grid%rainc(sm31:em31,sm32:em32),STAT=ierr)
1116 if (ierr.ne.0) then
1117 CALL wrf_error_fatal ( &
1118 'frame/module_domain.f: Failed to allocate grid%rainc(sm31:em31,sm32:em32). ')
1119 endif
1120 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainc=initial_data_value
1121 ALLOCATE(grid%rainnc(sm31:em31,sm32:em32),STAT=ierr)
1122 if (ierr.ne.0) then
1123 CALL wrf_error_fatal ( &
1124 'frame/module_domain.f: Failed to allocate grid%rainnc(sm31:em31,sm32:em32). ')
1125 endif
1126 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainnc=initial_data_value
1127 IF(.NOT.inter_domain)THEN
1128 ALLOCATE(grid%raincv(sm31:em31,sm32:em32),STAT=ierr)
1129 if (ierr.ne.0) then
1130 CALL wrf_error_fatal ( &
1131 'frame/module_domain.f: Failed to allocate grid%raincv(sm31:em31,sm32:em32). ')
1132 endif
1133 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%raincv=initial_data_value
1134 ELSE
1135 ALLOCATE(grid%raincv(1,1),STAT=ierr)
1136 if (ierr.ne.0) then
1137 CALL wrf_error_fatal ( &
1138 'frame/module_domain.f: Failed to allocate grid%raincv(1,1). ')
1139 endif
1140 ENDIF
1141 IF(.NOT.inter_domain)THEN
1142 ALLOCATE(grid%rainncv(sm31:em31,sm32:em32),STAT=ierr)
1143 if (ierr.ne.0) then
1144 CALL wrf_error_fatal ( &
1145 'frame/module_domain.f: Failed to allocate grid%rainncv(sm31:em31,sm32:em32). ')
1146 endif
1147 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainncv=initial_data_value
1148 ELSE
1149 ALLOCATE(grid%rainncv(1,1),STAT=ierr)
1150 if (ierr.ne.0) then
1151 CALL wrf_error_fatal ( &
1152 'frame/module_domain.f: Failed to allocate grid%rainncv(1,1). ')
1153 endif
1154 ENDIF
1155 IF(.NOT.inter_domain)THEN
1156 ALLOCATE(grid%rainbl(sm31:em31,sm32:em32),STAT=ierr)
1157 if (ierr.ne.0) then
1158 CALL wrf_error_fatal ( &
1159 'frame/module_domain.f: Failed to allocate grid%rainbl(sm31:em31,sm32:em32). ')
1160 endif
1161 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rainbl=initial_data_value
1162 ELSE
1163 ALLOCATE(grid%rainbl(1,1),STAT=ierr)
1164 if (ierr.ne.0) then
1165 CALL wrf_error_fatal ( &
1166 'frame/module_domain.f: Failed to allocate grid%rainbl(1,1). ')
1167 endif
1168 ENDIF
1169 ALLOCATE(grid%snownc(sm31:em31,sm32:em32),STAT=ierr)
1170 if (ierr.ne.0) then
1171 CALL wrf_error_fatal ( &
1172 'frame/module_domain.f: Failed to allocate grid%snownc(sm31:em31,sm32:em32). ')
1173 endif
1174 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snownc=initial_data_value
1175 ALLOCATE(grid%graupelnc(sm31:em31,sm32:em32),STAT=ierr)
1176 if (ierr.ne.0) then
1177 CALL wrf_error_fatal ( &
1178 'frame/module_domain.f: Failed to allocate grid%graupelnc(sm31:em31,sm32:em32). ')
1179 endif
1180 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%graupelnc=initial_data_value
1181 IF(.NOT.inter_domain)THEN
1182 ALLOCATE(grid%snowncv(sm31:em31,sm32:em32),STAT=ierr)
1183 if (ierr.ne.0) then
1184 CALL wrf_error_fatal ( &
1185 'frame/module_domain.f: Failed to allocate grid%snowncv(sm31:em31,sm32:em32). ')
1186 endif
1187 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowncv=initial_data_value
1188 ELSE
1189 ALLOCATE(grid%snowncv(1,1),STAT=ierr)
1190 if (ierr.ne.0) then
1191 CALL wrf_error_fatal ( &
1192 'frame/module_domain.f: Failed to allocate grid%snowncv(1,1). ')
1193 endif
1194 ENDIF
1195 IF(.NOT.inter_domain)THEN
1196 ALLOCATE(grid%graupelncv(sm31:em31,sm32:em32),STAT=ierr)
1197 if (ierr.ne.0) then
1198 CALL wrf_error_fatal ( &
1199 'frame/module_domain.f: Failed to allocate grid%graupelncv(sm31:em31,sm32:em32). ')
1200 endif
1201 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%graupelncv=initial_data_value
1202 ELSE
1203 ALLOCATE(grid%graupelncv(1,1),STAT=ierr)
1204 if (ierr.ne.0) then
1205 CALL wrf_error_fatal ( &
1206 'frame/module_domain.f: Failed to allocate grid%graupelncv(1,1). ')
1207 endif
1208 ENDIF
1209 IF(.NOT.inter_domain)THEN
1210 ALLOCATE(grid%nca(sm31:em31,sm32:em32),STAT=ierr)
1211 if (ierr.ne.0) then
1212 CALL wrf_error_fatal ( &
1213 'frame/module_domain.f: Failed to allocate grid%nca(sm31:em31,sm32:em32). ')
1214 endif
1215 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nca=initial_data_value
1216 ELSE
1217 ALLOCATE(grid%nca(1,1),STAT=ierr)
1218 if (ierr.ne.0) then
1219 CALL wrf_error_fatal ( &
1220 'frame/module_domain.f: Failed to allocate grid%nca(1,1). ')
1221 endif
1222 ENDIF
1223 IF(.NOT.inter_domain)THEN
1224 ALLOCATE(grid%lowlyr(sm31:em31,sm32:em32),STAT=ierr)
1225 if (ierr.ne.0) then
1226 CALL wrf_error_fatal ( &
1227 'frame/module_domain.f: Failed to allocate grid%lowlyr(sm31:em31,sm32:em32). ')
1228 endif
1229 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lowlyr=0
1230 ELSE
1231 ALLOCATE(grid%lowlyr(1,1),STAT=ierr)
1232 if (ierr.ne.0) then
1233 CALL wrf_error_fatal ( &
1234 'frame/module_domain.f: Failed to allocate grid%lowlyr(1,1). ')
1235 endif
1236 ENDIF
1237 IF(.NOT.inter_domain)THEN
1238 ALLOCATE(grid%mass_flux(sm31:em31,sm32:em32),STAT=ierr)
1239 if (ierr.ne.0) then
1240 CALL wrf_error_fatal ( &
1241 'frame/module_domain.f: Failed to allocate grid%mass_flux(sm31:em31,sm32:em32). ')
1242 endif
1243 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mass_flux=initial_data_value
1244 ELSE
1245 ALLOCATE(grid%mass_flux(1,1),STAT=ierr)
1246 if (ierr.ne.0) then
1247 CALL wrf_error_fatal ( &
1248 'frame/module_domain.f: Failed to allocate grid%mass_flux(1,1). ')
1249 endif
1250 ENDIF
1251 IF(.NOT.inter_domain)THEN
1252 ALLOCATE(grid%apr_gr(sm31:em31,sm32:em32),STAT=ierr)
1253 if (ierr.ne.0) then
1254 CALL wrf_error_fatal ( &
1255 'frame/module_domain.f: Failed to allocate grid%apr_gr(sm31:em31,sm32:em32). ')
1256 endif
1257 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_gr=initial_data_value
1258 ELSE
1259 ALLOCATE(grid%apr_gr(1,1),STAT=ierr)
1260 if (ierr.ne.0) then
1261 CALL wrf_error_fatal ( &
1262 'frame/module_domain.f: Failed to allocate grid%apr_gr(1,1). ')
1263 endif
1264 ENDIF
1265 IF(.NOT.inter_domain)THEN
1266 ALLOCATE(grid%apr_w(sm31:em31,sm32:em32),STAT=ierr)
1267 if (ierr.ne.0) then
1268 CALL wrf_error_fatal ( &
1269 'frame/module_domain.f: Failed to allocate grid%apr_w(sm31:em31,sm32:em32). ')
1270 endif
1271 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_w=initial_data_value
1272 ELSE
1273 ALLOCATE(grid%apr_w(1,1),STAT=ierr)
1274 if (ierr.ne.0) then
1275 CALL wrf_error_fatal ( &
1276 'frame/module_domain.f: Failed to allocate grid%apr_w(1,1). ')
1277 endif
1278 ENDIF
1279 IF(.NOT.inter_domain)THEN
1280 ALLOCATE(grid%apr_mc(sm31:em31,sm32:em32),STAT=ierr)
1281 if (ierr.ne.0) then
1282 CALL wrf_error_fatal ( &
1283 'frame/module_domain.f: Failed to allocate grid%apr_mc(sm31:em31,sm32:em32). ')
1284 endif
1285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_mc=initial_data_value
1286 ELSE
1287 ALLOCATE(grid%apr_mc(1,1),STAT=ierr)
1288 if (ierr.ne.0) then
1289 CALL wrf_error_fatal ( &
1290 'frame/module_domain.f: Failed to allocate grid%apr_mc(1,1). ')
1291 endif
1292 ENDIF
1293 IF(.NOT.inter_domain)THEN
1294 ALLOCATE(grid%apr_st(sm31:em31,sm32:em32),STAT=ierr)
1295 if (ierr.ne.0) then
1296 CALL wrf_error_fatal ( &
1297 'frame/module_domain.f: Failed to allocate grid%apr_st(sm31:em31,sm32:em32). ')
1298 endif
1299 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_st=initial_data_value
1300 ELSE
1301 ALLOCATE(grid%apr_st(1,1),STAT=ierr)
1302 if (ierr.ne.0) then
1303 CALL wrf_error_fatal ( &
1304 'frame/module_domain.f: Failed to allocate grid%apr_st(1,1). ')
1305 endif
1306 ENDIF
1307 IF(.NOT.inter_domain)THEN
1308 ALLOCATE(grid%apr_as(sm31:em31,sm32:em32),STAT=ierr)
1309 if (ierr.ne.0) then
1310 CALL wrf_error_fatal ( &
1311 'frame/module_domain.f: Failed to allocate grid%apr_as(sm31:em31,sm32:em32). ')
1312 endif
1313 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_as=initial_data_value
1314 ELSE
1315 ALLOCATE(grid%apr_as(1,1),STAT=ierr)
1316 if (ierr.ne.0) then
1317 CALL wrf_error_fatal ( &
1318 'frame/module_domain.f: Failed to allocate grid%apr_as(1,1). ')
1319 endif
1320 ENDIF
1321 IF(.NOT.inter_domain)THEN
1322 ALLOCATE(grid%apr_capma(sm31:em31,sm32:em32),STAT=ierr)
1323 if (ierr.ne.0) then
1324 CALL wrf_error_fatal ( &
1325 'frame/module_domain.f: Failed to allocate grid%apr_capma(sm31:em31,sm32:em32). ')
1326 endif
1327 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capma=initial_data_value
1328 ELSE
1329 ALLOCATE(grid%apr_capma(1,1),STAT=ierr)
1330 if (ierr.ne.0) then
1331 CALL wrf_error_fatal ( &
1332 'frame/module_domain.f: Failed to allocate grid%apr_capma(1,1). ')
1333 endif
1334 ENDIF
1335 IF(.NOT.inter_domain)THEN
1336 ALLOCATE(grid%apr_capme(sm31:em31,sm32:em32),STAT=ierr)
1337 if (ierr.ne.0) then
1338 CALL wrf_error_fatal ( &
1339 'frame/module_domain.f: Failed to allocate grid%apr_capme(sm31:em31,sm32:em32). ')
1340 endif
1341 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capme=initial_data_value
1342 ELSE
1343 ALLOCATE(grid%apr_capme(1,1),STAT=ierr)
1344 if (ierr.ne.0) then
1345 CALL wrf_error_fatal ( &
1346 'frame/module_domain.f: Failed to allocate grid%apr_capme(1,1). ')
1347 endif
1348 ENDIF
1349 IF(.NOT.inter_domain)THEN
1350 ALLOCATE(grid%apr_capmi(sm31:em31,sm32:em32),STAT=ierr)
1351 if (ierr.ne.0) then
1352 CALL wrf_error_fatal ( &
1353 'frame/module_domain.f: Failed to allocate grid%apr_capmi(sm31:em31,sm32:em32). ')
1354 endif
1355 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%apr_capmi=initial_data_value
1356 ELSE
1357 ALLOCATE(grid%apr_capmi(1,1),STAT=ierr)
1358 if (ierr.ne.0) then
1359 CALL wrf_error_fatal ( &
1360 'frame/module_domain.f: Failed to allocate grid%apr_capmi(1,1). ')
1361 endif
1362 ENDIF
1363 IF(.NOT.inter_domain)THEN
1364 ALLOCATE(grid%xf_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim),STAT=ierr)
1365 if (ierr.ne.0) then
1366 CALL wrf_error_fatal ( &
1367 'frame/module_domain.f: Failed to allocate grid%xf_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim). ')
1368 endif
1369 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xf_ens=initial_data_value
1370 ELSE
1371 ALLOCATE(grid%xf_ens(1,1,1),STAT=ierr)
1372 if (ierr.ne.0) then
1373 CALL wrf_error_fatal ( &
1374 'frame/module_domain.f: Failed to allocate grid%xf_ens(1,1,1). ')
1375 endif
1376 ENDIF
1377 IF(.NOT.inter_domain)THEN
1378 ALLOCATE(grid%pr_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim),STAT=ierr)
1379 if (ierr.ne.0) then
1380 CALL wrf_error_fatal ( &
1381 'frame/module_domain.f: Failed to allocate grid%pr_ens(sm31:em31,sm32:em32,1:model_config_rec%ensdim). ')
1382 endif
1383 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pr_ens=initial_data_value
1384 ELSE
1385 ALLOCATE(grid%pr_ens(1,1,1),STAT=ierr)
1386 if (ierr.ne.0) then
1387 CALL wrf_error_fatal ( &
1388 'frame/module_domain.f: Failed to allocate grid%pr_ens(1,1,1). ')
1389 endif
1390 ENDIF
1391 IF(.NOT.inter_domain)THEN
1392 ALLOCATE(grid%rthften(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1393 if (ierr.ne.0) then
1394 CALL wrf_error_fatal ( &
1395 'frame/module_domain.f: Failed to allocate grid%rthften(sm31:em31,sm32:em32,sm33:em33). ')
1396 endif
1397 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthften=initial_data_value
1398 ELSE
1399 ALLOCATE(grid%rthften(1,1,1),STAT=ierr)
1400 if (ierr.ne.0) then
1401 CALL wrf_error_fatal ( &
1402 'frame/module_domain.f: Failed to allocate grid%rthften(1,1,1). ')
1403 endif
1404 ENDIF
1405 IF(.NOT.inter_domain)THEN
1406 ALLOCATE(grid%rqvften(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1407 if (ierr.ne.0) then
1408 CALL wrf_error_fatal ( &
1409 'frame/module_domain.f: Failed to allocate grid%rqvften(sm31:em31,sm32:em32,sm33:em33). ')
1410 endif
1411 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvften=initial_data_value
1412 ELSE
1413 ALLOCATE(grid%rqvften(1,1,1),STAT=ierr)
1414 if (ierr.ne.0) then
1415 CALL wrf_error_fatal ( &
1416 'frame/module_domain.f: Failed to allocate grid%rqvften(1,1,1). ')
1417 endif
1418 ENDIF
1419 IF ( setinitval .EQ. 3 ) grid%stepcu=0
1420 IF(.NOT.inter_domain)THEN
1421 ALLOCATE(grid%rthraten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1422 if (ierr.ne.0) then
1423 CALL wrf_error_fatal ( &
1424 'frame/module_domain.f: Failed to allocate grid%rthraten(sm31:em31,sm32:em32,sm33:em33). ')
1425 endif
1426 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthraten=initial_data_value
1427 ELSE
1428 ALLOCATE(grid%rthraten(1,1,1),STAT=ierr)
1429 if (ierr.ne.0) then
1430 CALL wrf_error_fatal ( &
1431 'frame/module_domain.f: Failed to allocate grid%rthraten(1,1,1). ')
1432 endif
1433 ENDIF
1434 IF(.NOT.inter_domain)THEN
1435 ALLOCATE(grid%rthratenlw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1436 if (ierr.ne.0) then
1437 CALL wrf_error_fatal ( &
1438 'frame/module_domain.f: Failed to allocate grid%rthratenlw(sm31:em31,sm32:em32,sm33:em33). ')
1439 endif
1440 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthratenlw=initial_data_value
1441 ELSE
1442 ALLOCATE(grid%rthratenlw(1,1,1),STAT=ierr)
1443 if (ierr.ne.0) then
1444 CALL wrf_error_fatal ( &
1445 'frame/module_domain.f: Failed to allocate grid%rthratenlw(1,1,1). ')
1446 endif
1447 ENDIF
1448 IF(.NOT.inter_domain)THEN
1449 ALLOCATE(grid%rthratensw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1450 if (ierr.ne.0) then
1451 CALL wrf_error_fatal ( &
1452 'frame/module_domain.f: Failed to allocate grid%rthratensw(sm31:em31,sm32:em32,sm33:em33). ')
1453 endif
1454 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthratensw=initial_data_value
1455 ELSE
1456 ALLOCATE(grid%rthratensw(1,1,1),STAT=ierr)
1457 if (ierr.ne.0) then
1458 CALL wrf_error_fatal ( &
1459 'frame/module_domain.f: Failed to allocate grid%rthratensw(1,1,1). ')
1460 endif
1461 ENDIF
1462 IF(.NOT.inter_domain)THEN
1463 ALLOCATE(grid%cldfra(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1464 if (ierr.ne.0) then
1465 CALL wrf_error_fatal ( &
1466 'frame/module_domain.f: Failed to allocate grid%cldfra(sm31:em31,sm32:em32,sm33:em33). ')
1467 endif
1468 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldfra=initial_data_value
1469 ELSE
1470 ALLOCATE(grid%cldfra(1,1,1),STAT=ierr)
1471 if (ierr.ne.0) then
1472 CALL wrf_error_fatal ( &
1473 'frame/module_domain.f: Failed to allocate grid%cldfra(1,1,1). ')
1474 endif
1475 ENDIF
1476 IF(.NOT.inter_domain)THEN
1477 ALLOCATE(grid%swdown(sm31:em31,sm32:em32),STAT=ierr)
1478 if (ierr.ne.0) then
1479 CALL wrf_error_fatal ( &
1480 'frame/module_domain.f: Failed to allocate grid%swdown(sm31:em31,sm32:em32). ')
1481 endif
1482 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdown=initial_data_value
1483 ELSE
1484 ALLOCATE(grid%swdown(1,1),STAT=ierr)
1485 if (ierr.ne.0) then
1486 CALL wrf_error_fatal ( &
1487 'frame/module_domain.f: Failed to allocate grid%swdown(1,1). ')
1488 endif
1489 ENDIF
1490 IF(.NOT.inter_domain)THEN
1491 ALLOCATE(grid%swdownc(sm31:em31,sm32:em32),STAT=ierr)
1492 if (ierr.ne.0) then
1493 CALL wrf_error_fatal ( &
1494 'frame/module_domain.f: Failed to allocate grid%swdownc(sm31:em31,sm32:em32). ')
1495 endif
1496 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdownc=initial_data_value
1497 ELSE
1498 ALLOCATE(grid%swdownc(1,1),STAT=ierr)
1499 if (ierr.ne.0) then
1500 CALL wrf_error_fatal ( &
1501 'frame/module_domain.f: Failed to allocate grid%swdownc(1,1). ')
1502 endif
1503 ENDIF
1504 IF(.NOT.inter_domain)THEN
1505 ALLOCATE(grid%gsw(sm31:em31,sm32:em32),STAT=ierr)
1506 if (ierr.ne.0) then
1507 CALL wrf_error_fatal ( &
1508 'frame/module_domain.f: Failed to allocate grid%gsw(sm31:em31,sm32:em32). ')
1509 endif
1510 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gsw=initial_data_value
1511 ELSE
1512 ALLOCATE(grid%gsw(1,1),STAT=ierr)
1513 if (ierr.ne.0) then
1514 CALL wrf_error_fatal ( &
1515 'frame/module_domain.f: Failed to allocate grid%gsw(1,1). ')
1516 endif
1517 ENDIF
1518 IF(.NOT.inter_domain)THEN
1519 ALLOCATE(grid%glw(sm31:em31,sm32:em32),STAT=ierr)
1520 if (ierr.ne.0) then
1521 CALL wrf_error_fatal ( &
1522 'frame/module_domain.f: Failed to allocate grid%glw(sm31:em31,sm32:em32). ')
1523 endif
1524 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%glw=initial_data_value
1525 ELSE
1526 ALLOCATE(grid%glw(1,1),STAT=ierr)
1527 if (ierr.ne.0) then
1528 CALL wrf_error_fatal ( &
1529 'frame/module_domain.f: Failed to allocate grid%glw(1,1). ')
1530 endif
1531 ENDIF
1532 IF(.NOT.inter_domain)THEN
1533 ALLOCATE(grid%swcf(sm31:em31,sm32:em32),STAT=ierr)
1534 if (ierr.ne.0) then
1535 CALL wrf_error_fatal ( &
1536 'frame/module_domain.f: Failed to allocate grid%swcf(sm31:em31,sm32:em32). ')
1537 endif
1538 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swcf=initial_data_value
1539 ELSE
1540 ALLOCATE(grid%swcf(1,1),STAT=ierr)
1541 if (ierr.ne.0) then
1542 CALL wrf_error_fatal ( &
1543 'frame/module_domain.f: Failed to allocate grid%swcf(1,1). ')
1544 endif
1545 ENDIF
1546 IF(.NOT.inter_domain)THEN
1547 ALLOCATE(grid%lwcf(sm31:em31,sm32:em32),STAT=ierr)
1548 if (ierr.ne.0) then
1549 CALL wrf_error_fatal ( &
1550 'frame/module_domain.f: Failed to allocate grid%lwcf(sm31:em31,sm32:em32). ')
1551 endif
1552 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwcf=initial_data_value
1553 ELSE
1554 ALLOCATE(grid%lwcf(1,1),STAT=ierr)
1555 if (ierr.ne.0) then
1556 CALL wrf_error_fatal ( &
1557 'frame/module_domain.f: Failed to allocate grid%lwcf(1,1). ')
1558 endif
1559 ENDIF
1560 IF(.NOT.inter_domain)THEN
1561 ALLOCATE(grid%olr(sm31:em31,sm32:em32),STAT=ierr)
1562 if (ierr.ne.0) then
1563 CALL wrf_error_fatal ( &
1564 'frame/module_domain.f: Failed to allocate grid%olr(sm31:em31,sm32:em32). ')
1565 endif
1566 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%olr=initial_data_value
1567 ELSE
1568 ALLOCATE(grid%olr(1,1),STAT=ierr)
1569 if (ierr.ne.0) then
1570 CALL wrf_error_fatal ( &
1571 'frame/module_domain.f: Failed to allocate grid%olr(1,1). ')
1572 endif
1573 ENDIF
1574 ALLOCATE(grid%xlat(sm31:em31,sm32:em32),STAT=ierr)
1575 if (ierr.ne.0) then
1576 CALL wrf_error_fatal ( &
1577 'frame/module_domain.f: Failed to allocate grid%xlat(sm31:em31,sm32:em32). ')
1578 endif
1579 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat=initial_data_value
1580 ALLOCATE(grid%xlong(sm31:em31,sm32:em32),STAT=ierr)
1581 if (ierr.ne.0) then
1582 CALL wrf_error_fatal ( &
1583 'frame/module_domain.f: Failed to allocate grid%xlong(sm31:em31,sm32:em32). ')
1584 endif
1585 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong=initial_data_value
1586 IF(.NOT.inter_domain)THEN
1587 ALLOCATE(grid%albedo(sm31:em31,sm32:em32),STAT=ierr)
1588 if (ierr.ne.0) then
1589 CALL wrf_error_fatal ( &
1590 'frame/module_domain.f: Failed to allocate grid%albedo(sm31:em31,sm32:em32). ')
1591 endif
1592 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albedo=initial_data_value
1593 ELSE
1594 ALLOCATE(grid%albedo(1,1),STAT=ierr)
1595 if (ierr.ne.0) then
1596 CALL wrf_error_fatal ( &
1597 'frame/module_domain.f: Failed to allocate grid%albedo(1,1). ')
1598 endif
1599 ENDIF
1600 IF(.NOT.inter_domain)THEN
1601 ALLOCATE(grid%albbck(sm31:em31,sm32:em32),STAT=ierr)
1602 if (ierr.ne.0) then
1603 CALL wrf_error_fatal ( &
1604 'frame/module_domain.f: Failed to allocate grid%albbck(sm31:em31,sm32:em32). ')
1605 endif
1606 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albbck=initial_data_value
1607 ELSE
1608 ALLOCATE(grid%albbck(1,1),STAT=ierr)
1609 if (ierr.ne.0) then
1610 CALL wrf_error_fatal ( &
1611 'frame/module_domain.f: Failed to allocate grid%albbck(1,1). ')
1612 endif
1613 ENDIF
1614 IF(.NOT.inter_domain)THEN
1615 ALLOCATE(grid%emiss(sm31:em31,sm32:em32),STAT=ierr)
1616 if (ierr.ne.0) then
1617 CALL wrf_error_fatal ( &
1618 'frame/module_domain.f: Failed to allocate grid%emiss(sm31:em31,sm32:em32). ')
1619 endif
1620 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%emiss=initial_data_value
1621 ELSE
1622 ALLOCATE(grid%emiss(1,1),STAT=ierr)
1623 if (ierr.ne.0) then
1624 CALL wrf_error_fatal ( &
1625 'frame/module_domain.f: Failed to allocate grid%emiss(1,1). ')
1626 endif
1627 ENDIF
1628 IF(.NOT.inter_domain)THEN
1629 ALLOCATE(grid%cldefi(sm31:em31,sm32:em32),STAT=ierr)
1630 if (ierr.ne.0) then
1631 CALL wrf_error_fatal ( &
1632 'frame/module_domain.f: Failed to allocate grid%cldefi(sm31:em31,sm32:em32). ')
1633 endif
1634 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldefi=initial_data_value
1635 ELSE
1636 ALLOCATE(grid%cldefi(1,1),STAT=ierr)
1637 if (ierr.ne.0) then
1638 CALL wrf_error_fatal ( &
1639 'frame/module_domain.f: Failed to allocate grid%cldefi(1,1). ')
1640 endif
1641 ENDIF
1642 IF ( setinitval .EQ. 3 ) grid%stepra=0
1643 IF(.NOT.inter_domain)THEN
1644 ALLOCATE(grid%rublten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1645 if (ierr.ne.0) then
1646 CALL wrf_error_fatal ( &
1647 'frame/module_domain.f: Failed to allocate grid%rublten(sm31:em31,sm32:em32,sm33:em33). ')
1648 endif
1649 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rublten=initial_data_value
1650 ELSE
1651 ALLOCATE(grid%rublten(1,1,1),STAT=ierr)
1652 if (ierr.ne.0) then
1653 CALL wrf_error_fatal ( &
1654 'frame/module_domain.f: Failed to allocate grid%rublten(1,1,1). ')
1655 endif
1656 ENDIF
1657 IF(.NOT.inter_domain)THEN
1658 ALLOCATE(grid%rvblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1659 if (ierr.ne.0) then
1660 CALL wrf_error_fatal ( &
1661 'frame/module_domain.f: Failed to allocate grid%rvblten(sm31:em31,sm32:em32,sm33:em33). ')
1662 endif
1663 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rvblten=initial_data_value
1664 ELSE
1665 ALLOCATE(grid%rvblten(1,1,1),STAT=ierr)
1666 if (ierr.ne.0) then
1667 CALL wrf_error_fatal ( &
1668 'frame/module_domain.f: Failed to allocate grid%rvblten(1,1,1). ')
1669 endif
1670 ENDIF
1671 IF(.NOT.inter_domain)THEN
1672 ALLOCATE(grid%rthblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1673 if (ierr.ne.0) then
1674 CALL wrf_error_fatal ( &
1675 'frame/module_domain.f: Failed to allocate grid%rthblten(sm31:em31,sm32:em32,sm33:em33). ')
1676 endif
1677 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rthblten=initial_data_value
1678 ELSE
1679 ALLOCATE(grid%rthblten(1,1,1),STAT=ierr)
1680 if (ierr.ne.0) then
1681 CALL wrf_error_fatal ( &
1682 'frame/module_domain.f: Failed to allocate grid%rthblten(1,1,1). ')
1683 endif
1684 ENDIF
1685 IF(.NOT.inter_domain)THEN
1686 ALLOCATE(grid%rqvblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1687 if (ierr.ne.0) then
1688 CALL wrf_error_fatal ( &
1689 'frame/module_domain.f: Failed to allocate grid%rqvblten(sm31:em31,sm32:em32,sm33:em33). ')
1690 endif
1691 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqvblten=initial_data_value
1692 ELSE
1693 ALLOCATE(grid%rqvblten(1,1,1),STAT=ierr)
1694 if (ierr.ne.0) then
1695 CALL wrf_error_fatal ( &
1696 'frame/module_domain.f: Failed to allocate grid%rqvblten(1,1,1). ')
1697 endif
1698 ENDIF
1699 IF(.NOT.inter_domain)THEN
1700 ALLOCATE(grid%rqcblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1701 if (ierr.ne.0) then
1702 CALL wrf_error_fatal ( &
1703 'frame/module_domain.f: Failed to allocate grid%rqcblten(sm31:em31,sm32:em32,sm33:em33). ')
1704 endif
1705 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqcblten=initial_data_value
1706 ELSE
1707 ALLOCATE(grid%rqcblten(1,1,1),STAT=ierr)
1708 if (ierr.ne.0) then
1709 CALL wrf_error_fatal ( &
1710 'frame/module_domain.f: Failed to allocate grid%rqcblten(1,1,1). ')
1711 endif
1712 ENDIF
1713 IF(.NOT.inter_domain)THEN
1714 ALLOCATE(grid%rqiblten(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
1715 if (ierr.ne.0) then
1716 CALL wrf_error_fatal ( &
1717 'frame/module_domain.f: Failed to allocate grid%rqiblten(sm31:em31,sm32:em32,sm33:em33). ')
1718 endif
1719 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rqiblten=initial_data_value
1720 ELSE
1721 ALLOCATE(grid%rqiblten(1,1,1),STAT=ierr)
1722 if (ierr.ne.0) then
1723 CALL wrf_error_fatal ( &
1724 'frame/module_domain.f: Failed to allocate grid%rqiblten(1,1,1). ')
1725 endif
1726 ENDIF
1727 IF(.NOT.inter_domain)THEN
1728 ALLOCATE(grid%mp_restart_state(1:7501),STAT=ierr)
1729 if (ierr.ne.0) then
1730 CALL wrf_error_fatal ( &
1731 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1:7501). ')
1732 endif
1733 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mp_restart_state=initial_data_value
1734 ELSE
1735 ALLOCATE(grid%mp_restart_state(1),STAT=ierr)
1736 if (ierr.ne.0) then
1737 CALL wrf_error_fatal ( &
1738 'frame/module_domain.f: Failed to allocate grid%mp_restart_state(1). ')
1739 endif
1740 ENDIF
1741 IF(.NOT.inter_domain)THEN
1742 ALLOCATE(grid%tbpvs_state(1:7501),STAT=ierr)
1743 if (ierr.ne.0) then
1744 CALL wrf_error_fatal ( &
1745 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1:7501). ')
1746 endif
1747 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs_state=initial_data_value
1748 ELSE
1749 ALLOCATE(grid%tbpvs_state(1),STAT=ierr)
1750 if (ierr.ne.0) then
1751 CALL wrf_error_fatal ( &
1752 'frame/module_domain.f: Failed to allocate grid%tbpvs_state(1). ')
1753 endif
1754 ENDIF
1755 IF(.NOT.inter_domain)THEN
1756 ALLOCATE(grid%tbpvs0_state(1:7501),STAT=ierr)
1757 if (ierr.ne.0) then
1758 CALL wrf_error_fatal ( &
1759 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1:7501). ')
1760 endif
1761 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tbpvs0_state=initial_data_value
1762 ELSE
1763 ALLOCATE(grid%tbpvs0_state(1),STAT=ierr)
1764 if (ierr.ne.0) then
1765 CALL wrf_error_fatal ( &
1766 'frame/module_domain.f: Failed to allocate grid%tbpvs0_state(1). ')
1767 endif
1768 ENDIF
1769 IF ( setinitval .EQ. 3 ) grid%landuse_isice=0
1770 IF ( setinitval .EQ. 3 ) grid%landuse_lucats=0
1771 IF ( setinitval .EQ. 3 ) grid%landuse_luseas=0
1772 IF ( setinitval .EQ. 3 ) grid%landuse_isn=0
1773 IF(.NOT.inter_domain)THEN
1774 ALLOCATE(grid%lu_state(1:7501),STAT=ierr)
1775 if (ierr.ne.0) then
1776 CALL wrf_error_fatal ( &
1777 'frame/module_domain.f: Failed to allocate grid%lu_state(1:7501). ')
1778 endif
1779 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_state=initial_data_value
1780 ELSE
1781 ALLOCATE(grid%lu_state(1),STAT=ierr)
1782 if (ierr.ne.0) then
1783 CALL wrf_error_fatal ( &
1784 'frame/module_domain.f: Failed to allocate grid%lu_state(1). ')
1785 endif
1786 ENDIF
1787 ALLOCATE(grid%tmn(sm31:em31,sm32:em32),STAT=ierr)
1788 if (ierr.ne.0) then
1789 CALL wrf_error_fatal ( &
1790 'frame/module_domain.f: Failed to allocate grid%tmn(sm31:em31,sm32:em32). ')
1791 endif
1792 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tmn=initial_data_value
1793 ALLOCATE(grid%xland(sm31:em31,sm32:em32),STAT=ierr)
1794 if (ierr.ne.0) then
1795 CALL wrf_error_fatal ( &
1796 'frame/module_domain.f: Failed to allocate grid%xland(sm31:em31,sm32:em32). ')
1797 endif
1798 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xland=initial_data_value
1799 IF(.NOT.inter_domain)THEN
1800 ALLOCATE(grid%znt(sm31:em31,sm32:em32),STAT=ierr)
1801 if (ierr.ne.0) then
1802 CALL wrf_error_fatal ( &
1803 'frame/module_domain.f: Failed to allocate grid%znt(sm31:em31,sm32:em32). ')
1804 endif
1805 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znt=initial_data_value
1806 ELSE
1807 ALLOCATE(grid%znt(1,1),STAT=ierr)
1808 if (ierr.ne.0) then
1809 CALL wrf_error_fatal ( &
1810 'frame/module_domain.f: Failed to allocate grid%znt(1,1). ')
1811 endif
1812 ENDIF
1813 IF(.NOT.inter_domain)THEN
1814 ALLOCATE(grid%ust(sm31:em31,sm32:em32),STAT=ierr)
1815 if (ierr.ne.0) then
1816 CALL wrf_error_fatal ( &
1817 'frame/module_domain.f: Failed to allocate grid%ust(sm31:em31,sm32:em32). ')
1818 endif
1819 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ust=initial_data_value
1820 ELSE
1821 ALLOCATE(grid%ust(1,1),STAT=ierr)
1822 if (ierr.ne.0) then
1823 CALL wrf_error_fatal ( &
1824 'frame/module_domain.f: Failed to allocate grid%ust(1,1). ')
1825 endif
1826 ENDIF
1827 IF(.NOT.inter_domain)THEN
1828 ALLOCATE(grid%rmol(sm31:em31,sm32:em32),STAT=ierr)
1829 if (ierr.ne.0) then
1830 CALL wrf_error_fatal ( &
1831 'frame/module_domain.f: Failed to allocate grid%rmol(sm31:em31,sm32:em32). ')
1832 endif
1833 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rmol=initial_data_value
1834 ELSE
1835 ALLOCATE(grid%rmol(1,1),STAT=ierr)
1836 if (ierr.ne.0) then
1837 CALL wrf_error_fatal ( &
1838 'frame/module_domain.f: Failed to allocate grid%rmol(1,1). ')
1839 endif
1840 ENDIF
1841 IF(.NOT.inter_domain)THEN
1842 ALLOCATE(grid%mol(sm31:em31,sm32:em32),STAT=ierr)
1843 if (ierr.ne.0) then
1844 CALL wrf_error_fatal ( &
1845 'frame/module_domain.f: Failed to allocate grid%mol(sm31:em31,sm32:em32). ')
1846 endif
1847 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mol=initial_data_value
1848 ELSE
1849 ALLOCATE(grid%mol(1,1),STAT=ierr)
1850 if (ierr.ne.0) then
1851 CALL wrf_error_fatal ( &
1852 'frame/module_domain.f: Failed to allocate grid%mol(1,1). ')
1853 endif
1854 ENDIF
1855 IF(.NOT.inter_domain)THEN
1856 ALLOCATE(grid%pblh(sm31:em31,sm32:em32),STAT=ierr)
1857 if (ierr.ne.0) then
1858 CALL wrf_error_fatal ( &
1859 'frame/module_domain.f: Failed to allocate grid%pblh(sm31:em31,sm32:em32). ')
1860 endif
1861 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pblh=initial_data_value
1862 ELSE
1863 ALLOCATE(grid%pblh(1,1),STAT=ierr)
1864 if (ierr.ne.0) then
1865 CALL wrf_error_fatal ( &
1866 'frame/module_domain.f: Failed to allocate grid%pblh(1,1). ')
1867 endif
1868 ENDIF
1869 IF(.NOT.inter_domain)THEN
1870 ALLOCATE(grid%capg(sm31:em31,sm32:em32),STAT=ierr)
1871 if (ierr.ne.0) then
1872 CALL wrf_error_fatal ( &
1873 'frame/module_domain.f: Failed to allocate grid%capg(sm31:em31,sm32:em32). ')
1874 endif
1875 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%capg=initial_data_value
1876 ELSE
1877 ALLOCATE(grid%capg(1,1),STAT=ierr)
1878 if (ierr.ne.0) then
1879 CALL wrf_error_fatal ( &
1880 'frame/module_domain.f: Failed to allocate grid%capg(1,1). ')
1881 endif
1882 ENDIF
1883 IF(.NOT.inter_domain)THEN
1884 ALLOCATE(grid%thc(sm31:em31,sm32:em32),STAT=ierr)
1885 if (ierr.ne.0) then
1886 CALL wrf_error_fatal ( &
1887 'frame/module_domain.f: Failed to allocate grid%thc(sm31:em31,sm32:em32). ')
1888 endif
1889 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%thc=initial_data_value
1890 ELSE
1891 ALLOCATE(grid%thc(1,1),STAT=ierr)
1892 if (ierr.ne.0) then
1893 CALL wrf_error_fatal ( &
1894 'frame/module_domain.f: Failed to allocate grid%thc(1,1). ')
1895 endif
1896 ENDIF
1897 IF(.NOT.inter_domain)THEN
1898 ALLOCATE(grid%hfx(sm31:em31,sm32:em32),STAT=ierr)
1899 if (ierr.ne.0) then
1900 CALL wrf_error_fatal ( &
1901 'frame/module_domain.f: Failed to allocate grid%hfx(sm31:em31,sm32:em32). ')
1902 endif
1903 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hfx=initial_data_value
1904 ELSE
1905 ALLOCATE(grid%hfx(1,1),STAT=ierr)
1906 if (ierr.ne.0) then
1907 CALL wrf_error_fatal ( &
1908 'frame/module_domain.f: Failed to allocate grid%hfx(1,1). ')
1909 endif
1910 ENDIF
1911 IF(.NOT.inter_domain)THEN
1912 ALLOCATE(grid%qfx(sm31:em31,sm32:em32),STAT=ierr)
1913 if (ierr.ne.0) then
1914 CALL wrf_error_fatal ( &
1915 'frame/module_domain.f: Failed to allocate grid%qfx(sm31:em31,sm32:em32). ')
1916 endif
1917 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qfx=initial_data_value
1918 ELSE
1919 ALLOCATE(grid%qfx(1,1),STAT=ierr)
1920 if (ierr.ne.0) then
1921 CALL wrf_error_fatal ( &
1922 'frame/module_domain.f: Failed to allocate grid%qfx(1,1). ')
1923 endif
1924 ENDIF
1925 IF(.NOT.inter_domain)THEN
1926 ALLOCATE(grid%lh(sm31:em31,sm32:em32),STAT=ierr)
1927 if (ierr.ne.0) then
1928 CALL wrf_error_fatal ( &
1929 'frame/module_domain.f: Failed to allocate grid%lh(sm31:em31,sm32:em32). ')
1930 endif
1931 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lh=initial_data_value
1932 ELSE
1933 ALLOCATE(grid%lh(1,1),STAT=ierr)
1934 if (ierr.ne.0) then
1935 CALL wrf_error_fatal ( &
1936 'frame/module_domain.f: Failed to allocate grid%lh(1,1). ')
1937 endif
1938 ENDIF
1939 IF(.NOT.inter_domain)THEN
1940 ALLOCATE(grid%flhc(sm31:em31,sm32:em32),STAT=ierr)
1941 if (ierr.ne.0) then
1942 CALL wrf_error_fatal ( &
1943 'frame/module_domain.f: Failed to allocate grid%flhc(sm31:em31,sm32:em32). ')
1944 endif
1945 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%flhc=initial_data_value
1946 ELSE
1947 ALLOCATE(grid%flhc(1,1),STAT=ierr)
1948 if (ierr.ne.0) then
1949 CALL wrf_error_fatal ( &
1950 'frame/module_domain.f: Failed to allocate grid%flhc(1,1). ')
1951 endif
1952 ENDIF
1953 IF(.NOT.inter_domain)THEN
1954 ALLOCATE(grid%flqc(sm31:em31,sm32:em32),STAT=ierr)
1955 if (ierr.ne.0) then
1956 CALL wrf_error_fatal ( &
1957 'frame/module_domain.f: Failed to allocate grid%flqc(sm31:em31,sm32:em32). ')
1958 endif
1959 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%flqc=initial_data_value
1960 ELSE
1961 ALLOCATE(grid%flqc(1,1),STAT=ierr)
1962 if (ierr.ne.0) then
1963 CALL wrf_error_fatal ( &
1964 'frame/module_domain.f: Failed to allocate grid%flqc(1,1). ')
1965 endif
1966 ENDIF
1967 IF(.NOT.inter_domain)THEN
1968 ALLOCATE(grid%qsg(sm31:em31,sm32:em32),STAT=ierr)
1969 if (ierr.ne.0) then
1970 CALL wrf_error_fatal ( &
1971 'frame/module_domain.f: Failed to allocate grid%qsg(sm31:em31,sm32:em32). ')
1972 endif
1973 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qsg=initial_data_value
1974 ELSE
1975 ALLOCATE(grid%qsg(1,1),STAT=ierr)
1976 if (ierr.ne.0) then
1977 CALL wrf_error_fatal ( &
1978 'frame/module_domain.f: Failed to allocate grid%qsg(1,1). ')
1979 endif
1980 ENDIF
1981 IF(.NOT.inter_domain)THEN
1982 ALLOCATE(grid%qvg(sm31:em31,sm32:em32),STAT=ierr)
1983 if (ierr.ne.0) then
1984 CALL wrf_error_fatal ( &
1985 'frame/module_domain.f: Failed to allocate grid%qvg(sm31:em31,sm32:em32). ')
1986 endif
1987 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qvg=initial_data_value
1988 ELSE
1989 ALLOCATE(grid%qvg(1,1),STAT=ierr)
1990 if (ierr.ne.0) then
1991 CALL wrf_error_fatal ( &
1992 'frame/module_domain.f: Failed to allocate grid%qvg(1,1). ')
1993 endif
1994 ENDIF
1995 IF(.NOT.inter_domain)THEN
1996 ALLOCATE(grid%qcg(sm31:em31,sm32:em32),STAT=ierr)
1997 if (ierr.ne.0) then
1998 CALL wrf_error_fatal ( &
1999 'frame/module_domain.f: Failed to allocate grid%qcg(sm31:em31,sm32:em32). ')
2000 endif
2001 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qcg=initial_data_value
2002 ELSE
2003 ALLOCATE(grid%qcg(1,1),STAT=ierr)
2004 if (ierr.ne.0) then
2005 CALL wrf_error_fatal ( &
2006 'frame/module_domain.f: Failed to allocate grid%qcg(1,1). ')
2007 endif
2008 ENDIF
2009 IF(.NOT.inter_domain)THEN
2010 ALLOCATE(grid%soilt1(sm31:em31,sm32:em32),STAT=ierr)
2011 if (ierr.ne.0) then
2012 CALL wrf_error_fatal ( &
2013 'frame/module_domain.f: Failed to allocate grid%soilt1(sm31:em31,sm32:em32). ')
2014 endif
2015 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt1=initial_data_value
2016 ELSE
2017 ALLOCATE(grid%soilt1(1,1),STAT=ierr)
2018 if (ierr.ne.0) then
2019 CALL wrf_error_fatal ( &
2020 'frame/module_domain.f: Failed to allocate grid%soilt1(1,1). ')
2021 endif
2022 ENDIF
2023 IF(.NOT.inter_domain)THEN
2024 ALLOCATE(grid%tsnav(sm31:em31,sm32:em32),STAT=ierr)
2025 if (ierr.ne.0) then
2026 CALL wrf_error_fatal ( &
2027 'frame/module_domain.f: Failed to allocate grid%tsnav(sm31:em31,sm32:em32). ')
2028 endif
2029 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsnav=initial_data_value
2030 ELSE
2031 ALLOCATE(grid%tsnav(1,1),STAT=ierr)
2032 if (ierr.ne.0) then
2033 CALL wrf_error_fatal ( &
2034 'frame/module_domain.f: Failed to allocate grid%tsnav(1,1). ')
2035 endif
2036 ENDIF
2037 ALLOCATE(grid%snowc(sm31:em31,sm32:em32),STAT=ierr)
2038 if (ierr.ne.0) then
2039 CALL wrf_error_fatal ( &
2040 'frame/module_domain.f: Failed to allocate grid%snowc(sm31:em31,sm32:em32). ')
2041 endif
2042 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowc=initial_data_value
2043 IF(.NOT.inter_domain)THEN
2044 ALLOCATE(grid%mavail(sm31:em31,sm32:em32),STAT=ierr)
2045 if (ierr.ne.0) then
2046 CALL wrf_error_fatal ( &
2047 'frame/module_domain.f: Failed to allocate grid%mavail(sm31:em31,sm32:em32). ')
2048 endif
2049 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mavail=initial_data_value
2050 ELSE
2051 ALLOCATE(grid%mavail(1,1),STAT=ierr)
2052 if (ierr.ne.0) then
2053 CALL wrf_error_fatal ( &
2054 'frame/module_domain.f: Failed to allocate grid%mavail(1,1). ')
2055 endif
2056 ENDIF
2057 IF ( setinitval .EQ. 3 ) grid%stepbl=0
2058 IF(.NOT.inter_domain)THEN
2059 ALLOCATE(grid%xkmv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2060 if (ierr.ne.0) then
2061 CALL wrf_error_fatal ( &
2062 'frame/module_domain.f: Failed to allocate grid%xkmv(sm31:em31,sm32:em32,sm33:em33). ')
2063 endif
2064 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmv=initial_data_value
2065 ELSE
2066 ALLOCATE(grid%xkmv(1,1,1),STAT=ierr)
2067 if (ierr.ne.0) then
2068 CALL wrf_error_fatal ( &
2069 'frame/module_domain.f: Failed to allocate grid%xkmv(1,1,1). ')
2070 endif
2071 ENDIF
2072 IF(.NOT.inter_domain)THEN
2073 ALLOCATE(grid%xkmh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2074 if (ierr.ne.0) then
2075 CALL wrf_error_fatal ( &
2076 'frame/module_domain.f: Failed to allocate grid%xkmh(sm31:em31,sm32:em32,sm33:em33). ')
2077 endif
2078 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmh=initial_data_value
2079 ELSE
2080 ALLOCATE(grid%xkmh(1,1,1),STAT=ierr)
2081 if (ierr.ne.0) then
2082 CALL wrf_error_fatal ( &
2083 'frame/module_domain.f: Failed to allocate grid%xkmh(1,1,1). ')
2084 endif
2085 ENDIF
2086 IF(.NOT.inter_domain)THEN
2087 ALLOCATE(grid%xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2088 if (ierr.ne.0) then
2089 CALL wrf_error_fatal ( &
2090 'frame/module_domain.f: Failed to allocate grid%xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2091 endif
2092 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkmhd=initial_data_value
2093 ELSE
2094 ALLOCATE(grid%xkmhd(1,1,1),STAT=ierr)
2095 if (ierr.ne.0) then
2096 CALL wrf_error_fatal ( &
2097 'frame/module_domain.f: Failed to allocate grid%xkmhd(1,1,1). ')
2098 endif
2099 ENDIF
2100 IF(.NOT.inter_domain)THEN
2101 ALLOCATE(grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2102 if (ierr.ne.0) then
2103 CALL wrf_error_fatal ( &
2104 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2105 endif
2106 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%a_xkmhd=initial_data_value
2107 ELSE
2108 ALLOCATE(grid%a_xkmhd(1,1,1),STAT=ierr)
2109 if (ierr.ne.0) then
2110 CALL wrf_error_fatal ( &
2111 'frame/module_domain.f: Failed to allocate grid%a_xkmhd(1,1,1). ')
2112 endif
2113 ENDIF
2114 IF(.NOT.inter_domain)THEN
2115 ALLOCATE(grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2116 if (ierr.ne.0) then
2117 CALL wrf_error_fatal ( &
2118 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(sm31:em31,sm32:em32,sm33:em33). ')
2119 endif
2120 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%g_xkmhd=initial_data_value
2121 ELSE
2122 ALLOCATE(grid%g_xkmhd(1,1,1),STAT=ierr)
2123 if (ierr.ne.0) then
2124 CALL wrf_error_fatal ( &
2125 'frame/module_domain.f: Failed to allocate grid%g_xkmhd(1,1,1). ')
2126 endif
2127 ENDIF
2128 IF(.NOT.inter_domain)THEN
2129 ALLOCATE(grid%xkhv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2130 if (ierr.ne.0) then
2131 CALL wrf_error_fatal ( &
2132 'frame/module_domain.f: Failed to allocate grid%xkhv(sm31:em31,sm32:em32,sm33:em33). ')
2133 endif
2134 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhv=initial_data_value
2135 ELSE
2136 ALLOCATE(grid%xkhv(1,1,1),STAT=ierr)
2137 if (ierr.ne.0) then
2138 CALL wrf_error_fatal ( &
2139 'frame/module_domain.f: Failed to allocate grid%xkhv(1,1,1). ')
2140 endif
2141 ENDIF
2142 IF(.NOT.inter_domain)THEN
2143 ALLOCATE(grid%xkhh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
2144 if (ierr.ne.0) then
2145 CALL wrf_error_fatal ( &
2146 'frame/module_domain.f: Failed to allocate grid%xkhh(sm31:em31,sm32:em32,sm33:em33). ')
2147 endif
2148 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xkhh=initial_data_value
2149 ELSE
2150 ALLOCATE(grid%xkhh(1,1,1),STAT=ierr)
2151 if (ierr.ne.0) then
2152 CALL wrf_error_fatal ( &
2153 'frame/module_domain.f: Failed to allocate grid%xkhh(1,1,1). ')
2154 endif
2155 ENDIF
2156 IF ( setinitval .EQ. 3 ) grid%warm_rain=.FALSE.
2157 IF ( setinitval .EQ. 3 ) grid%adv_moist_cond=.FALSE.
2158 IF ( setinitval .EQ. 3 ) grid%moved=.FALSE.
2159 IF ( setinitval .EQ. 3 ) grid%write_increments=.FALSE.
2160 IF ( setinitval .EQ. 3 ) grid%var4d=.FALSE.
2161 IF ( setinitval .EQ. 3 ) grid%var4d_coupling=0
2162 IF ( setinitval .EQ. 3 ) grid%global=.FALSE.
2163 IF ( setinitval .EQ. 3 ) grid%oi_use=.FALSE.
2164 IF ( setinitval .EQ. 3 ) grid%print_detail_airep=.FALSE.
2165 IF ( setinitval .EQ. 3 ) grid%print_detail_radar=.FALSE.
2166 IF ( setinitval .EQ. 3 ) grid%print_detail_radiance=.FALSE.
2167 IF ( setinitval .EQ. 3 ) grid%print_detail_xa=.FALSE.
2168 IF ( setinitval .EQ. 3 ) grid%print_detail_xb=.FALSE.
2169 IF ( setinitval .EQ. 3 ) grid%print_detail_obs=.FALSE.
2170 IF ( setinitval .EQ. 3 ) grid%print_detail_f_obs=.FALSE.
2171 IF ( setinitval .EQ. 3 ) grid%print_detail_map=.FALSE.
2172 IF ( setinitval .EQ. 3 ) grid%print_detail_grad=.FALSE.
2173 IF ( setinitval .EQ. 3 ) grid%print_detail_regression=.FALSE.
2174 IF ( setinitval .EQ. 3 ) grid%print_detail_spectral=.FALSE.
2175 IF ( setinitval .EQ. 3 ) grid%print_detail_testing=.FALSE.
2176 IF ( setinitval .EQ. 3 ) grid%print_detail_parallel=.FALSE.
2177 IF ( setinitval .EQ. 3 ) grid%print_detail_be=.FALSE.
2178 IF ( setinitval .EQ. 3 ) grid%print_detail_timing=.FALSE.
2179 IF ( setinitval .EQ. 3 ) grid%check_max_iv_print=.FALSE.
2180 IF ( setinitval .EQ. 3 ) grid%analysis_accu=0
2181 IF ( setinitval .EQ. 3 ) grid%w_increments=.FALSE.
2182 IF ( setinitval .EQ. 3 ) grid%dt_cloud_model=.FALSE.
2183 IF ( setinitval .EQ. 3 ) grid%write_qcw=.FALSE.
2184 IF ( setinitval .EQ. 3 ) grid%write_qrn=.FALSE.
2185 IF ( setinitval .EQ. 3 ) grid%write_qci=.FALSE.
2186 IF ( setinitval .EQ. 3 ) grid%write_qsn=.FALSE.
2187 IF ( setinitval .EQ. 3 ) grid%write_qgr=.FALSE.
2188 IF ( setinitval .EQ. 3 ) grid%write_filtered_obs=.FALSE.
2189 IF ( setinitval .EQ. 3 ) grid%fg_format=0
2190 IF ( setinitval .EQ. 3 ) grid%ob_format=0
2191 IF ( setinitval .EQ. 3 ) grid%num_fgat_time=0
2192 IF ( setinitval .EQ. 3 ) grid%use_synopobs=.FALSE.
2193 IF ( setinitval .EQ. 3 ) grid%use_shipsobs=.FALSE.
2194 IF ( setinitval .EQ. 3 ) grid%use_metarobs=.FALSE.
2195 IF ( setinitval .EQ. 3 ) grid%use_soundobs=.FALSE.
2196 IF ( setinitval .EQ. 3 ) grid%use_pilotobs=.FALSE.
2197 IF ( setinitval .EQ. 3 ) grid%use_airepobs=.FALSE.
2198 IF ( setinitval .EQ. 3 ) grid%use_geoamvobs=.FALSE.
2199 IF ( setinitval .EQ. 3 ) grid%use_polaramvobs=.FALSE.
2200 IF ( setinitval .EQ. 3 ) grid%use_bogusobs=.FALSE.
2201 IF ( setinitval .EQ. 3 ) grid%use_buoyobs=.FALSE.
2202 IF ( setinitval .EQ. 3 ) grid%use_profilerobs=.FALSE.
2203 IF ( setinitval .EQ. 3 ) grid%use_satemobs=.FALSE.
2204 IF ( setinitval .EQ. 3 ) grid%use_gpspwobs=.FALSE.
2205 IF ( setinitval .EQ. 3 ) grid%use_gpsrefobs=.FALSE.
2206 IF ( setinitval .EQ. 3 ) grid%use_ssmiretrievalobs=.FALSE.
2207 IF ( setinitval .EQ. 3 ) grid%use_ssmitbobs=.FALSE.
2208 IF ( setinitval .EQ. 3 ) grid%use_ssmt1obs=.FALSE.
2209 IF ( setinitval .EQ. 3 ) grid%use_ssmt2obs=.FALSE.
2210 IF ( setinitval .EQ. 3 ) grid%use_qscatobs=.FALSE.
2211 IF ( setinitval .EQ. 3 ) grid%use_radarobs=.FALSE.
2212 IF ( setinitval .EQ. 3 ) grid%use_radar_rv=.FALSE.
2213 IF ( setinitval .EQ. 3 ) grid%use_radar_rf=.FALSE.
2214 IF ( setinitval .EQ. 3 ) grid%use_hirs2obs=.FALSE.
2215 IF ( setinitval .EQ. 3 ) grid%use_hirs3obs=.FALSE.
2216 IF ( setinitval .EQ. 3 ) grid%use_msuobs=.FALSE.
2217 IF ( setinitval .EQ. 3 ) grid%use_amsuaobs=.FALSE.
2218 IF ( setinitval .EQ. 3 ) grid%use_amsubobs=.FALSE.
2219 IF ( setinitval .EQ. 3 ) grid%use_airsobs=.FALSE.
2220 IF ( setinitval .EQ. 3 ) grid%use_airsretobs=.FALSE.
2221 IF ( setinitval .EQ. 3 ) grid%use_eos_amsuaobs=.FALSE.
2222 IF ( setinitval .EQ. 3 ) grid%use_eos_radobs=.FALSE.
2223 IF ( setinitval .EQ. 3 ) grid%use_hsbobs=.FALSE.
2224 IF ( setinitval .EQ. 3 ) grid%use_kma1dvar=.FALSE.
2225 IF ( setinitval .EQ. 3 ) grid%use_filtered_rad=.FALSE.
2226 IF ( setinitval .EQ. 3 ) grid%use_radiance=.FALSE.
2227 IF ( setinitval .EQ. 3 ) grid%use_obsgts=.FALSE.
2228 IF ( setinitval .EQ. 3 ) grid%use_obs_errfac=.FALSE.
2229 IF ( setinitval .EQ. 3 ) grid%check_max_iv=.FALSE.
2230 IF ( setinitval .EQ. 3 ) grid%put_rand_seed=.FALSE.
2231 IF ( setinitval .EQ. 3 ) grid%omb_set_rand=.FALSE.
2232 IF ( setinitval .EQ. 3 ) grid%omb_add_noise=.FALSE.
2233 IF ( setinitval .EQ. 3 ) grid%obs_qc_pointer=0
2234 IF ( setinitval .EQ. 3 ) grid%max_sound_input=0
2235 IF ( setinitval .EQ. 3 ) grid%max_synop_input=0
2236 IF ( setinitval .EQ. 3 ) grid%max_geoamv_input=0
2237 IF ( setinitval .EQ. 3 ) grid%max_polaramv_input=0
2238 IF ( setinitval .EQ. 3 ) grid%max_airep_input=0
2239 IF ( setinitval .EQ. 3 ) grid%max_satem_input=0
2240 IF ( setinitval .EQ. 3 ) grid%max_pilot_input=0
2241 IF ( setinitval .EQ. 3 ) grid%max_radar_input=0
2242 IF ( setinitval .EQ. 3 ) grid%max_metar_input=0
2243 IF ( setinitval .EQ. 3 ) grid%max_gpspw_input=0
2244 IF ( setinitval .EQ. 3 ) grid%max_ships_input=0
2245 IF ( setinitval .EQ. 3 ) grid%max_profiler_input=0
2246 IF ( setinitval .EQ. 3 ) grid%max_bogus_input=0
2247 IF ( setinitval .EQ. 3 ) grid%max_buoy_input=0
2248 IF ( setinitval .EQ. 3 ) grid%max_ssmi_ret_input=0
2249 IF ( setinitval .EQ. 3 ) grid%max_ssmi_tb_input=0
2250 IF ( setinitval .EQ. 3 ) grid%max_ssmt1_input=0
2251 IF ( setinitval .EQ. 3 ) grid%max_ssmt2_input=0
2252 IF ( setinitval .EQ. 3 ) grid%max_qscat_input=0
2253 IF ( setinitval .EQ. 3 ) grid%max_gpsref_input=0
2254 IF ( setinitval .EQ. 3 ) grid%max_airsret_input=0
2255 IF ( setinitval .EQ. 3 ) grid%max_tovs_input=0
2256 IF ( setinitval .EQ. 3 ) grid%report_start=0
2257 IF ( setinitval .EQ. 3 ) grid%report_end=0
2258 IF ( setinitval .EQ. 3 ) grid%tovs_start=0
2259 IF ( setinitval .EQ. 3 ) grid%tovs_end=0
2260 IF ( setinitval .EQ. 3 ) grid%max_ext_its=0
2261 IF ( setinitval .EQ. 3 ) grid%ntmax=0
2262 IF ( setinitval .EQ. 3 ) grid%nsave=0
2263 IF ( setinitval .EQ. 3 ) grid%write_switch=.FALSE.
2264 IF ( setinitval .EQ. 3 ) grid%write_interval=0
2265 IF ( setinitval .EQ. 3 ) grid%eps=initial_data_value
2266 IF ( setinitval .EQ. 3 ) grid%rf_passes=0
2267 IF ( setinitval .EQ. 3 ) grid%var_scaling1=initial_data_value
2268 IF ( setinitval .EQ. 3 ) grid%var_scaling2=initial_data_value
2269 IF ( setinitval .EQ. 3 ) grid%var_scaling3=initial_data_value
2270 IF ( setinitval .EQ. 3 ) grid%var_scaling4=initial_data_value
2271 IF ( setinitval .EQ. 3 ) grid%var_scaling5=initial_data_value
2272 IF ( setinitval .EQ. 3 ) grid%len_scaling1=initial_data_value
2273 IF ( setinitval .EQ. 3 ) grid%len_scaling2=initial_data_value
2274 IF ( setinitval .EQ. 3 ) grid%len_scaling3=initial_data_value
2275 IF ( setinitval .EQ. 3 ) grid%len_scaling4=initial_data_value
2276 IF ( setinitval .EQ. 3 ) grid%len_scaling5=initial_data_value
2277 IF ( setinitval .EQ. 3 ) grid%jb_factor=initial_data_value
2278 IF ( setinitval .EQ. 3 ) grid%je_factor=initial_data_value
2279 IF ( setinitval .EQ. 3 ) grid%power_truncation=initial_data_value
2280 IF ( setinitval .EQ. 3 ) grid%def_sub_domain=.FALSE.
2281 IF ( setinitval .EQ. 3 ) grid%x_start_sub_domain=initial_data_value
2282 IF ( setinitval .EQ. 3 ) grid%y_start_sub_domain=initial_data_value
2283 IF ( setinitval .EQ. 3 ) grid%x_end_sub_domain=initial_data_value
2284 IF ( setinitval .EQ. 3 ) grid%y_end_sub_domain=initial_data_value
2285 IF ( setinitval .EQ. 3 ) grid%stdout=0
2286 IF ( setinitval .EQ. 3 ) grid%stderr=0
2287 IF ( setinitval .EQ. 3 ) grid%trace_unit=0
2288 IF ( setinitval .EQ. 3 ) grid%trace_pe=0
2289 IF ( setinitval .EQ. 3 ) grid%trace_repeat_head=0
2290 IF ( setinitval .EQ. 3 ) grid%trace_repeat_body=0
2291 IF ( setinitval .EQ. 3 ) grid%trace_max_depth=0
2292 IF ( setinitval .EQ. 3 ) grid%trace_use=.FALSE.
2293 IF ( setinitval .EQ. 3 ) grid%trace_use_frequent=.FALSE.
2294 IF ( setinitval .EQ. 3 ) grid%trace_memory=.FALSE.
2295 IF ( setinitval .EQ. 3 ) grid%trace_all_pes=.FALSE.
2296 IF ( setinitval .EQ. 3 ) grid%trace_csv=.FALSE.
2297 IF ( setinitval .EQ. 3 ) grid%use_html=.FALSE.
2298 IF ( setinitval .EQ. 3 ) grid%warnings_are_fatal=.FALSE.
2299 IF ( setinitval .EQ. 3 ) grid%testing_wrfvar=.FALSE.
2300 IF ( setinitval .EQ. 3 ) grid%test_transforms=.FALSE.
2301 IF ( setinitval .EQ. 3 ) grid%test_statistics=.FALSE.
2302 IF ( setinitval .EQ. 3 ) grid%interpolate_stats=.FALSE.
2303 IF ( setinitval .EQ. 3 ) grid%testing_dm_exact=.FALSE.
2304 IF ( setinitval .EQ. 3 ) grid%cv_options_hum=0
2305 IF ( setinitval .EQ. 3 ) grid%check_rh=0
2306 IF ( setinitval .EQ. 3 ) grid%set_omb_rand_fac=0
2307 IF ( setinitval .EQ. 3 ) grid%seed_array1=0
2308 IF ( setinitval .EQ. 3 ) grid%seed_array2=0
2309 IF ( setinitval .EQ. 3 ) grid%sfc_assi_options=0
2310 IF ( setinitval .EQ. 3 ) grid%calculate_cg_cost_fn=.FALSE.
2311 IF ( setinitval .EQ. 3 ) grid%write_outer_loop=.FALSE.
2312 IF ( setinitval .EQ. 3 ) grid%lat_stats_option=.FALSE.
2313 IF ( setinitval .EQ. 3 ) grid%as1=initial_data_value
2314 IF ( setinitval .EQ. 3 ) grid%as2=initial_data_value
2315 IF ( setinitval .EQ. 3 ) grid%as3=initial_data_value
2316 IF ( setinitval .EQ. 3 ) grid%as4=initial_data_value
2317 IF ( setinitval .EQ. 3 ) grid%as5=initial_data_value
2318 IF ( setinitval .EQ. 3 ) grid%balance_type=0
2319 IF ( setinitval .EQ. 3 ) grid%vert_corr=0
2320 IF ( setinitval .EQ. 3 ) grid%vertical_ip=0
2321 IF ( setinitval .EQ. 3 ) grid%vert_evalue=0
2322 IF ( setinitval .EQ. 3 ) grid%max_vert_var1=initial_data_value
2323 IF ( setinitval .EQ. 3 ) grid%max_vert_var2=initial_data_value
2324 IF ( setinitval .EQ. 3 ) grid%max_vert_var3=initial_data_value
2325 IF ( setinitval .EQ. 3 ) grid%max_vert_var4=initial_data_value
2326 IF ( setinitval .EQ. 3 ) grid%max_vert_var5=initial_data_value
2327 IF ( setinitval .EQ. 3 ) grid%rtminit_print=0
2328 IF ( setinitval .EQ. 3 ) grid%rtminit_nsensor=0
2329 IF ( setinitval .EQ. 3 ) grid%rtminit_platform=0
2330 IF ( setinitval .EQ. 3 ) grid%rtminit_satid=0
2331 IF ( setinitval .EQ. 3 ) grid%rtminit_sensor=0
2332 IF ( setinitval .EQ. 3 ) grid%read_biascoef=.FALSE.
2333 IF ( setinitval .EQ. 3 ) grid%biascorr=.FALSE.
2334 IF ( setinitval .EQ. 3 ) grid%biasprep=.FALSE.
2335 IF ( setinitval .EQ. 3 ) grid%rttov_scatt=.FALSE.
2336 IF ( setinitval .EQ. 3 ) grid%monitoring=.FALSE.
2337 IF ( setinitval .EQ. 3 ) grid%write_profile=.FALSE.
2338 IF ( setinitval .EQ. 3 ) grid%qc_rad=.FALSE.
2339 IF ( setinitval .EQ. 3 ) grid%write_iv_rad_ascii=.FALSE.
2340 IF ( setinitval .EQ. 3 ) grid%write_oa_rad_ascii=.FALSE.
2341 IF ( setinitval .EQ. 3 ) grid%write_filtered_rad=.FALSE.
2342 IF ( setinitval .EQ. 3 ) grid%use_error_factor_rad=.FALSE.
2343 IF ( setinitval .EQ. 3 ) grid%use_landem=.FALSE.
2344 IF ( setinitval .EQ. 3 ) grid%mw_emis_sea=0
2345 IF ( setinitval .EQ. 3 ) grid%tovs_min_transfer=0
2346 IF ( setinitval .EQ. 3 ) grid%rtm_option=0
2347 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix=.FALSE.
2348 IF ( setinitval .EQ. 3 ) grid%use_crtm_kmatrix_fast=.FALSE.
2349 IF ( setinitval .EQ. 3 ) grid%crtm_cloud=.FALSE.
2350 IF ( setinitval .EQ. 3 ) grid%num_pseudo=0
2351 IF ( setinitval .EQ. 3 ) grid%pseudo_x=initial_data_value
2352 IF ( setinitval .EQ. 3 ) grid%pseudo_y=initial_data_value
2353 IF ( setinitval .EQ. 3 ) grid%pseudo_z=initial_data_value
2354 IF ( setinitval .EQ. 3 ) grid%pseudo_val=initial_data_value
2355 IF ( setinitval .EQ. 3 ) grid%pseudo_err=initial_data_value
2356 IF ( setinitval .EQ. 3 ) grid%alphacv_method=0
2357 IF ( setinitval .EQ. 3 ) grid%ensdim_alpha=0
2358 IF ( setinitval .EQ. 3 ) grid%alpha_truncation=0
2359 IF ( setinitval .EQ. 3 ) grid%alpha_corr_type=0
2360 IF ( setinitval .EQ. 3 ) grid%alpha_corr_scale=initial_data_value
2361 IF ( setinitval .EQ. 3 ) grid%alpha_std_dev=initial_data_value
2362 IF ( setinitval .EQ. 3 ) grid%run_days=0
2363 IF ( setinitval .EQ. 3 ) grid%run_hours=0
2364 IF ( setinitval .EQ. 3 ) grid%run_minutes=0
2365 IF ( setinitval .EQ. 3 ) grid%run_seconds=0
2366 IF ( setinitval .EQ. 3 ) grid%start_year=0
2367 IF ( setinitval .EQ. 3 ) grid%start_month=0
2368 IF ( setinitval .EQ. 3 ) grid%start_day=0
2369 IF ( setinitval .EQ. 3 ) grid%start_hour=0
2370 IF ( setinitval .EQ. 3 ) grid%start_minute=0
2371 IF ( setinitval .EQ. 3 ) grid%start_second=0
2372 IF ( setinitval .EQ. 3 ) grid%end_year=0
2373 IF ( setinitval .EQ. 3 ) grid%end_month=0
2374 IF ( setinitval .EQ. 3 ) grid%end_day=0
2375 IF ( setinitval .EQ. 3 ) grid%end_hour=0
2376 IF ( setinitval .EQ. 3 ) grid%end_minute=0
2377 IF ( setinitval .EQ. 3 ) grid%end_second=0
2378 IF ( setinitval .EQ. 3 ) grid%interval_seconds=0
2379 IF ( setinitval .EQ. 3 ) grid%input_from_file=.FALSE.
2380 IF ( setinitval .EQ. 3 ) grid%fine_input_stream=0
2381 IF ( setinitval .EQ. 3 ) grid%input_from_hires=.FALSE.
2382 IF ( setinitval .EQ. 3 ) grid%oid=0
2383 IF ( setinitval .EQ. 3 ) grid%auxhist1_oid=0
2384 IF ( setinitval .EQ. 3 ) grid%auxhist2_oid=0
2385 IF ( setinitval .EQ. 3 ) grid%auxhist3_oid=0
2386 IF ( setinitval .EQ. 3 ) grid%auxhist4_oid=0
2387 IF ( setinitval .EQ. 3 ) grid%auxhist5_oid=0
2388 IF ( setinitval .EQ. 3 ) grid%auxhist6_oid=0
2389 IF ( setinitval .EQ. 3 ) grid%auxhist7_oid=0
2390 IF ( setinitval .EQ. 3 ) grid%auxhist8_oid=0
2391 IF ( setinitval .EQ. 3 ) grid%auxhist9_oid=0
2392 IF ( setinitval .EQ. 3 ) grid%auxhist10_oid=0
2393 IF ( setinitval .EQ. 3 ) grid%auxhist11_oid=0
2394 IF ( setinitval .EQ. 3 ) grid%auxinput1_oid=0
2395 IF ( setinitval .EQ. 3 ) grid%auxinput2_oid=0
2396 IF ( setinitval .EQ. 3 ) grid%auxinput3_oid=0
2397 IF ( setinitval .EQ. 3 ) grid%auxinput4_oid=0
2398 IF ( setinitval .EQ. 3 ) grid%auxinput5_oid=0
2399 IF ( setinitval .EQ. 3 ) grid%auxinput6_oid=0
2400 IF ( setinitval .EQ. 3 ) grid%auxinput7_oid=0
2401 IF ( setinitval .EQ. 3 ) grid%auxinput8_oid=0
2402 IF ( setinitval .EQ. 3 ) grid%auxinput9_oid=0
2403 IF ( setinitval .EQ. 3 ) grid%auxinput10_oid=0
2404 IF ( setinitval .EQ. 3 ) grid%auxinput11_oid=0
2405 IF ( setinitval .EQ. 3 ) grid%history_interval=0
2406 IF ( setinitval .EQ. 3 ) grid%frames_per_outfile=0
2407 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist1=0
2408 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist2=0
2409 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist3=0
2410 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist4=0
2411 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist5=0
2412 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist6=0
2413 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist7=0
2414 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist8=0
2415 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist9=0
2416 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist10=0
2417 IF ( setinitval .EQ. 3 ) grid%frames_per_auxhist11=0
2418 IF ( setinitval .EQ. 3 ) grid%restart=.FALSE.
2419 IF ( setinitval .EQ. 3 ) grid%restart_interval=0
2420 IF ( setinitval .EQ. 3 ) grid%io_form_input=0
2421 IF ( setinitval .EQ. 3 ) grid%io_form_history=0
2422 IF ( setinitval .EQ. 3 ) grid%io_form_restart=0
2423 IF ( setinitval .EQ. 3 ) grid%io_form_boundary=0
2424 IF ( setinitval .EQ. 3 ) grid%debug_level=0
2425 IF ( setinitval .EQ. 3 ) grid%self_test_domain=.FALSE.
2426 IF ( setinitval .EQ. 3 ) grid%history_interval_mo=0
2427 IF ( setinitval .EQ. 3 ) grid%history_interval_d=0
2428 IF ( setinitval .EQ. 3 ) grid%history_interval_h=0
2429 IF ( setinitval .EQ. 3 ) grid%history_interval_m=0
2430 IF ( setinitval .EQ. 3 ) grid%history_interval_s=0
2431 IF ( setinitval .EQ. 3 ) grid%inputout_interval_mo=0
2432 IF ( setinitval .EQ. 3 ) grid%inputout_interval_d=0
2433 IF ( setinitval .EQ. 3 ) grid%inputout_interval_h=0
2434 IF ( setinitval .EQ. 3 ) grid%inputout_interval_m=0
2435 IF ( setinitval .EQ. 3 ) grid%inputout_interval_s=0
2436 IF ( setinitval .EQ. 3 ) grid%inputout_interval=0
2437 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_mo=0
2438 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_d=0
2439 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_h=0
2440 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_m=0
2441 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval_s=0
2442 IF ( setinitval .EQ. 3 ) grid%auxhist1_interval=0
2443 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_mo=0
2444 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_d=0
2445 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_h=0
2446 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_m=0
2447 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval_s=0
2448 IF ( setinitval .EQ. 3 ) grid%auxhist2_interval=0
2449 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_mo=0
2450 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_d=0
2451 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_h=0
2452 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_m=0
2453 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval_s=0
2454 IF ( setinitval .EQ. 3 ) grid%auxhist3_interval=0
2455 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_mo=0
2456 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_d=0
2457 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_h=0
2458 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_m=0
2459 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval_s=0
2460 IF ( setinitval .EQ. 3 ) grid%auxhist4_interval=0
2461 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_mo=0
2462 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_d=0
2463 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_h=0
2464 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_m=0
2465 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval_s=0
2466 IF ( setinitval .EQ. 3 ) grid%auxhist5_interval=0
2467 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_mo=0
2468 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_d=0
2469 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_h=0
2470 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_m=0
2471 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval_s=0
2472 IF ( setinitval .EQ. 3 ) grid%auxhist6_interval=0
2473 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_mo=0
2474 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_d=0
2475 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_h=0
2476 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_m=0
2477 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval_s=0
2478 IF ( setinitval .EQ. 3 ) grid%auxhist7_interval=0
2479 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_mo=0
2480 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_d=0
2481 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_h=0
2482 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_m=0
2483 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval_s=0
2484 IF ( setinitval .EQ. 3 ) grid%auxhist8_interval=0
2485 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_mo=0
2486 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_d=0
2487 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_h=0
2488 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_m=0
2489 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval_s=0
2490 IF ( setinitval .EQ. 3 ) grid%auxhist9_interval=0
2491 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_mo=0
2492 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_d=0
2493 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_h=0
2494 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_m=0
2495 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval_s=0
2496 IF ( setinitval .EQ. 3 ) grid%auxhist10_interval=0
2497 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_mo=0
2498 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_d=0
2499 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_h=0
2500 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_m=0
2501 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval_s=0
2502 IF ( setinitval .EQ. 3 ) grid%auxhist11_interval=0
2503 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_mo=0
2504 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_d=0
2505 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_h=0
2506 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_m=0
2507 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval_s=0
2508 IF ( setinitval .EQ. 3 ) grid%auxinput1_interval=0
2509 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_mo=0
2510 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_d=0
2511 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_h=0
2512 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_m=0
2513 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval_s=0
2514 IF ( setinitval .EQ. 3 ) grid%auxinput2_interval=0
2515 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_mo=0
2516 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_d=0
2517 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_h=0
2518 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_m=0
2519 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval_s=0
2520 IF ( setinitval .EQ. 3 ) grid%auxinput3_interval=0
2521 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_mo=0
2522 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_d=0
2523 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_h=0
2524 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_m=0
2525 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_s=0
2526 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval=0
2527 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_mo=0
2528 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_d=0
2529 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_h=0
2530 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_m=0
2531 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_s=0
2532 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval=0
2533 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_mo=0
2534 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_d=0
2535 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_h=0
2536 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_m=0
2537 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_s=0
2538 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval=0
2539 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_mo=0
2540 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_d=0
2541 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_h=0
2542 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_m=0
2543 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_s=0
2544 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval=0
2545 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_mo=0
2546 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_d=0
2547 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_h=0
2548 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_m=0
2549 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_s=0
2550 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval=0
2551 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_mo=0
2552 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_d=0
2553 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_h=0
2554 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_m=0
2555 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_s=0
2556 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval=0
2557 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_mo=0
2558 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_d=0
2559 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_h=0
2560 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_m=0
2561 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_s=0
2562 IF ( setinitval .EQ. 3 ) grid%gfdda_interval=0
2563 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_mo=0
2564 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_d=0
2565 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_h=0
2566 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_m=0
2567 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_s=0
2568 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval=0
2569 IF ( setinitval .EQ. 3 ) grid%restart_interval_mo=0
2570 IF ( setinitval .EQ. 3 ) grid%restart_interval_d=0
2571 IF ( setinitval .EQ. 3 ) grid%restart_interval_h=0
2572 IF ( setinitval .EQ. 3 ) grid%restart_interval_m=0
2573 IF ( setinitval .EQ. 3 ) grid%restart_interval_s=0
2574 IF ( setinitval .EQ. 3 ) grid%history_begin_y=0
2575 IF ( setinitval .EQ. 3 ) grid%history_begin_mo=0
2576 IF ( setinitval .EQ. 3 ) grid%history_begin_d=0
2577 IF ( setinitval .EQ. 3 ) grid%history_begin_h=0
2578 IF ( setinitval .EQ. 3 ) grid%history_begin_m=0
2579 IF ( setinitval .EQ. 3 ) grid%history_begin_s=0
2580 IF ( setinitval .EQ. 3 ) grid%inputout_begin_y=0
2581 IF ( setinitval .EQ. 3 ) grid%inputout_begin_mo=0
2582 IF ( setinitval .EQ. 3 ) grid%inputout_begin_d=0
2583 IF ( setinitval .EQ. 3 ) grid%inputout_begin_h=0
2584 IF ( setinitval .EQ. 3 ) grid%inputout_begin_m=0
2585 IF ( setinitval .EQ. 3 ) grid%inputout_begin_s=0
2586 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_y=0
2587 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_mo=0
2588 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_d=0
2589 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_h=0
2590 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_m=0
2591 IF ( setinitval .EQ. 3 ) grid%auxhist1_begin_s=0
2592 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_y=0
2593 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_mo=0
2594 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_d=0
2595 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_h=0
2596 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_m=0
2597 IF ( setinitval .EQ. 3 ) grid%auxhist2_begin_s=0
2598 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_y=0
2599 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_mo=0
2600 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_d=0
2601 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_h=0
2602 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_m=0
2603 IF ( setinitval .EQ. 3 ) grid%auxhist3_begin_s=0
2604 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_y=0
2605 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_mo=0
2606 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_d=0
2607 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_h=0
2608 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_m=0
2609 IF ( setinitval .EQ. 3 ) grid%auxhist4_begin_s=0
2610 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_y=0
2611 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_mo=0
2612 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_d=0
2613 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_h=0
2614 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_m=0
2615 IF ( setinitval .EQ. 3 ) grid%auxhist5_begin_s=0
2616 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_y=0
2617 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_mo=0
2618 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_d=0
2619 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_h=0
2620 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_m=0
2621 IF ( setinitval .EQ. 3 ) grid%auxhist6_begin_s=0
2622 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_y=0
2623 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_mo=0
2624 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_d=0
2625 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_h=0
2626 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_m=0
2627 IF ( setinitval .EQ. 3 ) grid%auxhist7_begin_s=0
2628 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_y=0
2629 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_mo=0
2630 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_d=0
2631 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_h=0
2632 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_m=0
2633 IF ( setinitval .EQ. 3 ) grid%auxhist8_begin_s=0
2634 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_y=0
2635 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_mo=0
2636 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_d=0
2637 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_h=0
2638 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_m=0
2639 IF ( setinitval .EQ. 3 ) grid%auxhist9_begin_s=0
2640 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_y=0
2641 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_mo=0
2642 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_d=0
2643 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_h=0
2644 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_m=0
2645 IF ( setinitval .EQ. 3 ) grid%auxhist10_begin_s=0
2646 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_y=0
2647 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_mo=0
2648 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_d=0
2649 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_h=0
2650 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_m=0
2651 IF ( setinitval .EQ. 3 ) grid%auxhist11_begin_s=0
2652 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_y=0
2653 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_mo=0
2654 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_d=0
2655 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_h=0
2656 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_m=0
2657 IF ( setinitval .EQ. 3 ) grid%auxinput1_begin_s=0
2658 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_y=0
2659 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_mo=0
2660 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_d=0
2661 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_h=0
2662 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_m=0
2663 IF ( setinitval .EQ. 3 ) grid%auxinput2_begin_s=0
2664 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_y=0
2665 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_mo=0
2666 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_d=0
2667 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_h=0
2668 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_m=0
2669 IF ( setinitval .EQ. 3 ) grid%auxinput3_begin_s=0
2670 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_y=0
2671 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_mo=0
2672 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_d=0
2673 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_h=0
2674 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_m=0
2675 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_s=0
2676 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_y=0
2677 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_mo=0
2678 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_d=0
2679 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_h=0
2680 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_m=0
2681 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_s=0
2682 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_y=0
2683 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_mo=0
2684 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_d=0
2685 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_h=0
2686 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_m=0
2687 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_s=0
2688 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_y=0
2689 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_mo=0
2690 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_d=0
2691 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_h=0
2692 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_m=0
2693 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_s=0
2694 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_y=0
2695 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_mo=0
2696 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_d=0
2697 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_h=0
2698 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_m=0
2699 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_s=0
2700 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_y=0
2701 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_mo=0
2702 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_d=0
2703 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_h=0
2704 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_m=0
2705 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_s=0
2706 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_y=0
2707 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_mo=0
2708 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_d=0
2709 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_h=0
2710 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_m=0
2711 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_s=0
2712 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_y=0
2713 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_mo=0
2714 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_d=0
2715 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_h=0
2716 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_m=0
2717 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_s=0
2718 IF ( setinitval .EQ. 3 ) grid%restart_begin_y=0
2719 IF ( setinitval .EQ. 3 ) grid%restart_begin_mo=0
2720 IF ( setinitval .EQ. 3 ) grid%restart_begin_d=0
2721 IF ( setinitval .EQ. 3 ) grid%restart_begin_h=0
2722 IF ( setinitval .EQ. 3 ) grid%restart_begin_m=0
2723 IF ( setinitval .EQ. 3 ) grid%restart_begin_s=0
2724 IF ( setinitval .EQ. 3 ) grid%history_end_y=0
2725 IF ( setinitval .EQ. 3 ) grid%history_end_mo=0
2726 IF ( setinitval .EQ. 3 ) grid%history_end_d=0
2727 IF ( setinitval .EQ. 3 ) grid%history_end_h=0
2728 IF ( setinitval .EQ. 3 ) grid%history_end_m=0
2729 IF ( setinitval .EQ. 3 ) grid%history_end_s=0
2730 IF ( setinitval .EQ. 3 ) grid%inputout_end_y=0
2731 IF ( setinitval .EQ. 3 ) grid%inputout_end_mo=0
2732 IF ( setinitval .EQ. 3 ) grid%inputout_end_d=0
2733 IF ( setinitval .EQ. 3 ) grid%inputout_end_h=0
2734 IF ( setinitval .EQ. 3 ) grid%inputout_end_m=0
2735 IF ( setinitval .EQ. 3 ) grid%inputout_end_s=0
2736 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_y=0
2737 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_mo=0
2738 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_d=0
2739 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_h=0
2740 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_m=0
2741 IF ( setinitval .EQ. 3 ) grid%auxhist1_end_s=0
2742 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_y=0
2743 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_mo=0
2744 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_d=0
2745 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_h=0
2746 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_m=0
2747 IF ( setinitval .EQ. 3 ) grid%auxhist2_end_s=0
2748 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_y=0
2749 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_mo=0
2750 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_d=0
2751 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_h=0
2752 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_m=0
2753 IF ( setinitval .EQ. 3 ) grid%auxhist3_end_s=0
2754 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_y=0
2755 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_mo=0
2756 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_d=0
2757 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_h=0
2758 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_m=0
2759 IF ( setinitval .EQ. 3 ) grid%auxhist4_end_s=0
2760 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_y=0
2761 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_mo=0
2762 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_d=0
2763 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_h=0
2764 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_m=0
2765 IF ( setinitval .EQ. 3 ) grid%auxhist5_end_s=0
2766 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_y=0
2767 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_mo=0
2768 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_d=0
2769 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_h=0
2770 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_m=0
2771 IF ( setinitval .EQ. 3 ) grid%auxhist6_end_s=0
2772 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_y=0
2773 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_mo=0
2774 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_d=0
2775 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_h=0
2776 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_m=0
2777 IF ( setinitval .EQ. 3 ) grid%auxhist7_end_s=0
2778 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_y=0
2779 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_mo=0
2780 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_d=0
2781 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_h=0
2782 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_m=0
2783 IF ( setinitval .EQ. 3 ) grid%auxhist8_end_s=0
2784 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_y=0
2785 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_mo=0
2786 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_d=0
2787 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_h=0
2788 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_m=0
2789 IF ( setinitval .EQ. 3 ) grid%auxhist9_end_s=0
2790 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_y=0
2791 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_mo=0
2792 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_d=0
2793 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_h=0
2794 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_m=0
2795 IF ( setinitval .EQ. 3 ) grid%auxhist10_end_s=0
2796 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_y=0
2797 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_mo=0
2798 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_d=0
2799 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_h=0
2800 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_m=0
2801 IF ( setinitval .EQ. 3 ) grid%auxhist11_end_s=0
2802 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_y=0
2803 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_mo=0
2804 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_d=0
2805 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_h=0
2806 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_m=0
2807 IF ( setinitval .EQ. 3 ) grid%auxinput1_end_s=0
2808 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_y=0
2809 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_mo=0
2810 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_d=0
2811 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_h=0
2812 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_m=0
2813 IF ( setinitval .EQ. 3 ) grid%auxinput2_end_s=0
2814 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_y=0
2815 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_mo=0
2816 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_d=0
2817 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_h=0
2818 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_m=0
2819 IF ( setinitval .EQ. 3 ) grid%auxinput3_end_s=0
2820 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_y=0
2821 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_mo=0
2822 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_d=0
2823 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_h=0
2824 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_m=0
2825 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_s=0
2826 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_y=0
2827 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_mo=0
2828 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_d=0
2829 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_h=0
2830 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_m=0
2831 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_s=0
2832 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_y=0
2833 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_mo=0
2834 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_d=0
2835 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_h=0
2836 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_m=0
2837 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_s=0
2838 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_y=0
2839 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_mo=0
2840 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_d=0
2841 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_h=0
2842 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_m=0
2843 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_s=0
2844 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_y=0
2845 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_mo=0
2846 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_d=0
2847 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_h=0
2848 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_m=0
2849 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_s=0
2850 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_y=0
2851 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_mo=0
2852 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_d=0
2853 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_h=0
2854 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_m=0
2855 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_s=0
2856 IF ( setinitval .EQ. 3 ) grid%gfdda_end_y=0
2857 IF ( setinitval .EQ. 3 ) grid%gfdda_end_mo=0
2858 IF ( setinitval .EQ. 3 ) grid%gfdda_end_d=0
2859 IF ( setinitval .EQ. 3 ) grid%gfdda_end_h=0
2860 IF ( setinitval .EQ. 3 ) grid%gfdda_end_m=0
2861 IF ( setinitval .EQ. 3 ) grid%gfdda_end_s=0
2862 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_y=0
2863 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_mo=0
2864 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_d=0
2865 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_h=0
2866 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_m=0
2867 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_s=0
2868 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput1=0
2869 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput2=0
2870 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput3=0
2871 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput4=0
2872 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput5=0
2873 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput6=0
2874 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput7=0
2875 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput8=0
2876 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput9=0
2877 IF ( setinitval .EQ. 3 ) grid%io_form_gfdda=0
2878 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput11=0
2879 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist1=0
2880 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist2=0
2881 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist3=0
2882 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist4=0
2883 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist5=0
2884 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist6=0
2885 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist7=0
2886 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist8=0
2887 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist9=0
2888 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist10=0
2889 IF ( setinitval .EQ. 3 ) grid%io_form_auxhist11=0
2890 IF ( setinitval .EQ. 3 ) grid%julyr=0
2891 IF ( setinitval .EQ. 3 ) grid%julday=0
2892 IF ( setinitval .EQ. 3 ) grid%gmt=initial_data_value
2893 IF ( setinitval .EQ. 3 ) grid%write_input=.FALSE.
2894 IF ( setinitval .EQ. 3 ) grid%write_restart_at_0h=.FALSE.
2895 IF ( setinitval .EQ. 3 ) grid%adjust_output_times=.FALSE.
2896 IF ( setinitval .EQ. 3 ) grid%adjust_input_times=.FALSE.
2897 IF ( setinitval .EQ. 3 ) grid%nocolons=.FALSE.
2898 IF ( setinitval .EQ. 3 ) grid%time_step=0
2899 IF ( setinitval .EQ. 3 ) grid%time_step_fract_num=0
2900 IF ( setinitval .EQ. 3 ) grid%time_step_fract_den=0
2901 IF ( setinitval .EQ. 3 ) grid%max_dom=0
2902 IF ( setinitval .EQ. 3 ) grid%s_we=0
2903 IF ( setinitval .EQ. 3 ) grid%e_we=0
2904 IF ( setinitval .EQ. 3 ) grid%s_sn=0
2905 IF ( setinitval .EQ. 3 ) grid%e_sn=0
2906 IF ( setinitval .EQ. 3 ) grid%s_vert=0
2907 IF ( setinitval .EQ. 3 ) grid%e_vert=0
2908 IF ( setinitval .EQ. 3 ) grid%num_metgrid_levels=0
2909 IF ( setinitval .EQ. 3 ) grid%p_top_requested=initial_data_value
2910 IF ( setinitval .EQ. 3 ) grid%interp_type=0
2911 IF ( setinitval .EQ. 3 ) grid%lowest_lev_from_sfc=.FALSE.
2912 IF ( setinitval .EQ. 3 ) grid%lagrange_order=0
2913 IF ( setinitval .EQ. 3 ) grid%dx=initial_data_value
2914 IF ( setinitval .EQ. 3 ) grid%dy=initial_data_value
2915 IF ( setinitval .EQ. 3 ) grid%grid_id=0
2916 IF ( setinitval .EQ. 3 ) grid%parent_id=0
2917 IF ( setinitval .EQ. 3 ) grid%i_parent_start=0
2918 IF ( setinitval .EQ. 3 ) grid%j_parent_start=0
2919 IF ( setinitval .EQ. 3 ) grid%parent_grid_ratio=0
2920 IF ( setinitval .EQ. 3 ) grid%parent_time_step_ratio=0
2921 IF ( setinitval .EQ. 3 ) grid%feedback=0
2922 IF ( setinitval .EQ. 3 ) grid%smooth_option=0
2923 IF ( setinitval .EQ. 3 ) grid%blend_width=0
2924 IF ( setinitval .EQ. 3 ) grid%ztop=initial_data_value
2925 IF ( setinitval .EQ. 3 ) grid%moad_grid_ratio=0
2926 IF ( setinitval .EQ. 3 ) grid%moad_time_step_ratio=0
2927 IF ( setinitval .EQ. 3 ) grid%shw=0
2928 IF ( setinitval .EQ. 3 ) grid%tile_sz_x=0
2929 IF ( setinitval .EQ. 3 ) grid%tile_sz_y=0
2930 IF ( setinitval .EQ. 3 ) grid%numtiles=0
2931 IF ( setinitval .EQ. 3 ) grid%nproc_x=0
2932 IF ( setinitval .EQ. 3 ) grid%nproc_y=0
2933 IF ( setinitval .EQ. 3 ) grid%irand=0
2934 IF ( setinitval .EQ. 3 ) grid%dt=initial_data_value
2935 IF ( setinitval .EQ. 3 ) grid%num_moves=0
2936 IF ( setinitval .EQ. 3 ) grid%vortex_interval=0
2937 IF ( setinitval .EQ. 3 ) grid%max_vortex_speed=0
2938 IF ( setinitval .EQ. 3 ) grid%corral_dist=0
2939 IF ( setinitval .EQ. 3 ) grid%move_id=0
2940 IF ( setinitval .EQ. 3 ) grid%move_interval=0
2941 IF ( setinitval .EQ. 3 ) grid%move_cd_x=0
2942 IF ( setinitval .EQ. 3 ) grid%move_cd_y=0
2943 IF ( setinitval .EQ. 3 ) grid%swap_x=.FALSE.
2944 IF ( setinitval .EQ. 3 ) grid%swap_y=.FALSE.
2945 IF ( setinitval .EQ. 3 ) grid%cycle_x=.FALSE.
2946 IF ( setinitval .EQ. 3 ) grid%cycle_y=.FALSE.
2947 IF ( setinitval .EQ. 3 ) grid%reorder_mesh=.FALSE.
2948 IF ( setinitval .EQ. 3 ) grid%perturb_input=.FALSE.
2949 IF ( setinitval .EQ. 3 ) grid%eta_levels=initial_data_value
2950 IF ( setinitval .EQ. 3 ) grid%max_dz=initial_data_value
2951 IF ( setinitval .EQ. 3 ) grid%mp_physics=0
2952 IF ( setinitval .EQ. 3 ) grid%ra_lw_physics=0
2953 IF ( setinitval .EQ. 3 ) grid%ra_sw_physics=0
2954 IF ( setinitval .EQ. 3 ) grid%radt=initial_data_value
2955 IF ( setinitval .EQ. 3 ) grid%sf_sfclay_physics=0
2956 IF ( setinitval .EQ. 3 ) grid%sf_surface_physics=0
2957 IF ( setinitval .EQ. 3 ) grid%bl_pbl_physics=0
2958 IF ( setinitval .EQ. 3 ) grid%bldt=initial_data_value
2959 IF ( setinitval .EQ. 3 ) grid%cu_physics=0
2960 IF ( setinitval .EQ. 3 ) grid%cudt=initial_data_value
2961 IF ( setinitval .EQ. 3 ) grid%gsmdt=initial_data_value
2962 IF ( setinitval .EQ. 3 ) grid%isfflx=0
2963 IF ( setinitval .EQ. 3 ) grid%ifsnow=0
2964 IF ( setinitval .EQ. 3 ) grid%icloud=0
2965 IF ( setinitval .EQ. 3 ) grid%swrad_scat=initial_data_value
2966 IF ( setinitval .EQ. 3 ) grid%surface_input_source=0
2967 IF ( setinitval .EQ. 3 ) grid%num_soil_layers=0
2968 IF ( setinitval .EQ. 3 ) grid%num_months=0
2969 IF ( setinitval .EQ. 3 ) grid%maxiens=0
2970 IF ( setinitval .EQ. 3 ) grid%maxens=0
2971 IF ( setinitval .EQ. 3 ) grid%maxens2=0
2972 IF ( setinitval .EQ. 3 ) grid%maxens3=0
2973 IF ( setinitval .EQ. 3 ) grid%ensdim=0
2974 IF ( setinitval .EQ. 3 ) grid%chem_opt=0
2975 IF ( setinitval .EQ. 3 ) grid%num_land_cat=0
2976 IF ( setinitval .EQ. 3 ) grid%num_soil_cat=0
2977 IF ( setinitval .EQ. 3 ) grid%mp_zero_out=0
2978 IF ( setinitval .EQ. 3 ) grid%mp_zero_out_thresh=initial_data_value
2979 IF ( setinitval .EQ. 3 ) grid%seaice_threshold=initial_data_value
2980 IF ( setinitval .EQ. 3 ) grid%sst_update=0
2981 IF ( setinitval .EQ. 3 ) grid%ucmcall=0
2982 IF ( setinitval .EQ. 3 ) grid%co2tf=0
2983 IF ( setinitval .EQ. 3 ) grid%ra_call_offset=0
2984 IF ( setinitval .EQ. 3 ) grid%cam_abs_freq_s=initial_data_value
2985 IF ( setinitval .EQ. 3 ) grid%levsiz=0
2986 IF ( setinitval .EQ. 3 ) grid%paerlev=0
2987 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim1=0
2988 IF ( setinitval .EQ. 3 ) grid%cam_abs_dim2=0
2989 IF ( setinitval .EQ. 3 ) grid%fgdt=initial_data_value
2990 IF ( setinitval .EQ. 3 ) grid%grid_fdda=0
2991 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_uv=0
2992 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_t=0
2993 IF ( setinitval .EQ. 3 ) grid%if_no_pbl_nudging_q=0
2994 IF ( setinitval .EQ. 3 ) grid%if_zfac_uv=0
2995 IF ( setinitval .EQ. 3 ) grid%k_zfac_uv=0
2996 IF ( setinitval .EQ. 3 ) grid%if_zfac_t=0
2997 IF ( setinitval .EQ. 3 ) grid%k_zfac_t=0
2998 IF ( setinitval .EQ. 3 ) grid%if_zfac_q=0
2999 IF ( setinitval .EQ. 3 ) grid%k_zfac_q=0
3000 IF ( setinitval .EQ. 3 ) grid%guv=initial_data_value
3001 IF ( setinitval .EQ. 3 ) grid%gt=initial_data_value
3002 IF ( setinitval .EQ. 3 ) grid%gq=initial_data_value
3003 IF ( setinitval .EQ. 3 ) grid%dtramp_min=initial_data_value
3004 IF ( setinitval .EQ. 3 ) grid%if_ramping=0
3005 IF ( setinitval .EQ. 3 ) grid%obs_nudge_opt=0
3006 IF ( setinitval .EQ. 3 ) grid%max_obs=0
3007 IF ( setinitval .EQ. 3 ) grid%nobs_ndg_vars=0
3008 IF ( setinitval .EQ. 3 ) grid%nobs_err_flds=0
3009 IF ( setinitval .EQ. 3 ) grid%fdda_start=initial_data_value
3010 IF ( setinitval .EQ. 3 ) grid%fdda_end=initial_data_value
3011 IF ( setinitval .EQ. 3 ) grid%obs_nudge_wind=0
3012 IF ( setinitval .EQ. 3 ) grid%obs_coef_wind=initial_data_value
3013 IF ( setinitval .EQ. 3 ) grid%obs_nudge_temp=0
3014 IF ( setinitval .EQ. 3 ) grid%obs_coef_temp=initial_data_value
3015 IF ( setinitval .EQ. 3 ) grid%obs_nudge_mois=0
3016 IF ( setinitval .EQ. 3 ) grid%obs_coef_mois=initial_data_value
3017 IF ( setinitval .EQ. 3 ) grid%obs_nudge_pstr=0
3018 IF ( setinitval .EQ. 3 ) grid%obs_coef_pstr=initial_data_value
3019 IF ( setinitval .EQ. 3 ) grid%obs_rinxy=initial_data_value
3020 IF ( setinitval .EQ. 3 ) grid%obs_rinsig=initial_data_value
3021 IF ( setinitval .EQ. 3 ) grid%obs_twindo=initial_data_value
3022 IF ( setinitval .EQ. 3 ) grid%obs_npfi=0
3023 IF ( setinitval .EQ. 3 ) grid%obs_ionf=0
3024 IF ( setinitval .EQ. 3 ) grid%obs_idynin=0
3025 IF ( setinitval .EQ. 3 ) grid%obs_dtramp=initial_data_value
3026 IF ( setinitval .EQ. 3 ) grid%obs_ipf_in4dob=.FALSE.
3027 IF ( setinitval .EQ. 3 ) grid%dyn_opt=0
3028 IF ( setinitval .EQ. 3 ) grid%rk_ord=0
3029 IF ( setinitval .EQ. 3 ) grid%w_damping=0
3030 IF ( setinitval .EQ. 3 ) grid%diff_opt=0
3031 IF ( setinitval .EQ. 3 ) grid%km_opt=0
3032 IF ( setinitval .EQ. 3 ) grid%damp_opt=0
3033 IF ( setinitval .EQ. 3 ) grid%zdamp=initial_data_value
3034 IF ( setinitval .EQ. 3 ) grid%dampcoef=initial_data_value
3035 IF ( setinitval .EQ. 3 ) grid%khdif=initial_data_value
3036 IF ( setinitval .EQ. 3 ) grid%kvdif=initial_data_value
3037 IF ( setinitval .EQ. 3 ) grid%diff_6th_factor=initial_data_value
3038 IF ( setinitval .EQ. 3 ) grid%diff_6th_opt=0
3039 IF ( setinitval .EQ. 3 ) grid%smdiv=initial_data_value
3040 IF ( setinitval .EQ. 3 ) grid%emdiv=initial_data_value
3041 IF ( setinitval .EQ. 3 ) grid%epssm=initial_data_value
3042 IF ( setinitval .EQ. 3 ) grid%non_hydrostatic=.FALSE.
3043 IF ( setinitval .EQ. 3 ) grid%time_step_sound=0
3044 IF ( setinitval .EQ. 3 ) grid%h_mom_adv_order=0
3045 IF ( setinitval .EQ. 3 ) grid%v_mom_adv_order=0
3046 IF ( setinitval .EQ. 3 ) grid%h_sca_adv_order=0
3047 IF ( setinitval .EQ. 3 ) grid%v_sca_adv_order=0
3048 IF ( setinitval .EQ. 3 ) grid%pd_moist=.FALSE.
3049 IF ( setinitval .EQ. 3 ) grid%pd_chem=.FALSE.
3050 IF ( setinitval .EQ. 3 ) grid%pd_scalar=.FALSE.
3051 IF ( setinitval .EQ. 3 ) grid%pd_tke=.FALSE.
3052 IF ( setinitval .EQ. 3 ) grid%top_radiation=.FALSE.
3053 IF ( setinitval .EQ. 3 ) grid%mix_cr_len=initial_data_value
3054 IF ( setinitval .EQ. 3 ) grid%tke_upper_bound=initial_data_value
3055 IF ( setinitval .EQ. 3 ) grid%kh_tke_upper_bound=initial_data_value
3056 IF ( setinitval .EQ. 3 ) grid%kv_tke_upper_bound=initial_data_value
3057 IF ( setinitval .EQ. 3 ) grid%tke_drag_coefficient=initial_data_value
3058 IF ( setinitval .EQ. 3 ) grid%tke_heat_flux=initial_data_value
3059 IF ( setinitval .EQ. 3 ) grid%pert_coriolis=.FALSE.
3060 IF ( setinitval .EQ. 3 ) grid%mix_full_fields=.FALSE.
3061 IF ( setinitval .EQ. 3 ) grid%base_pres=initial_data_value
3062 IF ( setinitval .EQ. 3 ) grid%base_temp=initial_data_value
3063 IF ( setinitval .EQ. 3 ) grid%base_lapse=initial_data_value
3064 IF ( setinitval .EQ. 3 ) grid%jcdfi_use=.FALSE.
3065 IF ( setinitval .EQ. 3 ) grid%jcdfi_tauc=initial_data_value
3066 IF ( setinitval .EQ. 3 ) grid%jcdfi_gama=initial_data_value
3067 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_wind=initial_data_value
3068 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_t=initial_data_value
3069 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_q=initial_data_value
3070 IF ( setinitval .EQ. 3 ) grid%jcdfi_error_mu=initial_data_value
3071 IF ( setinitval .EQ. 3 ) grid%spec_bdy_width=0
3072 IF ( setinitval .EQ. 3 ) grid%spec_zone=0
3073 IF ( setinitval .EQ. 3 ) grid%relax_zone=0
3074 IF ( setinitval .EQ. 3 ) grid%specified=.FALSE.
3075 IF ( setinitval .EQ. 3 ) grid%periodic_x=.FALSE.
3076 IF ( setinitval .EQ. 3 ) grid%symmetric_xs=.FALSE.
3077 IF ( setinitval .EQ. 3 ) grid%symmetric_xe=.FALSE.
3078 IF ( setinitval .EQ. 3 ) grid%open_xs=.FALSE.
3079 IF ( setinitval .EQ. 3 ) grid%open_xe=.FALSE.
3080 IF ( setinitval .EQ. 3 ) grid%periodic_y=.FALSE.
3081 IF ( setinitval .EQ. 3 ) grid%symmetric_ys=.FALSE.
3082 IF ( setinitval .EQ. 3 ) grid%symmetric_ye=.FALSE.
3083 IF ( setinitval .EQ. 3 ) grid%open_ys=.FALSE.
3084 IF ( setinitval .EQ. 3 ) grid%open_ye=.FALSE.
3085 IF ( setinitval .EQ. 3 ) grid%nested=.FALSE.
3086 IF ( setinitval .EQ. 3 ) grid%real_data_init_type=0
3087 IF ( setinitval .EQ. 3 ) grid%background_proc_id=0
3088 IF ( setinitval .EQ. 3 ) grid%forecast_proc_id=0
3089 IF ( setinitval .EQ. 3 ) grid%production_status=0
3090 IF ( setinitval .EQ. 3 ) grid%compression=0
3091 IF ( setinitval .EQ. 3 ) grid%cen_lat=initial_data_value
3092 IF ( setinitval .EQ. 3 ) grid%cen_lon=initial_data_value
3093 IF ( setinitval .EQ. 3 ) grid%truelat1=initial_data_value
3094 IF ( setinitval .EQ. 3 ) grid%truelat2=initial_data_value
3095 IF ( setinitval .EQ. 3 ) grid%moad_cen_lat=initial_data_value
3096 IF ( setinitval .EQ. 3 ) grid%stand_lon=initial_data_value
3097 IF ( setinitval .EQ. 3 ) grid%bdyfrq=initial_data_value
3098 IF ( setinitval .EQ. 3 ) grid%iswater=0
3099 IF ( setinitval .EQ. 3 ) grid%isice=0
3100 IF ( setinitval .EQ. 3 ) grid%isurban=0
3101 IF ( setinitval .EQ. 3 ) grid%isoilwater=0
3102 IF ( setinitval .EQ. 3 ) grid%map_proj=0
3103 IF ( setinitval .EQ. 3 ) grid%simulation_start_year=0
3104 IF ( setinitval .EQ. 3 ) grid%simulation_start_month=0
3105 IF ( setinitval .EQ. 3 ) grid%simulation_start_day=0
3106 IF ( setinitval .EQ. 3 ) grid%simulation_start_hour=0
3107 IF ( setinitval .EQ. 3 ) grid%simulation_start_minute=0
3108 IF ( setinitval .EQ. 3 ) grid%simulation_start_second=0
3109 IF ( setinitval .EQ. 3 ) grid%nodyn_nodyn_dummy=0
3110 IF(.NOT.inter_domain)THEN
3111 ALLOCATE(grid%vv%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3112 if (ierr.ne.0) then
3113 CALL wrf_error_fatal ( &
3114 'frame/module_domain.f: Failed to allocate grid%vv%v1(sm31:em31,sm32:em32,sm33:em33). ')
3115 endif
3116 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v1=initial_data_value
3117 ELSE
3118 ALLOCATE(grid%vv%v1(1,1,1),STAT=ierr)
3119 if (ierr.ne.0) then
3120 CALL wrf_error_fatal ( &
3121 'frame/module_domain.f: Failed to allocate grid%vv%v1(1,1,1). ')
3122 endif
3123 ENDIF
3124 IF(.NOT.inter_domain)THEN
3125 ALLOCATE(grid%vv%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3126 if (ierr.ne.0) then
3127 CALL wrf_error_fatal ( &
3128 'frame/module_domain.f: Failed to allocate grid%vv%v2(sm31:em31,sm32:em32,sm33:em33). ')
3129 endif
3130 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v2=initial_data_value
3131 ELSE
3132 ALLOCATE(grid%vv%v2(1,1,1),STAT=ierr)
3133 if (ierr.ne.0) then
3134 CALL wrf_error_fatal ( &
3135 'frame/module_domain.f: Failed to allocate grid%vv%v2(1,1,1). ')
3136 endif
3137 ENDIF
3138 IF(.NOT.inter_domain)THEN
3139 ALLOCATE(grid%vv%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3140 if (ierr.ne.0) then
3141 CALL wrf_error_fatal ( &
3142 'frame/module_domain.f: Failed to allocate grid%vv%v3(sm31:em31,sm32:em32,sm33:em33). ')
3143 endif
3144 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v3=initial_data_value
3145 ELSE
3146 ALLOCATE(grid%vv%v3(1,1,1),STAT=ierr)
3147 if (ierr.ne.0) then
3148 CALL wrf_error_fatal ( &
3149 'frame/module_domain.f: Failed to allocate grid%vv%v3(1,1,1). ')
3150 endif
3151 ENDIF
3152 IF(.NOT.inter_domain)THEN
3153 ALLOCATE(grid%vv%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3154 if (ierr.ne.0) then
3155 CALL wrf_error_fatal ( &
3156 'frame/module_domain.f: Failed to allocate grid%vv%v4(sm31:em31,sm32:em32,sm33:em33). ')
3157 endif
3158 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v4=initial_data_value
3159 ELSE
3160 ALLOCATE(grid%vv%v4(1,1,1),STAT=ierr)
3161 if (ierr.ne.0) then
3162 CALL wrf_error_fatal ( &
3163 'frame/module_domain.f: Failed to allocate grid%vv%v4(1,1,1). ')
3164 endif
3165 ENDIF
3166 IF(.NOT.inter_domain)THEN
3167 ALLOCATE(grid%vv%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3168 if (ierr.ne.0) then
3169 CALL wrf_error_fatal ( &
3170 'frame/module_domain.f: Failed to allocate grid%vv%v5(sm31:em31,sm32:em32,sm33:em33). ')
3171 endif
3172 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%v5=initial_data_value
3173 ELSE
3174 ALLOCATE(grid%vv%v5(1,1,1),STAT=ierr)
3175 if (ierr.ne.0) then
3176 CALL wrf_error_fatal ( &
3177 'frame/module_domain.f: Failed to allocate grid%vv%v5(1,1,1). ')
3178 endif
3179 ENDIF
3180 IF(.NOT.inter_domain)THEN
3181 ALLOCATE(grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
3182 if (ierr.ne.0) then
3183 CALL wrf_error_fatal ( &
3184 'frame/module_domain.f: Failed to allocate grid%vv%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
3185 endif
3186 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vv%alpha=initial_data_value
3187 ELSE
3188 ALLOCATE(grid%vv%alpha(1,1,1),STAT=ierr)
3189 if (ierr.ne.0) then
3190 CALL wrf_error_fatal ( &
3191 'frame/module_domain.f: Failed to allocate grid%vv%alpha(1,1,1). ')
3192 endif
3193 ENDIF
3194 IF(.NOT.inter_domain)THEN
3195 ALLOCATE(grid%vp%v1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3196 if (ierr.ne.0) then
3197 CALL wrf_error_fatal ( &
3198 'frame/module_domain.f: Failed to allocate grid%vp%v1(sm31:em31,sm32:em32,sm33:em33). ')
3199 endif
3200 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v1=initial_data_value
3201 ELSE
3202 ALLOCATE(grid%vp%v1(1,1,1),STAT=ierr)
3203 if (ierr.ne.0) then
3204 CALL wrf_error_fatal ( &
3205 'frame/module_domain.f: Failed to allocate grid%vp%v1(1,1,1). ')
3206 endif
3207 ENDIF
3208 IF(.NOT.inter_domain)THEN
3209 ALLOCATE(grid%vp%v2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3210 if (ierr.ne.0) then
3211 CALL wrf_error_fatal ( &
3212 'frame/module_domain.f: Failed to allocate grid%vp%v2(sm31:em31,sm32:em32,sm33:em33). ')
3213 endif
3214 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v2=initial_data_value
3215 ELSE
3216 ALLOCATE(grid%vp%v2(1,1,1),STAT=ierr)
3217 if (ierr.ne.0) then
3218 CALL wrf_error_fatal ( &
3219 'frame/module_domain.f: Failed to allocate grid%vp%v2(1,1,1). ')
3220 endif
3221 ENDIF
3222 IF(.NOT.inter_domain)THEN
3223 ALLOCATE(grid%vp%v3(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3224 if (ierr.ne.0) then
3225 CALL wrf_error_fatal ( &
3226 'frame/module_domain.f: Failed to allocate grid%vp%v3(sm31:em31,sm32:em32,sm33:em33). ')
3227 endif
3228 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v3=initial_data_value
3229 ELSE
3230 ALLOCATE(grid%vp%v3(1,1,1),STAT=ierr)
3231 if (ierr.ne.0) then
3232 CALL wrf_error_fatal ( &
3233 'frame/module_domain.f: Failed to allocate grid%vp%v3(1,1,1). ')
3234 endif
3235 ENDIF
3236 IF(.NOT.inter_domain)THEN
3237 ALLOCATE(grid%vp%v4(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3238 if (ierr.ne.0) then
3239 CALL wrf_error_fatal ( &
3240 'frame/module_domain.f: Failed to allocate grid%vp%v4(sm31:em31,sm32:em32,sm33:em33). ')
3241 endif
3242 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v4=initial_data_value
3243 ELSE
3244 ALLOCATE(grid%vp%v4(1,1,1),STAT=ierr)
3245 if (ierr.ne.0) then
3246 CALL wrf_error_fatal ( &
3247 'frame/module_domain.f: Failed to allocate grid%vp%v4(1,1,1). ')
3248 endif
3249 ENDIF
3250 IF(.NOT.inter_domain)THEN
3251 ALLOCATE(grid%vp%v5(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3252 if (ierr.ne.0) then
3253 CALL wrf_error_fatal ( &
3254 'frame/module_domain.f: Failed to allocate grid%vp%v5(sm31:em31,sm32:em32,sm33:em33). ')
3255 endif
3256 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%v5=initial_data_value
3257 ELSE
3258 ALLOCATE(grid%vp%v5(1,1,1),STAT=ierr)
3259 if (ierr.ne.0) then
3260 CALL wrf_error_fatal ( &
3261 'frame/module_domain.f: Failed to allocate grid%vp%v5(1,1,1). ')
3262 endif
3263 ENDIF
3264 IF(.NOT.inter_domain)THEN
3265 ALLOCATE(grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha),STAT=ierr)
3266 if (ierr.ne.0) then
3267 CALL wrf_error_fatal ( &
3268 'frame/module_domain.f: Failed to allocate grid%vp%alpha(sm31:em31,sm32:em32,1:model_config_rec%ensdim_alpha). ')
3269 endif
3270 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vp%alpha=initial_data_value
3271 ELSE
3272 ALLOCATE(grid%vp%alpha(1,1,1),STAT=ierr)
3273 if (ierr.ne.0) then
3274 CALL wrf_error_fatal ( &
3275 'frame/module_domain.f: Failed to allocate grid%vp%alpha(1,1,1). ')
3276 endif
3277 ENDIF
3278 IF ( setinitval .EQ. 3 ) grid%ep%ne=0
3279 IF(.NOT.inter_domain)THEN
3280 ALLOCATE(grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3281 if (ierr.ne.0) then
3282 CALL wrf_error_fatal ( &
3283 'frame/module_domain.f: Failed to allocate grid%ep%v1(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3284 endif
3285 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v1=initial_data_value
3286 ELSE
3287 ALLOCATE(grid%ep%v1(1,1,1,1),STAT=ierr)
3288 if (ierr.ne.0) then
3289 CALL wrf_error_fatal ( &
3290 'frame/module_domain.f: Failed to allocate grid%ep%v1(1,1,1,1). ')
3291 endif
3292 ENDIF
3293 IF(.NOT.inter_domain)THEN
3294 ALLOCATE(grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3295 if (ierr.ne.0) then
3296 CALL wrf_error_fatal ( &
3297 'frame/module_domain.f: Failed to allocate grid%ep%v2(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3298 endif
3299 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v2=initial_data_value
3300 ELSE
3301 ALLOCATE(grid%ep%v2(1,1,1,1),STAT=ierr)
3302 if (ierr.ne.0) then
3303 CALL wrf_error_fatal ( &
3304 'frame/module_domain.f: Failed to allocate grid%ep%v2(1,1,1,1). ')
3305 endif
3306 ENDIF
3307 IF(.NOT.inter_domain)THEN
3308 ALLOCATE(grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3309 if (ierr.ne.0) then
3310 CALL wrf_error_fatal ( &
3311 'frame/module_domain.f: Failed to allocate grid%ep%v3(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3312 endif
3313 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v3=initial_data_value
3314 ELSE
3315 ALLOCATE(grid%ep%v3(1,1,1,1),STAT=ierr)
3316 if (ierr.ne.0) then
3317 CALL wrf_error_fatal ( &
3318 'frame/module_domain.f: Failed to allocate grid%ep%v3(1,1,1,1). ')
3319 endif
3320 ENDIF
3321 IF(.NOT.inter_domain)THEN
3322 ALLOCATE(grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3323 if (ierr.ne.0) then
3324 CALL wrf_error_fatal ( &
3325 'frame/module_domain.f: Failed to allocate grid%ep%v4(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3326 endif
3327 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v4=initial_data_value
3328 ELSE
3329 ALLOCATE(grid%ep%v4(1,1,1,1),STAT=ierr)
3330 if (ierr.ne.0) then
3331 CALL wrf_error_fatal ( &
3332 'frame/module_domain.f: Failed to allocate grid%ep%v4(1,1,1,1). ')
3333 endif
3334 ENDIF
3335 IF(.NOT.inter_domain)THEN
3336 ALLOCATE(grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha),STAT=ierr)
3337 if (ierr.ne.0) then
3338 CALL wrf_error_fatal ( &
3339 'frame/module_domain.f: Failed to allocate grid%ep%v5(sm31:em31,sm32:em32,sm33:em33,1:model_config_rec%ensdim_alpha). ')
3340 endif
3341 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ep%v5=initial_data_value
3342 ELSE
3343 ALLOCATE(grid%ep%v5(1,1,1,1),STAT=ierr)
3344 if (ierr.ne.0) then
3345 CALL wrf_error_fatal ( &
3346 'frame/module_domain.f: Failed to allocate grid%ep%v5(1,1,1,1). ')
3347 endif
3348 ENDIF
3349 IF ( setinitval .EQ. 3 ) grid%xb%map=0
3350 IF ( setinitval .EQ. 3 ) grid%xb%ptop=initial_data_value
3351 IF ( setinitval .EQ. 3 ) grid%xb%ztop=initial_data_value
3352 IF ( setinitval .EQ. 3 ) grid%xb%ps0=initial_data_value
3353 IF ( setinitval .EQ. 3 ) grid%xb%ts0=initial_data_value
3354 IF ( setinitval .EQ. 3 ) grid%xb%tlp=initial_data_value
3355 IF ( setinitval .EQ. 3 ) grid%xb%tis0=initial_data_value
3356 IF ( setinitval .EQ. 3 ) grid%xb%ds=initial_data_value
3357 IF ( setinitval .EQ. 3 ) grid%xb%sigmaf_0=initial_data_value
3358 IF ( setinitval .EQ. 3 ) grid%xb%mix=0
3359 IF ( setinitval .EQ. 3 ) grid%xb%mjy=0
3360 IF ( setinitval .EQ. 3 ) grid%xb%mkz=0
3361 IF ( setinitval .EQ. 3 ) grid%xb%num_of_var=0
3362 IF ( setinitval .EQ. 3 ) grid%xb%ids=0
3363 IF ( setinitval .EQ. 3 ) grid%xb%ide=0
3364 IF ( setinitval .EQ. 3 ) grid%xb%jds=0
3365 IF ( setinitval .EQ. 3 ) grid%xb%jde=0
3366 IF ( setinitval .EQ. 3 ) grid%xb%kds=0
3367 IF ( setinitval .EQ. 3 ) grid%xb%kde=0
3368 IF ( setinitval .EQ. 3 ) grid%xb%ims=0
3369 IF ( setinitval .EQ. 3 ) grid%xb%ime=0
3370 IF ( setinitval .EQ. 3 ) grid%xb%jms=0
3371 IF ( setinitval .EQ. 3 ) grid%xb%jme=0
3372 IF ( setinitval .EQ. 3 ) grid%xb%kms=0
3373 IF ( setinitval .EQ. 3 ) grid%xb%kme=0
3374 IF ( setinitval .EQ. 3 ) grid%xb%its=0
3375 IF ( setinitval .EQ. 3 ) grid%xb%ite=0
3376 IF ( setinitval .EQ. 3 ) grid%xb%jts=0
3377 IF ( setinitval .EQ. 3 ) grid%xb%jte=0
3378 IF ( setinitval .EQ. 3 ) grid%xb%kts=0
3379 IF ( setinitval .EQ. 3 ) grid%xb%kte=0
3380 IF(.NOT.inter_domain)THEN
3381 ALLOCATE(grid%xb%grid_box_area(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%grid_box_area(sm31:em31,sm32:em32). ')
3385 endif
3386 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%grid_box_area=initial_data_value
3387 ELSE
3388 ALLOCATE(grid%xb%grid_box_area(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%grid_box_area(1,1). ')
3392 endif
3393 ENDIF
3394 IF(.NOT.inter_domain)THEN
3395 ALLOCATE(grid%xb%map_factor(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%map_factor(sm31:em31,sm32:em32). ')
3399 endif
3400 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%map_factor=initial_data_value
3401 ELSE
3402 ALLOCATE(grid%xb%map_factor(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%map_factor(1,1). ')
3406 endif
3407 ENDIF
3408 IF(.NOT.inter_domain)THEN
3409 ALLOCATE(grid%xb%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3410 if (ierr.ne.0) then
3411 CALL wrf_error_fatal ( &
3412 'frame/module_domain.f: Failed to allocate grid%xb%u(sm31:em31,sm32:em32,sm33:em33). ')
3413 endif
3414 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u=initial_data_value
3415 ELSE
3416 ALLOCATE(grid%xb%u(1,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%u(1,1,1). ')
3420 endif
3421 ENDIF
3422 IF(.NOT.inter_domain)THEN
3423 ALLOCATE(grid%xb%v(sm31:em31,sm32:em32,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%v(sm31:em31,sm32:em32,sm33:em33). ')
3427 endif
3428 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v=initial_data_value
3429 ELSE
3430 ALLOCATE(grid%xb%v(1,1,1),STAT=ierr)
3431 if (ierr.ne.0) then
3432 CALL wrf_error_fatal ( &
3433 'frame/module_domain.f: Failed to allocate grid%xb%v(1,1,1). ')
3434 endif
3435 ENDIF
3436 IF(.NOT.inter_domain)THEN
3437 ALLOCATE(grid%xb%w(sm31:em31,sm32:em32,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%w(sm31:em31,sm32:em32,sm33:em33). ')
3441 endif
3442 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%w=initial_data_value
3443 ELSE
3444 ALLOCATE(grid%xb%w(1,1,1),STAT=ierr)
3445 if (ierr.ne.0) then
3446 CALL wrf_error_fatal ( &
3447 'frame/module_domain.f: Failed to allocate grid%xb%w(1,1,1). ')
3448 endif
3449 ENDIF
3450 IF(.NOT.inter_domain)THEN
3451 ALLOCATE(grid%xb%t(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%xb%t(sm31:em31,sm32:em32,sm33:em33). ')
3455 endif
3456 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t=initial_data_value
3457 ELSE
3458 ALLOCATE(grid%xb%t(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%xb%t(1,1,1). ')
3462 endif
3463 ENDIF
3464 IF(.NOT.inter_domain)THEN
3465 ALLOCATE(grid%xb%p(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%xb%p(sm31:em31,sm32:em32,sm33:em33). ')
3469 endif
3470 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%p=initial_data_value
3471 ELSE
3472 ALLOCATE(grid%xb%p(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%xb%p(1,1,1). ')
3476 endif
3477 ENDIF
3478 IF(.NOT.inter_domain)THEN
3479 ALLOCATE(grid%xb%q(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%xb%q(sm31:em31,sm32:em32,sm33:em33). ')
3483 endif
3484 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q=initial_data_value
3485 ELSE
3486 ALLOCATE(grid%xb%q(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%xb%q(1,1,1). ')
3490 endif
3491 ENDIF
3492 IF(.NOT.inter_domain)THEN
3493 ALLOCATE(grid%xb%qrn(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%xb%qrn(sm31:em31,sm32:em32,sm33:em33). ')
3497 endif
3498 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qrn=initial_data_value
3499 ELSE
3500 ALLOCATE(grid%xb%qrn(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%xb%qrn(1,1,1). ')
3504 endif
3505 ENDIF
3506 IF(.NOT.inter_domain)THEN
3507 ALLOCATE(grid%xb%qcw(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%xb%qcw(sm31:em31,sm32:em32,sm33:em33). ')
3511 endif
3512 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qcw=initial_data_value
3513 ELSE
3514 ALLOCATE(grid%xb%qcw(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%xb%qcw(1,1,1). ')
3518 endif
3519 ENDIF
3520 IF(.NOT.inter_domain)THEN
3521 ALLOCATE(grid%xb%qci(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%xb%qci(sm31:em31,sm32:em32,sm33:em33). ')
3525 endif
3526 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qci=initial_data_value
3527 ELSE
3528 ALLOCATE(grid%xb%qci(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%xb%qci(1,1,1). ')
3532 endif
3533 ENDIF
3534 IF(.NOT.inter_domain)THEN
3535 ALLOCATE(grid%xb%qsn(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%xb%qsn(sm31:em31,sm32:em32,sm33:em33). ')
3539 endif
3540 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qsn=initial_data_value
3541 ELSE
3542 ALLOCATE(grid%xb%qsn(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%xb%qsn(1,1,1). ')
3546 endif
3547 ENDIF
3548 IF(.NOT.inter_domain)THEN
3549 ALLOCATE(grid%xb%qgr(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%xb%qgr(sm31:em31,sm32:em32,sm33:em33). ')
3553 endif
3554 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qgr=initial_data_value
3555 ELSE
3556 ALLOCATE(grid%xb%qgr(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%xb%qgr(1,1,1). ')
3560 endif
3561 ENDIF
3562 IF(.NOT.inter_domain)THEN
3563 ALLOCATE(grid%xb%qt(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%xb%qt(sm31:em31,sm32:em32,sm33:em33). ')
3567 endif
3568 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qt=initial_data_value
3569 ELSE
3570 ALLOCATE(grid%xb%qt(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%xb%qt(1,1,1). ')
3574 endif
3575 ENDIF
3576 IF(.NOT.inter_domain)THEN
3577 ALLOCATE(grid%xb%delt(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%xb%delt(sm31:em31,sm32:em32,sm33:em33). ')
3581 endif
3582 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%delt=initial_data_value
3583 ELSE
3584 ALLOCATE(grid%xb%delt(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%xb%delt(1,1,1). ')
3588 endif
3589 ENDIF
3590 IF(.NOT.inter_domain)THEN
3591 ALLOCATE(grid%xb%h(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%xb%h(sm31:em31,sm32:em32,sm33:em33). ')
3595 endif
3596 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%h=initial_data_value
3597 ELSE
3598 ALLOCATE(grid%xb%h(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%xb%h(1,1,1). ')
3602 endif
3603 ENDIF
3604 IF(.NOT.inter_domain)THEN
3605 ALLOCATE(grid%xb%hf(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%xb%hf(sm31:em31,sm32:em32,sm33:em33). ')
3609 endif
3610 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%hf=initial_data_value
3611 ELSE
3612 ALLOCATE(grid%xb%hf(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%xb%hf(1,1,1). ')
3616 endif
3617 ENDIF
3618 IF(.NOT.inter_domain)THEN
3619 ALLOCATE(grid%xb%wh(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%xb%wh(sm31:em31,sm32:em32,sm33:em33). ')
3623 endif
3624 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%wh=initial_data_value
3625 ELSE
3626 ALLOCATE(grid%xb%wh(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%xb%wh(1,1,1). ')
3630 endif
3631 ENDIF
3632 IF(.NOT.inter_domain)THEN
3633 ALLOCATE(grid%xb%rho(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%xb%rho(sm31:em31,sm32:em32,sm33:em33). ')
3637 endif
3638 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rho=initial_data_value
3639 ELSE
3640 ALLOCATE(grid%xb%rho(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%xb%rho(1,1,1). ')
3644 endif
3645 ENDIF
3646 IF(.NOT.inter_domain)THEN
3647 ALLOCATE(grid%xb%rh(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%xb%rh(sm31:em31,sm32:em32,sm33:em33). ')
3651 endif
3652 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rh=initial_data_value
3653 ELSE
3654 ALLOCATE(grid%xb%rh(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%xb%rh(1,1,1). ')
3658 endif
3659 ENDIF
3660 IF(.NOT.inter_domain)THEN
3661 ALLOCATE(grid%xb%es(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3662 if (ierr.ne.0) then
3663 CALL wrf_error_fatal ( &
3664 'frame/module_domain.f: Failed to allocate grid%xb%es(sm31:em31,sm32:em32,sm33:em33). ')
3665 endif
3666 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%es=initial_data_value
3667 ELSE
3668 ALLOCATE(grid%xb%es(1,1,1),STAT=ierr)
3669 if (ierr.ne.0) then
3670 CALL wrf_error_fatal ( &
3671 'frame/module_domain.f: Failed to allocate grid%xb%es(1,1,1). ')
3672 endif
3673 ENDIF
3674 IF(.NOT.inter_domain)THEN
3675 ALLOCATE(grid%xb%qs(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3676 if (ierr.ne.0) then
3677 CALL wrf_error_fatal ( &
3678 'frame/module_domain.f: Failed to allocate grid%xb%qs(sm31:em31,sm32:em32,sm33:em33). ')
3679 endif
3680 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%qs=initial_data_value
3681 ELSE
3682 ALLOCATE(grid%xb%qs(1,1,1),STAT=ierr)
3683 if (ierr.ne.0) then
3684 CALL wrf_error_fatal ( &
3685 'frame/module_domain.f: Failed to allocate grid%xb%qs(1,1,1). ')
3686 endif
3687 ENDIF
3688 IF(.NOT.inter_domain)THEN
3689 ALLOCATE(grid%xb%td(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3690 if (ierr.ne.0) then
3691 CALL wrf_error_fatal ( &
3692 'frame/module_domain.f: Failed to allocate grid%xb%td(sm31:em31,sm32:em32,sm33:em33). ')
3693 endif
3694 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%td=initial_data_value
3695 ELSE
3696 ALLOCATE(grid%xb%td(1,1,1),STAT=ierr)
3697 if (ierr.ne.0) then
3698 CALL wrf_error_fatal ( &
3699 'frame/module_domain.f: Failed to allocate grid%xb%td(1,1,1). ')
3700 endif
3701 ENDIF
3702 IF(.NOT.inter_domain)THEN
3703 ALLOCATE(grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3704 if (ierr.ne.0) then
3705 CALL wrf_error_fatal ( &
3706 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(sm31:em31,sm32:em32,sm33:em33). ')
3707 endif
3708 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vertical_inner_product=initial_data_value
3709 ELSE
3710 ALLOCATE(grid%xb%vertical_inner_product(1,1,1),STAT=ierr)
3711 if (ierr.ne.0) then
3712 CALL wrf_error_fatal ( &
3713 'frame/module_domain.f: Failed to allocate grid%xb%vertical_inner_product(1,1,1). ')
3714 endif
3715 ENDIF
3716 IF(.NOT.inter_domain)THEN
3717 ALLOCATE(grid%xb%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
3718 if (ierr.ne.0) then
3719 CALL wrf_error_fatal ( &
3720 'frame/module_domain.f: Failed to allocate grid%xb%ref(sm31:em31,sm32:em32,sm33:em33). ')
3721 endif
3722 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ref=initial_data_value
3723 ELSE
3724 ALLOCATE(grid%xb%ref(1,1,1),STAT=ierr)
3725 if (ierr.ne.0) then
3726 CALL wrf_error_fatal ( &
3727 'frame/module_domain.f: Failed to allocate grid%xb%ref(1,1,1). ')
3728 endif
3729 ENDIF
3730 IF(.NOT.inter_domain)THEN
3731 ALLOCATE(grid%xb%rough(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%xb%rough(sm31:em31,sm32:em32). ')
3735 endif
3736 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%rough=initial_data_value
3737 ELSE
3738 ALLOCATE(grid%xb%rough(1,1),STAT=ierr)
3739 if (ierr.ne.0) then
3740 CALL wrf_error_fatal ( &
3741 'frame/module_domain.f: Failed to allocate grid%xb%rough(1,1). ')
3742 endif
3743 ENDIF
3744 IF(.NOT.inter_domain)THEN
3745 ALLOCATE(grid%xb%tpw(sm31:em31,sm32:em32),STAT=ierr)
3746 if (ierr.ne.0) then
3747 CALL wrf_error_fatal ( &
3748 'frame/module_domain.f: Failed to allocate grid%xb%tpw(sm31:em31,sm32:em32). ')
3749 endif
3750 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tpw=initial_data_value
3751 ELSE
3752 ALLOCATE(grid%xb%tpw(1,1),STAT=ierr)
3753 if (ierr.ne.0) then
3754 CALL wrf_error_fatal ( &
3755 'frame/module_domain.f: Failed to allocate grid%xb%tpw(1,1). ')
3756 endif
3757 ENDIF
3758 IF(.NOT.inter_domain)THEN
3759 ALLOCATE(grid%xb%slp(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%xb%slp(sm31:em31,sm32:em32). ')
3763 endif
3764 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%slp=initial_data_value
3765 ELSE
3766 ALLOCATE(grid%xb%slp(1,1),STAT=ierr)
3767 if (ierr.ne.0) then
3768 CALL wrf_error_fatal ( &
3769 'frame/module_domain.f: Failed to allocate grid%xb%slp(1,1). ')
3770 endif
3771 ENDIF
3772 IF(.NOT.inter_domain)THEN
3773 ALLOCATE(grid%xb%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%xb%speed(sm31:em31,sm32:em32). ')
3777 endif
3778 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%speed=initial_data_value
3779 ELSE
3780 ALLOCATE(grid%xb%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%xb%speed(1,1). ')
3784 endif
3785 ENDIF
3786 IF(.NOT.inter_domain)THEN
3787 ALLOCATE(grid%xb%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%xb%tb19v(sm31:em31,sm32:em32). ')
3791 endif
3792 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19v=initial_data_value
3793 ELSE
3794 ALLOCATE(grid%xb%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%xb%tb19v(1,1). ')
3798 endif
3799 ENDIF
3800 IF(.NOT.inter_domain)THEN
3801 ALLOCATE(grid%xb%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%xb%tb19h(sm31:em31,sm32:em32). ')
3805 endif
3806 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb19h=initial_data_value
3807 ELSE
3808 ALLOCATE(grid%xb%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%xb%tb19h(1,1). ')
3812 endif
3813 ENDIF
3814 IF(.NOT.inter_domain)THEN
3815 ALLOCATE(grid%xb%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%xb%tb22v(sm31:em31,sm32:em32). ')
3819 endif
3820 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb22v=initial_data_value
3821 ELSE
3822 ALLOCATE(grid%xb%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%xb%tb22v(1,1). ')
3826 endif
3827 ENDIF
3828 IF(.NOT.inter_domain)THEN
3829 ALLOCATE(grid%xb%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%xb%tb37v(sm31:em31,sm32:em32). ')
3833 endif
3834 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37v=initial_data_value
3835 ELSE
3836 ALLOCATE(grid%xb%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%xb%tb37v(1,1). ')
3840 endif
3841 ENDIF
3842 IF(.NOT.inter_domain)THEN
3843 ALLOCATE(grid%xb%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%xb%tb37h(sm31:em31,sm32:em32). ')
3847 endif
3848 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb37h=initial_data_value
3849 ELSE
3850 ALLOCATE(grid%xb%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%xb%tb37h(1,1). ')
3854 endif
3855 ENDIF
3856 IF(.NOT.inter_domain)THEN
3857 ALLOCATE(grid%xb%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%xb%tb85v(sm31:em31,sm32:em32). ')
3861 endif
3862 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85v=initial_data_value
3863 ELSE
3864 ALLOCATE(grid%xb%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%xb%tb85v(1,1). ')
3868 endif
3869 ENDIF
3870 IF(.NOT.inter_domain)THEN
3871 ALLOCATE(grid%xb%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%xb%tb85h(sm31:em31,sm32:em32). ')
3875 endif
3876 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tb85h=initial_data_value
3877 ELSE
3878 ALLOCATE(grid%xb%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%xb%tb85h(1,1). ')
3882 endif
3883 ENDIF
3884 IF(.NOT.inter_domain)THEN
3885 ALLOCATE(grid%xb%cori(sm31:em31,sm32:em32),STAT=ierr)
3886 if (ierr.ne.0) then
3887 CALL wrf_error_fatal ( &
3888 'frame/module_domain.f: Failed to allocate grid%xb%cori(sm31:em31,sm32:em32). ')
3889 endif
3890 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%cori=initial_data_value
3891 ELSE
3892 ALLOCATE(grid%xb%cori(1,1),STAT=ierr)
3893 if (ierr.ne.0) then
3894 CALL wrf_error_fatal ( &
3895 'frame/module_domain.f: Failed to allocate grid%xb%cori(1,1). ')
3896 endif
3897 ENDIF
3898 IF(.NOT.inter_domain)THEN
3899 ALLOCATE(grid%xb%tgrn(sm31:em31,sm32:em32),STAT=ierr)
3900 if (ierr.ne.0) then
3901 CALL wrf_error_fatal ( &
3902 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(sm31:em31,sm32:em32). ')
3903 endif
3904 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tgrn=initial_data_value
3905 ELSE
3906 ALLOCATE(grid%xb%tgrn(1,1),STAT=ierr)
3907 if (ierr.ne.0) then
3908 CALL wrf_error_fatal ( &
3909 'frame/module_domain.f: Failed to allocate grid%xb%tgrn(1,1). ')
3910 endif
3911 ENDIF
3912 IF(.NOT.inter_domain)THEN
3913 ALLOCATE(grid%xb%lat(sm31:em31,sm32:em32),STAT=ierr)
3914 if (ierr.ne.0) then
3915 CALL wrf_error_fatal ( &
3916 'frame/module_domain.f: Failed to allocate grid%xb%lat(sm31:em31,sm32:em32). ')
3917 endif
3918 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lat=initial_data_value
3919 ELSE
3920 ALLOCATE(grid%xb%lat(1,1),STAT=ierr)
3921 if (ierr.ne.0) then
3922 CALL wrf_error_fatal ( &
3923 'frame/module_domain.f: Failed to allocate grid%xb%lat(1,1). ')
3924 endif
3925 ENDIF
3926 IF(.NOT.inter_domain)THEN
3927 ALLOCATE(grid%xb%lon(sm31:em31,sm32:em32),STAT=ierr)
3928 if (ierr.ne.0) then
3929 CALL wrf_error_fatal ( &
3930 'frame/module_domain.f: Failed to allocate grid%xb%lon(sm31:em31,sm32:em32). ')
3931 endif
3932 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lon=initial_data_value
3933 ELSE
3934 ALLOCATE(grid%xb%lon(1,1),STAT=ierr)
3935 if (ierr.ne.0) then
3936 CALL wrf_error_fatal ( &
3937 'frame/module_domain.f: Failed to allocate grid%xb%lon(1,1). ')
3938 endif
3939 ENDIF
3940 IF(.NOT.inter_domain)THEN
3941 ALLOCATE(grid%xb%terr(sm31:em31,sm32:em32),STAT=ierr)
3942 if (ierr.ne.0) then
3943 CALL wrf_error_fatal ( &
3944 'frame/module_domain.f: Failed to allocate grid%xb%terr(sm31:em31,sm32:em32). ')
3945 endif
3946 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%terr=initial_data_value
3947 ELSE
3948 ALLOCATE(grid%xb%terr(1,1),STAT=ierr)
3949 if (ierr.ne.0) then
3950 CALL wrf_error_fatal ( &
3951 'frame/module_domain.f: Failed to allocate grid%xb%terr(1,1). ')
3952 endif
3953 ENDIF
3954 IF(.NOT.inter_domain)THEN
3955 ALLOCATE(grid%xb%psac(sm31:em31,sm32:em32),STAT=ierr)
3956 if (ierr.ne.0) then
3957 CALL wrf_error_fatal ( &
3958 'frame/module_domain.f: Failed to allocate grid%xb%psac(sm31:em31,sm32:em32). ')
3959 endif
3960 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psac=initial_data_value
3961 ELSE
3962 ALLOCATE(grid%xb%psac(1,1),STAT=ierr)
3963 if (ierr.ne.0) then
3964 CALL wrf_error_fatal ( &
3965 'frame/module_domain.f: Failed to allocate grid%xb%psac(1,1). ')
3966 endif
3967 ENDIF
3968 IF(.NOT.inter_domain)THEN
3969 ALLOCATE(grid%xb%lanu(sm31:em31,sm32:em32),STAT=ierr)
3970 if (ierr.ne.0) then
3971 CALL wrf_error_fatal ( &
3972 'frame/module_domain.f: Failed to allocate grid%xb%lanu(sm31:em31,sm32:em32). ')
3973 endif
3974 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%lanu=initial_data_value
3975 ELSE
3976 ALLOCATE(grid%xb%lanu(1,1),STAT=ierr)
3977 if (ierr.ne.0) then
3978 CALL wrf_error_fatal ( &
3979 'frame/module_domain.f: Failed to allocate grid%xb%lanu(1,1). ')
3980 endif
3981 ENDIF
3982 IF(.NOT.inter_domain)THEN
3983 ALLOCATE(grid%xb%snow(sm31:em31,sm32:em32),STAT=ierr)
3984 if (ierr.ne.0) then
3985 CALL wrf_error_fatal ( &
3986 'frame/module_domain.f: Failed to allocate grid%xb%snow(sm31:em31,sm32:em32). ')
3987 endif
3988 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snow=initial_data_value
3989 ELSE
3990 ALLOCATE(grid%xb%snow(1,1),STAT=ierr)
3991 if (ierr.ne.0) then
3992 CALL wrf_error_fatal ( &
3993 'frame/module_domain.f: Failed to allocate grid%xb%snow(1,1). ')
3994 endif
3995 ENDIF
3996 IF(.NOT.inter_domain)THEN
3997 ALLOCATE(grid%xb%xland(sm31:em31,sm32:em32),STAT=ierr)
3998 if (ierr.ne.0) then
3999 CALL wrf_error_fatal ( &
4000 'frame/module_domain.f: Failed to allocate grid%xb%xland(sm31:em31,sm32:em32). ')
4001 endif
4002 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xland=initial_data_value
4003 ELSE
4004 ALLOCATE(grid%xb%xland(1,1),STAT=ierr)
4005 if (ierr.ne.0) then
4006 CALL wrf_error_fatal ( &
4007 'frame/module_domain.f: Failed to allocate grid%xb%xland(1,1). ')
4008 endif
4009 ENDIF
4010 IF(.NOT.inter_domain)THEN
4011 ALLOCATE(grid%xb%landmask(sm31:em31,sm32:em32),STAT=ierr)
4012 if (ierr.ne.0) then
4013 CALL wrf_error_fatal ( &
4014 'frame/module_domain.f: Failed to allocate grid%xb%landmask(sm31:em31,sm32:em32). ')
4015 endif
4016 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%landmask=initial_data_value
4017 ELSE
4018 ALLOCATE(grid%xb%landmask(1,1),STAT=ierr)
4019 if (ierr.ne.0) then
4020 CALL wrf_error_fatal ( &
4021 'frame/module_domain.f: Failed to allocate grid%xb%landmask(1,1). ')
4022 endif
4023 ENDIF
4024 IF(.NOT.inter_domain)THEN
4025 ALLOCATE(grid%xb%u10(sm31:em31,sm32:em32),STAT=ierr)
4026 if (ierr.ne.0) then
4027 CALL wrf_error_fatal ( &
4028 'frame/module_domain.f: Failed to allocate grid%xb%u10(sm31:em31,sm32:em32). ')
4029 endif
4030 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%u10=initial_data_value
4031 ELSE
4032 ALLOCATE(grid%xb%u10(1,1),STAT=ierr)
4033 if (ierr.ne.0) then
4034 CALL wrf_error_fatal ( &
4035 'frame/module_domain.f: Failed to allocate grid%xb%u10(1,1). ')
4036 endif
4037 ENDIF
4038 IF(.NOT.inter_domain)THEN
4039 ALLOCATE(grid%xb%v10(sm31:em31,sm32:em32),STAT=ierr)
4040 if (ierr.ne.0) then
4041 CALL wrf_error_fatal ( &
4042 'frame/module_domain.f: Failed to allocate grid%xb%v10(sm31:em31,sm32:em32). ')
4043 endif
4044 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%v10=initial_data_value
4045 ELSE
4046 ALLOCATE(grid%xb%v10(1,1),STAT=ierr)
4047 if (ierr.ne.0) then
4048 CALL wrf_error_fatal ( &
4049 'frame/module_domain.f: Failed to allocate grid%xb%v10(1,1). ')
4050 endif
4051 ENDIF
4052 IF(.NOT.inter_domain)THEN
4053 ALLOCATE(grid%xb%t2(sm31:em31,sm32:em32),STAT=ierr)
4054 if (ierr.ne.0) then
4055 CALL wrf_error_fatal ( &
4056 'frame/module_domain.f: Failed to allocate grid%xb%t2(sm31:em31,sm32:em32). ')
4057 endif
4058 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%t2=initial_data_value
4059 ELSE
4060 ALLOCATE(grid%xb%t2(1,1),STAT=ierr)
4061 if (ierr.ne.0) then
4062 CALL wrf_error_fatal ( &
4063 'frame/module_domain.f: Failed to allocate grid%xb%t2(1,1). ')
4064 endif
4065 ENDIF
4066 IF(.NOT.inter_domain)THEN
4067 ALLOCATE(grid%xb%q2(sm31:em31,sm32:em32),STAT=ierr)
4068 if (ierr.ne.0) then
4069 CALL wrf_error_fatal ( &
4070 'frame/module_domain.f: Failed to allocate grid%xb%q2(sm31:em31,sm32:em32). ')
4071 endif
4072 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%q2=initial_data_value
4073 ELSE
4074 ALLOCATE(grid%xb%q2(1,1),STAT=ierr)
4075 if (ierr.ne.0) then
4076 CALL wrf_error_fatal ( &
4077 'frame/module_domain.f: Failed to allocate grid%xb%q2(1,1). ')
4078 endif
4079 ENDIF
4080 IF(.NOT.inter_domain)THEN
4081 ALLOCATE(grid%xb%psfc(sm31:em31,sm32:em32),STAT=ierr)
4082 if (ierr.ne.0) then
4083 CALL wrf_error_fatal ( &
4084 'frame/module_domain.f: Failed to allocate grid%xb%psfc(sm31:em31,sm32:em32). ')
4085 endif
4086 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%psfc=initial_data_value
4087 ELSE
4088 ALLOCATE(grid%xb%psfc(1,1),STAT=ierr)
4089 if (ierr.ne.0) then
4090 CALL wrf_error_fatal ( &
4091 'frame/module_domain.f: Failed to allocate grid%xb%psfc(1,1). ')
4092 endif
4093 ENDIF
4094 IF(.NOT.inter_domain)THEN
4095 ALLOCATE(grid%xb%tsk(sm31:em31,sm32:em32),STAT=ierr)
4096 if (ierr.ne.0) then
4097 CALL wrf_error_fatal ( &
4098 'frame/module_domain.f: Failed to allocate grid%xb%tsk(sm31:em31,sm32:em32). ')
4099 endif
4100 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tsk=initial_data_value
4101 ELSE
4102 ALLOCATE(grid%xb%tsk(1,1),STAT=ierr)
4103 if (ierr.ne.0) then
4104 CALL wrf_error_fatal ( &
4105 'frame/module_domain.f: Failed to allocate grid%xb%tsk(1,1). ')
4106 endif
4107 ENDIF
4108 IF(.NOT.inter_domain)THEN
4109 ALLOCATE(grid%xb%smois(sm31:em31,sm32:em32),STAT=ierr)
4110 if (ierr.ne.0) then
4111 CALL wrf_error_fatal ( &
4112 'frame/module_domain.f: Failed to allocate grid%xb%smois(sm31:em31,sm32:em32). ')
4113 endif
4114 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%smois=initial_data_value
4115 ELSE
4116 ALLOCATE(grid%xb%smois(1,1),STAT=ierr)
4117 if (ierr.ne.0) then
4118 CALL wrf_error_fatal ( &
4119 'frame/module_domain.f: Failed to allocate grid%xb%smois(1,1). ')
4120 endif
4121 ENDIF
4122 IF(.NOT.inter_domain)THEN
4123 ALLOCATE(grid%xb%tslb(sm31:em31,sm32:em32),STAT=ierr)
4124 if (ierr.ne.0) then
4125 CALL wrf_error_fatal ( &
4126 'frame/module_domain.f: Failed to allocate grid%xb%tslb(sm31:em31,sm32:em32). ')
4127 endif
4128 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%tslb=initial_data_value
4129 ELSE
4130 ALLOCATE(grid%xb%tslb(1,1),STAT=ierr)
4131 if (ierr.ne.0) then
4132 CALL wrf_error_fatal ( &
4133 'frame/module_domain.f: Failed to allocate grid%xb%tslb(1,1). ')
4134 endif
4135 ENDIF
4136 IF(.NOT.inter_domain)THEN
4137 ALLOCATE(grid%xb%xice(sm31:em31,sm32:em32),STAT=ierr)
4138 if (ierr.ne.0) then
4139 CALL wrf_error_fatal ( &
4140 'frame/module_domain.f: Failed to allocate grid%xb%xice(sm31:em31,sm32:em32). ')
4141 endif
4142 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%xice=initial_data_value
4143 ELSE
4144 ALLOCATE(grid%xb%xice(1,1),STAT=ierr)
4145 if (ierr.ne.0) then
4146 CALL wrf_error_fatal ( &
4147 'frame/module_domain.f: Failed to allocate grid%xb%xice(1,1). ')
4148 endif
4149 ENDIF
4150 IF(.NOT.inter_domain)THEN
4151 ALLOCATE(grid%xb%ivgtyp(sm31:em31,sm32:em32),STAT=ierr)
4152 if (ierr.ne.0) then
4153 CALL wrf_error_fatal ( &
4154 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(sm31:em31,sm32:em32). ')
4155 endif
4156 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%ivgtyp=0
4157 ELSE
4158 ALLOCATE(grid%xb%ivgtyp(1,1),STAT=ierr)
4159 if (ierr.ne.0) then
4160 CALL wrf_error_fatal ( &
4161 'frame/module_domain.f: Failed to allocate grid%xb%ivgtyp(1,1). ')
4162 endif
4163 ENDIF
4164 IF(.NOT.inter_domain)THEN
4165 ALLOCATE(grid%xb%isltyp(sm31:em31,sm32:em32),STAT=ierr)
4166 if (ierr.ne.0) then
4167 CALL wrf_error_fatal ( &
4168 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(sm31:em31,sm32:em32). ')
4169 endif
4170 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%isltyp=0
4171 ELSE
4172 ALLOCATE(grid%xb%isltyp(1,1),STAT=ierr)
4173 if (ierr.ne.0) then
4174 CALL wrf_error_fatal ( &
4175 'frame/module_domain.f: Failed to allocate grid%xb%isltyp(1,1). ')
4176 endif
4177 ENDIF
4178 IF(.NOT.inter_domain)THEN
4179 ALLOCATE(grid%xb%vegfra(sm31:em31,sm32:em32),STAT=ierr)
4180 if (ierr.ne.0) then
4181 CALL wrf_error_fatal ( &
4182 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(sm31:em31,sm32:em32). ')
4183 endif
4184 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%vegfra=initial_data_value
4185 ELSE
4186 ALLOCATE(grid%xb%vegfra(1,1),STAT=ierr)
4187 if (ierr.ne.0) then
4188 CALL wrf_error_fatal ( &
4189 'frame/module_domain.f: Failed to allocate grid%xb%vegfra(1,1). ')
4190 endif
4191 ENDIF
4192 IF(.NOT.inter_domain)THEN
4193 ALLOCATE(grid%xb%snowh(sm31:em31,sm32:em32),STAT=ierr)
4194 if (ierr.ne.0) then
4195 CALL wrf_error_fatal ( &
4196 'frame/module_domain.f: Failed to allocate grid%xb%snowh(sm31:em31,sm32:em32). ')
4197 endif
4198 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%snowh=initial_data_value
4199 ELSE
4200 ALLOCATE(grid%xb%snowh(1,1),STAT=ierr)
4201 if (ierr.ne.0) then
4202 CALL wrf_error_fatal ( &
4203 'frame/module_domain.f: Failed to allocate grid%xb%snowh(1,1). ')
4204 endif
4205 ENDIF
4206 IF(.NOT.inter_domain)THEN
4207 ALLOCATE(grid%xb%regime(sm31:em31,sm32:em32),STAT=ierr)
4208 if (ierr.ne.0) then
4209 CALL wrf_error_fatal ( &
4210 'frame/module_domain.f: Failed to allocate grid%xb%regime(sm31:em31,sm32:em32). ')
4211 endif
4212 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%regime=initial_data_value
4213 ELSE
4214 ALLOCATE(grid%xb%regime(1,1),STAT=ierr)
4215 if (ierr.ne.0) then
4216 CALL wrf_error_fatal ( &
4217 'frame/module_domain.f: Failed to allocate grid%xb%regime(1,1). ')
4218 endif
4219 ENDIF
4220 IF(.NOT.inter_domain)THEN
4221 ALLOCATE(grid%xb%znu(sm33:em33),STAT=ierr)
4222 if (ierr.ne.0) then
4223 CALL wrf_error_fatal ( &
4224 'frame/module_domain.f: Failed to allocate grid%xb%znu(sm33:em33). ')
4225 endif
4226 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znu=initial_data_value
4227 ELSE
4228 ALLOCATE(grid%xb%znu(1),STAT=ierr)
4229 if (ierr.ne.0) then
4230 CALL wrf_error_fatal ( &
4231 'frame/module_domain.f: Failed to allocate grid%xb%znu(1). ')
4232 endif
4233 ENDIF
4234 IF(.NOT.inter_domain)THEN
4235 ALLOCATE(grid%xb%znw(sm33:em33),STAT=ierr)
4236 if (ierr.ne.0) then
4237 CALL wrf_error_fatal ( &
4238 'frame/module_domain.f: Failed to allocate grid%xb%znw(sm33:em33). ')
4239 endif
4240 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%znw=initial_data_value
4241 ELSE
4242 ALLOCATE(grid%xb%znw(1),STAT=ierr)
4243 if (ierr.ne.0) then
4244 CALL wrf_error_fatal ( &
4245 'frame/module_domain.f: Failed to allocate grid%xb%znw(1). ')
4246 endif
4247 ENDIF
4248 IF(.NOT.inter_domain)THEN
4249 ALLOCATE(grid%xb%dn(sm33:em33),STAT=ierr)
4250 if (ierr.ne.0) then
4251 CALL wrf_error_fatal ( &
4252 'frame/module_domain.f: Failed to allocate grid%xb%dn(sm33:em33). ')
4253 endif
4254 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dn=initial_data_value
4255 ELSE
4256 ALLOCATE(grid%xb%dn(1),STAT=ierr)
4257 if (ierr.ne.0) then
4258 CALL wrf_error_fatal ( &
4259 'frame/module_domain.f: Failed to allocate grid%xb%dn(1). ')
4260 endif
4261 ENDIF
4262 IF(.NOT.inter_domain)THEN
4263 ALLOCATE(grid%xb%dnw(sm33:em33),STAT=ierr)
4264 if (ierr.ne.0) then
4265 CALL wrf_error_fatal ( &
4266 'frame/module_domain.f: Failed to allocate grid%xb%dnw(sm33:em33). ')
4267 endif
4268 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%dnw=initial_data_value
4269 ELSE
4270 ALLOCATE(grid%xb%dnw(1),STAT=ierr)
4271 if (ierr.ne.0) then
4272 CALL wrf_error_fatal ( &
4273 'frame/module_domain.f: Failed to allocate grid%xb%dnw(1). ')
4274 endif
4275 ENDIF
4276 IF(.NOT.inter_domain)THEN
4277 ALLOCATE(grid%xb%sigmah(sm33:em33),STAT=ierr)
4278 if (ierr.ne.0) then
4279 CALL wrf_error_fatal ( &
4280 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(sm33:em33). ')
4281 endif
4282 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmah=initial_data_value
4283 ELSE
4284 ALLOCATE(grid%xb%sigmah(1),STAT=ierr)
4285 if (ierr.ne.0) then
4286 CALL wrf_error_fatal ( &
4287 'frame/module_domain.f: Failed to allocate grid%xb%sigmah(1). ')
4288 endif
4289 ENDIF
4290 IF(.NOT.inter_domain)THEN
4291 ALLOCATE(grid%xb%sigmaf(sm33:em33),STAT=ierr)
4292 if (ierr.ne.0) then
4293 CALL wrf_error_fatal ( &
4294 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(sm33:em33). ')
4295 endif
4296 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%sigmaf=initial_data_value
4297 ELSE
4298 ALLOCATE(grid%xb%sigmaf(1),STAT=ierr)
4299 if (ierr.ne.0) then
4300 CALL wrf_error_fatal ( &
4301 'frame/module_domain.f: Failed to allocate grid%xb%sigmaf(1). ')
4302 endif
4303 ENDIF
4304 IF(.NOT.inter_domain)THEN
4305 ALLOCATE(grid%xb%coefx(sm31:em31,sm32:em32),STAT=ierr)
4306 if (ierr.ne.0) then
4307 CALL wrf_error_fatal ( &
4308 'frame/module_domain.f: Failed to allocate grid%xb%coefx(sm31:em31,sm32:em32). ')
4309 endif
4310 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefx=initial_data_value
4311 ELSE
4312 ALLOCATE(grid%xb%coefx(1,1),STAT=ierr)
4313 if (ierr.ne.0) then
4314 CALL wrf_error_fatal ( &
4315 'frame/module_domain.f: Failed to allocate grid%xb%coefx(1,1). ')
4316 endif
4317 ENDIF
4318 IF(.NOT.inter_domain)THEN
4319 ALLOCATE(grid%xb%coefy(sm31:em31,sm32:em32),STAT=ierr)
4320 if (ierr.ne.0) then
4321 CALL wrf_error_fatal ( &
4322 'frame/module_domain.f: Failed to allocate grid%xb%coefy(sm31:em31,sm32:em32). ')
4323 endif
4324 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefy=initial_data_value
4325 ELSE
4326 ALLOCATE(grid%xb%coefy(1,1),STAT=ierr)
4327 if (ierr.ne.0) then
4328 CALL wrf_error_fatal ( &
4329 'frame/module_domain.f: Failed to allocate grid%xb%coefy(1,1). ')
4330 endif
4331 ENDIF
4332 IF(.NOT.inter_domain)THEN
4333 ALLOCATE(grid%xb%coefz(sm31:em31,sm32:em32),STAT=ierr)
4334 if (ierr.ne.0) then
4335 CALL wrf_error_fatal ( &
4336 'frame/module_domain.f: Failed to allocate grid%xb%coefz(sm31:em31,sm32:em32). ')
4337 endif
4338 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%coefz=initial_data_value
4339 ELSE
4340 ALLOCATE(grid%xb%coefz(1,1),STAT=ierr)
4341 if (ierr.ne.0) then
4342 CALL wrf_error_fatal ( &
4343 'frame/module_domain.f: Failed to allocate grid%xb%coefz(1,1). ')
4344 endif
4345 ENDIF
4346 IF(.NOT.inter_domain)THEN
4347 ALLOCATE(grid%xb%kma_a(sm33:em33),STAT=ierr)
4348 if (ierr.ne.0) then
4349 CALL wrf_error_fatal ( &
4350 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(sm33:em33). ')
4351 endif
4352 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_a=initial_data_value
4353 ELSE
4354 ALLOCATE(grid%xb%kma_a(1),STAT=ierr)
4355 if (ierr.ne.0) then
4356 CALL wrf_error_fatal ( &
4357 'frame/module_domain.f: Failed to allocate grid%xb%kma_a(1). ')
4358 endif
4359 ENDIF
4360 IF(.NOT.inter_domain)THEN
4361 ALLOCATE(grid%xb%kma_b(sm33:em33),STAT=ierr)
4362 if (ierr.ne.0) then
4363 CALL wrf_error_fatal ( &
4364 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(sm33:em33). ')
4365 endif
4366 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xb%kma_b=initial_data_value
4367 ELSE
4368 ALLOCATE(grid%xb%kma_b(1),STAT=ierr)
4369 if (ierr.ne.0) then
4370 CALL wrf_error_fatal ( &
4371 'frame/module_domain.f: Failed to allocate grid%xb%kma_b(1). ')
4372 endif
4373 ENDIF
4374 IF(.NOT.inter_domain)THEN
4375 ALLOCATE(grid%xa%u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4376 if (ierr.ne.0) then
4377 CALL wrf_error_fatal ( &
4378 'frame/module_domain.f: Failed to allocate grid%xa%u(sm31:em31,sm32:em32,sm33:em33). ')
4379 endif
4380 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u=initial_data_value
4381 ELSE
4382 ALLOCATE(grid%xa%u(1,1,1),STAT=ierr)
4383 if (ierr.ne.0) then
4384 CALL wrf_error_fatal ( &
4385 'frame/module_domain.f: Failed to allocate grid%xa%u(1,1,1). ')
4386 endif
4387 ENDIF
4388 IF(.NOT.inter_domain)THEN
4389 ALLOCATE(grid%xa%v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4390 if (ierr.ne.0) then
4391 CALL wrf_error_fatal ( &
4392 'frame/module_domain.f: Failed to allocate grid%xa%v(sm31:em31,sm32:em32,sm33:em33). ')
4393 endif
4394 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v=initial_data_value
4395 ELSE
4396 ALLOCATE(grid%xa%v(1,1,1),STAT=ierr)
4397 if (ierr.ne.0) then
4398 CALL wrf_error_fatal ( &
4399 'frame/module_domain.f: Failed to allocate grid%xa%v(1,1,1). ')
4400 endif
4401 ENDIF
4402 IF(.NOT.inter_domain)THEN
4403 ALLOCATE(grid%xa%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4404 if (ierr.ne.0) then
4405 CALL wrf_error_fatal ( &
4406 'frame/module_domain.f: Failed to allocate grid%xa%w(sm31:em31,sm32:em32,sm33:em33). ')
4407 endif
4408 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%w=initial_data_value
4409 ELSE
4410 ALLOCATE(grid%xa%w(1,1,1),STAT=ierr)
4411 if (ierr.ne.0) then
4412 CALL wrf_error_fatal ( &
4413 'frame/module_domain.f: Failed to allocate grid%xa%w(1,1,1). ')
4414 endif
4415 ENDIF
4416 IF(.NOT.inter_domain)THEN
4417 ALLOCATE(grid%xa%t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4418 if (ierr.ne.0) then
4419 CALL wrf_error_fatal ( &
4420 'frame/module_domain.f: Failed to allocate grid%xa%t(sm31:em31,sm32:em32,sm33:em33). ')
4421 endif
4422 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t=initial_data_value
4423 ELSE
4424 ALLOCATE(grid%xa%t(1,1,1),STAT=ierr)
4425 if (ierr.ne.0) then
4426 CALL wrf_error_fatal ( &
4427 'frame/module_domain.f: Failed to allocate grid%xa%t(1,1,1). ')
4428 endif
4429 ENDIF
4430 IF(.NOT.inter_domain)THEN
4431 ALLOCATE(grid%xa%q(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4432 if (ierr.ne.0) then
4433 CALL wrf_error_fatal ( &
4434 'frame/module_domain.f: Failed to allocate grid%xa%q(sm31:em31,sm32:em32,sm33:em33). ')
4435 endif
4436 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q=initial_data_value
4437 ELSE
4438 ALLOCATE(grid%xa%q(1,1,1),STAT=ierr)
4439 if (ierr.ne.0) then
4440 CALL wrf_error_fatal ( &
4441 'frame/module_domain.f: Failed to allocate grid%xa%q(1,1,1). ')
4442 endif
4443 ENDIF
4444 IF(.NOT.inter_domain)THEN
4445 ALLOCATE(grid%xa%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4446 if (ierr.ne.0) then
4447 CALL wrf_error_fatal ( &
4448 'frame/module_domain.f: Failed to allocate grid%xa%p(sm31:em31,sm32:em32,sm33:em33). ')
4449 endif
4450 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%p=initial_data_value
4451 ELSE
4452 ALLOCATE(grid%xa%p(1,1,1),STAT=ierr)
4453 if (ierr.ne.0) then
4454 CALL wrf_error_fatal ( &
4455 'frame/module_domain.f: Failed to allocate grid%xa%p(1,1,1). ')
4456 endif
4457 ENDIF
4458 IF(.NOT.inter_domain)THEN
4459 ALLOCATE(grid%xa%rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4460 if (ierr.ne.0) then
4461 CALL wrf_error_fatal ( &
4462 'frame/module_domain.f: Failed to allocate grid%xa%rh(sm31:em31,sm32:em32,sm33:em33). ')
4463 endif
4464 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rh=initial_data_value
4465 ELSE
4466 ALLOCATE(grid%xa%rh(1,1,1),STAT=ierr)
4467 if (ierr.ne.0) then
4468 CALL wrf_error_fatal ( &
4469 'frame/module_domain.f: Failed to allocate grid%xa%rh(1,1,1). ')
4470 endif
4471 ENDIF
4472 IF(.NOT.inter_domain)THEN
4473 ALLOCATE(grid%xa%rho(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4474 if (ierr.ne.0) then
4475 CALL wrf_error_fatal ( &
4476 'frame/module_domain.f: Failed to allocate grid%xa%rho(sm31:em31,sm32:em32,sm33:em33). ')
4477 endif
4478 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%rho=initial_data_value
4479 ELSE
4480 ALLOCATE(grid%xa%rho(1,1,1),STAT=ierr)
4481 if (ierr.ne.0) then
4482 CALL wrf_error_fatal ( &
4483 'frame/module_domain.f: Failed to allocate grid%xa%rho(1,1,1). ')
4484 endif
4485 ENDIF
4486 IF(.NOT.inter_domain)THEN
4487 ALLOCATE(grid%xa%wh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4488 if (ierr.ne.0) then
4489 CALL wrf_error_fatal ( &
4490 'frame/module_domain.f: Failed to allocate grid%xa%wh(sm31:em31,sm32:em32,sm33:em33). ')
4491 endif
4492 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%wh=initial_data_value
4493 ELSE
4494 ALLOCATE(grid%xa%wh(1,1,1),STAT=ierr)
4495 if (ierr.ne.0) then
4496 CALL wrf_error_fatal ( &
4497 'frame/module_domain.f: Failed to allocate grid%xa%wh(1,1,1). ')
4498 endif
4499 ENDIF
4500 IF(.NOT.inter_domain)THEN
4501 ALLOCATE(grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4502 if (ierr.ne.0) then
4503 CALL wrf_error_fatal ( &
4504 'frame/module_domain.f: Failed to allocate grid%xa%qrn(sm31:em31,sm32:em32,sm33:em33). ')
4505 endif
4506 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qrn=initial_data_value
4507 ELSE
4508 ALLOCATE(grid%xa%qrn(1,1,1),STAT=ierr)
4509 if (ierr.ne.0) then
4510 CALL wrf_error_fatal ( &
4511 'frame/module_domain.f: Failed to allocate grid%xa%qrn(1,1,1). ')
4512 endif
4513 ENDIF
4514 IF(.NOT.inter_domain)THEN
4515 ALLOCATE(grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4516 if (ierr.ne.0) then
4517 CALL wrf_error_fatal ( &
4518 'frame/module_domain.f: Failed to allocate grid%xa%qcw(sm31:em31,sm32:em32,sm33:em33). ')
4519 endif
4520 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qcw=initial_data_value
4521 ELSE
4522 ALLOCATE(grid%xa%qcw(1,1,1),STAT=ierr)
4523 if (ierr.ne.0) then
4524 CALL wrf_error_fatal ( &
4525 'frame/module_domain.f: Failed to allocate grid%xa%qcw(1,1,1). ')
4526 endif
4527 ENDIF
4528 IF(.NOT.inter_domain)THEN
4529 ALLOCATE(grid%xa%qci(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4530 if (ierr.ne.0) then
4531 CALL wrf_error_fatal ( &
4532 'frame/module_domain.f: Failed to allocate grid%xa%qci(sm31:em31,sm32:em32,sm33:em33). ')
4533 endif
4534 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qci=initial_data_value
4535 ELSE
4536 ALLOCATE(grid%xa%qci(1,1,1),STAT=ierr)
4537 if (ierr.ne.0) then
4538 CALL wrf_error_fatal ( &
4539 'frame/module_domain.f: Failed to allocate grid%xa%qci(1,1,1). ')
4540 endif
4541 ENDIF
4542 IF(.NOT.inter_domain)THEN
4543 ALLOCATE(grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4544 if (ierr.ne.0) then
4545 CALL wrf_error_fatal ( &
4546 'frame/module_domain.f: Failed to allocate grid%xa%qsn(sm31:em31,sm32:em32,sm33:em33). ')
4547 endif
4548 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qsn=initial_data_value
4549 ELSE
4550 ALLOCATE(grid%xa%qsn(1,1,1),STAT=ierr)
4551 if (ierr.ne.0) then
4552 CALL wrf_error_fatal ( &
4553 'frame/module_domain.f: Failed to allocate grid%xa%qsn(1,1,1). ')
4554 endif
4555 ENDIF
4556 IF(.NOT.inter_domain)THEN
4557 ALLOCATE(grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4558 if (ierr.ne.0) then
4559 CALL wrf_error_fatal ( &
4560 'frame/module_domain.f: Failed to allocate grid%xa%qgr(sm31:em31,sm32:em32,sm33:em33). ')
4561 endif
4562 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qgr=initial_data_value
4563 ELSE
4564 ALLOCATE(grid%xa%qgr(1,1,1),STAT=ierr)
4565 if (ierr.ne.0) then
4566 CALL wrf_error_fatal ( &
4567 'frame/module_domain.f: Failed to allocate grid%xa%qgr(1,1,1). ')
4568 endif
4569 ENDIF
4570 IF(.NOT.inter_domain)THEN
4571 ALLOCATE(grid%xa%qt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4572 if (ierr.ne.0) then
4573 CALL wrf_error_fatal ( &
4574 'frame/module_domain.f: Failed to allocate grid%xa%qt(sm31:em31,sm32:em32,sm33:em33). ')
4575 endif
4576 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%qt=initial_data_value
4577 ELSE
4578 ALLOCATE(grid%xa%qt(1,1,1),STAT=ierr)
4579 if (ierr.ne.0) then
4580 CALL wrf_error_fatal ( &
4581 'frame/module_domain.f: Failed to allocate grid%xa%qt(1,1,1). ')
4582 endif
4583 ENDIF
4584 IF(.NOT.inter_domain)THEN
4585 ALLOCATE(grid%xa%tgrn(sm31:em31,sm32:em32),STAT=ierr)
4586 if (ierr.ne.0) then
4587 CALL wrf_error_fatal ( &
4588 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(sm31:em31,sm32:em32). ')
4589 endif
4590 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tgrn=initial_data_value
4591 ELSE
4592 ALLOCATE(grid%xa%tgrn(1,1),STAT=ierr)
4593 if (ierr.ne.0) then
4594 CALL wrf_error_fatal ( &
4595 'frame/module_domain.f: Failed to allocate grid%xa%tgrn(1,1). ')
4596 endif
4597 ENDIF
4598 IF(.NOT.inter_domain)THEN
4599 ALLOCATE(grid%xa%psfc(sm31:em31,sm32:em32),STAT=ierr)
4600 if (ierr.ne.0) then
4601 CALL wrf_error_fatal ( &
4602 'frame/module_domain.f: Failed to allocate grid%xa%psfc(sm31:em31,sm32:em32). ')
4603 endif
4604 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%psfc=initial_data_value
4605 ELSE
4606 ALLOCATE(grid%xa%psfc(1,1),STAT=ierr)
4607 if (ierr.ne.0) then
4608 CALL wrf_error_fatal ( &
4609 'frame/module_domain.f: Failed to allocate grid%xa%psfc(1,1). ')
4610 endif
4611 ENDIF
4612 IF(.NOT.inter_domain)THEN
4613 ALLOCATE(grid%xa%u10(sm31:em31,sm32:em32),STAT=ierr)
4614 if (ierr.ne.0) then
4615 CALL wrf_error_fatal ( &
4616 'frame/module_domain.f: Failed to allocate grid%xa%u10(sm31:em31,sm32:em32). ')
4617 endif
4618 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%u10=initial_data_value
4619 ELSE
4620 ALLOCATE(grid%xa%u10(1,1),STAT=ierr)
4621 if (ierr.ne.0) then
4622 CALL wrf_error_fatal ( &
4623 'frame/module_domain.f: Failed to allocate grid%xa%u10(1,1). ')
4624 endif
4625 ENDIF
4626 IF(.NOT.inter_domain)THEN
4627 ALLOCATE(grid%xa%v10(sm31:em31,sm32:em32),STAT=ierr)
4628 if (ierr.ne.0) then
4629 CALL wrf_error_fatal ( &
4630 'frame/module_domain.f: Failed to allocate grid%xa%v10(sm31:em31,sm32:em32). ')
4631 endif
4632 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%v10=initial_data_value
4633 ELSE
4634 ALLOCATE(grid%xa%v10(1,1),STAT=ierr)
4635 if (ierr.ne.0) then
4636 CALL wrf_error_fatal ( &
4637 'frame/module_domain.f: Failed to allocate grid%xa%v10(1,1). ')
4638 endif
4639 ENDIF
4640 IF(.NOT.inter_domain)THEN
4641 ALLOCATE(grid%xa%t2(sm31:em31,sm32:em32),STAT=ierr)
4642 if (ierr.ne.0) then
4643 CALL wrf_error_fatal ( &
4644 'frame/module_domain.f: Failed to allocate grid%xa%t2(sm31:em31,sm32:em32). ')
4645 endif
4646 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%t2=initial_data_value
4647 ELSE
4648 ALLOCATE(grid%xa%t2(1,1),STAT=ierr)
4649 if (ierr.ne.0) then
4650 CALL wrf_error_fatal ( &
4651 'frame/module_domain.f: Failed to allocate grid%xa%t2(1,1). ')
4652 endif
4653 ENDIF
4654 IF(.NOT.inter_domain)THEN
4655 ALLOCATE(grid%xa%q2(sm31:em31,sm32:em32),STAT=ierr)
4656 if (ierr.ne.0) then
4657 CALL wrf_error_fatal ( &
4658 'frame/module_domain.f: Failed to allocate grid%xa%q2(sm31:em31,sm32:em32). ')
4659 endif
4660 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%q2=initial_data_value
4661 ELSE
4662 ALLOCATE(grid%xa%q2(1,1),STAT=ierr)
4663 if (ierr.ne.0) then
4664 CALL wrf_error_fatal ( &
4665 'frame/module_domain.f: Failed to allocate grid%xa%q2(1,1). ')
4666 endif
4667 ENDIF
4668 IF(.NOT.inter_domain)THEN
4669 ALLOCATE(grid%xa%ref(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4670 if (ierr.ne.0) then
4671 CALL wrf_error_fatal ( &
4672 'frame/module_domain.f: Failed to allocate grid%xa%ref(sm31:em31,sm32:em32,sm33:em33). ')
4673 endif
4674 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%ref=initial_data_value
4675 ELSE
4676 ALLOCATE(grid%xa%ref(1,1,1),STAT=ierr)
4677 if (ierr.ne.0) then
4678 CALL wrf_error_fatal ( &
4679 'frame/module_domain.f: Failed to allocate grid%xa%ref(1,1,1). ')
4680 endif
4681 ENDIF
4682 IF(.NOT.inter_domain)THEN
4683 ALLOCATE(grid%xa%tpw(sm31:em31,sm32:em32),STAT=ierr)
4684 if (ierr.ne.0) then
4685 CALL wrf_error_fatal ( &
4686 'frame/module_domain.f: Failed to allocate grid%xa%tpw(sm31:em31,sm32:em32). ')
4687 endif
4688 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tpw=initial_data_value
4689 ELSE
4690 ALLOCATE(grid%xa%tpw(1,1),STAT=ierr)
4691 if (ierr.ne.0) then
4692 CALL wrf_error_fatal ( &
4693 'frame/module_domain.f: Failed to allocate grid%xa%tpw(1,1). ')
4694 endif
4695 ENDIF
4696 IF(.NOT.inter_domain)THEN
4697 ALLOCATE(grid%xa%speed(sm31:em31,sm32:em32),STAT=ierr)
4698 if (ierr.ne.0) then
4699 CALL wrf_error_fatal ( &
4700 'frame/module_domain.f: Failed to allocate grid%xa%speed(sm31:em31,sm32:em32). ')
4701 endif
4702 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%speed=initial_data_value
4703 ELSE
4704 ALLOCATE(grid%xa%speed(1,1),STAT=ierr)
4705 if (ierr.ne.0) then
4706 CALL wrf_error_fatal ( &
4707 'frame/module_domain.f: Failed to allocate grid%xa%speed(1,1). ')
4708 endif
4709 ENDIF
4710 IF(.NOT.inter_domain)THEN
4711 ALLOCATE(grid%xa%tb19v(sm31:em31,sm32:em32),STAT=ierr)
4712 if (ierr.ne.0) then
4713 CALL wrf_error_fatal ( &
4714 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(sm31:em31,sm32:em32). ')
4715 endif
4716 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19v=initial_data_value
4717 ELSE
4718 ALLOCATE(grid%xa%tb19v(1,1),STAT=ierr)
4719 if (ierr.ne.0) then
4720 CALL wrf_error_fatal ( &
4721 'frame/module_domain.f: Failed to allocate grid%xa%tb19v(1,1). ')
4722 endif
4723 ENDIF
4724 IF(.NOT.inter_domain)THEN
4725 ALLOCATE(grid%xa%tb19h(sm31:em31,sm32:em32),STAT=ierr)
4726 if (ierr.ne.0) then
4727 CALL wrf_error_fatal ( &
4728 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(sm31:em31,sm32:em32). ')
4729 endif
4730 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb19h=initial_data_value
4731 ELSE
4732 ALLOCATE(grid%xa%tb19h(1,1),STAT=ierr)
4733 if (ierr.ne.0) then
4734 CALL wrf_error_fatal ( &
4735 'frame/module_domain.f: Failed to allocate grid%xa%tb19h(1,1). ')
4736 endif
4737 ENDIF
4738 IF(.NOT.inter_domain)THEN
4739 ALLOCATE(grid%xa%tb22v(sm31:em31,sm32:em32),STAT=ierr)
4740 if (ierr.ne.0) then
4741 CALL wrf_error_fatal ( &
4742 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(sm31:em31,sm32:em32). ')
4743 endif
4744 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb22v=initial_data_value
4745 ELSE
4746 ALLOCATE(grid%xa%tb22v(1,1),STAT=ierr)
4747 if (ierr.ne.0) then
4748 CALL wrf_error_fatal ( &
4749 'frame/module_domain.f: Failed to allocate grid%xa%tb22v(1,1). ')
4750 endif
4751 ENDIF
4752 IF(.NOT.inter_domain)THEN
4753 ALLOCATE(grid%xa%tb37v(sm31:em31,sm32:em32),STAT=ierr)
4754 if (ierr.ne.0) then
4755 CALL wrf_error_fatal ( &
4756 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(sm31:em31,sm32:em32). ')
4757 endif
4758 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37v=initial_data_value
4759 ELSE
4760 ALLOCATE(grid%xa%tb37v(1,1),STAT=ierr)
4761 if (ierr.ne.0) then
4762 CALL wrf_error_fatal ( &
4763 'frame/module_domain.f: Failed to allocate grid%xa%tb37v(1,1). ')
4764 endif
4765 ENDIF
4766 IF(.NOT.inter_domain)THEN
4767 ALLOCATE(grid%xa%tb37h(sm31:em31,sm32:em32),STAT=ierr)
4768 if (ierr.ne.0) then
4769 CALL wrf_error_fatal ( &
4770 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(sm31:em31,sm32:em32). ')
4771 endif
4772 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb37h=initial_data_value
4773 ELSE
4774 ALLOCATE(grid%xa%tb37h(1,1),STAT=ierr)
4775 if (ierr.ne.0) then
4776 CALL wrf_error_fatal ( &
4777 'frame/module_domain.f: Failed to allocate grid%xa%tb37h(1,1). ')
4778 endif
4779 ENDIF
4780 IF(.NOT.inter_domain)THEN
4781 ALLOCATE(grid%xa%tb85v(sm31:em31,sm32:em32),STAT=ierr)
4782 if (ierr.ne.0) then
4783 CALL wrf_error_fatal ( &
4784 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(sm31:em31,sm32:em32). ')
4785 endif
4786 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85v=initial_data_value
4787 ELSE
4788 ALLOCATE(grid%xa%tb85v(1,1),STAT=ierr)
4789 if (ierr.ne.0) then
4790 CALL wrf_error_fatal ( &
4791 'frame/module_domain.f: Failed to allocate grid%xa%tb85v(1,1). ')
4792 endif
4793 ENDIF
4794 IF(.NOT.inter_domain)THEN
4795 ALLOCATE(grid%xa%tb85h(sm31:em31,sm32:em32),STAT=ierr)
4796 if (ierr.ne.0) then
4797 CALL wrf_error_fatal ( &
4798 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(sm31:em31,sm32:em32). ')
4799 endif
4800 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xa%tb85h=initial_data_value
4801 ELSE
4802 ALLOCATE(grid%xa%tb85h(1,1),STAT=ierr)
4803 if (ierr.ne.0) then
4804 CALL wrf_error_fatal ( &
4805 'frame/module_domain.f: Failed to allocate grid%xa%tb85h(1,1). ')
4806 endif
4807 ENDIF
4808 IF ( setinitval .EQ. 3 ) grid%xp%domdesc=0
4809 IF ( setinitval .EQ. 3 ) grid%xp%comms(max_comms)=0
4810 IF ( setinitval .EQ. 3 ) grid%xp%halo_id0=0
4811 IF ( setinitval .EQ. 3 ) grid%xp%halo_id1=0
4812 IF ( setinitval .EQ. 3 ) grid%xp%halo_id2=0
4813 IF ( setinitval .EQ. 3 ) grid%xp%halo_id3=0
4814 IF ( setinitval .EQ. 3 ) grid%xp%halo_id4=0
4815 IF ( setinitval .EQ. 3 ) grid%xp%halo_id5=0
4816 IF ( setinitval .EQ. 3 ) grid%xp%halo_id6=0
4817 IF ( setinitval .EQ. 3 ) grid%xp%halo_id7=0
4818 IF ( setinitval .EQ. 3 ) grid%xp%halo_id8=0
4819 IF ( setinitval .EQ. 3 ) grid%xp%halo_id9=0
4820 IF ( setinitval .EQ. 3 ) grid%xp%halo_id10=0
4821 IF ( setinitval .EQ. 3 ) grid%xp%halo_id11=0
4822 IF ( setinitval .EQ. 3 ) grid%xp%halo_id12=0
4823 IF ( setinitval .EQ. 3 ) grid%xp%halo_id13=0
4824 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id1=0
4825 IF ( setinitval .EQ. 3 ) grid%xp%xpose_id2=0
4826 IF ( setinitval .EQ. 3 ) grid%xp%ids=0
4827 IF ( setinitval .EQ. 3 ) grid%xp%ide=0
4828 IF ( setinitval .EQ. 3 ) grid%xp%jds=0
4829 IF ( setinitval .EQ. 3 ) grid%xp%jde=0
4830 IF ( setinitval .EQ. 3 ) grid%xp%kds=0
4831 IF ( setinitval .EQ. 3 ) grid%xp%kde=0
4832 IF ( setinitval .EQ. 3 ) grid%xp%ims=0
4833 IF ( setinitval .EQ. 3 ) grid%xp%ime=0
4834 IF ( setinitval .EQ. 3 ) grid%xp%jms=0
4835 IF ( setinitval .EQ. 3 ) grid%xp%jme=0
4836 IF ( setinitval .EQ. 3 ) grid%xp%kms=0
4837 IF ( setinitval .EQ. 3 ) grid%xp%kme=0
4838 IF ( setinitval .EQ. 3 ) grid%xp%its=0
4839 IF ( setinitval .EQ. 3 ) grid%xp%ite=0
4840 IF ( setinitval .EQ. 3 ) grid%xp%jts=0
4841 IF ( setinitval .EQ. 3 ) grid%xp%jte=0
4842 IF ( setinitval .EQ. 3 ) grid%xp%kts=0
4843 IF ( setinitval .EQ. 3 ) grid%xp%kte=0
4844 IF ( setinitval .EQ. 3 ) grid%xp%ips=0
4845 IF ( setinitval .EQ. 3 ) grid%xp%ipe=0
4846 IF ( setinitval .EQ. 3 ) grid%xp%jps=0
4847 IF ( setinitval .EQ. 3 ) grid%xp%jpe=0
4848 IF ( setinitval .EQ. 3 ) grid%xp%kps=0
4849 IF ( setinitval .EQ. 3 ) grid%xp%kpe=0
4850 IF ( setinitval .EQ. 3 ) grid%xp%idsx=0
4851 IF ( setinitval .EQ. 3 ) grid%xp%idex=0
4852 IF ( setinitval .EQ. 3 ) grid%xp%jdsx=0
4853 IF ( setinitval .EQ. 3 ) grid%xp%jdex=0
4854 IF ( setinitval .EQ. 3 ) grid%xp%kdsx=0
4855 IF ( setinitval .EQ. 3 ) grid%xp%kdex=0
4856 IF ( setinitval .EQ. 3 ) grid%xp%imsx=0
4857 IF ( setinitval .EQ. 3 ) grid%xp%imex=0
4858 IF ( setinitval .EQ. 3 ) grid%xp%jmsx=0
4859 IF ( setinitval .EQ. 3 ) grid%xp%jmex=0
4860 IF ( setinitval .EQ. 3 ) grid%xp%kmsx=0
4861 IF ( setinitval .EQ. 3 ) grid%xp%kmex=0
4862 IF ( setinitval .EQ. 3 ) grid%xp%itsx=0
4863 IF ( setinitval .EQ. 3 ) grid%xp%itex=0
4864 IF ( setinitval .EQ. 3 ) grid%xp%jtsx=0
4865 IF ( setinitval .EQ. 3 ) grid%xp%jtex=0
4866 IF ( setinitval .EQ. 3 ) grid%xp%ktsx=0
4867 IF ( setinitval .EQ. 3 ) grid%xp%ktex=0
4868 IF ( setinitval .EQ. 3 ) grid%xp%ipsx=0
4869 IF ( setinitval .EQ. 3 ) grid%xp%ipex=0
4870 IF ( setinitval .EQ. 3 ) grid%xp%jpsx=0
4871 IF ( setinitval .EQ. 3 ) grid%xp%jpex=0
4872 IF ( setinitval .EQ. 3 ) grid%xp%kpsx=0
4873 IF ( setinitval .EQ. 3 ) grid%xp%kpex=0
4874 IF ( setinitval .EQ. 3 ) grid%xp%idsy=0
4875 IF ( setinitval .EQ. 3 ) grid%xp%idey=0
4876 IF ( setinitval .EQ. 3 ) grid%xp%jdsy=0
4877 IF ( setinitval .EQ. 3 ) grid%xp%jdey=0
4878 IF ( setinitval .EQ. 3 ) grid%xp%kdsy=0
4879 IF ( setinitval .EQ. 3 ) grid%xp%kdey=0
4880 IF ( setinitval .EQ. 3 ) grid%xp%imsy=0
4881 IF ( setinitval .EQ. 3 ) grid%xp%imey=0
4882 IF ( setinitval .EQ. 3 ) grid%xp%jmsy=0
4883 IF ( setinitval .EQ. 3 ) grid%xp%jmey=0
4884 IF ( setinitval .EQ. 3 ) grid%xp%kmsy=0
4885 IF ( setinitval .EQ. 3 ) grid%xp%kmey=0
4886 IF ( setinitval .EQ. 3 ) grid%xp%itsy=0
4887 IF ( setinitval .EQ. 3 ) grid%xp%itey=0
4888 IF ( setinitval .EQ. 3 ) grid%xp%jtsy=0
4889 IF ( setinitval .EQ. 3 ) grid%xp%jtey=0
4890 IF ( setinitval .EQ. 3 ) grid%xp%ktsy=0
4891 IF ( setinitval .EQ. 3 ) grid%xp%ktey=0
4892 IF ( setinitval .EQ. 3 ) grid%xp%ipsy=0
4893 IF ( setinitval .EQ. 3 ) grid%xp%ipey=0
4894 IF ( setinitval .EQ. 3 ) grid%xp%jpsy=0
4895 IF ( setinitval .EQ. 3 ) grid%xp%jpey=0
4896 IF ( setinitval .EQ. 3 ) grid%xp%kpsy=0
4897 IF ( setinitval .EQ. 3 ) grid%xp%kpey=0
4898 IF(.NOT.inter_domain)THEN
4899 ALLOCATE(grid%xp%vxy(sm31:em31,sm32:em32),STAT=ierr)
4900 if (ierr.ne.0) then
4901 CALL wrf_error_fatal ( &
4902 'frame/module_domain.f: Failed to allocate grid%xp%vxy(sm31:em31,sm32:em32). ')
4903 endif
4904 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%vxy=initial_data_value
4905 ELSE
4906 ALLOCATE(grid%xp%vxy(1,1),STAT=ierr)
4907 if (ierr.ne.0) then
4908 CALL wrf_error_fatal ( &
4909 'frame/module_domain.f: Failed to allocate grid%xp%vxy(1,1). ')
4910 endif
4911 ENDIF
4912 IF(.NOT.inter_domain)THEN
4913 ALLOCATE(grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4914 if (ierr.ne.0) then
4915 CALL wrf_error_fatal ( &
4916 'frame/module_domain.f: Failed to allocate grid%xp%v1z(sm31:em31,sm32:em32,sm33:em33). ')
4917 endif
4918 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1z=initial_data_value
4919 ELSE
4920 ALLOCATE(grid%xp%v1z(1,1,1),STAT=ierr)
4921 if (ierr.ne.0) then
4922 CALL wrf_error_fatal ( &
4923 'frame/module_domain.f: Failed to allocate grid%xp%v1z(1,1,1). ')
4924 endif
4925 ENDIF
4926 IF(.NOT.inter_domain)THEN
4927 ALLOCATE(grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
4928 if (ierr.ne.0) then
4929 CALL wrf_error_fatal ( &
4930 'frame/module_domain.f: Failed to allocate grid%xp%v1x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
4931 endif
4932 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1x=initial_data_value
4933 ELSE
4934 ALLOCATE(grid%xp%v1x(1,1,1),STAT=ierr)
4935 if (ierr.ne.0) then
4936 CALL wrf_error_fatal ( &
4937 'frame/module_domain.f: Failed to allocate grid%xp%v1x(1,1,1). ')
4938 endif
4939 ENDIF
4940 IF(.NOT.inter_domain)THEN
4941 ALLOCATE(grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
4942 if (ierr.ne.0) then
4943 CALL wrf_error_fatal ( &
4944 'frame/module_domain.f: Failed to allocate grid%xp%v1y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
4945 endif
4946 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v1y=initial_data_value
4947 ELSE
4948 ALLOCATE(grid%xp%v1y(1,1,1),STAT=ierr)
4949 if (ierr.ne.0) then
4950 CALL wrf_error_fatal ( &
4951 'frame/module_domain.f: Failed to allocate grid%xp%v1y(1,1,1). ')
4952 endif
4953 ENDIF
4954 IF(.NOT.inter_domain)THEN
4955 ALLOCATE(grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
4956 if (ierr.ne.0) then
4957 CALL wrf_error_fatal ( &
4958 'frame/module_domain.f: Failed to allocate grid%xp%v2z(sm31:em31,sm32:em32,sm33:em33). ')
4959 endif
4960 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2z=initial_data_value
4961 ELSE
4962 ALLOCATE(grid%xp%v2z(1,1,1),STAT=ierr)
4963 if (ierr.ne.0) then
4964 CALL wrf_error_fatal ( &
4965 'frame/module_domain.f: Failed to allocate grid%xp%v2z(1,1,1). ')
4966 endif
4967 ENDIF
4968 IF(.NOT.inter_domain)THEN
4969 ALLOCATE(grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x),STAT=ierr)
4970 if (ierr.ne.0) then
4971 CALL wrf_error_fatal ( &
4972 'frame/module_domain.f: Failed to allocate grid%xp%v2x(sm31x:em31x,sm32x:em32x,sm33x:em33x). ')
4973 endif
4974 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2x=initial_data_value
4975 ELSE
4976 ALLOCATE(grid%xp%v2x(1,1,1),STAT=ierr)
4977 if (ierr.ne.0) then
4978 CALL wrf_error_fatal ( &
4979 'frame/module_domain.f: Failed to allocate grid%xp%v2x(1,1,1). ')
4980 endif
4981 ENDIF
4982 IF(.NOT.inter_domain)THEN
4983 ALLOCATE(grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y),STAT=ierr)
4984 if (ierr.ne.0) then
4985 CALL wrf_error_fatal ( &
4986 'frame/module_domain.f: Failed to allocate grid%xp%v2y(sm31y:em31y,sm32y:em32y,sm33y:em33y). ')
4987 endif
4988 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xp%v2y=initial_data_value
4989 ELSE
4990 ALLOCATE(grid%xp%v2y(1,1,1),STAT=ierr)
4991 if (ierr.ne.0) then
4992 CALL wrf_error_fatal ( &
4993 'frame/module_domain.f: Failed to allocate grid%xp%v2y(1,1,1). ')
4994 endif
4995 ENDIF
4996 IF ( setinitval .EQ. 3 ) grid%fdob%domain_tot=0
4997 IF ( setinitval .EQ. 3 ) grid%fdob%domain_init=0
4998 IF ( setinitval .EQ. 3 ) grid%fdob%ieodi=0
4999 IF ( setinitval .EQ. 3 ) grid%fdob%iwtsig=0
5000 IF ( setinitval .EQ. 3 ) grid%fdob%nstat=0
5001 IF ( setinitval .EQ. 3 ) grid%fdob%ktaur=0
5002 IF ( setinitval .EQ. 3 ) grid%fdob%sn_maxcg=0
5003 IF ( setinitval .EQ. 3 ) grid%fdob%we_maxcg=0
5004 IF ( setinitval .EQ. 3 ) grid%fdob%sn_end=0
5005 IF ( setinitval .EQ. 3 ) grid%fdob%levidn(max_domains)=0
5006 IF ( setinitval .EQ. 3 ) grid%fdob%ds_cg=initial_data_value
5007 IF ( setinitval .EQ. 3 ) grid%fdob%window=initial_data_value
5008 IF ( setinitval .EQ. 3 ) grid%fdob%rtlast=initial_data_value
5009 IF ( setinitval .EQ. 3 ) grid%fdob%datend=initial_data_value
5010 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmn=initial_data_value
5011 IF ( setinitval .EQ. 3 ) grid%fdob%rinfmx=initial_data_value
5012 IF ( setinitval .EQ. 3 ) grid%fdob%pfree=initial_data_value
5013 IF ( setinitval .EQ. 3 ) grid%fdob%dcon=initial_data_value
5014 IF ( setinitval .EQ. 3 ) grid%fdob%dpsmx=initial_data_value
5015 IF ( setinitval .EQ. 3 ) grid%fdob%tfaci=initial_data_value
5016 IF ( setinitval .EQ. 3 ) grid%fdob%xn=initial_data_value
5017 IF(.NOT.inter_domain)THEN
5018 ALLOCATE(grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs),STAT=ierr)
5019 if (ierr.ne.0) then
5020 CALL wrf_error_fatal ( &
5021 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1:model_config_rec%nobs_ndg_vars,1:model_config_rec%max_obs). ')
5022 endif
5023 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%varobs=initial_data_value
5024 ELSE
5025 ALLOCATE(grid%fdob%varobs(1,1),STAT=ierr)
5026 if (ierr.ne.0) then
5027 CALL wrf_error_fatal ( &
5028 'frame/module_domain.f: Failed to allocate grid%fdob%varobs(1,1). ')
5029 endif
5030 ENDIF
5031 IF(.NOT.inter_domain)THEN
5032 ALLOCATE(grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs),STAT=ierr)
5033 if (ierr.ne.0) then
5034 CALL wrf_error_fatal ( &
5035 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1:model_config_rec%nobs_err_flds,1:model_config_rec%max_obs). ')
5036 endif
5037 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%errf=initial_data_value
5038 ELSE
5039 ALLOCATE(grid%fdob%errf(1,1),STAT=ierr)
5040 if (ierr.ne.0) then
5041 CALL wrf_error_fatal ( &
5042 'frame/module_domain.f: Failed to allocate grid%fdob%errf(1,1). ')
5043 endif
5044 ENDIF
5045 IF(.NOT.inter_domain)THEN
5046 ALLOCATE(grid%fdob%timeob(1:model_config_rec%max_obs),STAT=ierr)
5047 if (ierr.ne.0) then
5048 CALL wrf_error_fatal ( &
5049 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1:model_config_rec%max_obs). ')
5050 endif
5051 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%timeob=initial_data_value
5052 ELSE
5053 ALLOCATE(grid%fdob%timeob(1),STAT=ierr)
5054 if (ierr.ne.0) then
5055 CALL wrf_error_fatal ( &
5056 'frame/module_domain.f: Failed to allocate grid%fdob%timeob(1). ')
5057 endif
5058 ENDIF
5059 IF(.NOT.inter_domain)THEN
5060 ALLOCATE(grid%fdob%nlevs_ob(1:model_config_rec%max_obs),STAT=ierr)
5061 if (ierr.ne.0) then
5062 CALL wrf_error_fatal ( &
5063 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1:model_config_rec%max_obs). ')
5064 endif
5065 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%nlevs_ob=initial_data_value
5066 ELSE
5067 ALLOCATE(grid%fdob%nlevs_ob(1),STAT=ierr)
5068 if (ierr.ne.0) then
5069 CALL wrf_error_fatal ( &
5070 'frame/module_domain.f: Failed to allocate grid%fdob%nlevs_ob(1). ')
5071 endif
5072 ENDIF
5073 IF(.NOT.inter_domain)THEN
5074 ALLOCATE(grid%fdob%lev_in_ob(1:model_config_rec%max_obs),STAT=ierr)
5075 if (ierr.ne.0) then
5076 CALL wrf_error_fatal ( &
5077 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1:model_config_rec%max_obs). ')
5078 endif
5079 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%lev_in_ob=initial_data_value
5080 ELSE
5081 ALLOCATE(grid%fdob%lev_in_ob(1),STAT=ierr)
5082 if (ierr.ne.0) then
5083 CALL wrf_error_fatal ( &
5084 'frame/module_domain.f: Failed to allocate grid%fdob%lev_in_ob(1). ')
5085 endif
5086 ENDIF
5087 IF(.NOT.inter_domain)THEN
5088 ALLOCATE(grid%fdob%plfo(1:model_config_rec%max_obs),STAT=ierr)
5089 if (ierr.ne.0) then
5090 CALL wrf_error_fatal ( &
5091 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1:model_config_rec%max_obs). ')
5092 endif
5093 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%plfo=initial_data_value
5094 ELSE
5095 ALLOCATE(grid%fdob%plfo(1),STAT=ierr)
5096 if (ierr.ne.0) then
5097 CALL wrf_error_fatal ( &
5098 'frame/module_domain.f: Failed to allocate grid%fdob%plfo(1). ')
5099 endif
5100 ENDIF
5101 IF(.NOT.inter_domain)THEN
5102 ALLOCATE(grid%fdob%elevob(1:model_config_rec%max_obs),STAT=ierr)
5103 if (ierr.ne.0) then
5104 CALL wrf_error_fatal ( &
5105 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1:model_config_rec%max_obs). ')
5106 endif
5107 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%elevob=initial_data_value
5108 ELSE
5109 ALLOCATE(grid%fdob%elevob(1),STAT=ierr)
5110 if (ierr.ne.0) then
5111 CALL wrf_error_fatal ( &
5112 'frame/module_domain.f: Failed to allocate grid%fdob%elevob(1). ')
5113 endif
5114 ENDIF
5115 IF(.NOT.inter_domain)THEN
5116 ALLOCATE(grid%fdob%rio(1:model_config_rec%max_obs),STAT=ierr)
5117 if (ierr.ne.0) then
5118 CALL wrf_error_fatal ( &
5119 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1:model_config_rec%max_obs). ')
5120 endif
5121 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rio=initial_data_value
5122 ELSE
5123 ALLOCATE(grid%fdob%rio(1),STAT=ierr)
5124 if (ierr.ne.0) then
5125 CALL wrf_error_fatal ( &
5126 'frame/module_domain.f: Failed to allocate grid%fdob%rio(1). ')
5127 endif
5128 ENDIF
5129 IF(.NOT.inter_domain)THEN
5130 ALLOCATE(grid%fdob%rjo(1:model_config_rec%max_obs),STAT=ierr)
5131 if (ierr.ne.0) then
5132 CALL wrf_error_fatal ( &
5133 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1:model_config_rec%max_obs). ')
5134 endif
5135 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rjo=initial_data_value
5136 ELSE
5137 ALLOCATE(grid%fdob%rjo(1),STAT=ierr)
5138 if (ierr.ne.0) then
5139 CALL wrf_error_fatal ( &
5140 'frame/module_domain.f: Failed to allocate grid%fdob%rjo(1). ')
5141 endif
5142 ENDIF
5143 IF(.NOT.inter_domain)THEN
5144 ALLOCATE(grid%fdob%rko(1:model_config_rec%max_obs),STAT=ierr)
5145 if (ierr.ne.0) then
5146 CALL wrf_error_fatal ( &
5147 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1:model_config_rec%max_obs). ')
5148 endif
5149 IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fdob%rko=initial_data_value
5150 ELSE
5151 ALLOCATE(grid%fdob%rko(1),STAT=ierr)
5152 if (ierr.ne.0) then
5153 CALL wrf_error_fatal ( &
5154 'frame/module_domain.f: Failed to allocate grid%fdob%rko(1). ')
5155 endif
5156 ENDIF
5157 !ENDOFREGISTRYGENERATEDINCLUDE