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
de_allocate
subroutine de_allocate
2023-08-16 | Yali Mao | Add CIT to GTG fields.
Definition
DEALLOCATE.f:19
DEALLOCATE.f
Generated by
1.9.8