UPP  V11.0.0
 All Data Structures Files Functions Pages
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
masks
Definition: MASKS_mod.f:1
params_mod
Definition: params.F:1
soil
Definition: SOIL_mod.f:1
upp_math
dvdxdudy() computes dudy, dvdx, uwnd
Definition: UPP_MATH.f:17