diff options
| author | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2010-08-16 18:24:10 +0000 |
|---|---|---|
| committer | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2010-08-16 18:24:10 +0000 |
| commit | 710501d36d68b194cb4273c8cd46e20b0108b78c (patch) | |
| tree | 570f59483cb7f52af404654f678c426733fcaaca /src/GRHydro_C2P2C.F90 | |
| parent | c9f3deaaf486dcc02df03dd7b3e047524f7f5ca9 (diff) | |
use eos handles
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@110 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'src/GRHydro_C2P2C.F90')
| -rw-r--r-- | src/GRHydro_C2P2C.F90 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/GRHydro_C2P2C.F90 b/src/GRHydro_C2P2C.F90 index a2523a8..1ce1347 100644 --- a/src/GRHydro_C2P2C.F90 +++ b/src/GRHydro_C2P2C.F90 @@ -55,7 +55,6 @@ subroutine c2p2c(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 @@ -63,7 +62,6 @@ subroutine c2p2c(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 @@ -108,10 +106,10 @@ subroutine c2p2c(CCTK_ARGUMENTS) GRHydro_rho_min = 1.e-10 #if USE_EOS_OMNI - call EOS_Omni_press(poly_eoskey,keytemp,n,& + call EOS_Omni_press(GRHydro_eos_handle,keytemp,n,& GRHydro_rho_min,1.0d0,xtemp,xye,pmin,keyerr,anyerr) - call EOS_Omni_EpsFromPress(poly_eoskey,keytemp,n,& + call EOS_Omni_EpsFromPress(GRHydro_eos_handle,keytemp,n,& GRHydro_rho_min,xeps,xtemp,xye,pmin,epsmin,keyerr,anyerr) #else pmin = EOS_Pressure(GRHydro_eos_handle, GRHydro_rho_min, 1.0d0) |