UPP  001
 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(rswin)
191  deallocate(swddni)
192  deallocate(swddif)
193  deallocate(swdnbc)
194  deallocate(swupbc)
195  deallocate(swddnic)
196  deallocate(swddifc)
197  deallocate(swupt)
198  deallocate(int_smoke)
199  deallocate(mean_frp)
200  deallocate(int_aod)
201  deallocate(smoke)
202  deallocate(taod5502d)
203  deallocate(aerasy2d)
204  deallocate(aerssa2d)
205  deallocate(lwp)
206  deallocate(iwp)
207  deallocate(rlwin)
208  deallocate(lwdnbc)
209  deallocate(lwupbc)
210  deallocate(rlwtoa)
211  deallocate(rswtoa)
212  deallocate(tg)
213  deallocate(sfcshx)
214  deallocate(sfclhx)
215  deallocate(fis)
216  deallocate(t500)
217  deallocate(t700)
218  deallocate(z500)
219  deallocate(z700)
220  deallocate(teql)
221  deallocate(ieql)
222  deallocate(cfracl)
223  deallocate(cfracm)
224  deallocate(cfrach)
225  deallocate(acfrst)
226  deallocate(acfrcv)
227  deallocate(hbot)
228  deallocate(htop)
229  deallocate(aswin)
230  deallocate(alwin)
231  deallocate(aswout)
232  deallocate(alwout)
233  deallocate(aswtoa)
234  deallocate(alwtoa)
235  deallocate(czen)
236  deallocate(czmean)
237  deallocate(sigt4)
238  deallocate(rswout)
239  deallocate(radot)
240  deallocate(ncfrst) ! real
241  deallocate(ncfrcv) ! real
242  deallocate(smstot)
243  deallocate(pctsno)
244  deallocate(pshltr)
245  deallocate(th10)
246  deallocate(q10)
247  deallocate(sr)
248  deallocate(prec)
249  deallocate(subshx)
250  deallocate(snopcx)
251  deallocate(sfcuvx)
252  deallocate(sfcevp)
253  deallocate(potevp)
254  deallocate(z0)
255  deallocate(ustar)
256  deallocate(pblh)
257  deallocate(pblhgust)
258  deallocate(twbs)
259  deallocate(qwbs)
260  deallocate(sfcexc)
261  deallocate(grnflx)
262  deallocate(soiltb)
263  deallocate(z1000)
264  deallocate(slp)
265  deallocate(pslp)
266  deallocate(f)
267  deallocate(albedo)
268  deallocate(albase)
269  deallocate(cldfra)
270  deallocate(cprate)
271  deallocate(cnvcfr)
272  deallocate(ivgtyp)
273  deallocate(isltyp)
274  deallocate(hbotd)
275  deallocate(htopd)
276  deallocate(hbots)
277  deallocate(htops)
278  deallocate(cldefi)
279  deallocate(islope)
280  deallocate(si)
281  deallocate(lspa)
282  deallocate(rswinc)
283  deallocate(vis)
284  deallocate(pd)
285  deallocate(mxsnal)
286 ! add GFS fields
287  deallocate(sfcux)
288  deallocate(sfcvx)
289  deallocate(sfcuxi)
290  deallocate(sfcvxi)
291  deallocate(avgalbedo)
292  deallocate(avgcprate)
293  deallocate(avgprec)
294  deallocate(avgprec_cont)
295  deallocate(avgcprate_cont)
296  deallocate(ptop)
297  deallocate(pbot)
298  deallocate(avgcfrach)
299  deallocate(avgcfracm)
300  deallocate(avgcfracl)
301  deallocate(avgtcdc)
302  deallocate(auvbin)
303  deallocate(auvbinc)
304  deallocate(ptopl)
305  deallocate(pbotl)
306  deallocate(ttopl)
307  deallocate(ptopm)
308  deallocate(pbotm)
309  deallocate(ttopm)
310  deallocate(ptoph)
311  deallocate(pboth)
312  deallocate(ttoph)
313  deallocate(sfcugs)
314  deallocate(sfcvgs)
315  deallocate(pblcfr)
316  deallocate(cldwork)
317  deallocate(gtaux)
318  deallocate(gtauy)
319  deallocate(mdltaux)
320  deallocate(mdltauy)
321  deallocate(runoff)
322  deallocate(maxtshltr)
323  deallocate(mintshltr)
324  deallocate(maxrhshltr)
325  deallocate(minrhshltr)
326  deallocate(maxqshltr)
327  deallocate(minqshltr)
328  deallocate(mixht)
329  deallocate(epsr)
330  deallocate(dzice)
331  deallocate(alwinc)
332  deallocate(alwoutc)
333  deallocate(alwtoac)
334  deallocate(aswinc)
335  deallocate(aswoutc)
336  deallocate(aswtoac)
337  deallocate(aswintoa)
338  deallocate(smcwlt)
339  deallocate(suntime)
340  deallocate(fieldcapa)
341  deallocate(avisbeamswin)
342  deallocate(avisdiffswin)
343  deallocate(airbeamswin)
344  deallocate(airdiffswin)
345  deallocate(snowfall)
346  deallocate(acond)
347  deallocate(edir)
348  deallocate(ecan)
349  deallocate(etrans)
350  deallocate(esnow)
351  deallocate(avgedir)
352  deallocate(avgecan)
353  deallocate(avgetrans)
354  deallocate(avgesnow)
355  deallocate(avgpotevp)
356  deallocate(ti)
357  deallocate(du_aod550)
358  deallocate(ss_aod550)
359  deallocate(su_aod550)
360  deallocate(bc_aod550)
361  deallocate(oc_aod550)
362  deallocate(landfrac)
363  deallocate(paha)
364  deallocate(pahi)
365  deallocate(tecan)
366  deallocate(tetran)
367  deallocate(tedir)
368  deallocate(twa)
369  deallocate(fdnsst)
370  deallocate(pwat)
371 ! GSD
372  deallocate(rainc_bucket)
373  deallocate(rainc_bucket1)
374  deallocate(rainnc_bucket)
375  deallocate(rainnc_bucket1)
376  deallocate(pcp_bucket)
377  deallocate(pcp_bucket1)
378  deallocate(snow_bucket)
379  deallocate(snow_bucket1)
380  deallocate(graup_bucket)
381  deallocate(graup_bucket1)
382  deallocate(qrmax)
383  deallocate(tmax)
384  deallocate(snownc)
385  deallocate(graupelnc)
386 ! SRD
387  deallocate(wspd10max)
388  deallocate(w_up_max)
389  deallocate(w_dn_max)
390  deallocate(w_mean)
391  deallocate(refd_max)
392  deallocate(prate_max)
393  deallocate(fprate_max)
394  deallocate(up_heli_max)
395  deallocate(up_heli_max16)
396  deallocate(up_heli_min)
397  deallocate(up_heli_min16)
398  deallocate(up_heli_max02)
399  deallocate(up_heli_min02)
400  deallocate(up_heli_max03)
401  deallocate(up_heli_min03)
402  deallocate(rel_vort_max)
403  deallocate(rel_vort_max01)
404  deallocate(rel_vort_maxhy1)
405  deallocate(wspd10umax)
406  deallocate(wspd10vmax)
407  deallocate(refdm10c_max)
408  deallocate(hail_max2d)
409  deallocate(hail_maxk1)
410  deallocate(hail_maxhailcast)
411  deallocate(grpl_max)
412  deallocate(up_heli)
413  deallocate(up_heli16)
414  deallocate(ltg1_max)
415  deallocate(ltg2_max)
416  deallocate(ltg3_max)
417  deallocate(nci_ltg)
418  deallocate(nca_ltg)
419  deallocate(nci_wq)
420  deallocate(nca_wq)
421  deallocate(nci_refd)
422  deallocate(nca_refd)
423 
424 ! CRA
425  deallocate(ref_10cm)
426  deallocate(refc_10cm)
427  deallocate(ref1km_10cm)
428  deallocate(ref4km_10cm)
429 ! CRA
430  deallocate(u10mean)
431  deallocate(v10mean)
432  deallocate(spduv10mean)
433  deallocate(swradmean)
434  deallocate(swnormmean)
435  deallocate(snfden)
436  deallocate(sndepac)
437 
438 !
439 ! FROM MASKS
440 !
441  deallocate(hbm2)
442  deallocate(sm)
443  deallocate(sice)
444  deallocate(lmh) ! real
445  deallocate(lmv) ! real
446  deallocate(gdlat)
447  deallocate(gdlon)
448  deallocate(dx)
449  deallocate(dy)
450  deallocate(htm)
451  deallocate(vtm)
452 
453 ! add GFIP ICING
454  deallocate(icing_gfip)
455  deallocate(icing_gfis)
456 
457 ! add GTG turbulence
458  deallocate(catedr)
459  deallocate(mwt)
460  deallocate(gtg)
461 
462 !
463  if (gocart_on) then
464 ! Deallocate GOCART fields
465 ! vrbls4d
466  deallocate(dust)
467  deallocate(salt)
468  deallocate(soot)
469  deallocate(waso)
470  deallocate(suso)
471  deallocate(pp25)
472  deallocate(pp10)
473 ! vrbls3d
474  deallocate(ext)
475  deallocate(asy)
476  deallocate(ssa)
477  deallocate(sca)
478  deallocate(duem)
479  deallocate(dusd)
480  deallocate(dudp)
481  deallocate(duwt)
482  deallocate(dusv)
483  deallocate(suem)
484  deallocate(susd)
485  deallocate(sudp)
486  deallocate(suwt)
487  deallocate(ocem)
488  deallocate(ocsd)
489  deallocate(ocdp)
490  deallocate(ocwt)
491  deallocate(ocsv)
492  deallocate(bcem)
493  deallocate(bcsd)
494  deallocate(bcdp)
495  deallocate(bcwt)
496  deallocate(bcsv)
497  deallocate(ssem)
498  deallocate(sssd)
499  deallocate(ssdp)
500  deallocate(sswt)
501  deallocate(sssv)
502  deallocate(dpres)
503  deallocate(rhomid)
504 ! vrbls2d
505  deallocate(dusmass)
506  deallocate(ducmass)
507  deallocate(dusmass25)
508  deallocate(ducmass25)
509  deallocate(susmass)
510  deallocate(sucmass)
511  deallocate(susmass25)
512  deallocate(sucmass25)
513  deallocate(ocsmass)
514  deallocate(occmass)
515  deallocate(ocsmass25)
516  deallocate(occmass25)
517  deallocate(bcsmass)
518  deallocate(bccmass)
519  deallocate(bcsmass25)
520  deallocate(bccmass25)
521  deallocate(sssmass)
522  deallocate(sscmass)
523  deallocate(sssmass25)
524  deallocate(sscmass25)
525  deallocate(dustcb)
526  deallocate(occb)
527  deallocate(bccb)
528  deallocate(sulfcb)
529  deallocate(pp25cb)
530  deallocate(pp10cb)
531  deallocate(sscb)
532  deallocate(dustallcb)
533  deallocate(ssallcb)
534  deallocate(dustpm)
535  deallocate(dustpm10)
536  deallocate(sspm)
537  deallocate(maod)
538  endif
539 !
540 ! HWRF RRTMG output
541  deallocate(acswupt)
542  deallocate(swdnt)
543  deallocate(acswdnt)
544 ! UPP_MATH MODULE DIFFERENTIAL EQUATIONS
545  deallocate(ddvdx)
546  deallocate(ddudy)
547  deallocate(uuavg)
548 
549 ! AQF
550  if (aqfcmaq_on) then
551  deallocate(ozcon)
552  deallocate(pmtf)
553  endif
554 
555  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