VRBLS2D_mod.f

      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(:,:)                            &
! 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(:,:)           &
      ,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(:,:)              &
      ,lwp(:,:),iwp(:,:)                                                     &
      ,int_smoke(:,:),int_aod(:,:)                                           &
! 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 (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(:,:),maod(:,:)!lzhang, add for FV3-Chem
 
!
      end module vrbls2d