!*==aa0031.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_s1agg
      implicit none
!*--AA00314
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub,mnsz
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
!     nclass         - number of size classes
!     aggclass_size  - size of class divisions (mm)
!     aggclass_mdia  - geometric mean diameter of size classes (mm)
!     aggclass_frac  - mass fraction by size class and soil layer
!     aggclass_cumul - cummulative mass fraction by class and soil layer
!$Author: joelevin $
!$Date: 2012-03-30 10:14:38 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12163 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/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 + + +