Skip to content

Commit ba37f94

Browse files
committed
Merge remote-tracking branch 'FSU/main' into feature/update-to-main-20220317
this is corresponding to MOM6 main 20220317 commit (hash # 399a7db)
2 parents 44313d9 + 399a7db commit ba37f94

1 file changed

Lines changed: 3 additions & 0 deletions

File tree

src/initialization/MOM_state_initialization.F90

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -29,6 +29,7 @@ module MOM_state_initialization
2929
!use MOM_open_boundary, only : set_3D_OBC_data
3030
use MOM_grid_initialize, only : initialize_masks, set_grid_metrics
3131
use MOM_restart, only : restore_state, is_new_run, MOM_restart_CS
32+
use MOM_restart, only : restart_registry_lock
3233
use MOM_sponge, only : set_up_sponge_field, set_up_sponge_ML_density
3334
use MOM_sponge, only : initialize_sponge, sponge_CS
3435
use MOM_ALE_sponge, only : set_up_ALE_sponge_field, set_up_ALE_sponge_vel_field
@@ -515,7 +516,9 @@ subroutine MOM_initialize_state(u, v, h, tv, Time, G, GV, US, PF, dirs, &
515516
"If true, oda incremental updates will be applied "//&
516517
"everywhere in the domain.", default=.false.)
517518
if (use_oda_incupd) then
519+
call restart_registry_lock(restart_CS, unlocked=.true.)
518520
call initialize_oda_incupd_fixed(G, GV, US, oda_incupd_CSp, restart_CS)
521+
call restart_registry_lock(restart_CS)
519522
endif
520523

521524
! This is the end of the block of code that might have initialized fields

0 commit comments

Comments
 (0)