VRBLS3D_mod.f

!   01-10-22  H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT
!   02-04-17  BALDWIN  - MODIFIED TO INCLUDE ALL 3D ARRAYS
!   11-10-18  SARAH LU - MODIFIED TO INCLUDE AEROSOL OPTICAL PROPERTIES
!   11-12-15  SARAH LU - MODIFIED TO INCLUDE AEROSOL DIAG FIELDS
!   12-01-06  SARAH LU - MODIFIED TO INCLUDE AIR DENSITY AND LAYER THICKNESS
!   15-07-02  SARAH LU - MODIFIED TO INCLUDE SCATTERING AEROSOL OPTICAL THICKNESS
!   23-03-22  WM LEWIS - ADDED EFFECTIVE RADIUS ARRAYS
      module vrbls3d
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       implicit none
!
      real, allocatable :: UH(:,:,:),VH(:,:,:),WH(:,:,:)             &
      ,u(:,:,:),v(:,:,:),t(:,:,:),q(:,:,:)                           &
      ,cwm(:,:,:),q2(:,:,:),pmid(:,:,:),pmidv(:,:,:)                 &
      ,pint(:,:,:),alpint(:,:,:),zmid(:,:,:)                         &
      ,zint(:,:,:),omga(:,:,:)                                       &
      ,t_adj(:,:,:)                                                  &
      ,f_ice(:,:,:),f_rain(:,:,:),f_rimef(:,:,:)                     &
      ,qqw(:,:,:), qqi(:,:,:), qqr(:,:,:), qqs(:,:,:), qqg(:,:,:)    &
      ,qqnw(:,:,:), qqni(:,:,:),qqnr(:,:,:),qc_bl(:,:,:), qrimef(:,:,:) &
      ,cfr(:,:,:), dbz(:,:,:), dbzr(:,:,:), dbzi(:,:,:), dbzc(:,:,:) &
      ,ttnd(:,:,:),rswtt(:,:,:),rlwtt(:,:,:), ref_10cm(:,:,:)        &
      ,exch_h(:,:,:),train(:,:,:),tcucn(:,:,:),el_pbl(:,:,:)         &
      ,mcvg(:,:,:),extcof55(:,:,:),nlice(:,:,:),cfr_raw(:,:,:)       &
!! Wm Lewis: added
      ,nrain(:,:,:),effri(:,:,:), effrl(:,:,:), effrs(:,:,:)         &
      ,radius_cloud(:,:,:),radius_ice(:,:,:),radius_snow(:,:,:)      &
! KRS Add HWRF fields     
      ,refl_10cm(:,:,:)             &
! Add GFS fields     
      ,o3(:,:,:),o(:,:,:),o2(:,:,:)              &
! Add GFS D3D fields
      ,vdifftt(:,:,:)         &
      ,tcucns(:,:,:)          &
      ,vdiffmois(:,:,:)       &
      ,dconvmois(:,:,:)       &
      ,sconvmois(:,:,:)       &
      ,nradtt(:,:,:)          &  
      ,o3vdiff(:,:,:)         &
      ,o3prod(:,:,:)          &
      ,o3tndy(:,:,:)          &
      ,mwpv(:,:,:)            &
      ,unknown(:,:,:)         &
      ,vdiffzacce(:,:,:)      &
      ,zgdrag(:,:,:)          &
      ,cnvctummixing(:,:,:)   &
      ,vdiffmacce(:,:,:)      &
      ,mgdrag(:,:,:)          &
      ,cnvctvmmixing(:,:,:)   &
      ,ncnvctcfrac(:,:,:)     &
      ,cnvctumflx(:,:,:)      &
      ,cnvctdmflx(:,:,:)      &  
      ,cnvctdetmflx(:,:,:)    &
      ,cnvctzgdrag(:,:,:)     &
      ,cnvctmgdrag(:,:,:)     &   
      ,qqnwfa(:,:,:)          &
      ,qqnifa(:,:,:)          &
      ,taod5503d(:,:,:)       &
      ,aextc55(:,:,:)         &
!
! Add aerosol optical properties for GOCART (NGAC)
      ,ext(:,:,:), asy(:,:,:)           &
      ,ssa(:,:,:), sca(:,:,:)           &
! Add aerosol diagnosis fields for GOCART (NGAC)
      ,duem(:,:,:), dusd(:,:,:)         &
      ,dudp(:,:,:), duwt(:,:,:)         &
      ,dusv(:,:,:), sssv(:,:,:)         &
      ,suem(:,:,:), susd(:,:,:)         &
      ,sudp(:,:,:), suwt(:,:,:)         &
      ,ssem(:,:,:), sssd(:,:,:)         &
      ,ssdp(:,:,:), sswt(:,:,:)         &
      ,ocem(:,:,:), ocsd(:,:,:)         &
      ,ocdp(:,:,:), ocwt(:,:,:)         &
      ,ocsv(:,:,:), bcsv(:,:,:)         &
      ,bcem(:,:,:), bcsd(:,:,:)         &
      ,bcdp(:,:,:), bcwt(:,:,:)         &
! Add air density and thickness for GOCART (NGAC)
      ,dpres(:,:,:),rhomid(:,:,:)       &  
 
! Add NCAR GFIP ICING
      ,icing_gfip(:,:,:),icing_gfis(:,:,:) &
! Add NCAR GTG turbulence
      ,catedr(:,:,:),mwt(:,:,:),gtg(:,:,:) &
! AQF
      ,avgozcon(:,:,:),avgpmtf(:,:,:)
 
      end module vrbls3d