diff --git a/WENO.F90 b/WENO.F90 index 1f66c0bab42f42052e0cf83438613218b830bd31..f0009abfa25c239c52b6c67ccef2bcc6befc7e85 100644 --- a/WENO.F90 +++ b/WENO.F90 @@ -449,7 +449,9 @@ subroutine lax_wavespeeds(nvars, lambda_pointwise, lambda_roe, wavespeeds) integer v integer k - kappa = 1.1d0 + !kappa = 1.1d0 + kappa = 11 + kappa = kappa/10 do v=1,nvars wavespeeds(v) = abs(lambda_roe(v))