!*==aa0038.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_s1surf
      implicit none
!*--AA00384
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     aszrgh - Ridge height (mm)
!     aszrho - original ridge height, after tillage, mm.
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the ridge height for each of
!              the subregions.
 
!     asxrgw - Ridge width (mm)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the ridge width for each of
!              the subregions.
 
!     asxrgs - Ridge spacing (mm)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the ridge spacing for each of
!              the subregions.
 
!     asargo - Ridge orientation (degrees)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the orientation width for each
!              of the subregions.
 
!     asxdks - Dike spacing (mm)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the dike spacing for each of
!              the subregions.
 
!     asxdkh - Dike Height (mm)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the dike height for each of
!              the subregions.
 
!     as0rrk - Random roughness parameter K (shape)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the random roughness shape
!              parameter (K) for each of  the subregions.
 
!     aslrrc - Random roughness parameter C (scale)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the random roughness scale
!              parameter (C) for each of  the subregions.
 
!     aslrr - Allmaras random roughness parameter (mm)
!     aslrro - original random roughness height, after tillage, mm
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the Allmaras random roughness
!              parameter for each of the subregions.
 
!     ------------------------------------------------------------------
!$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/s1surf.inc $
!     ------------------------------------------------------------------
!     file 's1surf.inc'
!
!     This common block contains the state variables relating to
!     the surface soil properties and pm10 fractions in suspended soil
!
!     Parameter include files:  p1werm.inc, p1const.inc
!
!     + + + VARIABLE DECLARATIONS + + +