Skip to content

Commit

Permalink
Leith+E bugfix
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 committed Jan 17, 2025
1 parent ad7cf38 commit 6df6982
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 @@ -1270,6 +1270,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, G, GV, US,
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 6df6982

Please sign in to comment.