c$Author: fredfox $
c$Date: 2001-09-27 20:37:43 $
c$Revision: 1.2 $
c$Source: /weru/cvs/weps/weps.src/hydro/depstore.for,v $
       real*4 function depstore( ranrough, soilslope )

c     + + + PURPOSE + + +
c     returns the maximum depression storage depth (m)
c     equation from WEPP 4.3.4 reference to 

c     + + + KEY WORDS + + +
c     hydrology

c     + + + ARGUMENT DECLARATIONS + + +
      real*4 ranrough, soilslope

c     + + +  ARGUMENT DEFINITIONS + + +
c     ranrough   - random roughness of soil surface (m)
c     soilslope  - slope of soil surface (m/m)

c     + + + LOCAL VARIABLES + + +
      real coef_a, coef_b, coef_c
      parameter( coef_a = 0.112 )
      parameter( coef_b = 3.1 )
      parameter( coef_c = -1.2 )

      depstore = ranrough
     &         * (coef_a + coef_b * ranrough + coef_c * soilslope)

      return
      end