Skip to content

Commit

Permalink
update analysis time after call to oda , consistent with SPEAR config…
Browse files Browse the repository at this point in the history
…urations
  • Loading branch information
MJHarrison-GFDL committed Jan 15, 2021
1 parent e68d31a commit 6b24190
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/core/MOM.F90
Original file line number Diff line number Diff line change
Expand Up @@ -880,12 +880,12 @@ subroutine step_MOM(forces_in, fluxes_in, sfc_state, Time_start, time_int_in, CS
enddo ; enddo ; endif

if (CS%ensemble_ocean) then
! update the time for the next analysis step if needed
call set_analysis_time(CS%Time,CS%odaCS)
! store ensemble vector in odaCS
call set_prior_tracer(CS%Time, G, GV, CS%h, CS%tv, CS%odaCS)
! call DA interface
call oda(CS%Time,CS%odaCS)
! update the time for the next analysis step if needed
call set_analysis_time(CS%Time,CS%odaCS)
endif

if (showCallTree) call callTree_waypoint("calling extract_surface_state (step_MOM)")
Expand Down

0 comments on commit 6b24190

Please sign in to comment.