c     d1gen.inc

c     common block of variables containing general information
c     used by the Decomp model.  Variables specified in
c     WERM Global Blocks.

      character ad0nam*80
      real      addpop

      common / d1gen /
     c ad0nam(mnsub),
     r addpop(mnsub)


c   + + + VARIABLE DEFINEITIONS + + +

c     ad0name(mnsub)  crop type
c     addpop(mnsub)   crop population equates with stem number ?