!*==aa0023.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_m1subr
      implicit none
!*--AA00234
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnsub
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     ntstep  - Number of timesteps per day for erosion.
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed              1        96
!              typical           24        24
!              ------------   ---------  ---------
 
!            - This variable contains the number of timesteps
!              per day for which erosion is calculated.
 
!     erod_interval - surface updating interval within erosion.
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed             60        --
!              typical           60        3600
!              ------------   ---------  ---------
 
!            - This variable contains the number of seconds
!              the surface is updated within the erosion submodel.
!              (currently settable as a commandline option within
!              the standalone version of the erosion submodel)
 
!     am0jd  - Current julian day of simulation
 
!              range values      min       max
!              ------------   ---------  ---------
!              fixed              1      variable
!              typical         variable  variable
!              ------------   ---------  ---------
 
!            - This variable contains the current julian day
!              the simulation run.
 
!     amalat - Latitude of simulation site (degrees)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed            0.00      90.00
!              typical         15.00      75.00
!              ------------   ---------  ---------
 
!            - This variable contains the latitude of
!              simulation site.
 
!     amalon - Longitude of simulation site (degrees)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed            0.00      360.00
!              typical         70.00      170.00
!              ------------   ---------  ---------
 
!            - This variable contains the longitude
!              of simulation site.
 
!     amzele - Average site elevation (m)
 
!              range values       min        max
!              ------------   ---------  ---------
!              fixed          fmin       fmax
!              typical        tmin       tmax
!              ------------   ---------  ---------
 
!            - This variable contains the average value of elevation
!              relative to sea level for the site.
 
!-----------------------------------------------------------------------
!$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/m1subr.inc $
!     ------------------------------------------------------------------
!     file 'm1subr.inc'
 
!     This common block contains the state variables relating to
!     the subregion parameters for WERM.
 
!     Parameter include files:c:\main\inc\p1werm.inc
 
 
!     + + + VARIABLE DECLARATIONS + + +