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

compilation bugfix for nuopc cap #347

Merged
merged 1 commit into from
May 24, 2024
Merged

compilation bugfix for nuopc cap #347

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
6 changes: 3 additions & 3 deletions drivers/nuopc/ocn_comp_nuopc.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,9 +38,8 @@ module ocn_comp_nuopc
use nuopc_shr_methods, only : ChkErr, set_component_logging, &
get_component_instance, state_setscalar, &
alarmInit
use shr_file_mod, only: shr_file_getUnit, shr_file_getLogUnit, &
shr_file_setLogUnit
use shr_cal_mod, only : shr_cal_ymd2date
use shr_file_mod, only: shr_file_getUnit, shr_file_getLogUnit, shr_file_setLogUnit
use mod_nuopc_methods, only: fldlist_type, fldsMax, tlast_coupled, &
blom_logwrite, blom_getgindex, blom_checkmesh, &
blom_setareacor, blom_getglobdim, &
Expand All @@ -53,6 +52,7 @@ module ocn_comp_nuopc
use mod_time, only: blom_time
use mod_forcing, only : srxday, trxday
use mod_constants, only : epsilt
use mod_restart, only : restart_write
use ocn_stream_sss, only : ocn_stream_sss_init, ocn_stream_sss_interp
use ocn_stream_sst, only : ocn_stream_sst_init, ocn_stream_sst_interp

Expand Down Expand Up @@ -881,7 +881,7 @@ subroutine ModelAdvance(gcomp, rc)
if (ChkErr(rc, __LINE__, u_FILE_u)) return

! Write BLOM restart files.
call restart_wt
call restart_write()

endif

Expand Down