42 lines
680 B
Fortran
42 lines
680 B
Fortran
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
|
|
|