Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Flexible restart write times (restart_fh) #85

Open
wants to merge 2 commits into
base: develop
Choose a base branch
from
Open

Flexible restart write times (restart_fh) #85

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
0a76110
restart_fh using shr_is_restart_fh_mod
NickSzapiro-NOAA Oct 16, 2024
4f6c505
Only call init_is_restart_fh first time
NickSzapiro-NOAA Oct 17, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 15 additions & 0 deletions cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -55,6 +55,9 @@ module ice_comp_nuopc
use ice_mesh_mod , only : ice_mesh_init_tlon_tlat_area_hm, ice_mesh_create_scolumn
use ice_prescribed_mod , only : ice_prescribed_init
use ice_scam , only : scol_valid, single_column
#ifndef CESMCOUPLED
use shr_is_restart_fh_mod, only : init_is_restart_fh, is_restart_fh, write_restartfh
#endif

implicit none
private
Expand Down Expand Up @@ -1175,6 +1178,11 @@ subroutine ModelAdvance(gcomp, rc)
endif
endif

#ifndef CESMCOUPLED
write_restartfh = is_restart_fh(clock)
if (write_restartfh) force_restart_now = .true.
#endif

!--------------------------------
! Unpack import state
!--------------------------------
Expand Down Expand Up @@ -1289,6 +1297,7 @@ subroutine ModelSetRunClock(gcomp, rc)
character(len=256) :: stop_option ! Stop option units
integer :: stop_n ! Number until stop interval
integer :: stop_ymd ! Stop date (YYYYMMDD)
integer :: dtime
type(ESMF_ALARM) :: stop_alarm
character(len=128) :: name
integer :: alarmcount
Expand Down Expand Up @@ -1377,6 +1386,12 @@ subroutine ModelSetRunClock(gcomp, rc)
call ESMF_AlarmSet(stop_alarm, clock=mclock, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

#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)
#endif

end if

!--------------------------------
Expand Down
Loading