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