!*==./Restructure/Modules/C_M1SUBR.f90  created by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      module c_m1subr
      implicit none
      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 c_m1subr