diff options
Diffstat (limited to 'src/GRHydro_SimpleWave.F90')
| -rw-r--r-- | src/GRHydro_SimpleWave.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GRHydro_SimpleWave.F90 b/src/GRHydro_SimpleWave.F90 index 85e191a..2991ff4 100644 --- a/src/GRHydro_SimpleWave.F90 +++ b/src/GRHydro_SimpleWave.F90 @@ -66,6 +66,7 @@ subroutine GRHydro_SimpleWave(CCTK_ARGUMENTS) real*8 :: xeps(1) = 0.0d0 real*8 :: xtemp(1) = 0.0d0 real*8 :: xye(1) = 0.0d0 + real*8 :: rf_precision = 1.0d-10 ! end EOS Omni vars #endif @@ -150,7 +151,7 @@ subroutine GRHydro_SimpleWave(CCTK_ARGUMENTS) w_lorentz(i,1,1) = 1.d0 #if USE_EOS_OMNI xeps = 1.0d0 - call EOS_Omni_press(GRHydro_polytrope_handle,keytemp,n,& + call EOS_Omni_press(GRHydro_polytrope_handle,keytemp,rf_precision,n,& rho(i,1,1),xeps,xtemp,xye,press(i,1,1),keyerr,anyerr) #else press(i,1,1) = EOS_Pressure(GRHydro_polytrope_handle, rho(i,1,1), 1.0d0) |