Merge pull request #2873 from GEOS-ESM/hotfix/mapl3/#2872-strict-orde…

…ring-of-declarations Fixes #2872
GEOS-ESM · Jun 17, 2024 · d52b046 · d52b046
2 parents 632da4b + 9b08f2f
commit d52b046
Showing 1 changed file with 8 additions and 10 deletions.
diff --git a/generic3g/OuterMetaComponent.F90 b/generic3g/OuterMetaComponent.F90
@@ -136,7 +136,14 @@ module mapl3g_OuterMetaComponent
 
    character(len=*), parameter :: OUTER_META_PRIVATE_STATE = "MAPL::OuterMetaComponent::private"
 
-
+   abstract interface
+      subroutine I_child_op(this, child_meta, rc)
+         import OuterMetaComponent
+         class(OuterMetaComponent), target, intent(inout) :: this
+         type(OuterMetaComponent), target, intent(inout) :: child_meta
+         integer, optional, intent(out) :: rc
+      end subroutine I_child_Op
+   end interface
 
    ! Submodule interfaces
    interface
@@ -404,15 +411,6 @@ end subroutine set_entry_point
    end interface OuterMetaComponent
 
 
-   abstract interface
-      subroutine I_child_op(this, child_meta, rc)
-         import OuterMetaComponent
-         class(OuterMetaComponent), target, intent(inout) :: this
-         type(OuterMetaComponent), target, intent(inout) :: child_meta
-         integer, optional, intent(out) :: rc
-      end subroutine I_child_Op
-   end interface
-
    interface recurse
       module procedure recurse_
    end interface recurse