Skip to content

Commit

Permalink
Leith+E bugfix (#334)
Browse files Browse the repository at this point in the history
Gustavo Marques noticed that with `LEITH_CK = 0.0` we were still
getting negative Laplacian viscosity coefficients southwest of
land. There's an if statement designed to limit the magnitude
of the backscatter so that it doesn't overcome the biharmonic
damping. When c_K = 0.0 *and* when smoothed vorticity at the
q point is zero, this if statement ironically causes the
backscatter coefficient to equal its largest possible value.
Smoothed vorticity at the q point is always zero on land, so
cells whose northwest corner are on land always have the max
backscatter coefficient (which then gets smoothed into the
interior). This commit zeros out the backscatter in those
cells.
  • Loading branch information
iangrooms authored Jan 24, 2025
1 parent 8b6767f commit 138a66e
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/parameterizations/lateral/MOM_hor_visc.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1339,6 +1339,7 @@ subroutine horizontal_viscosity(u, v, h, uh, vh, diffu, diffv, MEKE, VarMix, G,
else
m_leithy(i,j) = CS%m_leithy_max(i,j)
endif
m_leithy(i,j) = G%mask2dBu(i,j) * m_leithy(i,j)
endif
enddo ; enddo

Expand Down

0 comments on commit 138a66e

Please sign in to comment.