!$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/s1sgeo.inc $
!     This common block contains the variables representing the soil
!     surface properties for each subregion.

!     Parameter include files:  p1werm.inc

!     + + + VARIABLE DECLARATIONS + + +

      real             orgRidgHght(maxNumSubRegs)
!      real             aszrho(maxNumSubRegs)        ! not used in erosion
      real             orgRidgWid(maxNumSubRegs)
      real             orgRidgSpac(maxNumSubRegs)
      real             orgRidgOrient(maxNumSubRegs)
      real             orgDikeSpac(maxNumSubRegs)
      real             orgDikeHght(maxNumSubRegs)
      real             as0rrk(maxNumSubRegs)        ! not used in erosion
      real             aslrrc(maxNumSubRegs)
      real             orgRandRoug(maxNumSubRegs)
      real             aslrro(maxNumSubRegs)        ! not used in erosion

      common / s1sgeo /                                                 &
!     &                 orgRigdHght, aszrho, orgRidgWid, orgRidgSpac, orgRidgOrient, orgDikeSpac,  &
     & orgRidgHght, orgRidgWid, orgRidgSpac, orgRidgOrient, orgDikeSpac,&
     &                 orgDikeHght, as0rrk, aslrrc, orgRandRoug, aslrro

      save :: /s1sgeo/

!     + + + VARIABLE DEFINITIONS + + +

!     orgRidgHght - 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.

!     orgRidgWid - Ridge width (mm)

!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------

!            - This variable contains the ridge width for each of
!              the subregions.

!     orgRidgSpac - Ridge spacing (mm)

!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------

!            - This variable contains the ridge spacing for each of
!              the subregions.

!     orgRidgOrient - Ridge orientation (degrees)

!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------

!            - This variable contains the orientation width for each
!              of the subregions.

!     orgDikeSpac - Dike spacing (mm)

!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------

!            - This variable contains the dike spacing for each of
!              the subregions.

!     orgDikeHght - 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.

!     orgRandRoug - 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.

!     ------------------------------------------------------------------