aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/GRHydro_Eigenproblem.F903
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GRHydro_Eigenproblem.F90 b/src/GRHydro_Eigenproblem.F90
index 4981508..90c46f8 100644
--- a/src/GRHydro_Eigenproblem.F90
+++ b/src/GRHydro_Eigenproblem.F90
@@ -618,6 +618,9 @@ subroutine eigenproblem_leftright(handle,rho,velx,vely,velz,eps,&
call EOS_Omni_cs2(handle,keytemp,GRHydro_eos_rf_prec,n,&
rho,eps,xtemp,xye,cs2,keyerr,anyerr)
+ call EOS_Omni_DPressByDEps(handle,keytemp,GRHydro_eos_rf_prec,n,&
+ rho,eps,xtemp,xye,dpdeps,keyerr,anyerr)
+
! if (cs2<0) cs2=0 ! this does not modify the roe crashing problem with shocktube
enthalpy = one + eps + press / rho