c     -----------------------------------------------------------------
c     file 's2sgeo.inc'

c     This block common is contains variables used for a simulation run
c     for EROSION.

c     + + + VARIABLE DECLARATIONS + + +

      real             szrgh(0:mngdpt, 0:mngdpt)
      real             sxprg(mnsub)
      real             sarrc(0:mngdpt, 0:mngdpt)
      real             slrr(0:mngdpt, 0:mngdpt)



      common /s2sgeo/
     r                 szrgh, sxprg,
     r                 sarrc, slrr

c     + + + VARIABLE DEFINITIONS + + +

c     szrgh  - Ridge height (mm)

c              range values      min       max
c              ------------   ---------  ---------
c              fixed              0        500
c              typical            0        200
c              ------------   ---------  ---------

c


c     sxprg  - ridge spacing parallel the wind direction(mm)

c              range values      min       max
c              ------------   ---------  ---------
c              fixed              0.0       3000
c              typical             20       1000
c              ------------   ---------  ---------

c


c     sarrc  - soil angle random roughness wieibull scale factor (degrees)

c             range values      min       max
c              ------------   ---------  ---------
c              fixed              2        60
c              typical            2        30
c              ------------   ---------  ---------
c
c    slrr   - soil random roughness (mm)
c
c             range values      min       max
c              ------------   ---------  ---------
c              fixed              2        60
c              typical            2        30
c              ------------   ---------  ---------
c