!$Author: wjr $
!$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12162 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/s1agg.inc $
!     This common block contains the variables representing the soil
!     aggregate properties for each soil layer.

!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      real             asoilLayrAggDen(0:maxSoilLayr, maxNumSubRegs)
      real             asoilLayrAggSta(0:maxSoilLayr, maxNumSubRegs)
      real             asoilLayrAggGMD(0:maxSoilLayr, maxNumSubRegs)
      real             asoilLayrAggMinSiz(0:maxSoilLayr, maxNumSubRegs)
      real             asoilLayrAggMaxSiz(0:maxSoilLayr, maxNumSubRegs)
      real             asoilLayrAggGSD(0:maxSoilLayr, maxNumSubRegs)
      real             aseagm(maxSoilLayr, maxNumSubRegs)
      real             aseagmn(maxSoilLayr, maxNumSubRegs)
      real             aseagmx(maxSoilLayr, maxNumSubRegs)
      real             ask4d(maxSoilLayr, maxNumSubRegs)
      real             aslmin(maxSoilLayr, maxNumSubRegs)
      real             aslmax(maxSoilLayr, maxNumSubRegs)

      common / s1agg /                                                  &
     & asoilLayrAggDen, asoilLayrAggSta, asoilLayrAggGMD,               &
     & asoilLayrAggMinSiz, asoilLayrAggMaxSiz, asoilLayrAggGSD,         &
     & aseagm, aseagmn, aseagmx, ask4d, aslmin, aslmax

      save :: /s1agg/

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

!     asoilLayrAggDen - Soil layer aggregate density (Mg/m^3)
!     asoilLayrAggSta - Soil layer dry aggregate stability (J/m^2)
!     asoilLayrAggGMD - Soil layer aggregate size geometric mean dia. (mm)
!     asoilLayrAggMinSiz - Minimum aggregate size (mm)
!     asoilLayrAggMaxSiz - Maximum aggregate size (mm)
!     asoilLayrAggGSD - Soil layer aggregate size geometric standard dev. (mm)
!     aseagm - soil layer mean aggregate stabillity (J/m^2)
!     aseagmn - soil layer minimum aggregate stability
!     aseagmx - soil layer maximum aggregate stability
!     k4d    - soil layer drying stability coefficient
!     aslmin - min values of geom. mean agg. diameter (eq. S-45, S-46)
!     aslmax - max values of geom. mean agg. diameter (eq. S-45, S-46)