Merge pull request #1022 from GEOS-ESM/feature/zhaobin1974/update-for-mapl-rewind-fix

updated refresh method registration using newly introduced MAPL flag

Author: sdrabenh

GEOSogcm_GridComp/GEOSseaice_GridComp/CICE_GEOSPlug/CICE_GEOSPlug.F90

@@ -94,7 +94,7 @@ subroutine SetServices ( GC, RC )
     call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN,          Run,        _RC)
     call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_FINALIZE,     Finalize,   _RC)
     call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_WRITERESTART, Record,     _RC)
-    call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_READRESTART,  Refresh,    _RC)
+    call MAPL_GridCompSetEntryPoint ( GC, MAPL_METHOD_REFRESH,      Refresh,    _RC)
 
 ! Set the state variable specs.
 ! -----------------------------
@@ -933,14 +933,16 @@ subroutine Record ( GC, IMPORT, EXPORT, CLOCK, RC )
     type(MAPL_MetaComp),     pointer :: MAPL
 
 ! ErrLog Variables
+    character(len=ESMF_MAXSTR)       :: IAm
+    integer                          :: STATUS
 
     character(len=ESMF_MAXSTR)       :: COMP_NAME
 
 ! Locals
     character(len=14)                :: timeStamp
     logical                          :: doRecord
 
-    __Iam__('Record')
+    Iam = "Record"
 
 ! Get the target components name and set-up traceback handle.
 ! -----------------------------------------------------------
@@ -1003,18 +1005,18 @@ subroutine Refresh ( GC, IMPORT, EXPORT, CLOCK, RC )
   integer, optional,   intent(  OUT) :: RC     ! Error code
 
 !EOP
-
     type(MAPL_MetaComp),     pointer :: MAPL
 
 ! ErrLog Variables
-
+    character(len=ESMF_MAXSTR)       :: IAm
+    integer                          :: STATUS
     character(len=ESMF_MAXSTR)       :: COMP_NAME
 
 ! Locals
     character(len=14)                :: timeStamp
     logical                          :: doRecord
 
-    __Iam__('Restore')
+    IAm = "Restore"
 
 ! Get the target components name and set-up traceback handle.
 ! -----------------------------------------------------------