!*==aa0039.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_soil_save
      implicit none
!*--AA00394
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub,mnsz
!
!*** End of declarations rewritten by SPAG
!
!
!     + + + VARIABLE DEFINITIONS + + +
!
!     aszcr  - Soil crust thickness (mm)
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the average soil surface crust
!              thickness value for each of the subregions.
!
!     asfcr  - Fraction of soil surface covered by crust (m^2/m^2)
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the fractional amount of soil
!              surface covered by crust for each of the subregions.
!
!     asmlos - Amount of loose erodible material on crusted fraction
!              of soil surface (kg/m^2)
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the quantity of loose erodible
!              material residing on the soil surface crust for each
!              of the subregions.  If there is no crust present,
!              this variable has no valid value.  The units are
!              kg of loose erodible material per m^2 of crusted
!              surface area (not total surface area).
!
!     asflos - Fraction of crusted soil surface containing loose erodible
!              material surface (m^2/m^2)
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the fraction of loose material
!              on the soil's crusted surface for each of the subregions.
!              If there is no crust present, this variable has no valid
!              value.  The units are m^2 of crusted surface area containing
!              loose erodible material per m^2 of crusted surface area
!              (not total surface area).
!
!     asdcr  - Soil crust density (Mg/m^2)
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the average soil surface crust
!              density value for each of the subregions.
 
!     asecr  - Soil crust stability (J/m^2)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the average soil surface crust
!              stability value for each of the subregions.
 
!     asfald - Dry soil albedo
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the dry soil albedo
!              value for each of the subregions.
!
!     asfalw - Wet soil albedo
!
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!            - This variable contains the wet soil albedo
!              value for each of the subregions.
!
!     acanag - coeffienct of abrasion for aggregates (1/m)
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!     acancr - coeffienct of abrasion for crust (1/m)
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!     asf10an - soil fraction pm10 in abraded suspension
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!     asf10en - soil fraction pm10 in emitted suspension
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!     asf10bk - soil fraction pm10 in saltation breakage suspension
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
!
!     ------------------------------------------------------------------
!
!$Author: joelevin $
!$Date: 2012-03-30 10:14:38 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12163 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/soil_save.inc $
!
! ***************************************************************** LEW
! Lists storage variables used in "save_soil" and "restore_soil"
! subroutines which are used for re-initialization during
! WEPS "calibration" Runs.
!
!     Edit History
!  Aug 21, 2005 - LEW
!