diff options
-rw-r--r-- | src/Dissipation_8_4.F90 | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Dissipation_8_4.F90 b/src/Dissipation_8_4.F90 index b622736..bc225af 100644 --- a/src/Dissipation_8_4.F90 +++ b/src/Dissipation_8_4.F90 @@ -16,7 +16,6 @@ subroutine dissipation_8_4 (var, ni, nj, nk, bb, gsize, delta, epsdis, rhs) CCTK_REAL :: zero = 0.0 integer, parameter :: wp = kind(zero) - integer :: i, j, k CCTK_REAL, dimension(12,8) :: a CCTK_REAL :: idel |