diff --git a/GEOSogcm_GridComp/GEOS_OceanGridComp/GEOS_OceanGridComp.F90 b/GEOSogcm_GridComp/GEOS_OceanGridComp/GEOS_OceanGridComp.F90
index 2e2dcc19f..0a4bdf48e 100644
--- a/GEOSogcm_GridComp/GEOS_OceanGridComp/GEOS_OceanGridComp.F90
+++ b/GEOSogcm_GridComp/GEOS_OceanGridComp/GEOS_OceanGridComp.F90
@@ -129,7 +129,7 @@ subroutine SetServices ( GC, RC )
        end select
     endif
 
-    call MAPL_GetResource(MAPL, iDUAL_OCEAN, 'DUAL_OCEAN:', default=0, RC=STATUS )
+    call MAPL_GetResource(MAPL, iDUAL_OCEAN, 'DUAL_OCEAN:', default=0, __RC__ )
     DUAL_OCEAN = iDUAL_OCEAN /= 0
 
     OCNd = 0