!$Author: wagner $
!$Date: 2002-02-22 21:47:21 $
!$Revision: 1.10 $
!$Source: /weru/cvs/weps/weps.src/inc/c1glob.inc,v $

!     This common block contains variables representing the daily
!     updated crop properties for each subregion.  These variables
!     may be used to estimate other crop geometric and mass properties.

!     The crop submodel will maintain all of these variables while
!     a crop is growing.  Any other processes that modify these
!     variables is responsible for making sure they are consistent,
!     ie., the total root mass equals the sum of the root mass in
!     each of the soil layers (acmrt = sum [acmrts(1-mnsz)].
!     The goal is to assume that these variables are always up-to-date
!     and that any routine can access them via read-only and not
!     need to initialize them.

!     Parameter include files required:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      real             aczht(mnsub)
      real             aczrtd(mnsub)
      real             acm(mnsub)
      real             acmst(mnsub)
      real             acmrt(mnsub)
      real             acmrtz(mnsz,mnsub)
      real             acmyld(mnsub)

      real             acdstm(mnsub)

      real             acrsai(mnsub)
      real             acrlai(mnsub)
      real             acrcd(mnsub)
      real             acrsaz(mncz,mnsub)
      real             acrlaz(mncz,mnsub)

      real             acffcv(mnsub)
      real             acfscv(mnsub)
      real             acftcv(mnsub)

      common / c1glob /                                                 &
     &           aczht, aczrtd,                                         &
     &           acm, acmst, acmrt, acmrtz, acmyld,                     &
     &           acdstm,                                                &
     &           acrsai, acrlai, acrcd, acrsaz, acrlaz,                 &
     &           acffcv, acfscv, acftcv

!     + + + VARIABLE DEFINITIONS + + +

!     aczht  - Crop height (m)
!     aczrtd  - Crop root depth (m)
!     acm - Total crop mass - above gnd + roots + yield (kg/m^2)
!            - This variable contains the current total
!              crop mass (standing + roots + yield)
!              for each of the subregions.
!     acmst - Standing crop mass - above ground (kg/m^2)
!            - This variable contains the current above ground
!              standing crop mass for each of the subregions.
!              It no longer includes the "yield" mass which
!              is maintained separately in the "acmyld" variable.
!     acmrt - Crop root mass (kg/m^2)
!     acmrtz - Crop root mass by soil layer (kg/m^2)
!     acmyld - Crop yield mass (reproductive components) (kg/m^2)
!     acdstm - Number of crop stems per unit area (#/m^2)
!            - It is computed by taking the tillering factor
!              times the plant density.
!     acrsai - Crop stem area index (m^2/m^2)
!     acrlai - Crop leaf area index (m^2/m^2)
!     acrcd  - Crop silhouette area (m^2/m^2)
!            - calculated as the sum: acrlai + acrsai.
!     acrsaz - Crop stem area index by height (1/m)
!     acrlaz - Crop leaf area index by height (1/m)
!     acffcv - Crop biomass cover - flat  (m^2/m^2)
!              Currently not applied in WEPS because the crop
!              growth model doesn't distinguish between "flat"
!              and "standing" live biomass.  It is kept and
!              defined for potential future use and to make
!              coding more orthogonal when live and dead biomass
!              pools are combined.
!     acfscv - Crop biomass cover - standing  (m^2/m^2)
!     acftcv - Crop biomass cover - total  (m^2/m^2)
!              (sum of acffcv and acfscv)