nodyn_deallocs.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_deallocs.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 IF ( ASSOCIATED( grid%lu_index ) ) THEN
8 DEALLOCATE(grid%lu_index,STAT=ierr)
9 if (ierr.ne.0) then
10 CALL wrf_error_fatal ( &
11 'frame/module_domain.f: Failed to dallocate grid%lu_index. ')
12 endif
13 NULLIFY(grid%lu_index)
14 ENDIF
15 IF ( ASSOCIATED( grid%lu_mask ) ) THEN
16 DEALLOCATE(grid%lu_mask,STAT=ierr)
17 if (ierr.ne.0) then
18 CALL wrf_error_fatal ( &
19 'frame/module_domain.f: Failed to dallocate grid%lu_mask. ')
20 endif
21 NULLIFY(grid%lu_mask)
22 ENDIF
23 IF ( ASSOCIATED( grid%nest_pos ) ) THEN
24 DEALLOCATE(grid%nest_pos,STAT=ierr)
25 if (ierr.ne.0) then
26 CALL wrf_error_fatal ( &
27 'frame/module_domain.f: Failed to dallocate grid%nest_pos. ')
28 endif
29 NULLIFY(grid%nest_pos)
30 ENDIF
31 IF ( ASSOCIATED( grid%nest_mask ) ) THEN
32 DEALLOCATE(grid%nest_mask,STAT=ierr)
33 if (ierr.ne.0) then
34 CALL wrf_error_fatal ( &
35 'frame/module_domain.f: Failed to dallocate grid%nest_mask. ')
36 endif
37 NULLIFY(grid%nest_mask)
38 ENDIF
39 IF ( ASSOCIATED( grid%ht_coarse ) ) THEN
40 DEALLOCATE(grid%ht_coarse,STAT=ierr)
41 if (ierr.ne.0) then
42 CALL wrf_error_fatal ( &
43 'frame/module_domain.f: Failed to dallocate grid%ht_coarse. ')
44 endif
45 NULLIFY(grid%ht_coarse)
46 ENDIF
47 IF ( ASSOCIATED( grid%kma_a ) ) THEN
48 DEALLOCATE(grid%kma_a,STAT=ierr)
49 if (ierr.ne.0) then
50 CALL wrf_error_fatal ( &
51 'frame/module_domain.f: Failed to dallocate grid%kma_a. ')
52 endif
53 NULLIFY(grid%kma_a)
54 ENDIF
55 IF ( ASSOCIATED( grid%kma_b ) ) THEN
56 DEALLOCATE(grid%kma_b,STAT=ierr)
57 if (ierr.ne.0) then
58 CALL wrf_error_fatal ( &
59 'frame/module_domain.f: Failed to dallocate grid%kma_b. ')
60 endif
61 NULLIFY(grid%kma_b)
62 ENDIF
63 IF ( ASSOCIATED( grid%q2 ) ) THEN
64 DEALLOCATE(grid%q2,STAT=ierr)
65 if (ierr.ne.0) then
66 CALL wrf_error_fatal ( &
67 'frame/module_domain.f: Failed to dallocate grid%q2. ')
68 endif
69 NULLIFY(grid%q2)
70 ENDIF
71 IF ( ASSOCIATED( grid%t2 ) ) THEN
72 DEALLOCATE(grid%t2,STAT=ierr)
73 if (ierr.ne.0) then
74 CALL wrf_error_fatal ( &
75 'frame/module_domain.f: Failed to dallocate grid%t2. ')
76 endif
77 NULLIFY(grid%t2)
78 ENDIF
79 IF ( ASSOCIATED( grid%th2 ) ) THEN
80 DEALLOCATE(grid%th2,STAT=ierr)
81 if (ierr.ne.0) then
82 CALL wrf_error_fatal ( &
83 'frame/module_domain.f: Failed to dallocate grid%th2. ')
84 endif
85 NULLIFY(grid%th2)
86 ENDIF
87 IF ( ASSOCIATED( grid%psfc ) ) THEN
88 DEALLOCATE(grid%psfc,STAT=ierr)
89 if (ierr.ne.0) then
90 CALL wrf_error_fatal ( &
91 'frame/module_domain.f: Failed to dallocate grid%psfc. ')
92 endif
93 NULLIFY(grid%psfc)
94 ENDIF
95 IF ( ASSOCIATED( grid%u10 ) ) THEN
96 DEALLOCATE(grid%u10,STAT=ierr)
97 if (ierr.ne.0) then
98 CALL wrf_error_fatal ( &
99 'frame/module_domain.f: Failed to dallocate grid%u10. ')
100 endif
101 NULLIFY(grid%u10)
102 ENDIF
103 IF ( ASSOCIATED( grid%v10 ) ) THEN
104 DEALLOCATE(grid%v10,STAT=ierr)
105 if (ierr.ne.0) then
106 CALL wrf_error_fatal ( &
107 'frame/module_domain.f: Failed to dallocate grid%v10. ')
108 endif
109 NULLIFY(grid%v10)
110 ENDIF
111 IF ( ASSOCIATED( grid%uratx ) ) THEN
112 DEALLOCATE(grid%uratx,STAT=ierr)
113 if (ierr.ne.0) then
114 CALL wrf_error_fatal ( &
115 'frame/module_domain.f: Failed to dallocate grid%uratx. ')
116 endif
117 NULLIFY(grid%uratx)
118 ENDIF
119 IF ( ASSOCIATED( grid%vratx ) ) THEN
120 DEALLOCATE(grid%vratx,STAT=ierr)
121 if (ierr.ne.0) then
122 CALL wrf_error_fatal ( &
123 'frame/module_domain.f: Failed to dallocate grid%vratx. ')
124 endif
125 NULLIFY(grid%vratx)
126 ENDIF
127 IF ( ASSOCIATED( grid%tratx ) ) THEN
128 DEALLOCATE(grid%tratx,STAT=ierr)
129 if (ierr.ne.0) then
130 CALL wrf_error_fatal ( &
131 'frame/module_domain.f: Failed to dallocate grid%tratx. ')
132 endif
133 NULLIFY(grid%tratx)
134 ENDIF
135 IF ( ASSOCIATED( grid%imask_nostag ) ) THEN
136 DEALLOCATE(grid%imask_nostag,STAT=ierr)
137 if (ierr.ne.0) then
138 CALL wrf_error_fatal ( &
139 'frame/module_domain.f: Failed to dallocate grid%imask_nostag. ')
140 endif
141 NULLIFY(grid%imask_nostag)
142 ENDIF
143 IF ( ASSOCIATED( grid%imask_xstag ) ) THEN
144 DEALLOCATE(grid%imask_xstag,STAT=ierr)
145 if (ierr.ne.0) then
146 CALL wrf_error_fatal ( &
147 'frame/module_domain.f: Failed to dallocate grid%imask_xstag. ')
148 endif
149 NULLIFY(grid%imask_xstag)
150 ENDIF
151 IF ( ASSOCIATED( grid%imask_ystag ) ) THEN
152 DEALLOCATE(grid%imask_ystag,STAT=ierr)
153 if (ierr.ne.0) then
154 CALL wrf_error_fatal ( &
155 'frame/module_domain.f: Failed to dallocate grid%imask_ystag. ')
156 endif
157 NULLIFY(grid%imask_ystag)
158 ENDIF
159 IF ( ASSOCIATED( grid%imask_xystag ) ) THEN
160 DEALLOCATE(grid%imask_xystag,STAT=ierr)
161 if (ierr.ne.0) then
162 CALL wrf_error_fatal ( &
163 'frame/module_domain.f: Failed to dallocate grid%imask_xystag. ')
164 endif
165 NULLIFY(grid%imask_xystag)
166 ENDIF
167 IF ( ASSOCIATED( grid%moist ) ) THEN
168 DEALLOCATE(grid%moist,STAT=ierr)
169 if (ierr.ne.0) then
170 CALL wrf_error_fatal ( &
171 'frame/module_domain.f: Failed to dallocate grid%moist. ')
172 endif
173 NULLIFY(grid%moist)
174 ENDIF
175 IF ( ASSOCIATED( grid%a_moist ) ) THEN
176 DEALLOCATE(grid%a_moist,STAT=ierr)
177 if (ierr.ne.0) then
178 CALL wrf_error_fatal ( &
179 'frame/module_domain.f: Failed to dallocate grid%a_moist. ')
180 endif
181 NULLIFY(grid%a_moist)
182 ENDIF
183 IF ( ASSOCIATED( grid%g_moist ) ) THEN
184 DEALLOCATE(grid%g_moist,STAT=ierr)
185 if (ierr.ne.0) then
186 CALL wrf_error_fatal ( &
187 'frame/module_domain.f: Failed to dallocate grid%g_moist. ')
188 endif
189 NULLIFY(grid%g_moist)
190 ENDIF
191 IF ( ASSOCIATED( grid%moist_b ) ) THEN
192 DEALLOCATE(grid%moist_b,STAT=ierr)
193 if (ierr.ne.0) then
194 CALL wrf_error_fatal ( &
195 'frame/module_domain.f: Failed to dallocate grid%moist_b. ')
196 endif
197 NULLIFY(grid%moist_b)
198 ENDIF
199 IF ( ASSOCIATED( grid%moist_bt ) ) THEN
200 DEALLOCATE(grid%moist_bt,STAT=ierr)
201 if (ierr.ne.0) then
202 CALL wrf_error_fatal ( &
203 'frame/module_domain.f: Failed to dallocate grid%moist_bt. ')
204 endif
205 NULLIFY(grid%moist_bt)
206 ENDIF
207 IF ( ASSOCIATED( grid%a_moist_b ) ) THEN
208 DEALLOCATE(grid%a_moist_b,STAT=ierr)
209 if (ierr.ne.0) then
210 CALL wrf_error_fatal ( &
211 'frame/module_domain.f: Failed to dallocate grid%a_moist_b. ')
212 endif
213 NULLIFY(grid%a_moist_b)
214 ENDIF
215 IF ( ASSOCIATED( grid%a_moist_bt ) ) THEN
216 DEALLOCATE(grid%a_moist_bt,STAT=ierr)
217 if (ierr.ne.0) then
218 CALL wrf_error_fatal ( &
219 'frame/module_domain.f: Failed to dallocate grid%a_moist_bt. ')
220 endif
221 NULLIFY(grid%a_moist_bt)
222 ENDIF
223 IF ( ASSOCIATED( grid%g_moist_b ) ) THEN
224 DEALLOCATE(grid%g_moist_b,STAT=ierr)
225 if (ierr.ne.0) then
226 CALL wrf_error_fatal ( &
227 'frame/module_domain.f: Failed to dallocate grid%g_moist_b. ')
228 endif
229 NULLIFY(grid%g_moist_b)
230 ENDIF
231 IF ( ASSOCIATED( grid%g_moist_bt ) ) THEN
232 DEALLOCATE(grid%g_moist_bt,STAT=ierr)
233 if (ierr.ne.0) then
234 CALL wrf_error_fatal ( &
235 'frame/module_domain.f: Failed to dallocate grid%g_moist_bt. ')
236 endif
237 NULLIFY(grid%g_moist_bt)
238 ENDIF
239 IF ( ASSOCIATED( grid%scalar ) ) THEN
240 DEALLOCATE(grid%scalar,STAT=ierr)
241 if (ierr.ne.0) then
242 CALL wrf_error_fatal ( &
243 'frame/module_domain.f: Failed to dallocate grid%scalar. ')
244 endif
245 NULLIFY(grid%scalar)
246 ENDIF
247 IF ( ASSOCIATED( grid%a_scalar ) ) THEN
248 DEALLOCATE(grid%a_scalar,STAT=ierr)
249 if (ierr.ne.0) then
250 CALL wrf_error_fatal ( &
251 'frame/module_domain.f: Failed to dallocate grid%a_scalar. ')
252 endif
253 NULLIFY(grid%a_scalar)
254 ENDIF
255 IF ( ASSOCIATED( grid%g_scalar ) ) THEN
256 DEALLOCATE(grid%g_scalar,STAT=ierr)
257 if (ierr.ne.0) then
258 CALL wrf_error_fatal ( &
259 'frame/module_domain.f: Failed to dallocate grid%g_scalar. ')
260 endif
261 NULLIFY(grid%g_scalar)
262 ENDIF
263 IF ( ASSOCIATED( grid%scalar_b ) ) THEN
264 DEALLOCATE(grid%scalar_b,STAT=ierr)
265 if (ierr.ne.0) then
266 CALL wrf_error_fatal ( &
267 'frame/module_domain.f: Failed to dallocate grid%scalar_b. ')
268 endif
269 NULLIFY(grid%scalar_b)
270 ENDIF
271 IF ( ASSOCIATED( grid%scalar_bt ) ) THEN
272 DEALLOCATE(grid%scalar_bt,STAT=ierr)
273 if (ierr.ne.0) then
274 CALL wrf_error_fatal ( &
275 'frame/module_domain.f: Failed to dallocate grid%scalar_bt. ')
276 endif
277 NULLIFY(grid%scalar_bt)
278 ENDIF
279 IF ( ASSOCIATED( grid%fcx ) ) THEN
280 DEALLOCATE(grid%fcx,STAT=ierr)
281 if (ierr.ne.0) then
282 CALL wrf_error_fatal ( &
283 'frame/module_domain.f: Failed to dallocate grid%fcx. ')
284 endif
285 NULLIFY(grid%fcx)
286 ENDIF
287 IF ( ASSOCIATED( grid%gcx ) ) THEN
288 DEALLOCATE(grid%gcx,STAT=ierr)
289 if (ierr.ne.0) then
290 CALL wrf_error_fatal ( &
291 'frame/module_domain.f: Failed to dallocate grid%gcx. ')
292 endif
293 NULLIFY(grid%gcx)
294 ENDIF
295 IF ( ASSOCIATED( grid%landmask ) ) THEN
296 DEALLOCATE(grid%landmask,STAT=ierr)
297 if (ierr.ne.0) then
298 CALL wrf_error_fatal ( &
299 'frame/module_domain.f: Failed to dallocate grid%landmask. ')
300 endif
301 NULLIFY(grid%landmask)
302 ENDIF
303 IF ( ASSOCIATED( grid%shdmax ) ) THEN
304 DEALLOCATE(grid%shdmax,STAT=ierr)
305 if (ierr.ne.0) then
306 CALL wrf_error_fatal ( &
307 'frame/module_domain.f: Failed to dallocate grid%shdmax. ')
308 endif
309 NULLIFY(grid%shdmax)
310 ENDIF
311 IF ( ASSOCIATED( grid%shdmin ) ) THEN
312 DEALLOCATE(grid%shdmin,STAT=ierr)
313 if (ierr.ne.0) then
314 CALL wrf_error_fatal ( &
315 'frame/module_domain.f: Failed to dallocate grid%shdmin. ')
316 endif
317 NULLIFY(grid%shdmin)
318 ENDIF
319 IF ( ASSOCIATED( grid%snoalb ) ) THEN
320 DEALLOCATE(grid%snoalb,STAT=ierr)
321 if (ierr.ne.0) then
322 CALL wrf_error_fatal ( &
323 'frame/module_domain.f: Failed to dallocate grid%snoalb. ')
324 endif
325 NULLIFY(grid%snoalb)
326 ENDIF
327 IF ( ASSOCIATED( grid%tslb ) ) THEN
328 DEALLOCATE(grid%tslb,STAT=ierr)
329 if (ierr.ne.0) then
330 CALL wrf_error_fatal ( &
331 'frame/module_domain.f: Failed to dallocate grid%tslb. ')
332 endif
333 NULLIFY(grid%tslb)
334 ENDIF
335 IF ( ASSOCIATED( grid%zs ) ) THEN
336 DEALLOCATE(grid%zs,STAT=ierr)
337 if (ierr.ne.0) then
338 CALL wrf_error_fatal ( &
339 'frame/module_domain.f: Failed to dallocate grid%zs. ')
340 endif
341 NULLIFY(grid%zs)
342 ENDIF
343 IF ( ASSOCIATED( grid%dzs ) ) THEN
344 DEALLOCATE(grid%dzs,STAT=ierr)
345 if (ierr.ne.0) then
346 CALL wrf_error_fatal ( &
347 'frame/module_domain.f: Failed to dallocate grid%dzs. ')
348 endif
349 NULLIFY(grid%dzs)
350 ENDIF
351 IF ( ASSOCIATED( grid%smois ) ) THEN
352 DEALLOCATE(grid%smois,STAT=ierr)
353 if (ierr.ne.0) then
354 CALL wrf_error_fatal ( &
355 'frame/module_domain.f: Failed to dallocate grid%smois. ')
356 endif
357 NULLIFY(grid%smois)
358 ENDIF
359 IF ( ASSOCIATED( grid%sh2o ) ) THEN
360 DEALLOCATE(grid%sh2o,STAT=ierr)
361 if (ierr.ne.0) then
362 CALL wrf_error_fatal ( &
363 'frame/module_domain.f: Failed to dallocate grid%sh2o. ')
364 endif
365 NULLIFY(grid%sh2o)
366 ENDIF
367 IF ( ASSOCIATED( grid%xice ) ) THEN
368 DEALLOCATE(grid%xice,STAT=ierr)
369 if (ierr.ne.0) then
370 CALL wrf_error_fatal ( &
371 'frame/module_domain.f: Failed to dallocate grid%xice. ')
372 endif
373 NULLIFY(grid%xice)
374 ENDIF
375 IF ( ASSOCIATED( grid%sfcrunoff ) ) THEN
376 DEALLOCATE(grid%sfcrunoff,STAT=ierr)
377 if (ierr.ne.0) then
378 CALL wrf_error_fatal ( &
379 'frame/module_domain.f: Failed to dallocate grid%sfcrunoff. ')
380 endif
381 NULLIFY(grid%sfcrunoff)
382 ENDIF
383 IF ( ASSOCIATED( grid%udrunoff ) ) THEN
384 DEALLOCATE(grid%udrunoff,STAT=ierr)
385 if (ierr.ne.0) then
386 CALL wrf_error_fatal ( &
387 'frame/module_domain.f: Failed to dallocate grid%udrunoff. ')
388 endif
389 NULLIFY(grid%udrunoff)
390 ENDIF
391 IF ( ASSOCIATED( grid%ivgtyp ) ) THEN
392 DEALLOCATE(grid%ivgtyp,STAT=ierr)
393 if (ierr.ne.0) then
394 CALL wrf_error_fatal ( &
395 'frame/module_domain.f: Failed to dallocate grid%ivgtyp. ')
396 endif
397 NULLIFY(grid%ivgtyp)
398 ENDIF
399 IF ( ASSOCIATED( grid%isltyp ) ) THEN
400 DEALLOCATE(grid%isltyp,STAT=ierr)
401 if (ierr.ne.0) then
402 CALL wrf_error_fatal ( &
403 'frame/module_domain.f: Failed to dallocate grid%isltyp. ')
404 endif
405 NULLIFY(grid%isltyp)
406 ENDIF
407 IF ( ASSOCIATED( grid%vegfra ) ) THEN
408 DEALLOCATE(grid%vegfra,STAT=ierr)
409 if (ierr.ne.0) then
410 CALL wrf_error_fatal ( &
411 'frame/module_domain.f: Failed to dallocate grid%vegfra. ')
412 endif
413 NULLIFY(grid%vegfra)
414 ENDIF
415 IF ( ASSOCIATED( grid%sfcevp ) ) THEN
416 DEALLOCATE(grid%sfcevp,STAT=ierr)
417 if (ierr.ne.0) then
418 CALL wrf_error_fatal ( &
419 'frame/module_domain.f: Failed to dallocate grid%sfcevp. ')
420 endif
421 NULLIFY(grid%sfcevp)
422 ENDIF
423 IF ( ASSOCIATED( grid%acsnow ) ) THEN
424 DEALLOCATE(grid%acsnow,STAT=ierr)
425 if (ierr.ne.0) then
426 CALL wrf_error_fatal ( &
427 'frame/module_domain.f: Failed to dallocate grid%acsnow. ')
428 endif
429 NULLIFY(grid%acsnow)
430 ENDIF
431 IF ( ASSOCIATED( grid%acsnom ) ) THEN
432 DEALLOCATE(grid%acsnom,STAT=ierr)
433 if (ierr.ne.0) then
434 CALL wrf_error_fatal ( &
435 'frame/module_domain.f: Failed to dallocate grid%acsnom. ')
436 endif
437 NULLIFY(grid%acsnom)
438 ENDIF
439 IF ( ASSOCIATED( grid%snow ) ) THEN
440 DEALLOCATE(grid%snow,STAT=ierr)
441 if (ierr.ne.0) then
442 CALL wrf_error_fatal ( &
443 'frame/module_domain.f: Failed to dallocate grid%snow. ')
444 endif
445 NULLIFY(grid%snow)
446 ENDIF
447 IF ( ASSOCIATED( grid%snowh ) ) THEN
448 DEALLOCATE(grid%snowh,STAT=ierr)
449 if (ierr.ne.0) then
450 CALL wrf_error_fatal ( &
451 'frame/module_domain.f: Failed to dallocate grid%snowh. ')
452 endif
453 NULLIFY(grid%snowh)
454 ENDIF
455 IF ( ASSOCIATED( grid%rhosn ) ) THEN
456 DEALLOCATE(grid%rhosn,STAT=ierr)
457 if (ierr.ne.0) then
458 CALL wrf_error_fatal ( &
459 'frame/module_domain.f: Failed to dallocate grid%rhosn. ')
460 endif
461 NULLIFY(grid%rhosn)
462 ENDIF
463 IF ( ASSOCIATED( grid%canwat ) ) THEN
464 DEALLOCATE(grid%canwat,STAT=ierr)
465 if (ierr.ne.0) then
466 CALL wrf_error_fatal ( &
467 'frame/module_domain.f: Failed to dallocate grid%canwat. ')
468 endif
469 NULLIFY(grid%canwat)
470 ENDIF
471 IF ( ASSOCIATED( grid%sst ) ) THEN
472 DEALLOCATE(grid%sst,STAT=ierr)
473 if (ierr.ne.0) then
474 CALL wrf_error_fatal ( &
475 'frame/module_domain.f: Failed to dallocate grid%sst. ')
476 endif
477 NULLIFY(grid%sst)
478 ENDIF
479 IF ( ASSOCIATED( grid%htop ) ) THEN
480 DEALLOCATE(grid%htop,STAT=ierr)
481 if (ierr.ne.0) then
482 CALL wrf_error_fatal ( &
483 'frame/module_domain.f: Failed to dallocate grid%htop. ')
484 endif
485 NULLIFY(grid%htop)
486 ENDIF
487 IF ( ASSOCIATED( grid%hbot ) ) THEN
488 DEALLOCATE(grid%hbot,STAT=ierr)
489 if (ierr.ne.0) then
490 CALL wrf_error_fatal ( &
491 'frame/module_domain.f: Failed to dallocate grid%hbot. ')
492 endif
493 NULLIFY(grid%hbot)
494 ENDIF
495 IF ( ASSOCIATED( grid%cuppt ) ) THEN
496 DEALLOCATE(grid%cuppt,STAT=ierr)
497 if (ierr.ne.0) then
498 CALL wrf_error_fatal ( &
499 'frame/module_domain.f: Failed to dallocate grid%cuppt. ')
500 endif
501 NULLIFY(grid%cuppt)
502 ENDIF
503 IF ( ASSOCIATED( grid%rswtoa ) ) THEN
504 DEALLOCATE(grid%rswtoa,STAT=ierr)
505 if (ierr.ne.0) then
506 CALL wrf_error_fatal ( &
507 'frame/module_domain.f: Failed to dallocate grid%rswtoa. ')
508 endif
509 NULLIFY(grid%rswtoa)
510 ENDIF
511 IF ( ASSOCIATED( grid%rlwtoa ) ) THEN
512 DEALLOCATE(grid%rlwtoa,STAT=ierr)
513 if (ierr.ne.0) then
514 CALL wrf_error_fatal ( &
515 'frame/module_domain.f: Failed to dallocate grid%rlwtoa. ')
516 endif
517 NULLIFY(grid%rlwtoa)
518 ENDIF
519 IF ( ASSOCIATED( grid%czmean ) ) THEN
520 DEALLOCATE(grid%czmean,STAT=ierr)
521 if (ierr.ne.0) then
522 CALL wrf_error_fatal ( &
523 'frame/module_domain.f: Failed to dallocate grid%czmean. ')
524 endif
525 NULLIFY(grid%czmean)
526 ENDIF
527 IF ( ASSOCIATED( grid%cfracl ) ) THEN
528 DEALLOCATE(grid%cfracl,STAT=ierr)
529 if (ierr.ne.0) then
530 CALL wrf_error_fatal ( &
531 'frame/module_domain.f: Failed to dallocate grid%cfracl. ')
532 endif
533 NULLIFY(grid%cfracl)
534 ENDIF
535 IF ( ASSOCIATED( grid%cfracm ) ) THEN
536 DEALLOCATE(grid%cfracm,STAT=ierr)
537 if (ierr.ne.0) then
538 CALL wrf_error_fatal ( &
539 'frame/module_domain.f: Failed to dallocate grid%cfracm. ')
540 endif
541 NULLIFY(grid%cfracm)
542 ENDIF
543 IF ( ASSOCIATED( grid%cfrach ) ) THEN
544 DEALLOCATE(grid%cfrach,STAT=ierr)
545 if (ierr.ne.0) then
546 CALL wrf_error_fatal ( &
547 'frame/module_domain.f: Failed to dallocate grid%cfrach. ')
548 endif
549 NULLIFY(grid%cfrach)
550 ENDIF
551 IF ( ASSOCIATED( grid%acfrst ) ) THEN
552 DEALLOCATE(grid%acfrst,STAT=ierr)
553 if (ierr.ne.0) then
554 CALL wrf_error_fatal ( &
555 'frame/module_domain.f: Failed to dallocate grid%acfrst. ')
556 endif
557 NULLIFY(grid%acfrst)
558 ENDIF
559 IF ( ASSOCIATED( grid%ncfrst ) ) THEN
560 DEALLOCATE(grid%ncfrst,STAT=ierr)
561 if (ierr.ne.0) then
562 CALL wrf_error_fatal ( &
563 'frame/module_domain.f: Failed to dallocate grid%ncfrst. ')
564 endif
565 NULLIFY(grid%ncfrst)
566 ENDIF
567 IF ( ASSOCIATED( grid%acfrcv ) ) THEN
568 DEALLOCATE(grid%acfrcv,STAT=ierr)
569 if (ierr.ne.0) then
570 CALL wrf_error_fatal ( &
571 'frame/module_domain.f: Failed to dallocate grid%acfrcv. ')
572 endif
573 NULLIFY(grid%acfrcv)
574 ENDIF
575 IF ( ASSOCIATED( grid%ncfrcv ) ) THEN
576 DEALLOCATE(grid%ncfrcv,STAT=ierr)
577 if (ierr.ne.0) then
578 CALL wrf_error_fatal ( &
579 'frame/module_domain.f: Failed to dallocate grid%ncfrcv. ')
580 endif
581 NULLIFY(grid%ncfrcv)
582 ENDIF
583 IF ( ASSOCIATED( grid%h_diabatic ) ) THEN
584 DEALLOCATE(grid%h_diabatic,STAT=ierr)
585 if (ierr.ne.0) then
586 CALL wrf_error_fatal ( &
587 'frame/module_domain.f: Failed to dallocate grid%h_diabatic. ')
588 endif
589 NULLIFY(grid%h_diabatic)
590 ENDIF
591 IF ( ASSOCIATED( grid%msft ) ) THEN
592 DEALLOCATE(grid%msft,STAT=ierr)
593 if (ierr.ne.0) then
594 CALL wrf_error_fatal ( &
595 'frame/module_domain.f: Failed to dallocate grid%msft. ')
596 endif
597 NULLIFY(grid%msft)
598 ENDIF
599 IF ( ASSOCIATED( grid%msfu ) ) THEN
600 DEALLOCATE(grid%msfu,STAT=ierr)
601 if (ierr.ne.0) then
602 CALL wrf_error_fatal ( &
603 'frame/module_domain.f: Failed to dallocate grid%msfu. ')
604 endif
605 NULLIFY(grid%msfu)
606 ENDIF
607 IF ( ASSOCIATED( grid%msfv ) ) THEN
608 DEALLOCATE(grid%msfv,STAT=ierr)
609 if (ierr.ne.0) then
610 CALL wrf_error_fatal ( &
611 'frame/module_domain.f: Failed to dallocate grid%msfv. ')
612 endif
613 NULLIFY(grid%msfv)
614 ENDIF
615 IF ( ASSOCIATED( grid%f ) ) THEN
616 DEALLOCATE(grid%f,STAT=ierr)
617 if (ierr.ne.0) then
618 CALL wrf_error_fatal ( &
619 'frame/module_domain.f: Failed to dallocate grid%f. ')
620 endif
621 NULLIFY(grid%f)
622 ENDIF
623 IF ( ASSOCIATED( grid%e ) ) THEN
624 DEALLOCATE(grid%e,STAT=ierr)
625 if (ierr.ne.0) then
626 CALL wrf_error_fatal ( &
627 'frame/module_domain.f: Failed to dallocate grid%e. ')
628 endif
629 NULLIFY(grid%e)
630 ENDIF
631 IF ( ASSOCIATED( grid%sina ) ) THEN
632 DEALLOCATE(grid%sina,STAT=ierr)
633 if (ierr.ne.0) then
634 CALL wrf_error_fatal ( &
635 'frame/module_domain.f: Failed to dallocate grid%sina. ')
636 endif
637 NULLIFY(grid%sina)
638 ENDIF
639 IF ( ASSOCIATED( grid%cosa ) ) THEN
640 DEALLOCATE(grid%cosa,STAT=ierr)
641 if (ierr.ne.0) then
642 CALL wrf_error_fatal ( &
643 'frame/module_domain.f: Failed to dallocate grid%cosa. ')
644 endif
645 NULLIFY(grid%cosa)
646 ENDIF
647 IF ( ASSOCIATED( grid%ht ) ) THEN
648 DEALLOCATE(grid%ht,STAT=ierr)
649 if (ierr.ne.0) then
650 CALL wrf_error_fatal ( &
651 'frame/module_domain.f: Failed to dallocate grid%ht. ')
652 endif
653 NULLIFY(grid%ht)
654 ENDIF
655 IF ( ASSOCIATED( grid%ht_fine ) ) THEN
656 DEALLOCATE(grid%ht_fine,STAT=ierr)
657 if (ierr.ne.0) then
658 CALL wrf_error_fatal ( &
659 'frame/module_domain.f: Failed to dallocate grid%ht_fine. ')
660 endif
661 NULLIFY(grid%ht_fine)
662 ENDIF
663 IF ( ASSOCIATED( grid%ht_int ) ) THEN
664 DEALLOCATE(grid%ht_int,STAT=ierr)
665 if (ierr.ne.0) then
666 CALL wrf_error_fatal ( &
667 'frame/module_domain.f: Failed to dallocate grid%ht_int. ')
668 endif
669 NULLIFY(grid%ht_int)
670 ENDIF
671 IF ( ASSOCIATED( grid%ht_input ) ) THEN
672 DEALLOCATE(grid%ht_input,STAT=ierr)
673 if (ierr.ne.0) then
674 CALL wrf_error_fatal ( &
675 'frame/module_domain.f: Failed to dallocate grid%ht_input. ')
676 endif
677 NULLIFY(grid%ht_input)
678 ENDIF
679 IF ( ASSOCIATED( grid%tsk ) ) THEN
680 DEALLOCATE(grid%tsk,STAT=ierr)
681 if (ierr.ne.0) then
682 CALL wrf_error_fatal ( &
683 'frame/module_domain.f: Failed to dallocate grid%tsk. ')
684 endif
685 NULLIFY(grid%tsk)
686 ENDIF
687 IF ( ASSOCIATED( grid%tsk_save ) ) THEN
688 DEALLOCATE(grid%tsk_save,STAT=ierr)
689 if (ierr.ne.0) then
690 CALL wrf_error_fatal ( &
691 'frame/module_domain.f: Failed to dallocate grid%tsk_save. ')
692 endif
693 NULLIFY(grid%tsk_save)
694 ENDIF
695 IF ( ASSOCIATED( grid%u_base ) ) THEN
696 DEALLOCATE(grid%u_base,STAT=ierr)
697 if (ierr.ne.0) then
698 CALL wrf_error_fatal ( &
699 'frame/module_domain.f: Failed to dallocate grid%u_base. ')
700 endif
701 NULLIFY(grid%u_base)
702 ENDIF
703 IF ( ASSOCIATED( grid%v_base ) ) THEN
704 DEALLOCATE(grid%v_base,STAT=ierr)
705 if (ierr.ne.0) then
706 CALL wrf_error_fatal ( &
707 'frame/module_domain.f: Failed to dallocate grid%v_base. ')
708 endif
709 NULLIFY(grid%v_base)
710 ENDIF
711 IF ( ASSOCIATED( grid%qv_base ) ) THEN
712 DEALLOCATE(grid%qv_base,STAT=ierr)
713 if (ierr.ne.0) then
714 CALL wrf_error_fatal ( &
715 'frame/module_domain.f: Failed to dallocate grid%qv_base. ')
716 endif
717 NULLIFY(grid%qv_base)
718 ENDIF
719 IF ( ASSOCIATED( grid%z_base ) ) THEN
720 DEALLOCATE(grid%z_base,STAT=ierr)
721 if (ierr.ne.0) then
722 CALL wrf_error_fatal ( &
723 'frame/module_domain.f: Failed to dallocate grid%z_base. ')
724 endif
725 NULLIFY(grid%z_base)
726 ENDIF
727 IF ( ASSOCIATED( grid%rainc ) ) THEN
728 DEALLOCATE(grid%rainc,STAT=ierr)
729 if (ierr.ne.0) then
730 CALL wrf_error_fatal ( &
731 'frame/module_domain.f: Failed to dallocate grid%rainc. ')
732 endif
733 NULLIFY(grid%rainc)
734 ENDIF
735 IF ( ASSOCIATED( grid%rainnc ) ) THEN
736 DEALLOCATE(grid%rainnc,STAT=ierr)
737 if (ierr.ne.0) then
738 CALL wrf_error_fatal ( &
739 'frame/module_domain.f: Failed to dallocate grid%rainnc. ')
740 endif
741 NULLIFY(grid%rainnc)
742 ENDIF
743 IF ( ASSOCIATED( grid%xlat ) ) THEN
744 DEALLOCATE(grid%xlat,STAT=ierr)
745 if (ierr.ne.0) then
746 CALL wrf_error_fatal ( &
747 'frame/module_domain.f: Failed to dallocate grid%xlat. ')
748 endif
749 NULLIFY(grid%xlat)
750 ENDIF
751 IF ( ASSOCIATED( grid%xlong ) ) THEN
752 DEALLOCATE(grid%xlong,STAT=ierr)
753 if (ierr.ne.0) then
754 CALL wrf_error_fatal ( &
755 'frame/module_domain.f: Failed to dallocate grid%xlong. ')
756 endif
757 NULLIFY(grid%xlong)
758 ENDIF
759 IF ( ASSOCIATED( grid%albbck ) ) THEN
760 DEALLOCATE(grid%albbck,STAT=ierr)
761 if (ierr.ne.0) then
762 CALL wrf_error_fatal ( &
763 'frame/module_domain.f: Failed to dallocate grid%albbck. ')
764 endif
765 NULLIFY(grid%albbck)
766 ENDIF
767 IF ( ASSOCIATED( grid%mp_restart_state ) ) THEN
768 DEALLOCATE(grid%mp_restart_state,STAT=ierr)
769 if (ierr.ne.0) then
770 CALL wrf_error_fatal ( &
771 'frame/module_domain.f: Failed to dallocate grid%mp_restart_state. ')
772 endif
773 NULLIFY(grid%mp_restart_state)
774 ENDIF
775 IF ( ASSOCIATED( grid%tbpvs_state ) ) THEN
776 DEALLOCATE(grid%tbpvs_state,STAT=ierr)
777 if (ierr.ne.0) then
778 CALL wrf_error_fatal ( &
779 'frame/module_domain.f: Failed to dallocate grid%tbpvs_state. ')
780 endif
781 NULLIFY(grid%tbpvs_state)
782 ENDIF
783 IF ( ASSOCIATED( grid%tbpvs0_state ) ) THEN
784 DEALLOCATE(grid%tbpvs0_state,STAT=ierr)
785 if (ierr.ne.0) then
786 CALL wrf_error_fatal ( &
787 'frame/module_domain.f: Failed to dallocate grid%tbpvs0_state. ')
788 endif
789 NULLIFY(grid%tbpvs0_state)
790 ENDIF
791 IF ( ASSOCIATED( grid%tmn ) ) THEN
792 DEALLOCATE(grid%tmn,STAT=ierr)
793 if (ierr.ne.0) then
794 CALL wrf_error_fatal ( &
795 'frame/module_domain.f: Failed to dallocate grid%tmn. ')
796 endif
797 NULLIFY(grid%tmn)
798 ENDIF
799 IF ( ASSOCIATED( grid%xland ) ) THEN
800 DEALLOCATE(grid%xland,STAT=ierr)
801 if (ierr.ne.0) then
802 CALL wrf_error_fatal ( &
803 'frame/module_domain.f: Failed to dallocate grid%xland. ')
804 endif
805 NULLIFY(grid%xland)
806 ENDIF
807 IF ( ASSOCIATED( grid%znt ) ) THEN
808 DEALLOCATE(grid%znt,STAT=ierr)
809 if (ierr.ne.0) then
810 CALL wrf_error_fatal ( &
811 'frame/module_domain.f: Failed to dallocate grid%znt. ')
812 endif
813 NULLIFY(grid%znt)
814 ENDIF
815 IF ( ASSOCIATED( grid%snowc ) ) THEN
816 DEALLOCATE(grid%snowc,STAT=ierr)
817 if (ierr.ne.0) then
818 CALL wrf_error_fatal ( &
819 'frame/module_domain.f: Failed to dallocate grid%snowc. ')
820 endif
821 NULLIFY(grid%snowc)
822 ENDIF
823 IF ( ASSOCIATED( grid%xkmv ) ) THEN
824 DEALLOCATE(grid%xkmv,STAT=ierr)
825 if (ierr.ne.0) then
826 CALL wrf_error_fatal ( &
827 'frame/module_domain.f: Failed to dallocate grid%xkmv. ')
828 endif
829 NULLIFY(grid%xkmv)
830 ENDIF
831 IF ( ASSOCIATED( grid%xkmh ) ) THEN
832 DEALLOCATE(grid%xkmh,STAT=ierr)
833 if (ierr.ne.0) then
834 CALL wrf_error_fatal ( &
835 'frame/module_domain.f: Failed to dallocate grid%xkmh. ')
836 endif
837 NULLIFY(grid%xkmh)
838 ENDIF
839 IF ( ASSOCIATED( grid%xkmhd ) ) THEN
840 DEALLOCATE(grid%xkmhd,STAT=ierr)
841 if (ierr.ne.0) then
842 CALL wrf_error_fatal ( &
843 'frame/module_domain.f: Failed to dallocate grid%xkmhd. ')
844 endif
845 NULLIFY(grid%xkmhd)
846 ENDIF
847 IF ( ASSOCIATED( grid%a_xkmhd ) ) THEN
848 DEALLOCATE(grid%a_xkmhd,STAT=ierr)
849 if (ierr.ne.0) then
850 CALL wrf_error_fatal ( &
851 'frame/module_domain.f: Failed to dallocate grid%a_xkmhd. ')
852 endif
853 NULLIFY(grid%a_xkmhd)
854 ENDIF
855 IF ( ASSOCIATED( grid%g_xkmhd ) ) THEN
856 DEALLOCATE(grid%g_xkmhd,STAT=ierr)
857 if (ierr.ne.0) then
858 CALL wrf_error_fatal ( &
859 'frame/module_domain.f: Failed to dallocate grid%g_xkmhd. ')
860 endif
861 NULLIFY(grid%g_xkmhd)
862 ENDIF
863 IF ( ASSOCIATED( grid%xkhv ) ) THEN
864 DEALLOCATE(grid%xkhv,STAT=ierr)
865 if (ierr.ne.0) then
866 CALL wrf_error_fatal ( &
867 'frame/module_domain.f: Failed to dallocate grid%xkhv. ')
868 endif
869 NULLIFY(grid%xkhv)
870 ENDIF
871 IF ( ASSOCIATED( grid%xkhh ) ) THEN
872 DEALLOCATE(grid%xkhh,STAT=ierr)
873 if (ierr.ne.0) then
874 CALL wrf_error_fatal ( &
875 'frame/module_domain.f: Failed to dallocate grid%xkhh. ')
876 endif
877 NULLIFY(grid%xkhh)
878 ENDIF
879 IF ( ASSOCIATED( grid%vv%v1 ) ) THEN
880 DEALLOCATE(grid%vv%v1,STAT=ierr)
881 if (ierr.ne.0) then
882 CALL wrf_error_fatal ( &
883 'frame/module_domain.f: Failed to dallocate grid%vv%v1. ')
884 endif
885 NULLIFY(grid%vv%v1)
886 ENDIF
887 IF ( ASSOCIATED( grid%vv%v2 ) ) THEN
888 DEALLOCATE(grid%vv%v2,STAT=ierr)
889 if (ierr.ne.0) then
890 CALL wrf_error_fatal ( &
891 'frame/module_domain.f: Failed to dallocate grid%vv%v2. ')
892 endif
893 NULLIFY(grid%vv%v2)
894 ENDIF
895 IF ( ASSOCIATED( grid%vv%v3 ) ) THEN
896 DEALLOCATE(grid%vv%v3,STAT=ierr)
897 if (ierr.ne.0) then
898 CALL wrf_error_fatal ( &
899 'frame/module_domain.f: Failed to dallocate grid%vv%v3. ')
900 endif
901 NULLIFY(grid%vv%v3)
902 ENDIF
903 IF ( ASSOCIATED( grid%vv%v4 ) ) THEN
904 DEALLOCATE(grid%vv%v4,STAT=ierr)
905 if (ierr.ne.0) then
906 CALL wrf_error_fatal ( &
907 'frame/module_domain.f: Failed to dallocate grid%vv%v4. ')
908 endif
909 NULLIFY(grid%vv%v4)
910 ENDIF
911 IF ( ASSOCIATED( grid%vv%v5 ) ) THEN
912 DEALLOCATE(grid%vv%v5,STAT=ierr)
913 if (ierr.ne.0) then
914 CALL wrf_error_fatal ( &
915 'frame/module_domain.f: Failed to dallocate grid%vv%v5. ')
916 endif
917 NULLIFY(grid%vv%v5)
918 ENDIF
919 IF ( ASSOCIATED( grid%vv%alpha ) ) THEN
920 DEALLOCATE(grid%vv%alpha,STAT=ierr)
921 if (ierr.ne.0) then
922 CALL wrf_error_fatal ( &
923 'frame/module_domain.f: Failed to dallocate grid%vv%alpha. ')
924 endif
925 NULLIFY(grid%vv%alpha)
926 ENDIF
927 IF ( ASSOCIATED( grid%vp%v1 ) ) THEN
928 DEALLOCATE(grid%vp%v1,STAT=ierr)
929 if (ierr.ne.0) then
930 CALL wrf_error_fatal ( &
931 'frame/module_domain.f: Failed to dallocate grid%vp%v1. ')
932 endif
933 NULLIFY(grid%vp%v1)
934 ENDIF
935 IF ( ASSOCIATED( grid%vp%v2 ) ) THEN
936 DEALLOCATE(grid%vp%v2,STAT=ierr)
937 if (ierr.ne.0) then
938 CALL wrf_error_fatal ( &
939 'frame/module_domain.f: Failed to dallocate grid%vp%v2. ')
940 endif
941 NULLIFY(grid%vp%v2)
942 ENDIF
943 IF ( ASSOCIATED( grid%vp%v3 ) ) THEN
944 DEALLOCATE(grid%vp%v3,STAT=ierr)
945 if (ierr.ne.0) then
946 CALL wrf_error_fatal ( &
947 'frame/module_domain.f: Failed to dallocate grid%vp%v3. ')
948 endif
949 NULLIFY(grid%vp%v3)
950 ENDIF
951 IF ( ASSOCIATED( grid%vp%v4 ) ) THEN
952 DEALLOCATE(grid%vp%v4,STAT=ierr)
953 if (ierr.ne.0) then
954 CALL wrf_error_fatal ( &
955 'frame/module_domain.f: Failed to dallocate grid%vp%v4. ')
956 endif
957 NULLIFY(grid%vp%v4)
958 ENDIF
959 IF ( ASSOCIATED( grid%vp%v5 ) ) THEN
960 DEALLOCATE(grid%vp%v5,STAT=ierr)
961 if (ierr.ne.0) then
962 CALL wrf_error_fatal ( &
963 'frame/module_domain.f: Failed to dallocate grid%vp%v5. ')
964 endif
965 NULLIFY(grid%vp%v5)
966 ENDIF
967 IF ( ASSOCIATED( grid%vp%alpha ) ) THEN
968 DEALLOCATE(grid%vp%alpha,STAT=ierr)
969 if (ierr.ne.0) then
970 CALL wrf_error_fatal ( &
971 'frame/module_domain.f: Failed to dallocate grid%vp%alpha. ')
972 endif
973 NULLIFY(grid%vp%alpha)
974 ENDIF
975 IF ( ASSOCIATED( grid%ep%v1 ) ) THEN
976 DEALLOCATE(grid%ep%v1,STAT=ierr)
977 if (ierr.ne.0) then
978 CALL wrf_error_fatal ( &
979 'frame/module_domain.f: Failed to dallocate grid%ep%v1. ')
980 endif
981 NULLIFY(grid%ep%v1)
982 ENDIF
983 IF ( ASSOCIATED( grid%ep%v2 ) ) THEN
984 DEALLOCATE(grid%ep%v2,STAT=ierr)
985 if (ierr.ne.0) then
986 CALL wrf_error_fatal ( &
987 'frame/module_domain.f: Failed to dallocate grid%ep%v2. ')
988 endif
989 NULLIFY(grid%ep%v2)
990 ENDIF
991 IF ( ASSOCIATED( grid%ep%v3 ) ) THEN
992 DEALLOCATE(grid%ep%v3,STAT=ierr)
993 if (ierr.ne.0) then
994 CALL wrf_error_fatal ( &
995 'frame/module_domain.f: Failed to dallocate grid%ep%v3. ')
996 endif
997 NULLIFY(grid%ep%v3)
998 ENDIF
999 IF ( ASSOCIATED( grid%ep%v4 ) ) THEN
1000 DEALLOCATE(grid%ep%v4,STAT=ierr)
1001 if (ierr.ne.0) then
1002 CALL wrf_error_fatal ( &
1003 'frame/module_domain.f: Failed to dallocate grid%ep%v4. ')
1004 endif
1005 NULLIFY(grid%ep%v4)
1006 ENDIF
1007 IF ( ASSOCIATED( grid%ep%v5 ) ) THEN
1008 DEALLOCATE(grid%ep%v5,STAT=ierr)
1009 if (ierr.ne.0) then
1010 CALL wrf_error_fatal ( &
1011 'frame/module_domain.f: Failed to dallocate grid%ep%v5. ')
1012 endif
1013 NULLIFY(grid%ep%v5)
1014 ENDIF
1015 IF ( ASSOCIATED( grid%xb%grid_box_area ) ) THEN
1016 DEALLOCATE(grid%xb%grid_box_area,STAT=ierr)
1017 if (ierr.ne.0) then
1018 CALL wrf_error_fatal ( &
1019 'frame/module_domain.f: Failed to dallocate grid%xb%grid_box_area. ')
1020 endif
1021 NULLIFY(grid%xb%grid_box_area)
1022 ENDIF
1023 IF ( ASSOCIATED( grid%xb%map_factor ) ) THEN
1024 DEALLOCATE(grid%xb%map_factor,STAT=ierr)
1025 if (ierr.ne.0) then
1026 CALL wrf_error_fatal ( &
1027 'frame/module_domain.f: Failed to dallocate grid%xb%map_factor. ')
1028 endif
1029 NULLIFY(grid%xb%map_factor)
1030 ENDIF
1031 IF ( ASSOCIATED( grid%xb%u ) ) THEN
1032 DEALLOCATE(grid%xb%u,STAT=ierr)
1033 if (ierr.ne.0) then
1034 CALL wrf_error_fatal ( &
1035 'frame/module_domain.f: Failed to dallocate grid%xb%u. ')
1036 endif
1037 NULLIFY(grid%xb%u)
1038 ENDIF
1039 IF ( ASSOCIATED( grid%xb%v ) ) THEN
1040 DEALLOCATE(grid%xb%v,STAT=ierr)
1041 if (ierr.ne.0) then
1042 CALL wrf_error_fatal ( &
1043 'frame/module_domain.f: Failed to dallocate grid%xb%v. ')
1044 endif
1045 NULLIFY(grid%xb%v)
1046 ENDIF
1047 IF ( ASSOCIATED( grid%xb%w ) ) THEN
1048 DEALLOCATE(grid%xb%w,STAT=ierr)
1049 if (ierr.ne.0) then
1050 CALL wrf_error_fatal ( &
1051 'frame/module_domain.f: Failed to dallocate grid%xb%w. ')
1052 endif
1053 NULLIFY(grid%xb%w)
1054 ENDIF
1055 IF ( ASSOCIATED( grid%xb%t ) ) THEN
1056 DEALLOCATE(grid%xb%t,STAT=ierr)
1057 if (ierr.ne.0) then
1058 CALL wrf_error_fatal ( &
1059 'frame/module_domain.f: Failed to dallocate grid%xb%t. ')
1060 endif
1061 NULLIFY(grid%xb%t)
1062 ENDIF
1063 IF ( ASSOCIATED( grid%xb%p ) ) THEN
1064 DEALLOCATE(grid%xb%p,STAT=ierr)
1065 if (ierr.ne.0) then
1066 CALL wrf_error_fatal ( &
1067 'frame/module_domain.f: Failed to dallocate grid%xb%p. ')
1068 endif
1069 NULLIFY(grid%xb%p)
1070 ENDIF
1071 IF ( ASSOCIATED( grid%xb%q ) ) THEN
1072 DEALLOCATE(grid%xb%q,STAT=ierr)
1073 if (ierr.ne.0) then
1074 CALL wrf_error_fatal ( &
1075 'frame/module_domain.f: Failed to dallocate grid%xb%q. ')
1076 endif
1077 NULLIFY(grid%xb%q)
1078 ENDIF
1079 IF ( ASSOCIATED( grid%xb%qrn ) ) THEN
1080 DEALLOCATE(grid%xb%qrn,STAT=ierr)
1081 if (ierr.ne.0) then
1082 CALL wrf_error_fatal ( &
1083 'frame/module_domain.f: Failed to dallocate grid%xb%qrn. ')
1084 endif
1085 NULLIFY(grid%xb%qrn)
1086 ENDIF
1087 IF ( ASSOCIATED( grid%xb%qcw ) ) THEN
1088 DEALLOCATE(grid%xb%qcw,STAT=ierr)
1089 if (ierr.ne.0) then
1090 CALL wrf_error_fatal ( &
1091 'frame/module_domain.f: Failed to dallocate grid%xb%qcw. ')
1092 endif
1093 NULLIFY(grid%xb%qcw)
1094 ENDIF
1095 IF ( ASSOCIATED( grid%xb%qci ) ) THEN
1096 DEALLOCATE(grid%xb%qci,STAT=ierr)
1097 if (ierr.ne.0) then
1098 CALL wrf_error_fatal ( &
1099 'frame/module_domain.f: Failed to dallocate grid%xb%qci. ')
1100 endif
1101 NULLIFY(grid%xb%qci)
1102 ENDIF
1103 IF ( ASSOCIATED( grid%xb%qsn ) ) THEN
1104 DEALLOCATE(grid%xb%qsn,STAT=ierr)
1105 if (ierr.ne.0) then
1106 CALL wrf_error_fatal ( &
1107 'frame/module_domain.f: Failed to dallocate grid%xb%qsn. ')
1108 endif
1109 NULLIFY(grid%xb%qsn)
1110 ENDIF
1111 IF ( ASSOCIATED( grid%xb%qgr ) ) THEN
1112 DEALLOCATE(grid%xb%qgr,STAT=ierr)
1113 if (ierr.ne.0) then
1114 CALL wrf_error_fatal ( &
1115 'frame/module_domain.f: Failed to dallocate grid%xb%qgr. ')
1116 endif
1117 NULLIFY(grid%xb%qgr)
1118 ENDIF
1119 IF ( ASSOCIATED( grid%xb%qt ) ) THEN
1120 DEALLOCATE(grid%xb%qt,STAT=ierr)
1121 if (ierr.ne.0) then
1122 CALL wrf_error_fatal ( &
1123 'frame/module_domain.f: Failed to dallocate grid%xb%qt. ')
1124 endif
1125 NULLIFY(grid%xb%qt)
1126 ENDIF
1127 IF ( ASSOCIATED( grid%xb%delt ) ) THEN
1128 DEALLOCATE(grid%xb%delt,STAT=ierr)
1129 if (ierr.ne.0) then
1130 CALL wrf_error_fatal ( &
1131 'frame/module_domain.f: Failed to dallocate grid%xb%delt. ')
1132 endif
1133 NULLIFY(grid%xb%delt)
1134 ENDIF
1135 IF ( ASSOCIATED( grid%xb%h ) ) THEN
1136 DEALLOCATE(grid%xb%h,STAT=ierr)
1137 if (ierr.ne.0) then
1138 CALL wrf_error_fatal ( &
1139 'frame/module_domain.f: Failed to dallocate grid%xb%h. ')
1140 endif
1141 NULLIFY(grid%xb%h)
1142 ENDIF
1143 IF ( ASSOCIATED( grid%xb%hf ) ) THEN
1144 DEALLOCATE(grid%xb%hf,STAT=ierr)
1145 if (ierr.ne.0) then
1146 CALL wrf_error_fatal ( &
1147 'frame/module_domain.f: Failed to dallocate grid%xb%hf. ')
1148 endif
1149 NULLIFY(grid%xb%hf)
1150 ENDIF
1151 IF ( ASSOCIATED( grid%xb%wh ) ) THEN
1152 DEALLOCATE(grid%xb%wh,STAT=ierr)
1153 if (ierr.ne.0) then
1154 CALL wrf_error_fatal ( &
1155 'frame/module_domain.f: Failed to dallocate grid%xb%wh. ')
1156 endif
1157 NULLIFY(grid%xb%wh)
1158 ENDIF
1159 IF ( ASSOCIATED( grid%xb%rho ) ) THEN
1160 DEALLOCATE(grid%xb%rho,STAT=ierr)
1161 if (ierr.ne.0) then
1162 CALL wrf_error_fatal ( &
1163 'frame/module_domain.f: Failed to dallocate grid%xb%rho. ')
1164 endif
1165 NULLIFY(grid%xb%rho)
1166 ENDIF
1167 IF ( ASSOCIATED( grid%xb%rh ) ) THEN
1168 DEALLOCATE(grid%xb%rh,STAT=ierr)
1169 if (ierr.ne.0) then
1170 CALL wrf_error_fatal ( &
1171 'frame/module_domain.f: Failed to dallocate grid%xb%rh. ')
1172 endif
1173 NULLIFY(grid%xb%rh)
1174 ENDIF
1175 IF ( ASSOCIATED( grid%xb%es ) ) THEN
1176 DEALLOCATE(grid%xb%es,STAT=ierr)
1177 if (ierr.ne.0) then
1178 CALL wrf_error_fatal ( &
1179 'frame/module_domain.f: Failed to dallocate grid%xb%es. ')
1180 endif
1181 NULLIFY(grid%xb%es)
1182 ENDIF
1183 IF ( ASSOCIATED( grid%xb%qs ) ) THEN
1184 DEALLOCATE(grid%xb%qs,STAT=ierr)
1185 if (ierr.ne.0) then
1186 CALL wrf_error_fatal ( &
1187 'frame/module_domain.f: Failed to dallocate grid%xb%qs. ')
1188 endif
1189 NULLIFY(grid%xb%qs)
1190 ENDIF
1191 IF ( ASSOCIATED( grid%xb%td ) ) THEN
1192 DEALLOCATE(grid%xb%td,STAT=ierr)
1193 if (ierr.ne.0) then
1194 CALL wrf_error_fatal ( &
1195 'frame/module_domain.f: Failed to dallocate grid%xb%td. ')
1196 endif
1197 NULLIFY(grid%xb%td)
1198 ENDIF
1199 IF ( ASSOCIATED( grid%xb%vertical_inner_product ) ) THEN
1200 DEALLOCATE(grid%xb%vertical_inner_product,STAT=ierr)
1201 if (ierr.ne.0) then
1202 CALL wrf_error_fatal ( &
1203 'frame/module_domain.f: Failed to dallocate grid%xb%vertical_inner_product. ')
1204 endif
1205 NULLIFY(grid%xb%vertical_inner_product)
1206 ENDIF
1207 IF ( ASSOCIATED( grid%xb%ref ) ) THEN
1208 DEALLOCATE(grid%xb%ref,STAT=ierr)
1209 if (ierr.ne.0) then
1210 CALL wrf_error_fatal ( &
1211 'frame/module_domain.f: Failed to dallocate grid%xb%ref. ')
1212 endif
1213 NULLIFY(grid%xb%ref)
1214 ENDIF
1215 IF ( ASSOCIATED( grid%xb%rough ) ) THEN
1216 DEALLOCATE(grid%xb%rough,STAT=ierr)
1217 if (ierr.ne.0) then
1218 CALL wrf_error_fatal ( &
1219 'frame/module_domain.f: Failed to dallocate grid%xb%rough. ')
1220 endif
1221 NULLIFY(grid%xb%rough)
1222 ENDIF
1223 IF ( ASSOCIATED( grid%xb%tpw ) ) THEN
1224 DEALLOCATE(grid%xb%tpw,STAT=ierr)
1225 if (ierr.ne.0) then
1226 CALL wrf_error_fatal ( &
1227 'frame/module_domain.f: Failed to dallocate grid%xb%tpw. ')
1228 endif
1229 NULLIFY(grid%xb%tpw)
1230 ENDIF
1231 IF ( ASSOCIATED( grid%xb%slp ) ) THEN
1232 DEALLOCATE(grid%xb%slp,STAT=ierr)
1233 if (ierr.ne.0) then
1234 CALL wrf_error_fatal ( &
1235 'frame/module_domain.f: Failed to dallocate grid%xb%slp. ')
1236 endif
1237 NULLIFY(grid%xb%slp)
1238 ENDIF
1239 IF ( ASSOCIATED( grid%xb%speed ) ) THEN
1240 DEALLOCATE(grid%xb%speed,STAT=ierr)
1241 if (ierr.ne.0) then
1242 CALL wrf_error_fatal ( &
1243 'frame/module_domain.f: Failed to dallocate grid%xb%speed. ')
1244 endif
1245 NULLIFY(grid%xb%speed)
1246 ENDIF
1247 IF ( ASSOCIATED( grid%xb%tb19v ) ) THEN
1248 DEALLOCATE(grid%xb%tb19v,STAT=ierr)
1249 if (ierr.ne.0) then
1250 CALL wrf_error_fatal ( &
1251 'frame/module_domain.f: Failed to dallocate grid%xb%tb19v. ')
1252 endif
1253 NULLIFY(grid%xb%tb19v)
1254 ENDIF
1255 IF ( ASSOCIATED( grid%xb%tb19h ) ) THEN
1256 DEALLOCATE(grid%xb%tb19h,STAT=ierr)
1257 if (ierr.ne.0) then
1258 CALL wrf_error_fatal ( &
1259 'frame/module_domain.f: Failed to dallocate grid%xb%tb19h. ')
1260 endif
1261 NULLIFY(grid%xb%tb19h)
1262 ENDIF
1263 IF ( ASSOCIATED( grid%xb%tb22v ) ) THEN
1264 DEALLOCATE(grid%xb%tb22v,STAT=ierr)
1265 if (ierr.ne.0) then
1266 CALL wrf_error_fatal ( &
1267 'frame/module_domain.f: Failed to dallocate grid%xb%tb22v. ')
1268 endif
1269 NULLIFY(grid%xb%tb22v)
1270 ENDIF
1271 IF ( ASSOCIATED( grid%xb%tb37v ) ) THEN
1272 DEALLOCATE(grid%xb%tb37v,STAT=ierr)
1273 if (ierr.ne.0) then
1274 CALL wrf_error_fatal ( &
1275 'frame/module_domain.f: Failed to dallocate grid%xb%tb37v. ')
1276 endif
1277 NULLIFY(grid%xb%tb37v)
1278 ENDIF
1279 IF ( ASSOCIATED( grid%xb%tb37h ) ) THEN
1280 DEALLOCATE(grid%xb%tb37h,STAT=ierr)
1281 if (ierr.ne.0) then
1282 CALL wrf_error_fatal ( &
1283 'frame/module_domain.f: Failed to dallocate grid%xb%tb37h. ')
1284 endif
1285 NULLIFY(grid%xb%tb37h)
1286 ENDIF
1287 IF ( ASSOCIATED( grid%xb%tb85v ) ) THEN
1288 DEALLOCATE(grid%xb%tb85v,STAT=ierr)
1289 if (ierr.ne.0) then
1290 CALL wrf_error_fatal ( &
1291 'frame/module_domain.f: Failed to dallocate grid%xb%tb85v. ')
1292 endif
1293 NULLIFY(grid%xb%tb85v)
1294 ENDIF
1295 IF ( ASSOCIATED( grid%xb%tb85h ) ) THEN
1296 DEALLOCATE(grid%xb%tb85h,STAT=ierr)
1297 if (ierr.ne.0) then
1298 CALL wrf_error_fatal ( &
1299 'frame/module_domain.f: Failed to dallocate grid%xb%tb85h. ')
1300 endif
1301 NULLIFY(grid%xb%tb85h)
1302 ENDIF
1303 IF ( ASSOCIATED( grid%xb%cori ) ) THEN
1304 DEALLOCATE(grid%xb%cori,STAT=ierr)
1305 if (ierr.ne.0) then
1306 CALL wrf_error_fatal ( &
1307 'frame/module_domain.f: Failed to dallocate grid%xb%cori. ')
1308 endif
1309 NULLIFY(grid%xb%cori)
1310 ENDIF
1311 IF ( ASSOCIATED( grid%xb%tgrn ) ) THEN
1312 DEALLOCATE(grid%xb%tgrn,STAT=ierr)
1313 if (ierr.ne.0) then
1314 CALL wrf_error_fatal ( &
1315 'frame/module_domain.f: Failed to dallocate grid%xb%tgrn. ')
1316 endif
1317 NULLIFY(grid%xb%tgrn)
1318 ENDIF
1319 IF ( ASSOCIATED( grid%xb%lat ) ) THEN
1320 DEALLOCATE(grid%xb%lat,STAT=ierr)
1321 if (ierr.ne.0) then
1322 CALL wrf_error_fatal ( &
1323 'frame/module_domain.f: Failed to dallocate grid%xb%lat. ')
1324 endif
1325 NULLIFY(grid%xb%lat)
1326 ENDIF
1327 IF ( ASSOCIATED( grid%xb%lon ) ) THEN
1328 DEALLOCATE(grid%xb%lon,STAT=ierr)
1329 if (ierr.ne.0) then
1330 CALL wrf_error_fatal ( &
1331 'frame/module_domain.f: Failed to dallocate grid%xb%lon. ')
1332 endif
1333 NULLIFY(grid%xb%lon)
1334 ENDIF
1335 IF ( ASSOCIATED( grid%xb%terr ) ) THEN
1336 DEALLOCATE(grid%xb%terr,STAT=ierr)
1337 if (ierr.ne.0) then
1338 CALL wrf_error_fatal ( &
1339 'frame/module_domain.f: Failed to dallocate grid%xb%terr. ')
1340 endif
1341 NULLIFY(grid%xb%terr)
1342 ENDIF
1343 IF ( ASSOCIATED( grid%xb%psac ) ) THEN
1344 DEALLOCATE(grid%xb%psac,STAT=ierr)
1345 if (ierr.ne.0) then
1346 CALL wrf_error_fatal ( &
1347 'frame/module_domain.f: Failed to dallocate grid%xb%psac. ')
1348 endif
1349 NULLIFY(grid%xb%psac)
1350 ENDIF
1351 IF ( ASSOCIATED( grid%xb%lanu ) ) THEN
1352 DEALLOCATE(grid%xb%lanu,STAT=ierr)
1353 if (ierr.ne.0) then
1354 CALL wrf_error_fatal ( &
1355 'frame/module_domain.f: Failed to dallocate grid%xb%lanu. ')
1356 endif
1357 NULLIFY(grid%xb%lanu)
1358 ENDIF
1359 IF ( ASSOCIATED( grid%xb%snow ) ) THEN
1360 DEALLOCATE(grid%xb%snow,STAT=ierr)
1361 if (ierr.ne.0) then
1362 CALL wrf_error_fatal ( &
1363 'frame/module_domain.f: Failed to dallocate grid%xb%snow. ')
1364 endif
1365 NULLIFY(grid%xb%snow)
1366 ENDIF
1367 IF ( ASSOCIATED( grid%xb%xland ) ) THEN
1368 DEALLOCATE(grid%xb%xland,STAT=ierr)
1369 if (ierr.ne.0) then
1370 CALL wrf_error_fatal ( &
1371 'frame/module_domain.f: Failed to dallocate grid%xb%xland. ')
1372 endif
1373 NULLIFY(grid%xb%xland)
1374 ENDIF
1375 IF ( ASSOCIATED( grid%xb%landmask ) ) THEN
1376 DEALLOCATE(grid%xb%landmask,STAT=ierr)
1377 if (ierr.ne.0) then
1378 CALL wrf_error_fatal ( &
1379 'frame/module_domain.f: Failed to dallocate grid%xb%landmask. ')
1380 endif
1381 NULLIFY(grid%xb%landmask)
1382 ENDIF
1383 IF ( ASSOCIATED( grid%xb%u10 ) ) THEN
1384 DEALLOCATE(grid%xb%u10,STAT=ierr)
1385 if (ierr.ne.0) then
1386 CALL wrf_error_fatal ( &
1387 'frame/module_domain.f: Failed to dallocate grid%xb%u10. ')
1388 endif
1389 NULLIFY(grid%xb%u10)
1390 ENDIF
1391 IF ( ASSOCIATED( grid%xb%v10 ) ) THEN
1392 DEALLOCATE(grid%xb%v10,STAT=ierr)
1393 if (ierr.ne.0) then
1394 CALL wrf_error_fatal ( &
1395 'frame/module_domain.f: Failed to dallocate grid%xb%v10. ')
1396 endif
1397 NULLIFY(grid%xb%v10)
1398 ENDIF
1399 IF ( ASSOCIATED( grid%xb%t2 ) ) THEN
1400 DEALLOCATE(grid%xb%t2,STAT=ierr)
1401 if (ierr.ne.0) then
1402 CALL wrf_error_fatal ( &
1403 'frame/module_domain.f: Failed to dallocate grid%xb%t2. ')
1404 endif
1405 NULLIFY(grid%xb%t2)
1406 ENDIF
1407 IF ( ASSOCIATED( grid%xb%q2 ) ) THEN
1408 DEALLOCATE(grid%xb%q2,STAT=ierr)
1409 if (ierr.ne.0) then
1410 CALL wrf_error_fatal ( &
1411 'frame/module_domain.f: Failed to dallocate grid%xb%q2. ')
1412 endif
1413 NULLIFY(grid%xb%q2)
1414 ENDIF
1415 IF ( ASSOCIATED( grid%xb%psfc ) ) THEN
1416 DEALLOCATE(grid%xb%psfc,STAT=ierr)
1417 if (ierr.ne.0) then
1418 CALL wrf_error_fatal ( &
1419 'frame/module_domain.f: Failed to dallocate grid%xb%psfc. ')
1420 endif
1421 NULLIFY(grid%xb%psfc)
1422 ENDIF
1423 IF ( ASSOCIATED( grid%xb%tsk ) ) THEN
1424 DEALLOCATE(grid%xb%tsk,STAT=ierr)
1425 if (ierr.ne.0) then
1426 CALL wrf_error_fatal ( &
1427 'frame/module_domain.f: Failed to dallocate grid%xb%tsk. ')
1428 endif
1429 NULLIFY(grid%xb%tsk)
1430 ENDIF
1431 IF ( ASSOCIATED( grid%xb%smois ) ) THEN
1432 DEALLOCATE(grid%xb%smois,STAT=ierr)
1433 if (ierr.ne.0) then
1434 CALL wrf_error_fatal ( &
1435 'frame/module_domain.f: Failed to dallocate grid%xb%smois. ')
1436 endif
1437 NULLIFY(grid%xb%smois)
1438 ENDIF
1439 IF ( ASSOCIATED( grid%xb%tslb ) ) THEN
1440 DEALLOCATE(grid%xb%tslb,STAT=ierr)
1441 if (ierr.ne.0) then
1442 CALL wrf_error_fatal ( &
1443 'frame/module_domain.f: Failed to dallocate grid%xb%tslb. ')
1444 endif
1445 NULLIFY(grid%xb%tslb)
1446 ENDIF
1447 IF ( ASSOCIATED( grid%xb%xice ) ) THEN
1448 DEALLOCATE(grid%xb%xice,STAT=ierr)
1449 if (ierr.ne.0) then
1450 CALL wrf_error_fatal ( &
1451 'frame/module_domain.f: Failed to dallocate grid%xb%xice. ')
1452 endif
1453 NULLIFY(grid%xb%xice)
1454 ENDIF
1455 IF ( ASSOCIATED( grid%xb%ivgtyp ) ) THEN
1456 DEALLOCATE(grid%xb%ivgtyp,STAT=ierr)
1457 if (ierr.ne.0) then
1458 CALL wrf_error_fatal ( &
1459 'frame/module_domain.f: Failed to dallocate grid%xb%ivgtyp. ')
1460 endif
1461 NULLIFY(grid%xb%ivgtyp)
1462 ENDIF
1463 IF ( ASSOCIATED( grid%xb%isltyp ) ) THEN
1464 DEALLOCATE(grid%xb%isltyp,STAT=ierr)
1465 if (ierr.ne.0) then
1466 CALL wrf_error_fatal ( &
1467 'frame/module_domain.f: Failed to dallocate grid%xb%isltyp. ')
1468 endif
1469 NULLIFY(grid%xb%isltyp)
1470 ENDIF
1471 IF ( ASSOCIATED( grid%xb%vegfra ) ) THEN
1472 DEALLOCATE(grid%xb%vegfra,STAT=ierr)
1473 if (ierr.ne.0) then
1474 CALL wrf_error_fatal ( &
1475 'frame/module_domain.f: Failed to dallocate grid%xb%vegfra. ')
1476 endif
1477 NULLIFY(grid%xb%vegfra)
1478 ENDIF
1479 IF ( ASSOCIATED( grid%xb%snowh ) ) THEN
1480 DEALLOCATE(grid%xb%snowh,STAT=ierr)
1481 if (ierr.ne.0) then
1482 CALL wrf_error_fatal ( &
1483 'frame/module_domain.f: Failed to dallocate grid%xb%snowh. ')
1484 endif
1485 NULLIFY(grid%xb%snowh)
1486 ENDIF
1487 IF ( ASSOCIATED( grid%xb%regime ) ) THEN
1488 DEALLOCATE(grid%xb%regime,STAT=ierr)
1489 if (ierr.ne.0) then
1490 CALL wrf_error_fatal ( &
1491 'frame/module_domain.f: Failed to dallocate grid%xb%regime. ')
1492 endif
1493 NULLIFY(grid%xb%regime)
1494 ENDIF
1495 IF ( ASSOCIATED( grid%xb%znu ) ) THEN
1496 DEALLOCATE(grid%xb%znu,STAT=ierr)
1497 if (ierr.ne.0) then
1498 CALL wrf_error_fatal ( &
1499 'frame/module_domain.f: Failed to dallocate grid%xb%znu. ')
1500 endif
1501 NULLIFY(grid%xb%znu)
1502 ENDIF
1503 IF ( ASSOCIATED( grid%xb%znw ) ) THEN
1504 DEALLOCATE(grid%xb%znw,STAT=ierr)
1505 if (ierr.ne.0) then
1506 CALL wrf_error_fatal ( &
1507 'frame/module_domain.f: Failed to dallocate grid%xb%znw. ')
1508 endif
1509 NULLIFY(grid%xb%znw)
1510 ENDIF
1511 IF ( ASSOCIATED( grid%xb%dn ) ) THEN
1512 DEALLOCATE(grid%xb%dn,STAT=ierr)
1513 if (ierr.ne.0) then
1514 CALL wrf_error_fatal ( &
1515 'frame/module_domain.f: Failed to dallocate grid%xb%dn. ')
1516 endif
1517 NULLIFY(grid%xb%dn)
1518 ENDIF
1519 IF ( ASSOCIATED( grid%xb%dnw ) ) THEN
1520 DEALLOCATE(grid%xb%dnw,STAT=ierr)
1521 if (ierr.ne.0) then
1522 CALL wrf_error_fatal ( &
1523 'frame/module_domain.f: Failed to dallocate grid%xb%dnw. ')
1524 endif
1525 NULLIFY(grid%xb%dnw)
1526 ENDIF
1527 IF ( ASSOCIATED( grid%xb%sigmah ) ) THEN
1528 DEALLOCATE(grid%xb%sigmah,STAT=ierr)
1529 if (ierr.ne.0) then
1530 CALL wrf_error_fatal ( &
1531 'frame/module_domain.f: Failed to dallocate grid%xb%sigmah. ')
1532 endif
1533 NULLIFY(grid%xb%sigmah)
1534 ENDIF
1535 IF ( ASSOCIATED( grid%xb%sigmaf ) ) THEN
1536 DEALLOCATE(grid%xb%sigmaf,STAT=ierr)
1537 if (ierr.ne.0) then
1538 CALL wrf_error_fatal ( &
1539 'frame/module_domain.f: Failed to dallocate grid%xb%sigmaf. ')
1540 endif
1541 NULLIFY(grid%xb%sigmaf)
1542 ENDIF
1543 IF ( ASSOCIATED( grid%xb%coefx ) ) THEN
1544 DEALLOCATE(grid%xb%coefx,STAT=ierr)
1545 if (ierr.ne.0) then
1546 CALL wrf_error_fatal ( &
1547 'frame/module_domain.f: Failed to dallocate grid%xb%coefx. ')
1548 endif
1549 NULLIFY(grid%xb%coefx)
1550 ENDIF
1551 IF ( ASSOCIATED( grid%xb%coefy ) ) THEN
1552 DEALLOCATE(grid%xb%coefy,STAT=ierr)
1553 if (ierr.ne.0) then
1554 CALL wrf_error_fatal ( &
1555 'frame/module_domain.f: Failed to dallocate grid%xb%coefy. ')
1556 endif
1557 NULLIFY(grid%xb%coefy)
1558 ENDIF
1559 IF ( ASSOCIATED( grid%xb%coefz ) ) THEN
1560 DEALLOCATE(grid%xb%coefz,STAT=ierr)
1561 if (ierr.ne.0) then
1562 CALL wrf_error_fatal ( &
1563 'frame/module_domain.f: Failed to dallocate grid%xb%coefz. ')
1564 endif
1565 NULLIFY(grid%xb%coefz)
1566 ENDIF
1567 IF ( ASSOCIATED( grid%xb%kma_a ) ) THEN
1568 DEALLOCATE(grid%xb%kma_a,STAT=ierr)
1569 if (ierr.ne.0) then
1570 CALL wrf_error_fatal ( &
1571 'frame/module_domain.f: Failed to dallocate grid%xb%kma_a. ')
1572 endif
1573 NULLIFY(grid%xb%kma_a)
1574 ENDIF
1575 IF ( ASSOCIATED( grid%xb%kma_b ) ) THEN
1576 DEALLOCATE(grid%xb%kma_b,STAT=ierr)
1577 if (ierr.ne.0) then
1578 CALL wrf_error_fatal ( &
1579 'frame/module_domain.f: Failed to dallocate grid%xb%kma_b. ')
1580 endif
1581 NULLIFY(grid%xb%kma_b)
1582 ENDIF
1583 IF ( ASSOCIATED( grid%xa%u ) ) THEN
1584 DEALLOCATE(grid%xa%u,STAT=ierr)
1585 if (ierr.ne.0) then
1586 CALL wrf_error_fatal ( &
1587 'frame/module_domain.f: Failed to dallocate grid%xa%u. ')
1588 endif
1589 NULLIFY(grid%xa%u)
1590 ENDIF
1591 IF ( ASSOCIATED( grid%xa%v ) ) THEN
1592 DEALLOCATE(grid%xa%v,STAT=ierr)
1593 if (ierr.ne.0) then
1594 CALL wrf_error_fatal ( &
1595 'frame/module_domain.f: Failed to dallocate grid%xa%v. ')
1596 endif
1597 NULLIFY(grid%xa%v)
1598 ENDIF
1599 IF ( ASSOCIATED( grid%xa%w ) ) THEN
1600 DEALLOCATE(grid%xa%w,STAT=ierr)
1601 if (ierr.ne.0) then
1602 CALL wrf_error_fatal ( &
1603 'frame/module_domain.f: Failed to dallocate grid%xa%w. ')
1604 endif
1605 NULLIFY(grid%xa%w)
1606 ENDIF
1607 IF ( ASSOCIATED( grid%xa%t ) ) THEN
1608 DEALLOCATE(grid%xa%t,STAT=ierr)
1609 if (ierr.ne.0) then
1610 CALL wrf_error_fatal ( &
1611 'frame/module_domain.f: Failed to dallocate grid%xa%t. ')
1612 endif
1613 NULLIFY(grid%xa%t)
1614 ENDIF
1615 IF ( ASSOCIATED( grid%xa%q ) ) THEN
1616 DEALLOCATE(grid%xa%q,STAT=ierr)
1617 if (ierr.ne.0) then
1618 CALL wrf_error_fatal ( &
1619 'frame/module_domain.f: Failed to dallocate grid%xa%q. ')
1620 endif
1621 NULLIFY(grid%xa%q)
1622 ENDIF
1623 IF ( ASSOCIATED( grid%xa%p ) ) THEN
1624 DEALLOCATE(grid%xa%p,STAT=ierr)
1625 if (ierr.ne.0) then
1626 CALL wrf_error_fatal ( &
1627 'frame/module_domain.f: Failed to dallocate grid%xa%p. ')
1628 endif
1629 NULLIFY(grid%xa%p)
1630 ENDIF
1631 IF ( ASSOCIATED( grid%xa%rh ) ) THEN
1632 DEALLOCATE(grid%xa%rh,STAT=ierr)
1633 if (ierr.ne.0) then
1634 CALL wrf_error_fatal ( &
1635 'frame/module_domain.f: Failed to dallocate grid%xa%rh. ')
1636 endif
1637 NULLIFY(grid%xa%rh)
1638 ENDIF
1639 IF ( ASSOCIATED( grid%xa%rho ) ) THEN
1640 DEALLOCATE(grid%xa%rho,STAT=ierr)
1641 if (ierr.ne.0) then
1642 CALL wrf_error_fatal ( &
1643 'frame/module_domain.f: Failed to dallocate grid%xa%rho. ')
1644 endif
1645 NULLIFY(grid%xa%rho)
1646 ENDIF
1647 IF ( ASSOCIATED( grid%xa%wh ) ) THEN
1648 DEALLOCATE(grid%xa%wh,STAT=ierr)
1649 if (ierr.ne.0) then
1650 CALL wrf_error_fatal ( &
1651 'frame/module_domain.f: Failed to dallocate grid%xa%wh. ')
1652 endif
1653 NULLIFY(grid%xa%wh)
1654 ENDIF
1655 IF ( ASSOCIATED( grid%xa%qrn ) ) THEN
1656 DEALLOCATE(grid%xa%qrn,STAT=ierr)
1657 if (ierr.ne.0) then
1658 CALL wrf_error_fatal ( &
1659 'frame/module_domain.f: Failed to dallocate grid%xa%qrn. ')
1660 endif
1661 NULLIFY(grid%xa%qrn)
1662 ENDIF
1663 IF ( ASSOCIATED( grid%xa%qcw ) ) THEN
1664 DEALLOCATE(grid%xa%qcw,STAT=ierr)
1665 if (ierr.ne.0) then
1666 CALL wrf_error_fatal ( &
1667 'frame/module_domain.f: Failed to dallocate grid%xa%qcw. ')
1668 endif
1669 NULLIFY(grid%xa%qcw)
1670 ENDIF
1671 IF ( ASSOCIATED( grid%xa%qci ) ) THEN
1672 DEALLOCATE(grid%xa%qci,STAT=ierr)
1673 if (ierr.ne.0) then
1674 CALL wrf_error_fatal ( &
1675 'frame/module_domain.f: Failed to dallocate grid%xa%qci. ')
1676 endif
1677 NULLIFY(grid%xa%qci)
1678 ENDIF
1679 IF ( ASSOCIATED( grid%xa%qsn ) ) THEN
1680 DEALLOCATE(grid%xa%qsn,STAT=ierr)
1681 if (ierr.ne.0) then
1682 CALL wrf_error_fatal ( &
1683 'frame/module_domain.f: Failed to dallocate grid%xa%qsn. ')
1684 endif
1685 NULLIFY(grid%xa%qsn)
1686 ENDIF
1687 IF ( ASSOCIATED( grid%xa%qgr ) ) THEN
1688 DEALLOCATE(grid%xa%qgr,STAT=ierr)
1689 if (ierr.ne.0) then
1690 CALL wrf_error_fatal ( &
1691 'frame/module_domain.f: Failed to dallocate grid%xa%qgr. ')
1692 endif
1693 NULLIFY(grid%xa%qgr)
1694 ENDIF
1695 IF ( ASSOCIATED( grid%xa%qt ) ) THEN
1696 DEALLOCATE(grid%xa%qt,STAT=ierr)
1697 if (ierr.ne.0) then
1698 CALL wrf_error_fatal ( &
1699 'frame/module_domain.f: Failed to dallocate grid%xa%qt. ')
1700 endif
1701 NULLIFY(grid%xa%qt)
1702 ENDIF
1703 IF ( ASSOCIATED( grid%xa%tgrn ) ) THEN
1704 DEALLOCATE(grid%xa%tgrn,STAT=ierr)
1705 if (ierr.ne.0) then
1706 CALL wrf_error_fatal ( &
1707 'frame/module_domain.f: Failed to dallocate grid%xa%tgrn. ')
1708 endif
1709 NULLIFY(grid%xa%tgrn)
1710 ENDIF
1711 IF ( ASSOCIATED( grid%xa%psfc ) ) THEN
1712 DEALLOCATE(grid%xa%psfc,STAT=ierr)
1713 if (ierr.ne.0) then
1714 CALL wrf_error_fatal ( &
1715 'frame/module_domain.f: Failed to dallocate grid%xa%psfc. ')
1716 endif
1717 NULLIFY(grid%xa%psfc)
1718 ENDIF
1719 IF ( ASSOCIATED( grid%xa%u10 ) ) THEN
1720 DEALLOCATE(grid%xa%u10,STAT=ierr)
1721 if (ierr.ne.0) then
1722 CALL wrf_error_fatal ( &
1723 'frame/module_domain.f: Failed to dallocate grid%xa%u10. ')
1724 endif
1725 NULLIFY(grid%xa%u10)
1726 ENDIF
1727 IF ( ASSOCIATED( grid%xa%v10 ) ) THEN
1728 DEALLOCATE(grid%xa%v10,STAT=ierr)
1729 if (ierr.ne.0) then
1730 CALL wrf_error_fatal ( &
1731 'frame/module_domain.f: Failed to dallocate grid%xa%v10. ')
1732 endif
1733 NULLIFY(grid%xa%v10)
1734 ENDIF
1735 IF ( ASSOCIATED( grid%xa%t2 ) ) THEN
1736 DEALLOCATE(grid%xa%t2,STAT=ierr)
1737 if (ierr.ne.0) then
1738 CALL wrf_error_fatal ( &
1739 'frame/module_domain.f: Failed to dallocate grid%xa%t2. ')
1740 endif
1741 NULLIFY(grid%xa%t2)
1742 ENDIF
1743 IF ( ASSOCIATED( grid%xa%q2 ) ) THEN
1744 DEALLOCATE(grid%xa%q2,STAT=ierr)
1745 if (ierr.ne.0) then
1746 CALL wrf_error_fatal ( &
1747 'frame/module_domain.f: Failed to dallocate grid%xa%q2. ')
1748 endif
1749 NULLIFY(grid%xa%q2)
1750 ENDIF
1751 IF ( ASSOCIATED( grid%xa%ref ) ) THEN
1752 DEALLOCATE(grid%xa%ref,STAT=ierr)
1753 if (ierr.ne.0) then
1754 CALL wrf_error_fatal ( &
1755 'frame/module_domain.f: Failed to dallocate grid%xa%ref. ')
1756 endif
1757 NULLIFY(grid%xa%ref)
1758 ENDIF
1759 IF ( ASSOCIATED( grid%xa%tpw ) ) THEN
1760 DEALLOCATE(grid%xa%tpw,STAT=ierr)
1761 if (ierr.ne.0) then
1762 CALL wrf_error_fatal ( &
1763 'frame/module_domain.f: Failed to dallocate grid%xa%tpw. ')
1764 endif
1765 NULLIFY(grid%xa%tpw)
1766 ENDIF
1767 IF ( ASSOCIATED( grid%xa%speed ) ) THEN
1768 DEALLOCATE(grid%xa%speed,STAT=ierr)
1769 if (ierr.ne.0) then
1770 CALL wrf_error_fatal ( &
1771 'frame/module_domain.f: Failed to dallocate grid%xa%speed. ')
1772 endif
1773 NULLIFY(grid%xa%speed)
1774 ENDIF
1775 IF ( ASSOCIATED( grid%xa%tb19v ) ) THEN
1776 DEALLOCATE(grid%xa%tb19v,STAT=ierr)
1777 if (ierr.ne.0) then
1778 CALL wrf_error_fatal ( &
1779 'frame/module_domain.f: Failed to dallocate grid%xa%tb19v. ')
1780 endif
1781 NULLIFY(grid%xa%tb19v)
1782 ENDIF
1783 IF ( ASSOCIATED( grid%xa%tb19h ) ) THEN
1784 DEALLOCATE(grid%xa%tb19h,STAT=ierr)
1785 if (ierr.ne.0) then
1786 CALL wrf_error_fatal ( &
1787 'frame/module_domain.f: Failed to dallocate grid%xa%tb19h. ')
1788 endif
1789 NULLIFY(grid%xa%tb19h)
1790 ENDIF
1791 IF ( ASSOCIATED( grid%xa%tb22v ) ) THEN
1792 DEALLOCATE(grid%xa%tb22v,STAT=ierr)
1793 if (ierr.ne.0) then
1794 CALL wrf_error_fatal ( &
1795 'frame/module_domain.f: Failed to dallocate grid%xa%tb22v. ')
1796 endif
1797 NULLIFY(grid%xa%tb22v)
1798 ENDIF
1799 IF ( ASSOCIATED( grid%xa%tb37v ) ) THEN
1800 DEALLOCATE(grid%xa%tb37v,STAT=ierr)
1801 if (ierr.ne.0) then
1802 CALL wrf_error_fatal ( &
1803 'frame/module_domain.f: Failed to dallocate grid%xa%tb37v. ')
1804 endif
1805 NULLIFY(grid%xa%tb37v)
1806 ENDIF
1807 IF ( ASSOCIATED( grid%xa%tb37h ) ) THEN
1808 DEALLOCATE(grid%xa%tb37h,STAT=ierr)
1809 if (ierr.ne.0) then
1810 CALL wrf_error_fatal ( &
1811 'frame/module_domain.f: Failed to dallocate grid%xa%tb37h. ')
1812 endif
1813 NULLIFY(grid%xa%tb37h)
1814 ENDIF
1815 IF ( ASSOCIATED( grid%xa%tb85v ) ) THEN
1816 DEALLOCATE(grid%xa%tb85v,STAT=ierr)
1817 if (ierr.ne.0) then
1818 CALL wrf_error_fatal ( &
1819 'frame/module_domain.f: Failed to dallocate grid%xa%tb85v. ')
1820 endif
1821 NULLIFY(grid%xa%tb85v)
1822 ENDIF
1823 IF ( ASSOCIATED( grid%xa%tb85h ) ) THEN
1824 DEALLOCATE(grid%xa%tb85h,STAT=ierr)
1825 if (ierr.ne.0) then
1826 CALL wrf_error_fatal ( &
1827 'frame/module_domain.f: Failed to dallocate grid%xa%tb85h. ')
1828 endif
1829 NULLIFY(grid%xa%tb85h)
1830 ENDIF
1831 IF ( ASSOCIATED( grid%xp%vxy ) ) THEN
1832 DEALLOCATE(grid%xp%vxy,STAT=ierr)
1833 if (ierr.ne.0) then
1834 CALL wrf_error_fatal ( &
1835 'frame/module_domain.f: Failed to dallocate grid%xp%vxy. ')
1836 endif
1837 NULLIFY(grid%xp%vxy)
1838 ENDIF
1839 IF ( ASSOCIATED( grid%xp%v1z ) ) THEN
1840 DEALLOCATE(grid%xp%v1z,STAT=ierr)
1841 if (ierr.ne.0) then
1842 CALL wrf_error_fatal ( &
1843 'frame/module_domain.f: Failed to dallocate grid%xp%v1z. ')
1844 endif
1845 NULLIFY(grid%xp%v1z)
1846 ENDIF
1847 IF ( ASSOCIATED( grid%xp%v1x ) ) THEN
1848 DEALLOCATE(grid%xp%v1x,STAT=ierr)
1849 if (ierr.ne.0) then
1850 CALL wrf_error_fatal ( &
1851 'frame/module_domain.f: Failed to dallocate grid%xp%v1x. ')
1852 endif
1853 NULLIFY(grid%xp%v1x)
1854 ENDIF
1855 IF ( ASSOCIATED( grid%xp%v1y ) ) THEN
1856 DEALLOCATE(grid%xp%v1y,STAT=ierr)
1857 if (ierr.ne.0) then
1858 CALL wrf_error_fatal ( &
1859 'frame/module_domain.f: Failed to dallocate grid%xp%v1y. ')
1860 endif
1861 NULLIFY(grid%xp%v1y)
1862 ENDIF
1863 IF ( ASSOCIATED( grid%xp%v2z ) ) THEN
1864 DEALLOCATE(grid%xp%v2z,STAT=ierr)
1865 if (ierr.ne.0) then
1866 CALL wrf_error_fatal ( &
1867 'frame/module_domain.f: Failed to dallocate grid%xp%v2z. ')
1868 endif
1869 NULLIFY(grid%xp%v2z)
1870 ENDIF
1871 IF ( ASSOCIATED( grid%xp%v2x ) ) THEN
1872 DEALLOCATE(grid%xp%v2x,STAT=ierr)
1873 if (ierr.ne.0) then
1874 CALL wrf_error_fatal ( &
1875 'frame/module_domain.f: Failed to dallocate grid%xp%v2x. ')
1876 endif
1877 NULLIFY(grid%xp%v2x)
1878 ENDIF
1879 IF ( ASSOCIATED( grid%xp%v2y ) ) THEN
1880 DEALLOCATE(grid%xp%v2y,STAT=ierr)
1881 if (ierr.ne.0) then
1882 CALL wrf_error_fatal ( &
1883 'frame/module_domain.f: Failed to dallocate grid%xp%v2y. ')
1884 endif
1885 NULLIFY(grid%xp%v2y)
1886 ENDIF
1887 IF ( ASSOCIATED( grid%fdob%varobs ) ) THEN
1888 DEALLOCATE(grid%fdob%varobs,STAT=ierr)
1889 if (ierr.ne.0) then
1890 CALL wrf_error_fatal ( &
1891 'frame/module_domain.f: Failed to dallocate grid%fdob%varobs. ')
1892 endif
1893 NULLIFY(grid%fdob%varobs)
1894 ENDIF
1895 IF ( ASSOCIATED( grid%fdob%errf ) ) THEN
1896 DEALLOCATE(grid%fdob%errf,STAT=ierr)
1897 if (ierr.ne.0) then
1898 CALL wrf_error_fatal ( &
1899 'frame/module_domain.f: Failed to dallocate grid%fdob%errf. ')
1900 endif
1901 NULLIFY(grid%fdob%errf)
1902 ENDIF
1903 IF ( ASSOCIATED( grid%fdob%timeob ) ) THEN
1904 DEALLOCATE(grid%fdob%timeob,STAT=ierr)
1905 if (ierr.ne.0) then
1906 CALL wrf_error_fatal ( &
1907 'frame/module_domain.f: Failed to dallocate grid%fdob%timeob. ')
1908 endif
1909 NULLIFY(grid%fdob%timeob)
1910 ENDIF
1911 IF ( ASSOCIATED( grid%fdob%nlevs_ob ) ) THEN
1912 DEALLOCATE(grid%fdob%nlevs_ob,STAT=ierr)
1913 if (ierr.ne.0) then
1914 CALL wrf_error_fatal ( &
1915 'frame/module_domain.f: Failed to dallocate grid%fdob%nlevs_ob. ')
1916 endif
1917 NULLIFY(grid%fdob%nlevs_ob)
1918 ENDIF
1919 IF ( ASSOCIATED( grid%fdob%lev_in_ob ) ) THEN
1920 DEALLOCATE(grid%fdob%lev_in_ob,STAT=ierr)
1921 if (ierr.ne.0) then
1922 CALL wrf_error_fatal ( &
1923 'frame/module_domain.f: Failed to dallocate grid%fdob%lev_in_ob. ')
1924 endif
1925 NULLIFY(grid%fdob%lev_in_ob)
1926 ENDIF
1927 IF ( ASSOCIATED( grid%fdob%plfo ) ) THEN
1928 DEALLOCATE(grid%fdob%plfo,STAT=ierr)
1929 if (ierr.ne.0) then
1930 CALL wrf_error_fatal ( &
1931 'frame/module_domain.f: Failed to dallocate grid%fdob%plfo. ')
1932 endif
1933 NULLIFY(grid%fdob%plfo)
1934 ENDIF
1935 IF ( ASSOCIATED( grid%fdob%elevob ) ) THEN
1936 DEALLOCATE(grid%fdob%elevob,STAT=ierr)
1937 if (ierr.ne.0) then
1938 CALL wrf_error_fatal ( &
1939 'frame/module_domain.f: Failed to dallocate grid%fdob%elevob. ')
1940 endif
1941 NULLIFY(grid%fdob%elevob)
1942 ENDIF
1943 IF ( ASSOCIATED( grid%fdob%rio ) ) THEN
1944 DEALLOCATE(grid%fdob%rio,STAT=ierr)
1945 if (ierr.ne.0) then
1946 CALL wrf_error_fatal ( &
1947 'frame/module_domain.f: Failed to dallocate grid%fdob%rio. ')
1948 endif
1949 NULLIFY(grid%fdob%rio)
1950 ENDIF
1951 IF ( ASSOCIATED( grid%fdob%rjo ) ) THEN
1952 DEALLOCATE(grid%fdob%rjo,STAT=ierr)
1953 if (ierr.ne.0) then
1954 CALL wrf_error_fatal ( &
1955 'frame/module_domain.f: Failed to dallocate grid%fdob%rjo. ')
1956 endif
1957 NULLIFY(grid%fdob%rjo)
1958 ENDIF
1959 IF ( ASSOCIATED( grid%fdob%rko ) ) THEN
1960 DEALLOCATE(grid%fdob%rko,STAT=ierr)
1961 if (ierr.ne.0) then
1962 CALL wrf_error_fatal ( &
1963 'frame/module_domain.f: Failed to dallocate grid%fdob%rko. ')
1964 endif
1965 NULLIFY(grid%fdob%rko)
1966 ENDIF
1967 !ENDOFREGISTRYGENERATEDINCLUDE