[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 548)
rhaas at tapir.caltech.edu
rhaas at tapir.caltech.edu
Sat Jul 6 13:10:41 CDT 2013
User: rhaas
Date: 2013/07/06 01:10 PM
Modified:
/trunk/src/
GRHydro_PPM.F90
Log:
GRHydro: remove unreachable code
From: Christian Reisswig <reisswig at tapir.caltech.edu>
File Changes:
Directory: /trunk/src/
======================
File [modified]: GRHydro_PPM.F90
Delta lines: +0 -11
===================================================================
--- trunk/src/GRHydro_PPM.F90 2013-07-06 18:10:37 UTC (rev 547)
+++ trunk/src/GRHydro_PPM.F90 2013-07-06 18:10:41 UTC (rev 548)
@@ -315,17 +315,6 @@
if (.not.apply_enhanced_ppm) then
! Only for 1984 PPM scheme!
if (ppm_detect .ne. 0) then
-
- if (apply_enhanced_ppm) then
- ! make sure drho, d2rho and dmrho are computed everywhere!
- do i = 2, nx-1
- drho(i) = 0.5d0 * (rho(i+1) - rho(i-1))
- d2rho(i) = (rho(i+1) - 2.d0 * rho(i) + rho(i-1))
- end do
- do i = 2, nx-1
- STEEP(rho, drho, dmrho)
- end do
- endif
do i = 3, nx - 2
if ( (d2rho(i+1)*d2rho(i-1) < 0.d0).and.(abs(rho(i+1)-rho(i-1)) - &
More information about the Commits
mailing list