diff --git a/CHANGELOG.md b/CHANGELOG.md index e3d28f25195c..b5d281d56b8a 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -36,6 +36,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 - Add `CMakePresets.json` file - Note: requires CMake 3.21.0 to use - Per CMake advice, add `CMakeUserPresets.json` to `.gitignore` +- Added recursive declaration to MAPL_GenericWrapper ### Changed diff --git a/base/MAPL_Generic.F90 b/base/MAPL_Generic.F90 index 1c2a1bacd35d..9cc33a8a5816 100644 --- a/base/MAPL_Generic.F90 +++ b/base/MAPL_Generic.F90 @@ -1707,7 +1707,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