!$Author: wjr $
!$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12162 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/b1glob.inc $
!     ------------------------------------------------------------------
!     file 'b1glob.inc'

!     This common block contains variables representing the daily
!     updated biomass (live and dead) properties for each subregion.
!     These variables may be used to estimate other vegetative
!      geometric and mass properties.
!
!     All of these variables are updated within "main" on a daily
!     basis for erosion and outputs.  Only a "biomass update" process
!     is intended to modify these variables since they are all dependent
!     upon the individual live (crop) and dead (residue) biomass values.

module b1glob_def
      use p1werm_def

!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      real             abioMassHght(maxNumSubRegs)
      real             abzmht(maxNumSubRegs)

      real             abm(maxNumSubRegs)

      real             abmst(maxNumSubRegs)
      real             abmf(maxNumSubRegs)
      real             abmbg(maxNumSubRegs)
      real             abmrt(maxNumSubRegs)
      real             abmbgz(maxSoilLayr,maxNumSubRegs)
      real             abmrtz(maxSoilLayr,maxNumSubRegs)

!      real             abmyld(maxNumSubRegs) (removed)

      real             abdstm(maxNumSubRegs)

      real             abrsai(maxNumSubRegs)
      real             abrlai(maxNumSubRegs)
      real             abrcd(maxNumSubRegs)
      real             abrsaz(maxCropHghtSegs,maxNumSubRegs)
      real             abrlaz(maxCropHghtSegs,maxNumSubRegs)

      real             abioFracFlatCovr(maxNumSubRegs)
      real             abfscv(maxNumSubRegs)
      real             abftcv(maxNumSubRegs)
      real             abfcancov(maxNumSubRegs)

      real             abevapredu(maxNumSubRegs)

!!      common / b1glob /                                                 &
!!     &           abioMassHght, abzmht,                                         &
!!     &           abm, abmst, abmf,                                      &
!!     &           abmbg, abmrt, abmbgz, abmrtz,                          &
!!     &           abdstm, abrsai, abrlai, abrcd, abrsaz, abrlaz,         &
!!     &           abioFracFlatCovr, abfscv, abftcv, abfcancov, abevapredu
!!
!!      save :: /b1glob/

!     + + + VARIABLE DEFINITIONS + + +

!     abioMassHght  - Composite weighted average biomass height (m)
!     abzmht - Tallest biomass height (m) greatest of daily crop or residue height
!     abm - Total biomass (kg/m^2) standing + roots + flat + buried + yield
!     abmst - Standing biomass - above ground (kg/m^2)
!     abmf    - Flat biomass (kg/m^2)
!     abmbg - Buried biomass (kg/m^2)
!     abmrt - Buried root biomass (kg/m^2)
!     abmbgz - Buried biomass by soil layer (kg/m^2)
!     abmrtz - Buried root biomass by soil layer (kg/m^2)
!     abmyld - Biomass (crop) yield mass (kg/m^2)(reproductive components)
!     abdstm - Total number of stems (#/m^2) (live and dead) May be a weighted summation.
!     abrsai - Biomass stem area index (m^2/m^2)
!     abrlai - Biomass leaf area index (m^2/m^2)
!     abrcd  - effective Biomass silhouette area (SAI+LAI) (m^2/m^2)
!              (combination of leaf area and stem area indices)
!     abrsaz - Biomass stem area index by height (1/m)
!     abrlaz - Biomass leaf area index by height (1/m)
!     abioFracFlatCovr - Biomass cover - flat  (m^2/m^2)
!     abfscv - Biomass cover - standing  (m^2/m^2)
!     abftcv - Biomass cover - total  (m^2/m^2)
!              (sum of abioFracFlatCovr and abfscv)
!     abfcancov - fraction of soil surface covered by all canopy (m^2/m^2)
!     abevapredu - composite evaporation reduction from crop and residue materials (ea/ep ratio)

end module b1glob_def