Skip to content

Commit

Permalink
fix ocean lag logic for restart runs
Browse files Browse the repository at this point in the history
  • Loading branch information
alperaltuntas committed May 15, 2019
1 parent 0ae751e commit b2ff365
Showing 1 changed file with 4 additions and 8 deletions.
12 changes: 4 additions & 8 deletions config_src/nuopc_driver/mom_cap.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1847,8 +1847,11 @@ subroutine ModelAdvance(gcomp, rc)
file=__FILE__)) &
return ! bail out

Time_step_coupled = esmf2fms_time(timeStep)
Time = esmf2fms_time(currTime)

!---------------
! Apply ocean lag at startup:
! Apply ocean lag for startup runs:
!---------------

if (cesm_coupled) then
Expand Down Expand Up @@ -1881,15 +1884,8 @@ subroutine ModelAdvance(gcomp, rc)
file=__FILE__)) &
return ! bail out
Time_step_coupled = 2 * esmf2fms_time(timeStep)
else
Time_step_coupled = esmf2fms_time(timeStep)
Time = esmf2fms_time(currTime)
endif
endif

else ! non-cesm runs:
Time_step_coupled = esmf2fms_time(timeStep)
Time = esmf2fms_time(currTime)
endif


Expand Down

0 comments on commit b2ff365

Please sign in to comment.