!*==aa0006.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_c1glob
      implicit none
!*--AA00064
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mncz,mnsub,mnsz
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
!     ac0rg  - Crop seeding location in relation to ridge
!         0     o plant in furrow
!         1     o plant on ridge
!     acdpop - Crop seeding density (#/m^2)
!     acytgt - 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
!     acxrow - 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)
!$Author: joelevin $
!$Date: 2012-03-30 10:14:38 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12163 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/c1glob.inc $
 
!     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 + + +
                                           !added state
                                           !added state
 
                                            !added state
                                          !added state
                                          !added state
 
                                           !added state
                                       !added state
                                          !added state
 
                                              !added state
                                                 !added state
 
                                                 !added state
                                    !state
                                       !added state
                                     !state
 
                                     !state
                                       !added state
                                         !added state
                                       !added state
 
                                        !added state
                                          !added state
                                              !added state
 
                                              !added state
                                          !added state
                                           !added state
 
                                        !added state
                                              !added state
 
                                              !added state
                                      !added
                                      !added
                                        !added
                                           !added