MODULE masks_comm
!-----------------------------------------------------------------------
   USE parmeta
   IMPLICIT NONE

      REAL, DIMENSION (0:im+1,0:jm+1) ::  sm, sice 
      REAL, DIMENSION (0:im+1,0:jm+1,lm) :: htm, vtm

      COMMON /masks/ htm, vtm,sm,sice
!-----------------------------------------------------------------------
 END MODULE masks_comm