Skip to content

Commit 657afe9

Browse files
committed
Fortran: Allow to create MatchingPartitioner with derived FunctionSpaces
1 parent 5648a4a commit 657afe9

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/atlas_f/grid/atlas_Partitioner_module.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -119,7 +119,7 @@ function atlas_MatchingFunctionSpacePartitioner__ctor( functionspace, config ) r
119119
use atlas_config_module, only : atlas_Config
120120
use atlas_partitioner_c_binding
121121
type(atlas_Partitioner) :: this
122-
type(atlas_FunctionSpace) , intent(in) :: functionspace
122+
class(atlas_FunctionSpace) , intent(in) :: functionspace
123123
type(atlas_Config), intent(in), optional :: config
124124
type(atlas_Config) :: opt_config
125125
if( present(config) ) then

0 commit comments

Comments
 (0)