!     ------------------------------------------------------------------
!     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 + + +

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

      common   / m1subr /                                               &
     &                   nsubr,                                         &
     &                   am0csr,                                        &
     &                   am0irr,                                        &
     &                   amnryr,                                        &
     &                   amrslp,                                        &
     &                   am0sid,                                        &
     &                   am0tax

!     + + + VARIABLE DEFINITIONS + + +

!     am0csr - Current subregion

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

!            - This variable contains the simulation current
!              subregion.

!     am0irr - Flag for type of irrigation

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

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

!     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.

!     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
!              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.

!    amosid  - soil identification

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

!    amotax  - soil taxonomic order

!              range values      min        max
!              ------------   ---------  ---------
!              fixed
!              typical
!              ------------   ---------  ---------
!
!            - This character variable contains the soil taxonomy
!              classification at the order level for each subregion.

!     ------------------------------------------------------------------