diff options
Diffstat (limited to 'src/GRHydro_SimpleWave.F90')
-rw-r--r-- | src/GRHydro_SimpleWave.F90 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/GRHydro_SimpleWave.F90 b/src/GRHydro_SimpleWave.F90 index d1f10d4..2274790 100644 --- a/src/GRHydro_SimpleWave.F90 +++ b/src/GRHydro_SimpleWave.F90 @@ -59,7 +59,6 @@ subroutine GRHydro_SimpleWave(CCTK_ARGUMENTS) #if USE_EOS_OMNI ! begin EOS Omni vars integer :: n = 1 - integer :: poly_eoskey = 0 integer :: keytemp = 0 integer :: anyerr = 0 integer :: keyerr(1) = 0 @@ -67,7 +66,6 @@ subroutine GRHydro_SimpleWave(CCTK_ARGUMENTS) real*8 :: xeps = 0.0d0 real*8 :: xtemp = 0.0d0 real*8 :: xye = 0.0d0 - poly_eoskey = GRHydro_poly_eoskey ! end EOS Omni vars #endif @@ -151,7 +149,7 @@ subroutine GRHydro_SimpleWave(CCTK_ARGUMENTS) velx(i,1,1) = 0.d0 w_lorentz(i,1,1) = 1.d0 #if USE_EOS_OMNI - call EOS_Omni_press(poly_eoskey,keytemp,n,& + call EOS_Omni_press(GRHydro_polytrope_handle,keytemp,n,& rho(i,1,1),1.0d0,xtemp,xye,press(i,1,1),keyerr,anyerr) #else press(i,1,1) = EOS_Pressure(GRHydro_polytrope_handle, rho(i,1,1), 1.0d0) |