!$Author: wagner $
!$Date: 2002-02-20 14:30:51 $
!$Revision: 1.15 $
!$Source: /weru/cvs/weps/weps.src/inc/c1db1.inc,v $

!     This common block contains some of the variables
!     representing the crop/decomp
!     database properties for each subregion.

!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      integer          acbaflg(mnsub)
      real             acbaf(mnsub)
      real             acyraf(mnsub)
      real             acrcn(mnsub)
      real             acrhi(mnsub)
      integer          actdtm(mnsub)
      real             acthum(mnsub)
      real             aczmrt(mnsub)
      real             aczmxc(mnsub)
      real             acrmla(mnsub)
      real             acrbe(mnsub)
      real             acrbed(mnsub)
      real             ac0lad(mncz, mnsub)
      real             ac0sad(mncz, mnsub)
      real             acgrf(mnsub)
      real             acehu0(mnsub)
      real             ac0be1(2, mnsub)
      real             ac0be2(2, mnsub)
      real             acrmhi(mnsub)
      real             ac0alf(mnsub)
      real             ac0blf(mnsub)
      real             ac0clf(mnsub)
      real             ac0dlf(mnsub)
      real             ac0arp(mnsub)
      real             ac0brp(mnsub)
      real             ac0crp(mnsub)
      real             ac0drp(mnsub)
      real             ac0aht(mnsub)
      real             ac0bht(mnsub)
      real             ac0ssa(mnsub)
      real             ac0ssb(mnsub)
      real             ac0sla(mnsub)
      real             ac0hue(mnsub)
      real             ac0lfe(mnsub)

      integer          acrbc(mnsub)
      integer          adrbc(mnbpls,mnsub)
      real             addkst(mnbpls,mnsub)
      real             addkf(mnbpls,mnsub)
      real             addkbg(mnbpls,mnsub)
      real             addkrt(mnbpls,mnsub)
      real             addkstm(mnbpls,mnsub)

!  These are the names used by decomp (with an "ac" prepended)
      real             acdkrate(mndk,mnsub)
      real             acstmdiam(mnsub)
      real             acddsthrsh(mnsub)
      real             accovfact(mnsub)
! ------

      real             acxstm(mnsub)
      real             adxstm(mnbpls,mnsub)
      real             acxstmrep(mnsub)
      real             adxstmrep(mnbpls,mnsub)

      real             acthrs(mnbpls,mnsub)
      real             acm2c(mnsub)
      real             adm2c(mnbpls,mnsub)

      common / c1db1 /                                                  &
     &                 acbaflg,                                         &
     &                 acbaf, acyraf,                                   &
     &                 acrcn, acrhi, actdtm, acthum, aczmrt, aczmxc,    &
     &                 acrmla, acrbe, acrbed, ac0lad, ac0sad ,acgrf,    &
     &                 acehu0, ac0be1, ac0be2, acrmhi, ac0alf ,ac0blf,  &
     &                 ac0clf, ac0dlf, ac0arp, ac0brp, ac0crp ,ac0drp,  &
     &                 ac0aht, ac0bht, ac0ssa, ac0ssb, ac0sla ,ac0hue,  &
     &                 ac0lfe,                                          &
     &                 acrbc, adrbc,                                    &
     &                 addkst, addkf, addkbg, addkrt, addkstm,          &
     &                 acxstm, adxstm, acxstmrep, adxstmrep,            &
     &                 acthrs, acm2c,adm2c,                             &
     &                 acdkrate, acstmdiam, acddsthrsh, accovfact       &

!     + + + VARIABLE DEFINITIONS + + +

!     acbaflg - flag for biomass adjustment action
!         0     o normal crop growth
!         1     o find biomass adjustment factor for target yield
!         2     o Use given biomass adjustment factor

!     acbaf  - biomass adjustment factor
!     acyraf - yield to biomass ratio adjustment factor
!     acrcn  - Crop C:N ratio (Mg/Mg)
!     acgrf  - Fraction of reproductive biomass that is grain (Mg/Mg)
!     actdtm - days from planting to maturity for summer crops, or the days
!              from start of spring growth to maturity for winter and 
!              perennial crops. 
!     acthum - accumulated heat units from planting to maturity, or from 
!              start of growth to maturity for perennial crops
!     aczmrt - Maximum crop root depth (m)
!     aczmxc - Maximum crop height (m)
!     acrmla - Maximum crop leaf area index (?)
!     acrbe  - Crop biomass-energy ratio (kg/ha*MJ)
!     acrbed - Crop biomass-energy decline rate (?)
!     ac0lad - leaf area distribution (?)
!     ac0sad - stem area distribution (?)
!     acehu0 - heat unit index leaf senescence starts
!     acrbev - relates the vapor pressure deficit to biomass conversion efficiency
!     ac0be1 - x and y for 1 st point on biomass conv eff curve
!     ac0be2 - x and y for 2nd point on biomass conv eff curve
!     acrmhi - minimum harvest index under drought
!     addkst - standing residue mass decomposition rate (d<1) (g/g/day)
!     addkf  - flat residue mass decomposition rate (d<1) (g/g/day)
!     addkbg - buried residue mass decomposition rate (d<1) (g/g/day)
!     addkrt - root residue mass decomposition rate (d<1) (g/g/day)
!    addkstm - stem residue number decline rate (d<1) (#/m^2/day)? (fall rate)
!     acxstm - Crop stem diameter (m)
!     adxstm - Residue stem diameter (m)
!     acxstmrep - a representative diameter so that acdstm*acxstmrep*aczht=acrsai
!     adxstmrep - a representative diameter so that addstm*adxstmrep*adzht=adrsai
!     adthrs - threshold number of decomp days before stems begin to fall
!     acm2c  - Crop mass to cover coefficient  (m^2/kg)
!     adm2c  - Residue mass to cover coefficient  (m^2/kg)
!     acrbc  - crop residue burial class (it exists in crop so it can be carried into residue)
!     adrbc  - residue burial class
!         1   o Fragile-very small (soybeans) residue
!         2   o Moderately tough-short (wheat) residue
!         3   o Non fragile-med (corn) residue
!         4   o Woody-large residue
!         5   o Gravel-rock