Skip to content

Commit

Permalink
Fixed a rescaling factor in entrainment_diffusive
Browse files Browse the repository at this point in the history
  Corrected a dimensional rescaling factor in entrainment_diffusive, which would
only impact buoyancy forced cases without temperature and salinity as state
variables.  All answers in the MOM6-examples test cases are bitwise identical.
  • Loading branch information
Hallberg-NOAA committed Oct 8, 2019
1 parent e55ad23 commit 55a0484
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/parameterizations/vertical/MOM_entrain_diffusive.F90
Original file line number Diff line number Diff line change
Expand Up @@ -382,7 +382,7 @@ subroutine entrainment_diffusive(h, tv, fluxes, dt, G, GV, US, CS, ea, eb, &
htot(i) = h(i,j,1) - Angstrom
enddo
if (associated(fluxes%buoy)) then ; do i=is,ie
maxF(i,1) = (dt*fluxes%buoy(i,j)) / (GV%g_prime(2)*US%m_to_Z)
maxF(i,1) = GV%Z_to_H * (dt*fluxes%buoy(i,j)) / GV%g_prime(2)
enddo ; endif
endif

Expand Down

0 comments on commit 55a0484

Please sign in to comment.