VRBLS2D_mod.f

Go to the documentation of this file.

 
      module vrbls2d
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       implicit none
!
      real, allocatable :: &
      u10(:,:) &        
      ,akms(:,:) &       
      ,akhs(:,:) &       
      ,ths(:,:) &       
      ,qs(:,:) &           
      ,uz0(:,:) &          
      ,vz0(:,:) &          
      ,thz0(:,:) &         
      ,qz0(:,:) &          
      ,sno(:,:) &       
      ,tshltr(:,:) &    
      ,qshltr(:,:) &       
      ,mrshltr(:,:) &      
      ,v10(:,:) &          
      ,acprec(:,:) &       
      ,cuprec(:,:) &       
      ,ancprc(:,:) &       
      ,cuppt(:,:) &        
      ,smstav(:,:) &       
      ,ssroff(:,:) &       
      ,bgroff(:,:) &       
      ,vegfrc(:,:) &       
      ,shdmin(:,:) &       
      ,shdmax(:,:) &       
      ,lai(:,:) &          
      ,acsnow(:,:) &       
      ,acsnom(:,:) &       
      ,cmc(:,:) &          
      ,sst(:,:) &          
      ,rswin(:,:) &        
      ,rlwin(:,:) &        
      ,rlwtoa(:,:) &       
      ,lwdnbc(:,:) &       
      ,lwupbc(:,:) &       
      ,tg(:,:) &           
      ,sfcshx(:,:) &       
      ,pslp(:,:) &         
      ,t700(:,:) &         
      ,z500(:,:) &         
      ,z700(:,:) &         
      ,sfclhx(:,:) &       
      ,fis(:,:) &          
      ,t500(:,:) &         
      ,z1000(:,:) &        
      ,slp(:,:) &          
      ,cfracl(:,:) &       
      ,cfracm(:,:) &       
      ,cfrach(:,:) &       
      ,acfrst(:,:) &       
      ,acfrcv(:,:) &       
      ,ncfrst(:,:) &       
      ,ncfrcv(:,:) &       
      ,hbot(:,:) &         
      ,htop(:,:) &         
      ,aswin(:,:) &        
      ,alwin(:,:) &        
      ,aswout(:,:) &       
      ,alwout(:,:) &       
      ,aswtoa(:,:) &       
      ,alwtoa(:,:) &       
      ,czen(:,:) &         
      ,czmean(:,:) &       
      ,sigt4(:,:) &        
      ,rswout(:,:) &       
      ,radot(:,:) &        
      ,smstot(:,:) &       
      ,pctsno(:,:) &       
      ,pshltr(:,:) &       
      ,th10(:,:) &         
      ,q10(:,:) &          
      ,sr(:,:) &           
      ,prec(:,:) &         
      ,subshx(:,:) &       
      ,snopcx(:,:) &       
      ,sfcuvx(:,:) &       
      ,sfcevp(:,:) &       
      ,potevp(:,:) &       
      ,z0(:,:) &           
      ,ustar(:,:) &        
      ,twbs(:,:) &         
      ,qwbs(:,:) &         
      ,sfcexc(:,:) &       
      ,grnflx(:,:) &       
      ,soiltb(:,:) &       
      ,f(:,:) &            
      ,albedo(:,:) &       
      ,cldfra(:,:) &       
      ,cprate(:,:) &       
      ,cnvcfr(:,:) &       
      ,pblh(:,:) &         
      ,pblhgust(:,:) &     
      ,hbotd(:,:) &        
      ,htopd(:,:) &        
      ,hbots(:,:) &        
      ,htops(:,:) &        
      ,cldefi(:,:) &       
      ,albase(:,:) &       
      ,si(:,:) &           
      ,lspa(:,:) &         
      ,rswinc(:,:) &       
      ,vis(:,:) &          
      ,pd(:,:) &           
      ,mxsnal(:,:) &       
      ,mixht(:,:) &        
      ,snonc(:,:) &        
      ,epsr(:,:) &         
      ,rswtoa(:,:) &       
      ,teql(:,:) &         
! Variables saved for input to IFI
      ,ifi_apcp(:,:) &     
      ,cape(:,:) &         
      ,cin(:,:) &          
! HWRF additions
      ,mdltaux(:,:) &      
      ,mdltauy(:,:) &      
      ,cd10(:,:) &         
      ,ch10(:,:)  &        
      ,acswupt(:,:) &      
      ,swdnt(:,:) &        
      ,acswdnt(:,:) &      
! NAMB additions
      ,snoavg(:,:) &       
      ,psfcavg(:,:) &      
      ,t10avg(:,:) &       
      ,akhsavg(:,:) &      
      ,akmsavg(:,:) &      
      ,t10m(:,:) &         
      ,u10max(:,:) &       
      ,v10max(:,:) &       
      ,u10h(:,:) &         
      ,v10h(:,:) &         
      ,prate_max(:,:) &    
      ,fprate_max(:,:) &   
! GSD addition
      ,wspd10max(:,:) &       
      ,w_up_max(:,:) &        
      ,w_dn_max(:,:) &        
      ,refd_max(:,:) &        
      ,up_heli_max(:,:) &     
      ,up_heli_max16(:,:) &   
      ,grpl_max(:,:) &        
      ,qrmax(:,:) &           
      ,up_heli(:,:) &         
      ,up_heli16(:,:) &       
      ,ltg1_max(:,:) &        
      ,ltg2_max(:,:) &        
      ,ltg3_max(:,:) &        
      ,up_heli_min(:,:) &     
      ,up_heli_min16(:,:) &   
      ,up_heli_max02(:,:) &   
      ,up_heli_min02(:,:) &   
      ,up_heli_max03(:,:) &   
      ,up_heli_min03(:,:) &   
      ,rel_vort_max(:,:) &    
      ,rel_vort_max01(:,:) &  
      ,rel_vort_maxhy1(:,:) & 
      ,wspd10umax(:,:) &      
      ,wspd10vmax(:,:) &      
      ,refdm10c_max(:,:) &    
      ,hail_max2d(:,:) &      
      ,hail_maxk1(:,:) &      
      ,hail_maxhailcast(:,:) & 
      ,nci_ltg(:,:) &         
      ,nca_ltg(:,:) &         
      ,nci_wq(:,:) &          
      ,nca_wq(:,:) &          
      ,nci_refd(:,:) &        
      ,nca_refd(:,:) &        
      ,rainc_bucket1(:,:) &   
      ,rainnc_bucket1(:,:) &  
      ,rainc_bucket(:,:) &    
      ,rainnc_bucket(:,:) &   
      ,snow_bucket(:,:) &     
      ,graup_bucket(:,:) &    
      ,pcp_bucket(:,:) &      
      ,acgraup(:,:) &         
      ,acfrain(:,:) &         
      ,frzrn_bucket(:,:) &    
      ,snow_acm(:,:) &        
      ,snow_bkt(:,:) &        
      ,snow_bucket1(:,:) &    
      ,graup_bucket1(:,:) &   
      ,pcp_bucket1(:,:) &     
      ,snownc(:,:) &          
      ,graupelnc(:,:) &       
      ,tmax(:,:) &            
      ,w_mean(:,:) &          
      ,tsnow(:,:) &           
      ,qvg(:,:) &             
      ,qv2m(:,:) &            
      ,qvl1(:,:) &            
      ,refc_10cm(:,:) &       
      ,ref1km_10cm(:,:) &     
      ,ref4km_10cm(:,:) &     
      ,swradmean(:,:) &       
      ,u10mean(:,:) &         
      ,v10mean(:,:) &         
      ,spduv10mean(:,:) &     
      ,swnormmean(:,:) &      
      ,snfden(:,:) &          
      ,sndepac(:,:) &         
      ,swddni(:,:) &          
      ,swddif(:,:) &          
      ,swdnbc(:,:) &          
      ,swddnic(:,:) &         
      ,swddifc(:,:) &         
      ,swupbc(:,:) &          
      ,swupt(:,:) &           
      ,taod5502d(:,:) &       
      ,aerasy2d(:,:) &        
      ,aerssa2d(:,:) &        
      ,mean_frp(:,:) &        
      ,hwp(:,:) &             
      ,lwp(:,:) &             
      ,iwp(:,:) &             
      ,xlaixy(:,:) &          
      ,smoke_ave(:,:) &       
      ,dust_ave(:,:)   &      
      ,coarsepm_ave(:,:) &    
! add new fields for GFS
      ,sfcux(:,:) &           
      ,sfcvx(:,:) &           
      ,sfcuxi(:,:) &          
      ,sfcvxi(:,:) &          
      ,avgalbedo(:,:) &       
      ,avgcprate(:,:) &       
      ,avgprec(:,:) &         
      ,ptop(:,:) &            
      ,pbot(:,:) &            
      ,avgcfrach(:,:) &       
      ,avgcfracm(:,:) &       
      ,avgcfracl(:,:) &       
      ,avgtcdc(:,:) &         
      ,auvbin(:,:) &          
      ,auvbinc(:,:) &         
      ,ptopl(:,:) &           
      ,pbotl(:,:) &           
      ,ttopl(:,:) &           
      ,ptopm(:,:) &           
      ,pbotm(:,:) &           
      ,ttopm(:,:) &           
      ,ptoph(:,:) &           
      ,pboth(:,:) &           
      ,ttoph(:,:) &           
      ,sfcugs(:,:) &          
      ,sfcvgs(:,:) &          
      ,pblcfr(:,:) &          
      ,cldwork(:,:) &         
      ,gtaux(:,:) &           
      ,gtauy(:,:) &           
      ,runoff(:,:) &          
      ,maxtshltr(:,:) &       
      ,mintshltr(:,:) &       
      ,maxrhshltr(:,:) &      
      ,minrhshltr(:,:) &      
      ,dzice(:,:) &           
      ,maxqshltr(:,:) &       
      ,minqshltr(:,:) &       
      ,alwinc(:,:) &          
      ,alwoutc(:,:) &         
      ,alwtoac(:,:) &         
      ,aswinc(:,:) &          
      ,aswoutc(:,:) &         
      ,aswtoac(:,:) &         
      ,aswintoa(:,:) &        
      ,smcwlt(:,:) &          
      ,suntime(:,:) &         
      ,fieldcapa(:,:) &       
      ,avisbeamswin(:,:) &    
      ,avisdiffswin(:,:) &    
      ,airbeamswin(:,:) &     
      ,airdiffswin(:,:) &     
      ,snowfall(:,:) &        
      ,acond(:,:) &           
      ,edir(:,:) &            
      ,ecan(:,:) &            
      ,etrans(:,:) &          
      ,esnow(:,:) &           
      ,avgedir(:,:) &         
      ,avgecan(:,:) &         
      ,avgetrans(:,:)&        
      ,avgesnow(:,:) &        
      ,avgpotevp(:,:) &       
      ,avgprec_cont(:,:) &    
      ,avgcprate_cont(:,:) &  
      ,ti(:,:) &              
      ,aod550(:,:) &          
      ,du_aod550(:,:) &       
      ,ss_aod550(:,:) &       
      ,su_aod550(:,:) &       
      ,bc_aod550(:,:) &       
      ,oc_aod550(:,:) &       
      ,landfrac(:,:) &        
      ,paha(:,:) &            
      ,pahi(:,:) &            
      ,tecan(:,:) &           
      ,tetran(:,:) &          
      ,tedir(:,:) &           
      ,twa(:,:) &             
      ,fdnsst(:,:) &          
      ,pwat(:,:)              
      integer, allocatable :: ivgtyp(:,:) &
      ,isltyp(:,:) &          
      ,islope(:,:) &          
      ,ieql(:,:)              
      
! Add 2d aerosol diagnosis fields for GOCART (NEMS-GFS Aerosol Component [NGAC])
      real, allocatable ::                                                   &
       dusmass(:,:) &         
      ,ducmass(:,:) &         
      ,dusmass25(:,:) &       
      ,ducmass25(:,:) &       
      ,susmass(:,:) &         
      ,sucmass(:,:) &         
      ,susmass25(:,:) &       
      ,sucmass25(:,:) &       
      ,ocsmass(:,:) &         
      ,occmass(:,:) &         
      ,ocsmass25(:,:) &       
      ,occmass25(:,:) &       
      ,bcsmass(:,:) &         
      ,bccmass(:,:) &         
      ,bcsmass25(:,:) &       
      ,bccmass25(:,:) &       
      ,sssmass(:,:) &         
      ,sscmass(:,:) &         
      ,sssmass25(:,:) &       
      ,sscmass25(:,:) &       
      ,dustcb(:,:) &          
      ,sscb(:,:) &            
      ,occb(:,:) &            
      ,bccb(:,:) &            
      ,sulfcb(:,:) &          
      ,dustallcb(:,:) &       
      ,ssallcb(:,:) &         
      ,dustpm(:,:) &          
      ,sspm(:,:) &            
      ,pp25cb(:,:) &          
      ,dustpm10(:,:) &        
      ,pp10cb(:,:) &          
      ,no3cb(:,:) &           
      ,nh4cb(:,:) &           
      ,maod(:,:)              
 
! Add new field for AQM
      real, allocatable :: aqm_aod550(:,:)
 
!
      end module vrbls2d