diff options
| author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-08-16 17:52:56 +0000 |
|---|---|---|
| committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-08-16 17:52:56 +0000 |
| commit | b1669ebc87d263dff1bb6655da154256a3dbb394 (patch) | |
| tree | 57503c997a114553afa3000e35584d6a6360d090 /src/GRHydro_EoSChangeGamma.F90 | |
| parent | 3cf0285e072b72e029662468608e6878eeb2d587 (diff) | |
some more #defines for EOS_Omni, use handle-function to get EOS_Handle from EOS_Omni
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@143 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_EoSChangeGamma.F90')
| -rw-r--r-- | src/GRHydro_EoSChangeGamma.F90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/GRHydro_EoSChangeGamma.F90 b/src/GRHydro_EoSChangeGamma.F90 index f486c79..470ea09 100644 --- a/src/GRHydro_EoSChangeGamma.F90 +++ b/src/GRHydro_EoSChangeGamma.F90 @@ -54,7 +54,9 @@ subroutine GRHydro_EoSChangeGamma(CCTK_ARGUMENTS) CCTK_REAL :: local_gamma +#if !USE_EOS_OMNI #include "EOS_Base.inc" +#endif !!$ Set up the fluid constants #if USE_EOS_OMNI @@ -135,7 +137,9 @@ end subroutine GRHydro_EoSChangeGamma subroutine GRHydro_EoSChangeK(CCTK_ARGUMENTS) +#if !USE_EOS_OMNI USE EOS_Polytrope_Scalars +#endif implicit none @@ -149,7 +153,9 @@ subroutine GRHydro_EoSChangeK(CCTK_ARGUMENTS) CCTK_REAL, dimension(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)) :: Q +#if !USE_EOS_OMNI #include "EOS_Base.inc" +#endif !!$ Set up the fluid constants #if USE_EOS_OMNI @@ -253,7 +259,9 @@ subroutine GRHydro_EoSChangeGammaK_Shibata(CCTK_ARGUMENTS) character(len=100) infoline +#if !USE_EOS_OMNI #include "EOS_Base.inc" +#endif !!$ Set up the fluid constants #if USE_EOS_OMNI |