Merge pull request #910 from GEOS-ESM/feature/mathomp4/ogcm_is_fcst

Refactor DataSea/DataIce IS_FCST to OGCM_IS_FCST
GEOS-ESM · Mar 1, 2024 · b5aea62 · b5aea62
2 parents 8faac49 + 6bc66b7
commit b5aea62
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/GEOSogcm_GridComp/GEOSseaice_GridComp/GEOSdataseaice_GridComp/GEOS_DataSeaIceGridComp.F90 b/GEOSogcm_GridComp/GEOSseaice_GridComp/GEOSdataseaice_GridComp/GEOS_DataSeaIceGridComp.F90
@@ -539,7 +539,7 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
 ! In atmospheric forecast mode we do not have future Sea Ice Conc
 !---------------------------------------------------------------
 
-    call MAPL_GetResource(MAPL,IFCST,LABEL="IS_FCST:",default=0,   RC=STATUS)
+    call MAPL_GetResource(MAPL,IFCST,LABEL="OGCM_IS_FCST:",default=0,   RC=STATUS)
     VERIFY_(STATUS)
 
     FCST = IFCST==1

diff --git a/..._GridComp/GEOSseaice_GridComp/GEOSdataseaice_GridComp/GEOS_DataSeaIceGridComp_ExtData.F90 b/..._GridComp/GEOSseaice_GridComp/GEOSdataseaice_GridComp/GEOS_DataSeaIceGridComp_ExtData.F90
@@ -318,7 +318,7 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
 ! In atmospheric forecast mode we do not have future Sea Ice Conc
 !----------------------------------------------------------------
 
-    call MAPL_GetResource(MAPL,IFCST,LABEL="IS_FCST:",default=0, _RC )
+    call MAPL_GetResource(MAPL,IFCST,LABEL="OGCM_IS_FCST:",default=0, _RC )
     FCST = IFCST==1
 
 ! Get relaxation time