Only call init_is_restart_fh first time

NOAA-EMC · Oct 17, 2024 · 4f6c505 · 4f6c505
1 parent 0a76110
commit 4f6c505
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90
@@ -1386,14 +1386,14 @@ subroutine ModelSetRunClock(gcomp, rc)
        call ESMF_AlarmSet(stop_alarm, clock=mclock, rc=rc)
        if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-    end if
-
 #ifndef CESMCOUPLED
-    call ESMF_TimeIntervalGet( dtimestep, s=dtime, rc=rc )
-    if (ChkErr(rc,__LINE__,u_FILE_u)) return
-    call init_is_restart_fh(mcurrTime, dtime, my_task == master_task)
+      call ESMF_TimeIntervalGet( dtimestep, s=dtime, rc=rc )
+      if (ChkErr(rc,__LINE__,u_FILE_u)) return
+      call init_is_restart_fh(mcurrTime, dtime, my_task == master_task)
 #endif
 
+    end if
+
     !--------------------------------
     ! Advance model clock to trigger alarms then reset model clock back to currtime
     !--------------------------------