c     file: cparm.inc

c     This file contains the declaration of the common block of variables
c     used in s-curve calculations of lai, co2, frost & harvest index.

c     + + + VARIABLE DECLARATIONS + + +
      real
     2       a_la,b_la,a_co,b_co,a_fr,b_fr,a_hi,
     3       b_hi,a_s11,b_s11,a_s8,b_s8,parm

      common / par /
     2 a_la,b_la,a_co,b_co,a_fr,b_fr,a_hi,
     3 b_hi,a_s11,b_s11,a_s8,b_s8,parm(12)

c     + + + VARIABLE DEFINITIONS + + +
c dlax1 - fraction of grwing season (1st x-coordinate in lai s-curve)
c dlay1 - fraction of maximum lai (1st y-coordinate in the lai s-curve)
c dlax2 - fraction of grwing season (2nd x-coordinate in lai s-curve)
c dlay2 - fraction of maximum lai (2nd y-coordinate in the lai s-curve)
c wacx1 - co2 concentration(ppm) (1st x-coordinate in the biomass conversion efficiency s-curve)
c wacy1 - biomass conversion efficiency (kg/ha/mj) (1st y-coordinate in the biomass efficiency s-curve)
c wacx2 - co2 concentration(ppm) (2nd x-coordinate in the biomass conversion efficiency s-curve)
c wacy2 - biomass conversion efficiency (kg/ha/mj) (2nd y-coordinate in the biomass efficiency s-curve)
c frsx1 - minimum temperature below zero (c) (1st x-coordinate in the frost damage s-curve)
c frsy1 - fraction of biomass lost each day due to frost (1st y-coordinate in the frost damge s-curve)
c frsx2 - minimum temperature below zero (c) (2nd x-coordinate in the frost damage s-curve)
c frsy2 - fraction of biomass lost each day due to frost (2nd y-coordinate in the frost damge s-curve)
c a_la - parameter in the lai development s-curve
c b_la - parameter in the lai development s-curve
c a_co - parameter in the biomass conversion efficiency s-curve
c b_co - parameter in the biomass conversion efficiency s-curve
c a_fr - parameter in the frost damage s-curve
c b_fr - parameter in the frost damage s-curve
c a_hi - parameter in the harvest index s-curve
c b_hi - parameter in the harvest index s-curve
c a_s11 - parameter in P uptake eqn. (corresponding to scrp(11,1) in epic)
c b_s11 - parameter in P uptake eqn. (corresponding to scrp(11,2) in epic)
c a_s8 - parameter in N or P stress eqn. (corresponds to scrp(8,1) in epic)
c b_s8 - parameter in N or P stress eqn. (corresponds to scrp(8,2) in epic)