!*==aa0028.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      implicit none
!*--AA00283
!
!*** Start of declarations rewritten by SPAG
!
! PARAMETER definitions
!
      integer,parameter :: mnar = 4,mnarpt = 2,mnbr = 500,mnbpt = 2,    &
                         & mncz = 5,mnspt = 2,mnsrpt = 2,mnsub = 4,     &
                         & mnsz = 100,mntime = 1440,mnbpls = 5,mndk = 5,&
                         & mngdpt = 501,mnrbc = 5,mnhhrs = 24,          &
                         & mnryr = 16,mnmon = 13,mnopdat = 32,          &
                         & mndayr = 367
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
!     mtomm  - Unit conversion constant (mm/m)
!     mmtom  - Unit conversion constant (m/mm)
!     hrday  - Number of hours in a day (hrs/day)
!     hrtosec - Unit conversion constant (seconds/hour)
!     daytosec - Unit conversion constant (seconds/day)
!     degtorad - To convert Degrees to Radians, multiply by pi/180 (rad/deg)
!     radtodeg - To convert Radians to Degrees, multiply by 180/pi (deg/rad)
!     hatom2 - To convert hectares to square meters, multiply by 10,000
!     mgtokg - To convert milligrams to kilograms, multiply by 0.000001
!     fractopercent - convert fraction to percent
!     percenttofrac - convert percent to fraction
!     ------------------------------------------------------------------
!$Author: fredfox $
!$Date: 2012-11-30 18:44:29 -0600 (Fri, 30 Nov 2012) $
!$Revision: 12462 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/p1werm.inc $
!     ------------------------------------------------------------------
!     file 'p1werm.inc'
 
!     These parameter variables are used to size certain global arrays
!     at compile time for WERM.  They may also be consulted from within
!     sections of the WERM code if this file has been included.
 
 
 
 
 
!     + + + VARIABLE DECLARATIONS + + +
 
                              !increased from 4 for standalone erosion use
                               ! present decomp output maxes at 30 (see openfils.for, file.inc, FAF)