module m_arrays

use m_parameters

implicit none

real*8, allocatable, dimension(:,:,:) :: u,v,w,y

contains

subroutine m_arrays_init

integer :: ierr

ALLOCATE(u(nxp,nyp,nzp),STAT=ierr)  ; u=0.          ! Main variables
ALLOCATE(v(nxp,nyp,nzp),STAT=ierr)  ; v=0.          ! Main variables
ALLOCATE(w(nxp,nyp,nzp),STAT=ierr)  ; w=0.          ! Main variables

ALLOCATE(y(nxp,nyp,nzp),STAT=ierr)  ; y=0.

end subroutine m_arrays_init


subroutine m_arrays_finalize

DEALLOCATE(u)
DEALLOCATE(v)
DEALLOCATE(w)
DEALLOCATE(y)

end subroutine m_arrays_finalize


subroutine m_arrays_calculate_instant

integer :: i,j,k

end subroutine m_arrays_calculate_instant


end module m_arrays