revert logic wrt increments

marshallward · Jul 28, 2021 · 1b4273d · 1b4273d
1 parent 5b2040e
commit 1b4273d
Showing 1 changed file with 1 addition and 11 deletions.
diff --git a/src/ocean_data_assim/MOM_oda_incupd.F90 b/src/ocean_data_assim/MOM_oda_incupd.F90
@@ -450,7 +450,7 @@ subroutine calc_oda_increments(h, tv, u, v, G, GV, US, CS)
         enddo
      endif
   enddo; enddo
-
+   
   ! remap u to h_obs to get increment
   if (CS%uv_inc) then
      call pass_var(h, G%Domain)
@@ -588,16 +588,6 @@ 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