From 64e83b7aa1e00e989380a76b68a5aea6fa0a0e4b Mon Sep 17 00:00:00 2001 From: pjpegion Date: Tue, 27 Jul 2021 17:08:13 +0000 Subject: [PATCH] add logic to remove incrments from restart if outside IAU window --- src/ocean_data_assim/MOM_oda_incupd.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/ocean_data_assim/MOM_oda_incupd.F90 b/src/ocean_data_assim/MOM_oda_incupd.F90 index 5f38fa15d0..33e1c0844f 100644 --- a/src/ocean_data_assim/MOM_oda_incupd.F90 +++ b/src/ocean_data_assim/MOM_oda_incupd.F90 @@ -554,6 +554,16 @@ subroutine apply_oda_incupd(h, tv, u, v, dt, G, GV, US, CS) if (CS%ncount >= CS%nstep_incupd) then if (is_root_pe()) call MOM_error(NOTE,"ended updating fields with increments. ") return + if (CS%ncount == CS%nstep_incupd) then + call register_restart_field_as_obsolete("oda_incupd_ncount", "none", CS) + call register_restart_field_as_obsolete("T_inc", "none", CS) + call register_restart_field_as_obsolete("S_inc", "none", CS) + call register_restart_field_as_obsolete("h_obs", "none", CS) + if (CS%uv_inc) then + call register_restart_field_as_obsolete("u_inc", "none", CS) + call register_restart_field_as_obsolete("v_inc", "none", CS) + endif + endif endif !ncount>CS%nstep_incupd ! update counter