From 6f906f10c8bc46488bc7c9de496b5f702045bdfe Mon Sep 17 00:00:00 2001 From: ignis Date: Sun, 7 Jul 2019 18:22:05 +0900 Subject: [PATCH] declare exporter common variable --- code/code_gen/post.py | 8 +++----- code/m_terms.f90 | 4 ++++ 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/code/code_gen/post.py b/code/code_gen/post.py index 1f828c0..d247e41 100644 --- a/code/code_gen/post.py +++ b/code/code_gen/post.py @@ -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 diff --git a/code/m_terms.f90 b/code/m_terms.f90 index d5aa934..2e9d2a9 100644 --- a/code/m_terms.f90 +++ b/code/m_terms.f90 @@ -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