diff options
| -rw-r--r-- | src/apply_dissipation.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/apply_dissipation.F77 b/src/apply_dissipation.F77 index b5d6939..74cf168 100644 --- a/src/apply_dissipation.F77 +++ b/src/apply_dissipation.F77 @@ -20,9 +20,9 @@ c $Header$ do i = 2, ni-1 rhs(i,j,k) = rhs(i,j,k) + epsdis - $ * (+ (var(i-1,j,k) - 2*var(i,j,k) - var(i+1,j,k)) / dx(1) - $ + (var(i,j-1,k) - 2*var(i,j,k) - var(i,j+1,k)) / dx(2) - $ + (var(i,j,k-1) - 2*var(i,j,k) - var(i,j,k+1)) / dx(3)) + $ * (+ (var(i-1,j,k) - 2*var(i,j,k) + var(i+1,j,k)) / dx(1) + $ + (var(i,j-1,k) - 2*var(i,j,k) + var(i,j+1,k)) / dx(2) + $ + (var(i,j,k-1) - 2*var(i,j,k) + var(i,j,k+1)) / dx(3)) end do end do |