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.