c     file 'harvest.inc'
c
c     Parameter include files required:  p1werm.inc
c
c     + + + VARIABLE DECLARATIONS + + +
c
	  integer   harvdate
      real      harvmass

      common / harv1 / harvdate, harvmass 

c
c     + + + VARIABLE DEFINITIONS + + +
c
c   harvdate - Holds the most recent harvest date
c              in julian days. 
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------
c
c
c   harvmass - Holds the biomass that was removed during the  
c              last harvest (kg). 
c
c              range values      min        max
c              ------------   ---------  ---------
c              fixed          -          -
c              typical        -          -
c              ------------   ---------  ---------