SUBROUTINE DE_ALLOCATE	
!$$$  SUBPROGRAM DOCUMENTATION BLOCK
!                .      .    .
! SUBPROGRAM:    MPI_FIRST   SET UP MESSGAE PASSING INFO
!   PRGRMMR: TUCCILLO        ORG: IBM
!
! ABSTRACT:
!     SETS UP MESSAGE PASSING INFO
!   .
!
! PROGRAM HISTORY LOG:
!   00-01-06  TUCCILLO - ORIGINAL
!   01-10-25  H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT
!   02-06-19  MIKE BALDWIN - WRF VERSION
!
! USAGE:    CALL MPI_FIRST
!   INPUT ARGUMENT LIST:
!
!   OUTPUT ARGUMENT LIST:
!
!   OUTPUT FILES:
!     STDOUT  - RUN TIME STANDARD OUT.
!
!   SUBPROGRAMS CALLED:
!       PARA_RANGE
!     UTILITIES:
!       NONE
!     LIBRARY:
!       COMMON - CTLBLK.comm
!
!   ATTRIBUTES:
!     LANGUAGE: FORTRAN
!     MACHINE : IBM RS/6000 SP
!$$$
!
      use vrbls4d
      use vrbls3d
      use vrbls2d
      use soil
      use masks
      use params_mod
      use ctlblk_mod
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
!
       implicit none
!
      include 'mpif.h'
!
!
!     deallocate arrays
!
!
!     FROM VRBLS3D
!
      deallocate(u)
      deallocate(v)
      deallocate(t)
! CHUANG ADD POTENTIAL TEMP BECAUSE WRF OUTPUT THETA
!      deallocate(th)   
      deallocate(q)
!      deallocate(w(im,jsta_2l:jend_2u,lp1))
      deallocate(uh)
      deallocate(vh)
      deallocate(wh)
      deallocate(pmid)
      deallocate(pmidv)
      deallocate(pint)
      deallocate(alpint)
      deallocate(zmid)
      deallocate(zint)
!      deallocate(rainw(im,jsta_2l:jend_2u,lm))
      deallocate(q2)
      deallocate(omga)
      deallocate(T_ADJ)
      deallocate(ttnd)
      deallocate(rswtt)
      deallocate(rlwtt)
      deallocate(exch_h) 
      deallocate(train)
      deallocate(tcucn)
      deallocate(EL_PBL)

!        write(0,*) 'dealloc through 1'
!     MP FIELD   
      deallocate(cwm)
      deallocate(F_ice)
      deallocate(F_rain)
      deallocate(F_RimeF)
!        write(0,*) 'dealloc through 2'
      deallocate(QQW)
      deallocate(QQI)
      deallocate(QQR)
!        write(0,*) 'dealloc through 3'
      deallocate(QQS)
      deallocate(QQG)
      deallocate(QQNI)
!        write(0,*) 'dealloc through 4'
      deallocate(QQNR)
      deallocate(EXTCOF55)
!        write(0,*) 'dealloc through 5'
      deallocate(CFR)
      deallocate(REFL_MDL)
      deallocate(DBZ)
      deallocate(DBZR)
      deallocate(DBZI)
      deallocate(DBZC)
      deallocate(mcvg)
!        write(0,*) 'dealloc through 5a'
      deallocate(NLICE)
!GFS FIELD
      deallocate(o3)
! Add GFS d3d fields
      deallocate(vdifftt)
      deallocate(tcucns)
      deallocate(vdiffmois)
      deallocate(dconvmois)
!        write(0,*) 'dealloc through 5b'
      deallocate(sconvmois)
      deallocate(nradtt)
      deallocate(o3vdiff)
      deallocate(o3prod)
      deallocate(o3tndy)
      deallocate(mwpv)
      deallocate(unknown)
!        write(0,*) 'dealloc through 5c'
      deallocate(vdiffzacce)
      deallocate(zgdrag)
      deallocate(cnvctummixing)
      deallocate(vdiffmacce)
      deallocate(mgdrag)
      deallocate(cnvctvmmixing)
!        write(0,*) 'dealloc through 5d'
      deallocate(ncnvctcfrac)
      deallocate(cnvctumflx)
      deallocate(cnvctdmflx)
      deallocate(cnvctdetmflx)
      deallocate(cnvctzgdrag)
!        write(0,*) 'dealloc through 5e'
      deallocate(cnvctmgdrag)      
!        write(0,*) 'dealloc through 5ea'
!
!     FROM SOIL
!
      deallocate(smc)
      deallocate(stc)
      deallocate(sh2o)
      deallocate(SLDPTH)
      deallocate(RTDPTH)
      deallocate(SLLEVEL)
!        write(0,*) 'dealloc through 5eb'
!
!     FROM VRBLS2D
!
      deallocate(u10)
!        write(0,*) 'dealloc through 5eba'
      deallocate(v10)
!        write(0,*) 'dealloc through 5ebb'
!tst      deallocate(tshltr)
!        write(0,*) 'dealloc through 5ec'
      deallocate(qshltr)
      deallocate(mrshltr)
      deallocate(smstav)
      deallocate(ssroff)
!        write(0,*) 'dealloc through 5ed'
      deallocate(bgroff)
      deallocate(vegfrc)
      deallocate(acsnow)
      deallocate(acsnom)
!        write(0,*) 'dealloc through 5f'
      deallocate(cmc)
      deallocate(sst)
      deallocate(qz0)
      deallocate(thz0)
      deallocate(uz0)
      deallocate(vz0)
      deallocate(qs)
      deallocate(ths)
      deallocate(sno)
      deallocate(snonc)
      deallocate(snoavg)
      deallocate(psfcavg)
      deallocate(t10m)
      deallocate(t10avg)
      deallocate(akhsavg)
      deallocate(akmsavg)
      deallocate(u10max)
      deallocate(v10max)
!        write(0,*) 'dealloc through 5g'
      deallocate(u10h)
      deallocate(v10h)
      deallocate(akms)
      deallocate(akhs)
      deallocate(cuprec)
      deallocate(acprec)
      deallocate(ancprc)
      deallocate(cuppt)
      deallocate(tsnow)
      deallocate(qvg)
      deallocate(qv2m)
      deallocate(rswin)
      deallocate(rlwin)
      deallocate(rlwtoa)
      deallocate(tg)
      deallocate(sfcshx)
      deallocate(sfclhx)
      deallocate(fis)
      deallocate(t500)
      deallocate(cfracl)
      deallocate(cfracm)
      deallocate(cfrach)
      deallocate(acfrst)
      deallocate(acfrcv)
      deallocate(hbot)
      deallocate(htop)
      deallocate(aswin)
      deallocate(alwin)
      deallocate(aswout)
      deallocate(alwout)
      deallocate(aswtoa)
      deallocate(alwtoa)
      deallocate(czen)
      deallocate(czmean)
      deallocate(sigt4)
      deallocate(rswout)
      deallocate(radot)
      deallocate(ncfrst)  ! real
      deallocate(ncfrcv)  ! real
      deallocate(smstot)
      deallocate(pctsno)
      deallocate(pshltr)
      deallocate(th10)
      deallocate(q10)
      deallocate(sr)
      deallocate(prec)
      deallocate(subshx)
      deallocate(snopcx)
      deallocate(sfcuvx)
      deallocate(sfcevp)
      deallocate(potevp)
      deallocate(z0)
      deallocate(ustar)
      deallocate(pblh)
      deallocate(twbs)
      deallocate(qwbs)
      deallocate(sfcexc)
      deallocate(grnflx)
      deallocate(soiltb)
      deallocate(z1000)
      deallocate(slp)
      deallocate(pslp)
      deallocate(f)
      deallocate(albedo)
      deallocate(albase)
      deallocate(cldfra)
      deallocate(cprate)
!        write(0,*) 'dealloc through 5h'
      deallocate(cnvcfr)
      deallocate(ivgtyp)
      deallocate(isltyp)
      deallocate(hbotd)
      deallocate(htopd)
      deallocate(hbots)
      deallocate(htops)
      deallocate(cldefi)
      deallocate(islope)
      deallocate(si)
      deallocate(lspa)
      deallocate(rswinc)
      deallocate(vis)
!        write(0,*) 'dealloc through 5i'
      deallocate(pd)
      deallocate(mxsnal)
! add GFS fields
      deallocate(sfcux)
      deallocate(sfcvx)
      deallocate(avgalbedo)
      deallocate(avgcprate)
      deallocate(avgprec)
      deallocate(ptop)
      deallocate(pbot)
      deallocate(avgcfrach)
      deallocate(avgcfracm)
      deallocate(avgcfracl)
      deallocate(avgtcdc)
      deallocate(auvbin)
      deallocate(auvbinc)
      deallocate(ptopl)
      deallocate(pbotl)
      deallocate(Ttopl)
      deallocate(ptopm)
      deallocate(pbotm)
      deallocate(Ttopm)
      deallocate(ptoph)
      deallocate(pboth)
      deallocate(Ttoph)
      deallocate(sfcugs)
      deallocate(sfcvgs)
      deallocate(pblcfr)
      deallocate(cldwork)
      deallocate(gtaux)
      deallocate(gtauy)
      deallocate(mdltaux)
      deallocate(mdltauy)
      deallocate(runoff)
      deallocate(maxtshltr)
      deallocate(mintshltr)
      deallocate(maxrhshltr)
      deallocate(minrhshltr)
      deallocate(mixht)
!        write(0,*) 'dealloc through 5j'
      deallocate(epsr)
      deallocate(dzice)
      deallocate(alwinc)
      deallocate(alwoutc)
      deallocate(alwtoac)
      deallocate(aswinc)
      deallocate(aswoutc)
      deallocate(aswtoac)
      deallocate(aswintoa)
      deallocate(smcwlt)
      deallocate(suntime)
      deallocate(fieldcapa)
      deallocate(avisbeamswin)
      deallocate(avisdiffswin)
      deallocate(airbeamswin)
      deallocate(airdiffswin)
      deallocate(snowfall)
!        write(0,*) 'dealloc through 5k'
! GSD
      deallocate(rainc_bucket)
      deallocate(rainnc_bucket)
      deallocate(pcp_bucket)
      deallocate(snow_bucket)
      deallocate(qrmax)
      deallocate(tmax)
!        write(0,*) 'dealloc through 6'
      deallocate(snownc)
      deallocate(graupelnc)
! SRD
      deallocate(wspd10max)
      deallocate(w_up_max)
      deallocate(w_dn_max)
      deallocate(w_mean)
!        write(0,*) 'dealloc through 7'
      deallocate(refd_max)
      deallocate(refdm10c_max)
      deallocate(up_heli_max)
      deallocate(up_heli_max16)
      deallocate(up_heli_max25)
      deallocate(up_heli_min25)
      deallocate(up_heli_max03)
      deallocate(up_heli_min03)
      deallocate(grpl_max) 
      deallocate(up_heli)
      deallocate(up_heli16)
!        write(0,*) 'dealloc through 8'
      deallocate(nca_wq)
      deallocate(nci_refd)
      deallocate(nca_refd)     
!        write(0,*) 'dealloc through 8a'
      deallocate(ltg1_max)
      deallocate(ltg2_max)
      deallocate(ltg3_max)
!        write(0,*) 'dealloc through 8b'
      deallocate(nci_ltg)
      deallocate(nca_ltg)
      deallocate(nci_wq)
!        write(0,*) 'dealloc through 8c'
!      deallocate(dwdt_max)
!      deallocate(tke_max)
!      deallocate(w_stdv)
!        write(0,*) 'dealloc through 8d'

!
!     FROM MASKS
!
      deallocate(hbm2)
      deallocate(sm)
      deallocate(sice)
      deallocate(lmh)  ! real
      deallocate(lmv)  ! real
      deallocate(gdlat)
      deallocate(gdlon)
      deallocate(dx)
      deallocate(dy)
      deallocate(htm)
      deallocate(vtm)
        write(0,*) 'dealloc through 8e'
!
! GOCART fields
! vrbls4d
      deallocate(dust)
      deallocate(salt)
      deallocate(soot)
      deallocate(waso)
      deallocate(suso)
! vrbls3d
      deallocate(ext)
      deallocate(asy)
      deallocate(ssa)
      deallocate(duem)
      deallocate(dusd)
      deallocate(dudp)
      deallocate(duwt)
      deallocate(suem)
      deallocate(susd)
      deallocate(sudp)
      deallocate(suwt)
      deallocate(ocem)
      deallocate(ocsd)
      deallocate(ocdp)
      deallocate(ocwt)
      deallocate(bcem)
      deallocate(bcsd)
      deallocate(bcdp)
      deallocate(bcwt)
      deallocate(ssem)
      deallocate(sssd)
      deallocate(ssdp)
      deallocate(sswt)
      deallocate(dpres)
      deallocate(rhomid)
! vrbls2d
      deallocate(dusmass)
      deallocate(ducmass)
      deallocate(dusmass25)
      deallocate(ducmass25)
      deallocate(susmass)
      deallocate(sucmass)
      deallocate(susmass25)
      deallocate(sucmass25)
      deallocate(ocsmass)
      deallocate(occmass)
      deallocate(ocsmass25)
      deallocate(occmass25)
      deallocate(bcsmass)
      deallocate(bccmass)
      deallocate(bcsmass25)
      deallocate(bccmass25)
      deallocate(sssmass)
      deallocate(sscmass)
      deallocate(sssmass25)
      deallocate(sscmass25)
        write(0,*) 'dealloc through 9'
      
      end