diff --git a/src/core_atmosphere/dynamics/mpas_atm_dissipation_models.F b/src/core_atmosphere/dynamics/mpas_atm_dissipation_models.F index 8c386b1d8e..312e65a585 100644 --- a/src/core_atmosphere/dynamics/mpas_atm_dissipation_models.F +++ b/src/core_atmosphere/dynamics/mpas_atm_dissipation_models.F @@ -407,8 +407,10 @@ subroutine les_models( les_model_opt, les_surface_opt, dynamics_substep, eddy_vi ! eddy viscocities set here if we are running the 1.5 order prognostic tke scheme eddy_visc_h = c_k*l_horizontal*sqrt(scalars(index_tke,k,iCell)) eddy_visc_h = min(eddy_visc_h,(0.01*config_len_disp**2) * invDt) + eddy_visc_h = max(0.01, eddy_visc_h) eddy_visc_v = c_k*l_vertical*sqrt(scalars(index_tke,k,iCell)) eddy_visc_v = min(eddy_visc_v,(0.01*delta_z**2) * invDt) + eddy_visc_v = max(0.01, eddy_visc_v) eddy_visc_horz(k,iCell) = eddy_visc_h eddy_visc_vert(k,iCell) = eddy_visc_v