research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

declare exporter common variable

Browse source
This commit is contained in:
ignis 2019-07-07 18:22:05 +09:00
parent 5551782ecd
commit 6f906f10c8
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
code/code_gen/post.py
View file

@ -220,10 +220,8 @@ class FieldBase (object):
class FieldExporter (object):
mpi_io_decl='''
! - common
! integer(kind=MPI_OFFSET_KIND) :: offset
! integer(kind=MPI_INTEGER_KIND) :: mpi_err
! integer(kind=MPI_INTEGER_KIND) :: count
! field exporter common
integer(kind=MPI_OFFSET_KIND) :: offset
'''
fmt_decl='''
@ -837,7 +835,7 @@ close (200)
md = {}
md["module_name"] = "terms"
md["module_data"] = "\n".join((declf, declh, declavg, decl_export, declarr))
md["module_data"] = "\n".join((declf, declh, declavg, FieldExporter.mpi_io_decl, decl_export, declarr))
md["module_init"] = "\n".join((allocavg, alloc_export, allocarr))
md["module_finalize"] = "\n".join((freeavg, free_export, freearr))
md["module_pass1"] = sub_calc1

4
code/m_terms.f90
View file

@ -13,6 +13,10 @@ real*8, allocatable, dimension(:) :: avg_c
real*8, allocatable, dimension(:) :: avg_fsd
real*8, allocatable, dimension(:) :: avg_divn
! field exporter common
integer(kind=MPI_OFFSET_KIND) :: offset
! - file_handles and mpi_infos
! integer(kind=MPI_INTEGER_KIND) :: {field_name}_fh
! integer(kind=MPI_INTEGER_KIND) :: {field_name}_info