diff options
Diffstat (limited to 'src/Dissipation_8_4.F90')
-rw-r--r-- | src/Dissipation_8_4.F90 | 3 |
1 files changed, 0 insertions, 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 |