33 lines
373 B
Fortran
33 lines
373 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
|
|
|
|
|
|
end subroutine m_arrays_init
|
|
|
|
|
|
subroutine m_arrays_finalize
|
|
|
|
|
|
end subroutine m_arrays_finalize
|
|
|
|
|
|
subroutine m_arrays_calculate_instant
|
|
|
|
integer :: i,j,k
|
|
|
|
end subroutine m_arrays_calculate_instant
|
|
|
|
|
|
end module m_arrays
|
|
|