diff options
| author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-07-02 21:57:07 +0000 |
|---|---|---|
| committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-07-02 21:57:07 +0000 |
| commit | 9c059ac733ef25e2e42bfd452f351dc85c1f1020 (patch) | |
| tree | f62e3b1b52ef1c5c028d9acda709e54b5745a112 /src/GRHydro_Marquina.F90 | |
| parent | 857c0dceb46cf89d4e47bc6630d40ccd862c186a (diff) | |
* 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
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 |