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

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

!     + + + VARIABLE DECLARATIONS + + +

      real             soilFracDiaLt1   (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilFracDiaLt10  (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilFracDiamLt84  (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilFracDiaLt200 (0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilFracDiamLt84mn(0:maxGridPtsDir, 0:maxGridPtsDir)
      real             soilLayrRock (0:maxGridPtsDir, 0:maxGridPtsDir)  !edit ljh 1-22-05
      real             soilFracDiamLt84ic
      real             soilFracDiaLt10ic

      common /s2agg/                                                    &
     &                 soilFracDiaLt1,  soilFracDiaLt10, soilFracDiaLt10ic,                              &
     &                 soilFracDiamLt84, soilFracDiaLt200,soilFracDiamLt84mn, soilFracDiamLt84ic, soilLayrRock


      save :: /s2agg/

!     + + + VARIABLE DEFINITIONS + + +

!     soilFracDiaLt1  -   soil mass fraction in surface layer < 0.01 mm

!              range values      min       max
!              ------------   ---------  ---------
!              fixed              0        .1
!              typical            0        .04
!              ------------   ---------  ---------

!     soilFracDiaLt10  -  soil mass fraction in surface layer < 0.1 mm

!              range values      min       max
!              ------------   ---------  ---------
!              fixed              0         1.0
!              typical            0.1       0.8
!              ------------   ---------  ---------


!     soilFracDiamLt84   - soil mass fraction in surface layer < 0.84 mm

!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          1.0
!              typical            0.2        0.8
!              ------------   ---------  ---------

!     soilFracDiaLt200   - soil mass fraction in surface layer < 2.00 mm

!              range values       min        max
!              ------------   ---------  ---------
!              fixed             0            1.0
!              typical           0.2          0.6
!              ------------   ---------  ---------

!     soilFracDiamLt84mn   - "effective" soil mass fraction in surface layer < 0.84 mm
!                 needed for u* to be the threshold friction velocity.

!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          1.0
!              typical            0.2        0.8
!              ------------   ---------  ---------

!     soilFracDiamLt84ic   - soil mass fraction in surface layer < 0.84 mm
!                 at start of erosion event

!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          1.0
!              typical            0.2        0.8
!              ------------   ---------  ---------

!     soilFracDiaLt10ic   - soil mass fraction in surface layer < 0.10 mm
!                 at start of erosion event

!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          1.0
!              typical            0.2        0.8
!              ------------   ---------  ---------

!     soilLayrRock   - soil rock volume in surface layer  !edit ljh 1-22-05
                 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed              0          1.0
!              typical            0.         0.8
!              ------------   ---------  ---------