Merge pull request #1684 from GEOS-ESM/feature/bmauer/check_genericin…

…it_userrc check userRC in MAPL_GenericInitialize
GEOS-ESM · Sep 22, 2022 · 10ed93e · 10ed93e
2 parents fe66849 + a6e9ea3
commit 10ed93e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -26,6 +26,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Fixed bug that required a /dev/null ExtData entry to still have a file variable name
 - Fixed bug with checking for duplicate alias in collection
 - Added protection in History to only allow `instantaneous` or `time-averaged` modes
+- Check userRC after ESMF_GridCompInitialize in MAPL_GenericInitialize
 
 ### Added
 

diff --git a/generic/MAPL_Generic.F90 b/generic/MAPL_Generic.F90
@@ -1265,6 +1265,7 @@ recursive subroutine initialize_children_and_couplers(rc)
                        exportState=child_export_state, &
                        clock=CLOCK, PHASE=CHLDMAPL(I)%PTR%PHASE_INIT(PHASE), &
                        userRC=userRC, __RC__ )
+                  _VERIFY(userRC)
                   call MAPL_TimerOff(STATE,trim(CHILD_NAME))
                end if
             end do