diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:41 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:41 +0000 |
commit | 7d4d21bdffc0ad766bd3b37a3abb672fc47fc797 (patch) | |
tree | 007f3576c92a0973136419af53f9409ac075ee48 | |
parent | 31f6bcaeb06c94ae34c307158d15de09f90e5215 (diff) |
GRHydro: remove unreachable code
From: Christian Reisswig <reisswig@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@548 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_PPM.F90 | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/GRHydro_PPM.F90 b/src/GRHydro_PPM.F90 index cbe31a8..465e1f9 100644 --- a/src/GRHydro_PPM.F90 +++ b/src/GRHydro_PPM.F90 @@ -315,17 +315,6 @@ trivial_rp = .true. 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)) - & |