c     ------------------------------------------------------------------
c     file 'm1subr.inc'

c     This common block contains the state variables relating to
c     the subregion parameters for WERM.

c     Parameter include files:c:\main\inc\p1werm.inc


c     + + + VARIABLE DECLARATIONS + + +

      integer          nsubr
      integer          am0csr
      integer          am0irr(mnsub)
      integer          amnryr(mnsub)
      real             amrslp(mnsub)
      character*80     am0sid(mnsub)

      common   / m1subr /
     i                   nsubr,
     i                   am0csr,
     i                   am0irr,
     i                   amnryr,
     r                   amrslp,
     c                   am0sid

c     + + + VARIABLE DEFINITIONS + + +

c     am0csr - Current subregion

c              range values       min        max
c              ------------   ---------  ---------
c              fixed            1            4
c              typical          1            1
c              ------------   ---------  ---------

c            - This variable contains the simulation current
c              subregion.

c     am0irr - Flag for type of irrigation

c              range values       min        max
c              ------------   ---------  ---------
c              fixed            0            5
c              typical          0            1
c              ------------   ---------  ---------

c            - This is a flag to indicate the type of irrigation
c              0 = none, 1 = sprinkler, 2 = furrow.

c     amnryr - Counter for current rotation year

c              range values       min        max
c              ------------   ---------  ---------
c              fixed            1            10
c              typical          1            1
c              ------------   ---------  ---------

c            - This variable keeps track of the current rotation
c              year for each subregion.

c     amrslp - Average subregion slope (m/m)

c              range values       min        max
c              ------------   ---------  ---------
c              fixed          fmin       fmax
c              typical        tmin       tmax
c              ------------   ---------  ---------

c            - This variable contains the average value for the slope
c              for each subregion.

c     nsubr  - Number of subregions

c              range values      min        max
c              ------------   ---------  ---------
c              fixed              1          4
c              typical            1          4
c              ------------   ---------  ---------
c
c            - This variable contains the number of subregions for
c              a simulation run.

c    amosid  - soil identification

c              range values      min        max
c              ------------   ---------  ---------
c              fixed
c              typical
c              ------------   ---------  ---------
c
c            - This character variable contains the soil identification
c              for each subregion.

c     ------------------------------------------------------------------