!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
module parmeta
!------------------------------------------------------------------------
!***
!*** Set resolution, grid and decomposition
!***
!------------------------------------------------------------------------
! Number of faces:
      integer, parameter :: nm  = nmin    
!------------------------------------------------------------------------
! Decomposition of each face:
      integer, parameter :: nsub=nsubin 
      integer, parameter :: ixm=nsub,jym=ixm,nxy=ixm*jym 
!------------------------------------------------------------------------
! Number of grid points on each face:
      integer, parameter :: im0 = im0in,   &
                jm0=im0in, im  = imin, jm = im, &
                 im1 = im-1, jm1 = jm - 1  
!------------------------------------------------------------------------
! Number of vertical layers:          
      integer, parameter :: lm=lmin, lm1 = lm-1, lp1 = lm + 1
      integer,parameter  :: lsm=39
!------------------------------------------------------------------------
end module parmeta
