c     ------------------------------------------------------------------
c     file 'c1glob.inc'
c
c     This common block contains variables representing the daily
c     updated crop properties for each subregion.  These variables
c     may be used to estimate other crop geometric and mass properties.
c
c     The crop submodel will maintain all of these variables while
c     a crop is growing.  Any other processes that modify these
c     variables is responsible for making sure they are consistent,
c     ie., the total root mass equals the sum of the root mass in
c     each of the soil layers (acmrt = sum [acmrts(1-mnsz)].
c     The goal is to assume that these variables are always up-to-date
c     and that any routine can access them via read-only and not
c     need to initialize them.
c
c     Parameter include files required:  p1werm.inc
c
c     + + + VARIABLE DECLARATIONS + + +
c
      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)

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