!$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/c1gen.inc $

!     This common block contains the state variables relating to
!     the general purpose crop information.

module c1gen_def

    use p1werm_def
!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      integer          cropFurrFlg(maxNumSubRegs)
      real             cropSeedDens(maxNumSubRegs)
      real             cropTargYld(maxNumSubRegs)
      integer          achyfg(maxNumSubRegs)
      character*80     acynmu(maxNumSubRegs)
      real             acycon(maxNumSubRegs)
      real             acywct(maxNumSubRegs)
      integer          acrsfg(maxNumSubRegs)
      real             cropRowSpac(maxNumSubRegs)
      integer          acthudf(maxNumSubRegs)
      integer          aplant_day(maxNumSubRegs)
      integer          aplant_month(maxNumSubRegs)
      integer          aplant_rotyr(maxNumSubRegs)


!     + + + VARIABLE DEFINITIONS + + +
!     cropFurrFlg  - Crop seeding location in relation to ridge
!         0     o plant in furrow
!         1     o plant on ridge
!     cropSeedDens - Crop seeding density (#/m^2)
!     cropTargYld - target yield (in units shown below)
!     achyfg - flag indicating the part of plant to apply the "grain fraction",
!              GRF, to when removing that plant part for yield
!         0     GRF applied to above ground storage (seeds, reproductive)
!         1     GRF times growth stage factor (see growth.for) applied to above ground storage (seeds, reproductive)
!         2     GRF applied to all aboveground biomass (forage)
!         3     GRF applied to leaf mass (tobacco)
!         4     GRF applied to stem mass (sugarcane)
!         5     GRF applied to below ground storage mass (potatoes, peanuts)
!     acynmu - string for name of units in which yield of interest will be
!              reported
!     acycon - conversion factor from Kg/m^2 to units named in acynmu (all
!              dry weight)
!     acywct - water content at which yield is to be reported (percent)
!     acrsfg - row spacing flag
!         0      o Broadcast Planting
!         1      o Use Specified Row Spacing
!         2      o Use Existing Ridge Spacing
!     cropRowSpac - Crop row spacing (m)
!     acthudf - heat units or days to maturity flag
!         0      o Days to maturity and average conditions used to find heat units
!         1      o Heat units specified used directly
!     aplant_day - planting date (day of month)
!     aplant_month - planting date (month of rotation year)
!     aplant_rotyr - planting date (rotation year)

end module c1gen_def