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.