84 lines
1.3 KiB
Python
84 lines
1.3 KiB
Python
mod_form='''module m_{{ module_name }}
|
|
|
|
use, intrinsic :: iso_fortran_env, only: real64
|
|
use m_openmpi
|
|
use m_parameters
|
|
use m_arrays
|
|
use m_calculate
|
|
|
|
implicit none
|
|
|
|
{{ module_data }}
|
|
|
|
contains
|
|
|
|
subroutine m_{{ module_name }}_init
|
|
|
|
integer :: ierr
|
|
integer :: i, j, k
|
|
|
|
{{ module_init }}
|
|
|
|
end subroutine m_{{ module_name }}_init
|
|
|
|
|
|
subroutine m_{{ module_name }}_finalize
|
|
|
|
{{ module_finalize }}
|
|
|
|
end subroutine m_{{ module_name }}_finalize
|
|
|
|
|
|
subroutine m_{{ module_name }}_calculate_pass1(fidx)
|
|
|
|
integer :: fidx
|
|
integer :: i, j, k
|
|
|
|
{{ module_pass1 }}
|
|
|
|
end subroutine m_{{ module_name }}_calculate_pass1
|
|
|
|
|
|
subroutine m_{{ module_name }}_average_pass1 (nfiles)
|
|
|
|
integer :: nfiles
|
|
real*8 :: denum
|
|
|
|
denum=real(nfiles*nyp*nzp)
|
|
|
|
{{ module_pass1_avg }}
|
|
|
|
end subroutine m_{{ module_name }}_average_pass1
|
|
|
|
|
|
subroutine m_{{ module_name }}_calculate_pass2(fidx)
|
|
|
|
integer :: fidx
|
|
integer :: i, j, k
|
|
|
|
{{ module_pass2 }}
|
|
|
|
end subroutine m_{{ module_name }}_calculate_pass2
|
|
|
|
|
|
subroutine m_{{ module_name }}_average_pass2 (nfiles)
|
|
|
|
integer :: nfiles
|
|
real*8 :: denum
|
|
|
|
denum=real(nfiles*nyp*nzp)
|
|
|
|
{{ module_pass2_avg }}
|
|
|
|
end subroutine m_{{ module_name }}_average_pass2
|
|
|
|
|
|
subroutine m_{{ module_name }}_write_result
|
|
|
|
{{ module_write_result }}
|
|
|
|
end subroutine m_{{ module_name }}_write_result
|
|
|
|
|
|
end module m_{{ module_name }}
|
|
'''
|