From d602bd9d7f1bbae0fea2978caa92e9aa31f783e1 Mon Sep 17 00:00:00 2001 From: Slavko Brdar Date: Wed, 23 Aug 2023 15:33:16 +0000 Subject: [PATCH] add optional argument nproma in the Fortran interface for BlockStructuredColumns --- .../atlas_functionspace_BlockStructuredColumns_module.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/atlas_f/functionspace/atlas_functionspace_BlockStructuredColumns_module.F90 b/src/atlas_f/functionspace/atlas_functionspace_BlockStructuredColumns_module.F90 index de3770e28..a0387b53f 100644 --- a/src/atlas_f/functionspace/atlas_functionspace_BlockStructuredColumns_module.F90 +++ b/src/atlas_f/functionspace/atlas_functionspace_BlockStructuredColumns_module.F90 @@ -260,17 +260,19 @@ function ctor_grid_dist_config(grid, distribution, config) result(this) end function -function ctor_grid_part(grid, partitioner, halo, levels) result(this) +function ctor_grid_part(grid, partitioner, halo, nproma, levels) result(this) use atlas_functionspace_BlockStructuredColumns_c_binding type(atlas_functionspace_BlockStructuredColumns) :: this class(atlas_Grid), intent(in) :: grid type(atlas_Partitioner), intent(in) :: partitioner integer, optional :: halo + integer, optional :: nproma integer, optional :: levels type(atlas_Config) :: config config = empty_config() ! Due to PGI compiler bug, we have to do this instead of "config = atlas_Config()"" if( present(halo) ) call config%set("halo",halo) if( present(levels) ) call config%set("levels",levels) + if( present(nproma) ) call config%set("nproma",nproma) call this%reset_c_ptr( atlas__functionspace__BStructuredColumns__new__grid_part( & & grid%CPTR_PGIBUG_A, partitioner%CPTR_PGIBUG_A, config%CPTR_PGIBUG_B ) ) call this%set_index()