UPP (develop)
Loading...
Searching...
No Matches
DEALLOCATE.f
Go to the documentation of this file.
1
15!(UFS-Chem) and 2D diag. output (d2d_chem) for GEFS-Aerosols and CCPP-Chem model.
18 SUBROUTINE de_allocate
19
20!
21 use vrbls4d
22 use vrbls3d
23 use vrbls2d
24 use soil
25 use masks
26 use params_mod
27 use ctlblk_mod
28 use upp_math, only: ddvdx, ddudy, uuavg
29!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
30!
31 implicit none
32!
33 include 'mpif.h'
34!
35!
36! deallocate arrays
37!
38!
39! FROM VRBLS3D
40!
41 deallocate(u)
42 deallocate(v)
43 deallocate(t)
44! CHUANG ADD POTENTIAL TEMP BECAUSE WRF OUTPUT THETA
45! deallocate(th)
46 deallocate(q)
47! deallocate(w(im,jsta_2l:jend_2u,lp1))
48 deallocate(uh)
49 deallocate(vh)
50 deallocate(wh)
51 deallocate(pmid)
52 deallocate(pmidv)
53 deallocate(pint)
54 deallocate(alpint)
55 deallocate(zmid)
56 deallocate(zint)
57! deallocate(rainw(im,jsta_2l:jend_2u,lm))
58 deallocate(q2)
59 deallocate(omga)
60 deallocate(dpres)
61 deallocate(t_adj)
62 deallocate(ttnd)
63 deallocate(rswtt)
64 deallocate(rlwtt)
65 deallocate(exch_h)
66 deallocate(train)
67 deallocate(tcucn)
68 deallocate(el_pbl)
69! MP FIELD
70 deallocate(cwm)
71 deallocate(f_ice)
72 deallocate(f_rain)
73 deallocate(f_rimef)
74 deallocate(qqw)
75 deallocate(qrimef)
76 deallocate(qqi)
77 deallocate(qqr)
78 deallocate(qqs)
79 deallocate(qqg)
80 deallocate(qqh)
81 deallocate(qqnw)
82 deallocate(qqni)
83 deallocate(qqnr)
84 deallocate(qqnwfa)
85 deallocate(qqnifa)
86 deallocate(taod5503d)
87 deallocate(aextc55)
88 deallocate(extcof55)
89 deallocate(qc_bl)
90 deallocate(cfr)
91 deallocate(effri)
92 deallocate(effrl)
93 deallocate(effrs)
94 deallocate(cfr_raw)
95 deallocate(dbz)
96 deallocate(dbzr)
97 deallocate(dbzi)
98 deallocate(dbzc)
99 deallocate(mcvg)
100 deallocate(nlice)
101! KRS: HWRF addition for thompson reflectivity
102! or non-ferrier physics. wrf-derived
103 deallocate(refl_10cm)
104! Wm Lewis: added
105 deallocate(nrain)
106 deallocate(radius_cloud)
107 deallocate(radius_ice)
108 deallocate(radius_snow)
109!GFS FIELD
110 deallocate(o3)
111 deallocate(o)
112 deallocate(o2)
113 deallocate(tcucns)
114 if(allocated(cd10)) deallocate(cd10)
115 if(allocated(ch10)) deallocate(ch10)
116! Add GFS d3d fields
117 if (d3d_on) then
118 deallocate(vdifftt)
119! deallocate(tcucns)
120 deallocate(vdiffmois)
121 deallocate(dconvmois)
122 deallocate(sconvmois)
123 deallocate(nradtt)
124 deallocate(o3vdiff)
125 deallocate(o3prod)
126 deallocate(o3tndy)
127 deallocate(mwpv)
128 deallocate(unknown)
129 deallocate(vdiffzacce)
130 deallocate(zgdrag)
131 deallocate(cnvctummixing)
132 deallocate(vdiffmacce)
133 deallocate(mgdrag)
134 deallocate(cnvctvmmixing)
135 deallocate(ncnvctcfrac)
136 deallocate(cnvctumflx)
137 deallocate(cnvctdmflx)
138 deallocate(cnvctdetmflx)
139 deallocate(cnvctzgdrag)
140 deallocate(cnvctmgdrag)
141 endif
142!
143! FROM SOIL
144!
145 deallocate(smc)
146 deallocate(stc)
147 deallocate(sh2o)
148 deallocate(sldpth)
149 deallocate(cape)
150 deallocate(cin)
151 deallocate(ifi_apcp)
152 deallocate(rtdpth)
153 deallocate(sllevel)
154!
155! FROM VRBLS2D
156!
157 deallocate(u10)
158 deallocate(v10)
159 deallocate(tshltr)
160 deallocate(qshltr)
161 deallocate(mrshltr)
162 deallocate(smstav)
163 deallocate(ssroff)
164 deallocate(bgroff)
165 deallocate(vegfrc)
166 deallocate(shdmin)
167 deallocate(shdmax)
168 deallocate(lai)
169 deallocate(xlaixy)
170 deallocate(acsnow)
171 deallocate(acgraup)
172 deallocate(acfrain)
173 deallocate(acsnom)
174 deallocate(cmc)
175 deallocate(sst)
176 deallocate(qz0)
177 deallocate(thz0)
178 deallocate(uz0)
179 deallocate(vz0)
180 deallocate(qs)
181 deallocate(ths)
182 deallocate(sno)
183 deallocate(snonc)
184 deallocate(snoavg)
185 deallocate(psfcavg)
186 deallocate(t10m)
187 deallocate(t10avg)
188 deallocate(akhsavg)
189 deallocate(akmsavg)
190 deallocate(u10max)
191 deallocate(v10max)
192 deallocate(u10h)
193 deallocate(v10h)
194 deallocate(akms)
195 deallocate(akhs)
196 deallocate(cuprec)
197 deallocate(acprec)
198 deallocate(ancprc)
199 deallocate(cuppt)
200 deallocate(tsnow)
201 deallocate(qvg)
202 deallocate(qv2m)
203 deallocate(qvl1)
204 deallocate(rswin)
205 deallocate(swddni)
206 deallocate(swddif)
207 deallocate(swdnbc)
208 deallocate(swupbc)
209 deallocate(swddnic)
210 deallocate(swddifc)
211 deallocate(swupt)
212 deallocate(mean_frp)
213 deallocate(ebb)
214 deallocate(hwp)
215 deallocate(smoke)
216 deallocate(fv3dust)
217 deallocate(coarsepm)
218 deallocate(smoke_ave)
219 deallocate(dust_ave)
220 deallocate(coarsepm_ave)
221 deallocate(taod5502d)
222 deallocate(aerasy2d)
223 deallocate(aerssa2d)
224 deallocate(lwp)
225 deallocate(iwp)
226 deallocate(rlwin)
227 deallocate(lwdnbc)
228 deallocate(lwupbc)
229 deallocate(rlwtoa)
230 deallocate(rswtoa)
231 deallocate(tg)
232 deallocate(sfcshx)
233 deallocate(sfclhx)
234 deallocate(fis)
235 deallocate(t500)
236 deallocate(t700)
237 deallocate(z500)
238 deallocate(z700)
239 deallocate(teql)
240 deallocate(ieql)
241 deallocate(cfracl)
242 deallocate(cfracm)
243 deallocate(cfrach)
244 deallocate(acfrst)
245 deallocate(acfrcv)
246 deallocate(hbot)
247 deallocate(htop)
248 deallocate(aswin)
249 deallocate(alwin)
250 deallocate(aswout)
251 deallocate(alwout)
252 deallocate(aswtoa)
253 deallocate(alwtoa)
254 deallocate(czen)
255 deallocate(czmean)
256 deallocate(sigt4)
257 deallocate(rswout)
258 deallocate(radot)
259 deallocate(ncfrst) ! real
260 deallocate(ncfrcv) ! real
261 deallocate(smstot)
262 deallocate(pctsno)
263 deallocate(pshltr)
264 deallocate(th10)
265 deallocate(q10)
266 deallocate(sr)
267 deallocate(prec)
268 deallocate(subshx)
269 deallocate(snopcx)
270 deallocate(sfcuvx)
271 deallocate(sfcevp)
272 deallocate(potevp)
273 deallocate(z0)
274 deallocate(ustar)
275 deallocate(pblh)
276 deallocate(pblhgust)
277 deallocate(twbs)
278 deallocate(qwbs)
279 deallocate(sfcexc)
280 deallocate(grnflx)
281 deallocate(soiltb)
282 deallocate(z1000)
283 deallocate(slp)
284 deallocate(pslp)
285 deallocate(f)
286 deallocate(albedo)
287 deallocate(albase)
288 deallocate(cldfra)
289 deallocate(cprate)
290 deallocate(cnvcfr)
291 deallocate(ivgtyp)
292 deallocate(isltyp)
293 deallocate(hbotd)
294 deallocate(htopd)
295 deallocate(hbots)
296 deallocate(htops)
297 deallocate(cldefi)
298 deallocate(islope)
299 deallocate(si)
300 deallocate(lspa)
301 deallocate(rswinc)
302 deallocate(vis)
303 deallocate(pd)
304 deallocate(mxsnal)
305! add GFS fields
306 deallocate(sfcux)
307 deallocate(sfcvx)
308 deallocate(sfcuxi)
309 deallocate(sfcvxi)
310 deallocate(avgalbedo)
311 deallocate(avgcprate)
312 deallocate(avgprec)
313 deallocate(avgprec_cont)
314 deallocate(avgcprate_cont)
315 deallocate(ptop)
316 deallocate(pbot)
317 deallocate(avgcfrach)
318 deallocate(avgcfracm)
319 deallocate(avgcfracl)
320 deallocate(avgtcdc)
321 deallocate(auvbin)
322 deallocate(auvbinc)
323 deallocate(ptopl)
324 deallocate(pbotl)
325 deallocate(ttopl)
326 deallocate(ptopm)
327 deallocate(pbotm)
328 deallocate(ttopm)
329 deallocate(ptoph)
330 deallocate(pboth)
331 deallocate(ttoph)
332 deallocate(sfcugs)
333 deallocate(sfcvgs)
334 deallocate(pblcfr)
335 deallocate(cldwork)
336 deallocate(gtaux)
337 deallocate(gtauy)
338 deallocate(mdltaux)
339 deallocate(mdltauy)
340 deallocate(runoff)
341 deallocate(maxtshltr)
342 deallocate(mintshltr)
343 deallocate(maxrhshltr)
344 deallocate(minrhshltr)
345 deallocate(maxqshltr)
346 deallocate(minqshltr)
347 deallocate(mixht)
348 deallocate(epsr)
349 deallocate(dzice)
350 deallocate(alwinc)
351 deallocate(alwoutc)
352 deallocate(alwtoac)
353 deallocate(aswinc)
354 deallocate(aswoutc)
355 deallocate(aswtoac)
356 deallocate(aswintoa)
357 deallocate(smcwlt)
358 deallocate(suntime)
359 deallocate(fieldcapa)
360 deallocate(avisbeamswin)
361 deallocate(avisdiffswin)
362 deallocate(airbeamswin)
363 deallocate(airdiffswin)
364 deallocate(snowfall)
365 deallocate(acond)
366 deallocate(edir)
367 deallocate(ecan)
368 deallocate(etrans)
369 deallocate(esnow)
370 deallocate(avgedir)
371 deallocate(avgecan)
372 deallocate(avgetrans)
373 deallocate(avgesnow)
374 deallocate(avgpotevp)
375 deallocate(aod550)
376 deallocate(ti)
377 deallocate(du_aod550)
378 deallocate(ss_aod550)
379 deallocate(su_aod550)
380 deallocate(bc_aod550)
381 deallocate(oc_aod550)
382 deallocate(landfrac)
383 deallocate(paha)
384 deallocate(pahi)
385 deallocate(tecan)
386 deallocate(tetran)
387 deallocate(tedir)
388 deallocate(twa)
389 deallocate(fdnsst)
390 deallocate(pwat)
391! GSD
392 deallocate(rainc_bucket)
393 deallocate(rainc_bucket1)
394 deallocate(rainnc_bucket)
395 deallocate(rainnc_bucket1)
396 deallocate(pcp_bucket)
397 deallocate(pcp_bucket1)
398 deallocate(snow_bucket)
399 deallocate(snow_bucket1)
400 deallocate(graup_bucket)
401 deallocate(graup_bucket1)
402 deallocate(frzrn_bucket)
403 deallocate(snow_acm)
404 deallocate(snow_bkt)
405 deallocate(qrmax)
406 deallocate(tmax)
407 deallocate(snownc)
408 deallocate(graupelnc)
409! SRD
410 deallocate(wspd10max)
411 deallocate(w_up_max)
412 deallocate(w_dn_max)
413 deallocate(w_mean)
414 deallocate(refd_max)
415 deallocate(prate_max)
416 deallocate(fprate_max)
417 deallocate(up_heli_max)
418 deallocate(up_heli_max16)
419 deallocate(up_heli_min)
420 deallocate(up_heli_min16)
421 deallocate(up_heli_max02)
422 deallocate(up_heli_min02)
423 deallocate(up_heli_max03)
424 deallocate(up_heli_min03)
425 deallocate(rel_vort_max)
426 deallocate(rel_vort_max01)
427 deallocate(rel_vort_maxhy1)
428 deallocate(wspd10umax)
429 deallocate(wspd10vmax)
430 deallocate(refdm10c_max)
431 deallocate(hail_max2d)
432 deallocate(hail_maxk1)
433 deallocate(hail_maxhailcast)
434 deallocate(grpl_max)
435 deallocate(up_heli)
436 deallocate(up_heli16)
437 deallocate(ltg1_max)
438 deallocate(ltg2_max)
439 deallocate(ltg3_max)
440 deallocate(nci_ltg)
441 deallocate(nca_ltg)
442 deallocate(nci_wq)
443 deallocate(nca_wq)
444 deallocate(nci_refd)
445 deallocate(nca_refd)
446
447! CRA
448 deallocate(ref_10cm)
449 deallocate(refc_10cm)
450 deallocate(ref1km_10cm)
451 deallocate(ref4km_10cm)
452! CRA
453 deallocate(u10mean)
454 deallocate(v10mean)
455 deallocate(spduv10mean)
456 deallocate(swradmean)
457 deallocate(swnormmean)
458 deallocate(snfden)
459 deallocate(sndepac)
460
461!
462! FROM MASKS
463!
464 deallocate(hbm2)
465 deallocate(sm)
466 deallocate(sice)
467 deallocate(lmh) ! real
468 deallocate(lmv) ! real
469 deallocate(gdlat)
470 deallocate(gdlon)
471 deallocate(dx)
472 deallocate(dy)
473 deallocate(htm)
474 deallocate(vtm)
475
476! add GFIP ICING
477 deallocate(icing_gfip)
478 deallocate(icing_gfis)
479
480! add GTG turbulence
481 if (gtg_on) then
482 deallocate(catedr)
483 deallocate(mwt)
484 deallocate(gtg)
485 deallocate(cit)
486 endif
487!
488 if (gocart_on .or. gccpp_on .or. nasa_on) then
489! Deallocate GOCART fields
490! vrbls4d
491 deallocate(dust)
492 deallocate(salt)
493 deallocate(soot)
494 deallocate(waso)
495 deallocate(suso)
496 if (nasa_on) then
497 deallocate(no3)
498 deallocate(nh4)
499 endif
500 deallocate(pp25)
501 deallocate(pp10)
502! vrbls3d
503 deallocate(ext)
504 deallocate(asy)
505 deallocate(ssa)
506 deallocate(sca)
507 if (d2d_chem) then
508 deallocate(duem)
509 deallocate(dusd)
510 deallocate(dudp)
511 deallocate(duwt)
512 deallocate(dusv)
513 deallocate(suem)
514 deallocate(susd)
515 deallocate(sudp)
516 deallocate(suwt)
517 deallocate(ocem)
518 deallocate(ocsd)
519 deallocate(ocdp)
520 deallocate(ocwt)
521 deallocate(ocsv)
522 deallocate(bcem)
523 deallocate(bcsd)
524 deallocate(bcdp)
525 deallocate(bcwt)
526 deallocate(bcsv)
527 deallocate(ssem)
528 deallocate(sssd)
529 deallocate(ssdp)
530 deallocate(sswt)
531 deallocate(sssv)
532 endif
533 deallocate(rhomid)
534! vrbls2d
535 deallocate(dusmass)
536 deallocate(ducmass)
537 deallocate(dusmass25)
538 deallocate(ducmass25)
539 deallocate(susmass)
540 deallocate(sucmass)
541 deallocate(susmass25)
542 deallocate(sucmass25)
543 deallocate(ocsmass)
544 deallocate(occmass)
545 deallocate(ocsmass25)
546 deallocate(occmass25)
547 deallocate(bcsmass)
548 deallocate(bccmass)
549 deallocate(bcsmass25)
550 deallocate(bccmass25)
551 deallocate(sssmass)
552 deallocate(sscmass)
553 deallocate(sssmass25)
554 deallocate(sscmass25)
555 deallocate(dustcb)
556 deallocate(occb)
557 deallocate(bccb)
558 deallocate(sulfcb)
559 deallocate(pp25cb)
560 deallocate(pp10cb)
561 deallocate(sscb)
562 if (nasa_on) then
563 deallocate(no3cb)
564 deallocate(nh4cb)
565 endif
566 deallocate(dustallcb)
567 deallocate(ssallcb)
568 deallocate(dustpm)
569 deallocate(dustpm10)
570 deallocate(sspm)
571 deallocate(maod)
572 endif
573!
574! HWRF RRTMG output
575 deallocate(acswupt)
576 deallocate(swdnt)
577 deallocate(acswdnt)
578! UPP_MATH MODULE DIFFERENTIAL EQUATIONS
579 deallocate(ddvdx)
580 deallocate(ddudy)
581 deallocate(uuavg)
582
583! AQF
584 if (aqf_on) then
585 deallocate(avgozcon)
586 deallocate(avgpmtf)
587 deallocate(aqm_aod550)
588 endif
589
590 end
subroutine de_allocate
2023-08-16 | Yali Mao | Add CIT to GTG fields.
Definition DEALLOCATE.f:19