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.

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

13 - coupler_intermediate restart #128

Merged
merged 61 commits into from
Jun 25, 2024
Merged

Conversation

mlee03
Copy link
Contributor

@mlee03 mlee03 commented Jun 18, 2024

In this PR, the subroutine coupler_intermediate_restart and coupler_summarize_timestep hve been defined and is used in coupler_main.

AM4, CM4, SPEAR, and OM4 experiments pass.

@mlee03 mlee03 marked this pull request as ready for review June 21, 2024 14:41
full/full_coupler_mod.F90 Show resolved Hide resolved
rem1776
rem1776 previously approved these changes Jun 21, 2024
Copy link
Member

@thomas-robinson thomas-robinson left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Is the change to the coupler_restart routine part of the rewrite plan? Is this outside of the project scope?

@@ -446,7 +442,8 @@ program coupler_main
if (check_stocks >= 0) call coupler_flux_init_finish_stocks(Time, Atm, Land, Ice, Ocean_state, &
coupler_clocks, init_stocks=.True.)

do nc = 1, num_cpld_calls
!> ocean/slow-ice integration loop
slow_integration_loop : do nc = 1, num_cpld_calls
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This should be named something like coupled_timestep_loop because it’s the coupled timestep

@@ -1343,7 +1354,7 @@ subroutine coupler_restart(Atm, Ice, Ocean, Ocn_bc_restart, Ice_bc_restart, &
type(FmsNetcdfDomainFile_t), dimension(:), pointer, intent(inout) :: Ocn_bc_restart
type(FmsNetcdfDomainFile_t), dimension(:), pointer, intent(inout) :: Ice_bc_restart

type(FmsTime_type), intent(in) :: Time_run, Time_res, Time_start, Time_end
type(FmsTime_type), intent(in) :: Time_current, Time_restart_current, Time_start
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

These variables need to be documented

full/full_coupler_mod.F90 Show resolved Hide resolved
@mlee03
Copy link
Contributor Author

mlee03 commented Jun 21, 2024

@thomas-robinson if you do not want to include the restart changes, then this PR does not need to be merged. Refactorization is done for now.

@rem1776 rem1776 merged commit d17d136 into NOAA-GFDL:main Jun 25, 2024
2 checks passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

4 participants