use generic structures in Fortran

ecmwf · Nov 8, 2023 · d3f333d · d3f333d
1 parent 7dd8d43
commit d3f333d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/tests/redistribution/fctest_redistribution.F90 b/src/tests/redistribution/fctest_redistribution.F90
@@ -45,13 +45,13 @@ module fcta_Redistribution_fxt
 use atlas_redistribution_module
 
 implicit none
-type(atlas_StructuredGrid) :: grid
-type(atlas_functionspace_StructuredColumns) :: fspace_1, fspace_2, fspace_hlp
+type(atlas_Grid) :: grid
+type(atlas_FunctionSpace) :: fspace_1, fspace_2, fspace_hlp
 type(atlas_Redistribution) :: redist, redist_hlp
 type(atlas_Field) :: field_1, field_2
 real(c_float), pointer :: field_1v(:), field_2v(:)
 
-grid = atlas_StructuredGrid("O8")
+grid = atlas_Grid("O8")
 fspace_1 = atlas_functionspace_StructuredColumns(grid, atlas_Partitioner("equal_regions"), halo=2)
 fspace_2 = atlas_functionspace_StructuredColumns(grid, atlas_Partitioner("regular_bands"))