Fix a bug in transverse sw_aug solver.

clawpack · Nov 21, 2014 · b69ec2b · b69ec2b
1 parent 2880335
commit b69ec2b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/rpt2_sw_aug.f90 b/src/rpt2_sw_aug.f90
@@ -34,6 +34,7 @@ subroutine rpt2(ixy,imp,maxm,meqn,mwaves,maux,mbc,mx,ql,qr,aux1,aux2,aux3,asdq,b
       integer i,m,mw,mu,mv
 
       abs_tol=tol
+      g = grav
 
       if (ixy.eq.1) then
         mu = 2