c$Author: fredfox $
c$Date: 2001-07-09 23:04:33 $
c$Revision: 1.1.1.1.10.1 $
c$Source: /weru/cvs/weps/weps.src/inc/s1agg.inc,v $
c     This common block contains the variables representing the soil
c     aggregate properties for each soil layer.

c     Parameter include files:  p1werm.inc

c     + + + VARIABLE DECLARATIONS + + +

      real             asdagd(0:mnsz, mnsub)
      real             aseags(0:mnsz, mnsub)
      real             aslagm(0:mnsz, mnsub)
      real             aslagn(0:mnsz, mnsub)
      real             aslagx(0:mnsz, mnsub)
      real             as0ags(0:mnsz, mnsub)
      real             aseagm(mnsz, mnsub)
      real             aseagmn(mnsz, mnsub)
      real             aseagmx(mnsz, mnsub)
      real             ask4d(mnsz, mnsub)
      real             aslmin(mnsz, mnsub)
      real             aslmax(mnsz, mnsub)

      common / s1agg /
     r asdagd, aseags, aslagm, aslagn, aslagx, as0ags,
     r aseagm, aseagmn, aseagmx, ask4d, aslmin, aslmax

c     + + + VARIABLE DEFINITIONS + + +
c     for each subregion, the following variables are defined as:

c     asdagd - Soil layer aggregate density (Mg/m^3)
c     aseags - Soil layer dry aggregate stability (J/m^2)
c     aslagm - Soil layer aggregate size geometric mean dia. (mm)
c     aslagn - Minimum aggregate size (mm)
c     aslagx - Maximum aggregate size (mm)
c     as0ags - Soil layer aggregate size geometric standard dev. (mm)
c     aseagm - soil layer mean aggregate stabillity (J/m^2)
c     aseagmn - soil layer minimum aggregate stability
c     aseagmx - soil layer maximum aggregate stability
c     k4d    - soil layer drying stability coefficient
c     aslmin - min values of geom. mean agg. diameter (eq. S-45, S-46)
c     aslmax - max values of geom. mean agg. diameter (eq. S-45, S-46)