diff options
Diffstat (limited to 'src/GRHydro_Marquina.F90')
-rw-r--r-- | src/GRHydro_Marquina.F90 | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/GRHydro_Marquina.F90 b/src/GRHydro_Marquina.F90 index a4196cf..144049f 100644 --- a/src/GRHydro_Marquina.F90 +++ b/src/GRHydro_Marquina.F90 @@ -37,10 +37,6 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) implicit none -#ifdef _EOS_BASE_INC_ -#undef _EOS_BASE_INC_ -#endif -#include "EOS_Base.inc" DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS @@ -220,7 +216,6 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) endif !!$ END: Check for NaN value (1st check) -!!$ pressp = EOS_Pressure(GRHydro_eos_handle,primp(1),primp(5)) !!$right state @@ -244,7 +239,6 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) endif !!$ END: Check for NaN value (2nd check) -!!$ pressm_i = EOS_Pressure(GRHydro_eos_handle,primm_i(1),primm_i(5)) !!$eigenvalues and right eigenvectors @@ -353,7 +347,7 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) syflux(i,j,k) = f_marquina(3) szflux(i,j,k) = f_marquina(4) tauflux(i,j,k) = f_marquina(5) - + enddo enddo enddo |