VRBLS3D_mod.f

Go to the documentation of this file.

 
      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(:,:,:) &        
      ,qqh(:,:,:) &        
      ,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(:,:,:) &    
      ,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(:,:,:) &           
      ,cit(:,:,:) &           
! AQF
      ,avgozcon(:,:,:) &      
      ,avgpmtf(:,:,:)         
 
      end module vrbls3d