!$Author: fredfox $
!$Date: 2008-04-30 20:41:32 $
!$Revision: 1.1 $
!$Source: /weru/cvs/weps/weps.src/inc/erosion/threshold.inc,v $

!     This common block contains variables used for tracking the conditions
!     that prevented any erosion.

!     + + + VARIABLE DECLARATIONS + + +

      integer             ne_erosion(mnsub)
      integer             ne_snowdepth(mnsub)

      real                ne_wus_anemom(mnsub)
      real                ne_wus_random(mnsub)
      real                ne_wus_ridge(mnsub)
      real                ne_wus_biodrag(mnsub)
      real                ne_wus(mnsub)

      real                ne_bare(mnsub)
      real                ne_flat_cov(mnsub)
      real                ne_surf_wet(mnsub)
      real                ne_ag_den(mnsub)
      real                ne_wust(mnsub)

      common /threshold/                                                &
     &     ne_erosion, ne_snowdepth,                                    &
     &     ne_wus_anemom, ne_wus_random, ne_wus_ridge, ne_wus_biodrag,  &
     &     ne_wus, ne_bare, ne_flat_cov, ne_surf_wet, ne_ag_den, ne_wust

!     + + + VARIABLE DEFINITIONS + + +
!     ne_erosion - flag indicating that erosion was entered
!                  0 - erosion was not entered
!                  1 - erosion was entered
!     ne_snowdepth - snow depth is great enough that no erosion occurs
!                    0 - snow depth too low to prevent erosion
!                    1 - snow depth deeper than threshold, prevents erosion

!     ne_wus_anemom - anemometer located friction velocity for critical no erosion condition
!     ne_wus_random - site surface random roughness adjusted friction velocity for critical no erosion condition
!     ne_wus_ridge - site surface oriented roughness adjusted friction velocity for critical no erosion condition
!     ne_wus_biodrag - site biodrag adjusted friction velocity for critical no erosion condition
!     ne_wus - friction velocity for critical no erosion condition (biodrag added in)

!     ne_bare - bare friction veolocity greater
!     ne_flat_cov - flat cover increases threshold
!     ne_surf_wet - surface wetness increases threshold
!     ne_ag_den - ag density increases threshold
!     ne_wust - resultant threshold friction velocity