Skip to content

Commit

Permalink
Change limiter in the GME_coeff to 1.0e5
Browse files Browse the repository at this point in the history
  • Loading branch information
gustavo-marques committed Feb 21, 2019
1 parent b97a787 commit a160252
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/parameterizations/lateral/MOM_hor_visc.F90
Original file line number Diff line number Diff line change
Expand Up @@ -788,7 +788,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, Barotropic,
epsilon)

! simple way to limit this coeff
GME_coeff = MIN(GME_coeff,1.0E6)
GME_coeff = MIN(GME_coeff,1.0E5)

if (CS%id_GME_coeff_h>0) GME_coeff_h(i,j,k) = GME_coeff

Expand Down Expand Up @@ -982,7 +982,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, Barotropic,
(0.25*(dvdy_bt(i,j)+dvdy_bt(i+1,j)+dvdy_bt(i,j+1)+dvdy_bt(i+1,j+1)) )**2 + &
epsilon)
! simple way to limit this coeff
GME_coeff = MIN(GME_coeff,1.0E6)
GME_coeff = MIN(GME_coeff,1.0E5)

if (CS%id_GME_coeff_q>0) GME_coeff_q(I,J,k) = GME_coeff
str_xy_GME(I,J) = GME_coeff * sh_xy_bt(I,J)
Expand Down

0 comments on commit a160252

Please sign in to comment.