c ------------------------------------------------------------------ c file 'c1gen.inc' c This common block contains the state variables relating to c the general purpose crop information. c Parameter include files: p1werm.inc c + + + VARIABLE DECLARATIONS + + + integer ac0rg(mnsub) real acdpop(mnsub) real acntil(mnsub) real acytgt(mnsub) integer achyfg(mnsub) character*80 acynmu(mnsub) real acycon(mnsub) real acywct(mnsub) integer acrsfg(mnsub) real acxrow(mnsub) integer acthud(mnsub) common / c1gen / i ac0rg, r acdpop, acntil, r acytgt, i achyfg, c acynmu, r acycon, acywct, i acrsfg, r acxrow, i acthud c + + + VARIABLE DEFINITIONS + + + c ac0rg - Crop seeding location in relation to ridge c 0 o plant in furrow c 1 o plant on ridge c acdpop - Crop seeding density (#/m^2) c acntil - typical tillering factor for crop c c range values min max c ------------ --------- --------- c fixed 0.1 10.0 c typical 1.0 3.0 c ------------ --------- --------- c acytgt - target yield (in units shown below) c achyfg - flag indicating part of plant which is harvestable yield c 0 'yield' is all of the 'reproductive' mass c 1 'yield' is a fraction of the 'reproductive' mass c 2 'yield' is all or a fraction of the aboveground biomass c 3 'yield' is all or a fraction ofthe leaf mass c 4 'yield' is all or a fraction ofthe stem mass c 5 not used at the moment c acynmu - string for name of units in which yield of interest will be c reported c acycon - conversion factor from Kg/m^2 to units named in acynmu (all c dry weight) c acywct - water content at which yield is to be reported c acrsfg - row spacing flag c 0 o Broadcast Planting c 1 o Use Specified Row Spacing c 2 o Use Existing Ridge Spacing c acxrow - Crop row spacing (m) c acthud - heat units or days to maturity flag c 0 o Days to maturity and average conditions used to find heat units c 1 o Heat units specified used directly c ------------------------------------------------------------------