diff --git a/src/parameterizations/lateral/MOM_MEKE.F90 b/src/parameterizations/lateral/MOM_MEKE.F90 index 46a3dcacad..9ac56b03c6 100644 --- a/src/parameterizations/lateral/MOM_MEKE.F90 +++ b/src/parameterizations/lateral/MOM_MEKE.F90 @@ -519,8 +519,7 @@ subroutine step_forward_MEKE(MEKE, h, SN_u, SN_v, visc, dt, G, GV, CS, hu, hv) ! Calculate viscosity for the main model to use if (CS%viscosity_coeff/=0.) then -!aja: should make range jsq:jeq, isq:ieq - do j=js-1,je+1 ; do i=is-1,ie+1 + do j=js,je ; do i=is,ie MEKE%Ku(i,j) = CS%viscosity_coeff*sqrt(2.*max(0.,MEKE%MEKE(i,j)))*LmixScale(i,j) enddo ; enddo call cpu_clock_begin(CS%id_clock_pass)