!*==aa0007.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_c1info
      implicit none
!*--AA00074
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     acmstandstem - crop standing stem mass (kg/m^2)
!     acmstandleaf - crop standing leaf mass (kg/m^2)
!     acmstandstore - crop standing storage mass (kg/m^2)
!                    (head with seed, or vegetative head (cabbage, pineapple))
 
!     acmflatstem  - crop flat stem mass (kg/m^2)
!     acmflatleaf  - crop flat leaf mass (kg/m^2)
!     acmflatstore - crop flat storage mass (kg/m^2)
 
!     acmshoot - mass of shoot growing from root storage biomass (kg/m^2)
!                this is a "breakout" mass and does not represent a unique pool
!                since this mass is distributed into below ground stem and
!                standing stem as each increment of the shoot is added
!     acmtotshoot - total mass of shoot growing from root storage biomass (kg/m^2)
!                   in the period from beginning to completion of emergence heat units
!     acmbgstemz - crop stem mass below soil surface by layer (kg/m^2)
!                 indicates a below ground growing point for shoots
!                 from seeds or roots
 
!     acmrootstorez - crop root storage mass by soil layer (kg/m^2)
!                   (tubers (potatoes, carrots), extended leaf (onion), seeds (peanuts))
!     acmrootfiberz - crop root fibrous mass by soil layer (kg/m^2)
 
!     aczht  - Crop height (m)
!     aczshoot - length of actively growing shoot from root biomass (m)
!     acdstm - Number of crop stems per unit area (#/m^2)
!     aczrtd  - Crop root depth (m)
 
!     acthucum - crop accumulated heat units
!     actrthucum - accumulated root growth heat units (degree-days)
!     acgrainf - internally computed grain fraction of reproductive mass
 
!     aczgrowpt - depth in the soil of the growing point (m)
!     acfliveleaf - fraction of standing plant leaf which is living (transpiring)
!     acleafareatrend - direction in which leaf area is trending.
!                        Saves trend even if leaf area is static for long periods.
!     acstemmasstrend - direction in which stem mass is trending.
!                        Saves trend even if stem mass is static for long periods.
 
!     actwarmdays - number of consecutive days that the temperature has been above the minimum growth temperature
!     actchillucum - accumulated chilling units (days)
!     acthardnx - hardening index for winter annuals (range from 0 t0 2)
 
!     acthu_shoot_beg - heat unit total for beginning of shoot grow from root storage period
!     acthu_shoot_end - heat unit total for end of shoot grow from root storage period
 
!     acdayap - number of days of growth completed since crop planted
!     acdayam - number of days since crop matured
!     acmbgstem - crop stem mass below soil surface (kg/m^2)
!     acmrootstore - crop root storage mass (kg/m^2)
!                   (tubers (potatoes, carrots), extended leaf (onion), seeds (peanuts))
!     acmrootfiber - crop root fibrous mass (kg/m^2)
!     acxstmrep - a representative diameter so that acdstm*acxstmrep*aczht=acrsai
 
!     acm - Total crop mass (stand + flat+ root) (kg/m^2)
!     acmst - Standing crop mass (standstem + standleaf + standstore) (kg/m^2)
!     acmf - Flat crop mass (flatstem + flatleaf + flatstore) (kg/m^2)
!              flag to crop distributes stem, leaf and storeabove
!              elements between standing and flat
!     acmrt - total crop root mass (rootfiber + rootstore) (kg/m^2)
!     acmrtz - Crop root mass by soil layer (kg/m^2)
 
!     acrsai - Crop stem area index (m^2/m^2)
!     acrlai - Crop leaf area index (m^2/m^2)
!     acrcd  - effective Biomass silhouette area (SAI+LAI) (m^2/m^2)
!              (combination of leaf area and stem area indices)
!     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)
!     acfscv - Crop biomass cover - standing  (m^2/m^2)
!     acftcv - Crop biomass cover - total  (m^2/m^2)
!              (sum of acffcv and acfscv)
!     acfcancov - fraction of soil surface covered by crop canopy (m^2/m^2)
 
!     acdayspring - day of year in which a winter annual released stored growth
!$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/c1info.inc $
 
!     This common block contains the character variables containing
!     information about the crop
 
!     Parameter include files:  p1strlen.inc
 
!     + + + VARIABLE DECLARATIONS + + +