!*==./Restructure/Modules/I_m1subr.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
      module i_m1subr
      implicit none
!
! COMMON /M1SUBR/
!
      integer :: am0csr,nsubr
      character(80),dimension(mnsub) :: am0localphase,am0tax
      character(160),dimension(mnsub) :: am0sid
      integer,dimension(mnsub) :: amnrotcycle,amnryr
      real,dimension(mnsub) :: amrslp,sfcov,soilrockfragments,          &
                             & watererosion
      character(20),dimension(mnsub) :: soillosstol
      end module i_m1subr