Skip to content

Commit

Permalink
(*)Add parentheses around plume_flux
Browse files Browse the repository at this point in the history
  Added parentheses around the expression adding the rejected brine plume flux
to the salinity changes related to brine rejection.  All answers are bitwise
identical in the MOM6-examples regression suite, but this could change answers
in some cases when fused-multiply-adds are enabled.
  • Loading branch information
Hallberg-NOAA committed Feb 17, 2024
1 parent 9519944 commit 5647c25
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/parameterizations/vertical/MOM_diabatic_aux.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1551,7 +1551,7 @@ subroutine applyBoundaryFluxesInOut(CS, G, GV, US, dt, fluxes, optics, nsw, h, t
endif
Ithickness = 1.0/h2d(i,k) ! Inverse of new thickness
T2d(i,k) = (hOld*T2d(i,k) + dTemp)*Ithickness
tv%S(i,j,k) = (hOld*tv%S(i,j,k) + dSalt + plume_flux)*Ithickness
tv%S(i,j,k) = (hOld*tv%S(i,j,k) + (dSalt + plume_flux))*Ithickness
elseif (h2d(i,k) < 0.0) then ! h2d==0 is a special limit that needs no extra handling
call forcing_SinglePointPrint(fluxes,G,i,j,'applyBoundaryFluxesInOut (h<0)')
write(0,*) 'applyBoundaryFluxesInOut(): lon,lat=',G%geoLonT(i,j),G%geoLatT(i,j)
Expand Down

0 comments on commit 5647c25

Please sign in to comment.