From 9c059ac733ef25e2e42bfd452f351dc85c1f1020 Mon Sep 17 00:00:00 2001 From: cott Date: Fri, 2 Jul 2010 21:57:07 +0000 Subject: * Changes to incorporate the EOS_Omni interace. GRHydro has now 3 EOS interfaces. Rejoice! To get the new one compiled in, use -DUSE_EOS_OMNI in CPPFLAGS and FPPFLAGS. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@132 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/GRHydro_Marquina.F90 | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/GRHydro_Marquina.F90') 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 -- cgit v1.2.3