!$Author: wagner $
!$Date: 2002-02-22 21:47:22 $
!$Revision: 1.3 $
!$Source: /weru/cvs/weps/weps.src/inc/d1gen.inc,v $

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

      character ad0nam*80
      real      addpop

      common / d1gen /                                                  &
     & ad0nam(mnsub),                                                   &
     & addpop(mnsub)


!   + + + VARIABLE DEFINEITIONS + + +

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