Skip to content

Commit

Permalink
revert logic wrt increments
Browse files Browse the repository at this point in the history
  • Loading branch information
pjpegion authored and kshedstrom committed Jan 28, 2022
1 parent 78b8d79 commit 15e4029
Showing 1 changed file with 1 addition and 11 deletions.
12 changes: 1 addition & 11 deletions src/ocean_data_assim/MOM_oda_incupd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -416,7 +416,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)
Expand Down Expand Up @@ -554,16 +554,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
Expand Down

0 comments on commit 15e4029

Please sign in to comment.