78 lines
1.1 KiB
Fortran
78 lines
1.1 KiB
Fortran
module m_{0[module_name]}
|
|
|
|
use m_parameters
|
|
use m_arrays
|
|
use m_calculate
|
|
|
|
implicit none
|
|
|
|
{0[module_data]}
|
|
|
|
contains
|
|
|
|
subroutine m_{0[module_name]}_init
|
|
|
|
integer :: ierr
|
|
|
|
{0[module_init]}
|
|
|
|
end subroutine m_{0[module_name]}_init
|
|
|
|
|
|
subroutine m_{0[module_name]}_finalize
|
|
|
|
{0[module_finalize]}
|
|
|
|
end subroutine m_{0[module_name]}_finalize
|
|
|
|
|
|
subroutine m_{0[module_name]}_calculate_pass1
|
|
|
|
integer :: i, j, k
|
|
|
|
{0[module_pass1]}
|
|
|
|
end subroutine m_{0[module_name]}_calculate_pass1
|
|
|
|
|
|
subroutine m_{0[module_name]}_average_pass1 (nfiles)
|
|
|
|
integer :: nfiles
|
|
real*8 :: denum
|
|
|
|
denum=real(nfiles*nyp*nzp)
|
|
|
|
{0[module_pass1_avg]}
|
|
|
|
end subroutine m_{0[module_name]}_average_pass1
|
|
|
|
|
|
subroutine m_{0[module_name]}_calculate_pass2
|
|
|
|
integer :: i, j, k
|
|
|
|
{0[module_pass2]}
|
|
|
|
end subroutine m_{0[module_name]}_calculate_pass2
|
|
|
|
|
|
subroutine m_{0[module_name]}_average_pass2 (nfiles)
|
|
|
|
integer :: nfiles
|
|
real*8 :: denum
|
|
|
|
denum=real(nfiles*nyp*nzp)
|
|
|
|
{0[module_pass2_avg]}
|
|
|
|
end subroutine m_{0[module_name]}_average_pass2
|
|
|
|
|
|
subroutine m_{0[module_name]}_write_result
|
|
|
|
{0[module_write_result]}
|
|
|
|
end subroutine m_{0[module_name]}_write_result
|
|
|
|
|
|
end module m_{0[module_name]}
|