diff --git a/CHANGELOG.md b/CHANGELOG.md index d165ff4b813c..457d60d4b4a8 100644 --- 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 index 2195a9f7bcbe..a0807378312c 100644 --- 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