module loops_comm

      use parmeta
      implicit none

      integer,dimension(0:im+1,0:jm+1)::lmh,lmv

      common /loops/ lmh,lmv

      end module loops_comm