Remove unnecessary use statements from submodule files.

GEOS-ESM · Jun 4, 2024 · cce3e01 · cce3e01
1 parent 7a4eeeb
commit cce3e01
Show file tree

Hide file tree

Showing 5 changed files with 3 additions and 17 deletions.
diff --git a/generic3g/OuterMetaComponent.F90 b/generic3g/OuterMetaComponent.F90
@@ -34,6 +34,9 @@ module mapl3g_OuterMetaComponent
    use mapl_ErrorHandling
    use mapl3g_VerticalGeom
    use mapl3g_GeometrySpec
+   ! Kludge to work around Intel 2021 namespace bug that exposes
+   ! private names from other modules in unrelated submodules.
+   ! Report filed 2022-03-14 (T. Clune)
    use gFTL2_StringVector
    use mapl_keywordEnforcer, only: KE => KeywordEnforcer
    use esmf

diff --git a/generic3g/OuterMetaComponent/SetServices.F90 b/generic3g/OuterMetaComponent/SetServices.F90
@@ -1,17 +1,10 @@
 #include "MAPL_Generic.h"
 
 submodule (mapl3g_OuterMetaComponent) SetServices_smod
-   use esmf
-   use gFTL2_StringVector
    use mapl3g_ComponentSpecParser
-   use mapl3g_HierarchicalRegistry
    use mapl3g_ChildSpec
    use mapl3g_ChildSpecMap
    use mapl3g_GenericGridComp
-   ! Kludge to work around Intel 2021 namespace bug that exposes
-   ! private names from other modules in unrelated submodules.
-   ! Report filed 2022-03-14 (T. Clune)
-   use mapl_keywordenforcer, only: KE => KeywordEnforcer
    implicit none
 
 contains

diff --git a/generic3g/OuterMetaComponent/add_child_by_name.F90 b/generic3g/OuterMetaComponent/add_child_by_name.F90
@@ -1,17 +1,10 @@
 #include "MAPL_Generic.h"
 
 submodule (mapl3g_OuterMetaComponent) add_child_by_name_smod
-   use esmf
-   use gFTL2_StringVector
    use mapl3g_ComponentSpecParser
-   use mapl3g_HierarchicalRegistry
    use mapl3g_ChildSpec
    use mapl3g_ChildSpecMap
    use mapl3g_GenericGridComp
-   ! Kludge to work around Intel 2021 namespace bug that exposes
-   ! private names from other modules in unrelated submodules.
-   ! Report filed 2022-03-14 (T. Clune)
-   use mapl_keywordenforcer, only: KE => KeywordEnforcer
    implicit none
 
 contains

diff --git a/generic3g/OuterMetaComponent/get_phases.F90 b/generic3g/OuterMetaComponent/get_phases.F90
@@ -1,8 +1,6 @@
 #include "MAPL_Generic.h"
 
 submodule (mapl3g_OuterMetaComponent) get_phases_smod
-   use :: esmf, only: ESMF_Method_Flag
-   use :: gFTL2_StringVector, only: StringVector
    implicit none
 
 contains

diff --git a/generic3g/OuterMetaComponent/initialize_advertise.F90 b/generic3g/OuterMetaComponent/initialize_advertise.F90
@@ -92,7 +92,6 @@ end subroutine advertise_variable
 
 
       subroutine process_connections(this, rc)
-        use mapl3g_VirtualConnectionPt
         class(OuterMetaComponent), intent(inout) :: this
         integer, optional, intent(out) :: rc