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

Enable triggering restart writes at any forecast time ("restart_fh") via UFS configuration as for other components #1001

Open
wants to merge 7 commits into
base: main
Choose a base branch
from
Open

Enable triggering restart writes at any forecast time ("restart_fh") via UFS configuration as for other components #1001

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
f124914
No ncat,ntrcr in call icepack_aggregate in ice_prescribed_mod.F90
NickSzapiro-NOAA Sep 27, 2024
5e57a89
Update to CICE-Consortium/main (2024-09-28)
NickSzapiro-NOAA Sep 30, 2024
cf01f33
Merge remote-tracking branch 'CICE-Consortium/main' into develop
NickSzapiro-NOAA Nov 18, 2024
513f8d1
Sync CICE to Consortium/main (2024-11)
NickSzapiro-NOAA Dec 3, 2024
ff7fd76
Enable writing restarts that can be triggered at any forecast time ("…
NickSzapiro-NOAA Dec 11, 2024
ba1392b
Add 1 more #ifndef CESMCOUPLED to avoid unused variable warning for cesm
NickSzapiro-NOAA Dec 18, 2024
88da25b
#ifndef for dtime here too
NickSzapiro-NOAA Dec 18, 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
22 changes: 22 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, is_restart_fh_type
#endif

implicit none
private
Expand Down Expand Up @@ -96,6 +99,9 @@ module ice_comp_nuopc
logical :: mastertask
logical :: runtimelog = .false.
logical :: restart_eor = .false. !End of run restart flag
#ifndef CESMCOUPLED
type(is_restart_fh_type) :: restartfh_info ! For flexible restarts in UFS
#endif
integer :: start_ymd ! Start date (YYYYMMDD)
integer :: start_tod ! start time of day (s)
integer :: curr_ymd ! Current date (YYYYMMDD)
Expand Down Expand Up @@ -1024,6 +1030,9 @@ subroutine ModelAdvance(gcomp, rc)
character(char_len_long) :: restart_date
character(char_len_long) :: restart_filename
logical :: isPresent, isSet
#ifndef CESMCOUPLED
logical :: write_restartfh
#endif
character(len=*),parameter :: subname=trim(modName)//':(ModelAdvance) '
character(char_len_long) :: msgString
!--------------------------------
Expand Down Expand Up @@ -1175,6 +1184,11 @@ subroutine ModelAdvance(gcomp, rc)
endif
endif

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

!--------------------------------
! Unpack import state
!--------------------------------
Expand Down Expand Up @@ -1292,6 +1306,9 @@ subroutine ModelSetRunClock(gcomp, rc)
type(ESMF_ALARM) :: stop_alarm
character(len=128) :: name
integer :: alarmcount
#ifndef CESMCOUPLED
integer :: dtime
#endif
character(len=*),parameter :: subname=trim(modName)//':(ModelSetRunClock) '
!--------------------------------

Expand Down Expand Up @@ -1377,6 +1394,11 @@ subroutine ModelSetRunClock(gcomp, rc)
call ESMF_AlarmSet(restart_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, restartfh_info)
#endif
end if

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