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