diff options
Diffstat (limited to 'src/EOS_Omni_Startup.F90')
-rw-r--r-- | src/EOS_Omni_Startup.F90 | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/EOS_Omni_Startup.F90 b/src/EOS_Omni_Startup.F90 index e1fc6a3..2995393 100644 --- a/src/EOS_Omni_Startup.F90 +++ b/src/EOS_Omni_Startup.F90 @@ -11,13 +11,7 @@ subroutine EOS_Omni_Startup(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS - poly_k_cgs = poly_k * rho_gf**poly_gamma_ini / press_gf - - gl_k_cgs = gl_k * rho_gf**poly_gamma_ini / press_gf - - hybrid_k1_cgs = hybrid_k1 * rho_gf**poly_gamma_ini / press_gf - - hybrid_k2_cgs = hybrid_k1_cgs * & - (hybrid_rho_nuc * inv_rho_gf)**(hybrid_gamma1-hybrid_gamma2) + hybrid_k2 = hybrid_k1 * & + hybrid_rho_nuc**(hybrid_gamma1-hybrid_gamma2) end subroutine EOS_Omni_Startup |