From 2fe9ef9d3559564e4444f259d64ca574efba875b Mon Sep 17 00:00:00 2001 From: "Timothy A. Smith" Date: Sat, 3 Aug 2019 00:35:52 -0500 Subject: [PATCH] add hack that passes test -- double precision constants seem to not work as expected --- WENO.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/WENO.F90 b/WENO.F90 index 1f66c0b..f0009ab 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)) -- GitLab