!$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/erosion/s2surf.inc $
!     -----------------------------------------------------------------
!     file 's2surf.inc'

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

!     + + + VARIABLE DECLARATIONS + + +

      real             soilCrstThck (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilCrstFrac (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilLoosMass(0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilLoosCovFrac(0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilMassAvalAggSurf (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilMassAvalDelt (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilMassAvalAggSurfmx (0:maxGridPtsDir, 0:maxGridPtsDir)


      common /s2urf/                                                    &
     &                 soilCrstThck,  soilCrstFrac,                                     &
     &                 soilLoosMass, soilLoosCovFrac,                                    &
     &                 soilMassAvalAggSurf, soilMassAvalDelt, soilMassAvalAggSurfmx

      save :: /s2urf/

!     + + + VARIABLE DEFINITIONS + + +

!     soilCrstThck   - Consolidated (crust) thickness (mm)

!              range values      min       max
!              ------------   ---------  ---------
!              fixed              0        50
!              typical            0        20
!              ------------   ---------  ---------

!     soilCrstFrac   - soil fraction with crust cover (decimal)

!              range values      min       max
!              ------------   ---------  ---------
!              fixed              0.0       1.0
!              typical            0.1       1.0
!              ------------   ---------  ---------

!     soilLoosMass  - mass of loose erodible soil on crust (kg/m^2)

!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          10
!              typical            0.2         2
!              ------------   ---------  ---------

!     soilLoosCovFrac  - soil fraction covered with loose erodible soil
!              on the crusted area

!              range values       min        max
!              ------------   ---------  ---------
!              fixed               0         1.0
!              typical             0         soilCrstFrac
!              ------------   ---------  ---------

!     soilMassAvalAggSurf- mobile soil mass removable from aggregated surface
!                by u* (kg/m^2).

!              range values       min        max
!              ------------   ---------  ---------
!              fixed               0         60
!              typical             0          5
!              ------------   ---------  ---------

!     soilMassAvalDelt- mobile soil mass change from erosion of aggregated
!               surface (kg/m^2) (+)= gain, (-)= loss from surface.

!              range values       min        max
!              ------------   ---------  ---------
!              fixed               0         60
!              typical             0          5
!              ------------   ---------  ---------