Update GEOSagcm_GridComp/GEOS_AgcmGridComp.F90

Co-authored-by: Tom Clune <thomas.l.clune@nasa.gov>
GEOS-ESM · Jul 17, 2023 · 9713530 · 9713530
1 parent 1c5ad30
commit 9713530
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GEOSagcm_GridComp/GEOS_AgcmGridComp.F90 b/GEOSagcm_GridComp/GEOS_AgcmGridComp.F90
@@ -191,7 +191,7 @@ subroutine SetServices ( GC, RC )
         RST = MAPL_RestartSkip
     end if
 
-    call MAPL_GetResource(MAPL, SCM_SL, Label="SCM_SL:", default=0, RC=STATUS)
+    call MAPL_GetResource(MAPL, SCM_SL, Label="SCM_SL:", default=0, _RC)
 
 
     call MAPL_GetResource(MAPL, ReplayMode, Label='REPLAY_MODE:', default="NoReplay", RC=STATUS )