From 2a09f83a6ee7e6377f9329fef83b6abcd693b715 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 29 Nov 2005 13:27:25 +0000 Subject: Remove commented lines. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@43 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Dissipation_8_4.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Dissipation_8_4.F90 b/src/Dissipation_8_4.F90 index 351541e..b622736 100644 --- a/src/Dissipation_8_4.F90 +++ b/src/Dissipation_8_4.F90 @@ -24,7 +24,6 @@ subroutine dissipation_8_4 (var, ni, nj, nk, bb, gsize, delta, epsdis, rhs) call set_coeff ( a ) -! idel = epsdis / ( 256 * delta(1) ) idel = epsdis / 256 if ( bb(1) == 0 ) then @@ -136,7 +135,6 @@ subroutine dissipation_8_4 (var, ni, nj, nk, bb, gsize, delta, epsdis, rhs) call set_coeff ( a ) -! idel = epsdis / ( 256 * delta(2) ) idel = epsdis / 256 if ( bb(3) == 0 ) then @@ -248,7 +246,6 @@ subroutine dissipation_8_4 (var, ni, nj, nk, bb, gsize, delta, epsdis, rhs) call set_coeff ( a ) -! idel = epsdis / ( 256 * delta(3) ) idel = epsdis / 256 if ( bb(5) == 0 ) then -- cgit v1.2.3