[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 129)

[cott at tapir.caltech.edu]

User: cott
Date: 2010/06/30 01:49 AM

Modified:
 /trunk/src/
  GRHydro_PPM.F90

Log:
 * remove unused EOS code from GRHydro_PPM.F90

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_PPM.F90
Delta lines: +0 -18
===================================================================
--- trunk/src/GRHydro_PPM.F90	2010-06-26 13:47:35 UTC (rev 128)
+++ trunk/src/GRHydro_PPM.F90	2010-06-30 06:49:09 UTC (rev 129)
@@ -64,11 +64,6 @@
 
   DECLARE_CCTK_PARAMETERS
 
-#ifdef _EOS_BASE_INC_
-#undef _EOS_BASE_INC_
-#endif
-#include "EOS_Base.inc"
-
   CCTK_INT :: handle,poly,nx
   CCTK_REAL :: dx
   CCTK_REAL, dimension(nx) :: rho,velx,vely,velz,eps
@@ -109,19 +104,6 @@
 
 trivial_rp = .true.
 
-!!$  Loop to set the pressure and eps
-!!$  poly=0
-!!$  if (poly .eq. 0) then
-!!$    do i = 1, nx
-!!$      press(i) = EOS_Pressure(handle, rho(i), eps(i))
-!!$    end do
-!!$  else
-!!$    do i = 1, nx
-!!$      press(i) = EOS_Pressure(handle, rho(i), eps(i))
-!!$      eps(i) = EOS_SpecificIntEnergy(handle, rho(i), press(i))
-!!$    end do
-!!$  end if
-
 !!$  Average slopes delta_m(a). See (1.7) of Colella and Woodward, p.178
 !!$  This is the expression for an even grid.