!*==aa0024.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_p1const
      implicit none
!*--AA00244
!
!*** Start of declarations rewritten by SPAG
!
! PARAMETER definitions
!
      integer,parameter :: sec_per_day = 3600*24
      real,parameter :: pi = 3.1415927,                                 &
                      & kg_per_m2_to_lbs_per_acre = 8921.791
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     am0csr - Current subregion
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed            1            4
!              typical          1            1
!              ------------   ---------  ---------
 
!            - This variable contains the simulation current
!              subregion.
 
!     amnryr - Counter for current rotation year
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed            1            10
!              typical          1            1
!              ------------   ---------  ---------
 
!            - This variable keeps track of the current rotation
!              year for each subregion.
 
!     amnrotcycle - Counter for current "rotation" cycle
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed            1            100+
!              typical          1            1
!              ------------   ---------  ---------
 
!            - This variable keeps track of the current rotation
!              cycle for each subregion.
 
!     amrslp - Average subregion slope (m/m)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the average value for the slope
!              gradient for each subregion.
 
!     nsubr  - Number of subregions
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed              1          4
!              typical            1          4
!              ------------   ---------  ---------
!
!            - This variable contains the number of subregions for
!              a simulation run.
 
!    am0sid  - soil identification
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
!
!            - This character variable contains the soil identification
!              for each subregion.
 
!    am0tax  - soil taxonomic order
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
!
!            - This character variable contains the soil taxonomy
!              classification at the order level for each subregion.
 
!    am0localphase  - soil local phase
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
!
!            - This character variable contains the soil taxonomy
!              "local phase" soil classification for each subregion.
 
!    SoilLossTol  - NRCS assigned "soil loss tolerance" value
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
 
!    SFCov - NRCS "Surface Fragment Cover" or "Surface Layer Fragment" fraction (%)
 
!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
!     ------------------------------------------------------------------
 
!$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/p1const.inc $
 
!     These parameter variables are used in place of typical constant
!     values within WERM to make the coding more readable and
!     maintainable.  Generally, only common constants likely to be used
!     throughout the WERM coding should reside here.  Constants used
!     locally in the WERM coding should be defined in separate parameter
!     included files.
!
!     These parameter values may be consulted from within any sections
!     of the WERM code if this file has been included.
 
 
!     + + + VARIABLE DECLARATIONS + + +