From eb96634bc3a2da98ecbdfd7d9dab4e7deefe73e1 Mon Sep 17 00:00:00 2001
From: "Timothy A. Smith" <tasmith4@illinois.edu>
Date: Wed, 29 May 2019 17:52:40 -0500
Subject: [PATCH] Fix bug in Roe eigensystem computation

---
 WENO.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/WENO.F90 b/WENO.F90
index e8618ef..0299251 100644
--- a/WENO.F90
+++ b/WENO.F90
@@ -350,7 +350,7 @@ subroutine roe_eigensystem(nvars, ndim, d, states, metrics_frozen, R, R_inv, lam
   c = sqrt((1.4 - 1.0)*(H - 0.5*q))
 
   b1 = (1.4 - 1.0)/(c**2)
-  b2 = 1.0 + b1*q**2 - b1*H
+  b2 = 1.0 + b1*q - b1*H
 
   u_tilde(1) = 0.0
   do i=1,ndim
-- 
GitLab