add optional argument nproma in the Fortran interface for BlockStruct…

…uredColumns
ecmwf · Aug 23, 2023 · d602bd9 · d602bd9
1 parent 7893f78
commit d602bd9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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()