User: rhaas Date: 2013/07/06 01:10 PM

Modified: /trunk/src/ GRHydro_PPM.F90

Log: GRHydro: remove unreachable code

From: Christian Reisswig reisswig@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)) - &