f369a16d4b
- enable export save - improve term comment with lval name - add export offset array - pass file index to calculation subroutine - bugfix: - get array name after allocation - multiply offset by 8 to be size in Byte
82 lines
1.2 KiB
Python
82 lines
1.2 KiB
Python
mod_form='''module m_{0[module_name]}
|
|
|
|
use m_openmpi
|
|
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(fidx)
|
|
|
|
integer :: fidx
|
|
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(fidx)
|
|
|
|
integer :: fidx
|
|
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]}
|
|
'''
|