Adds missing recursive declaration. Closes #1012

GEOS-ESM · Sep 3, 2021 · 27e9a3f · 27e9a3f
1 parent b6b482e
commit 27e9a3f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -20,6 +20,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Added
 
 - Added `esma_cpack` include for tarring ability
+- Added missing recursive declaration to MAPL_GenericWrapper
 
 ### Changed
 

diff --git a/base/MAPL_Generic.F90 b/base/MAPL_Generic.F90
@@ -1705,7 +1705,7 @@ end subroutine MAPL_GenericInitialize
 !=============================================================================
 !=============================================================================
 
-subroutine MAPL_GenericWrapper ( GC, IMPORT, EXPORT, CLOCK, RC)
+recursive subroutine MAPL_GenericWrapper ( GC, IMPORT, EXPORT, CLOCK, RC)
 
   !ARGUMENTS:
   type(ESMF_GridComp)  :: GC     ! Gridded component