diff options
author | schnetter <schnetter@850bcc8b-0e4f-0410-8c26-8d28fbf1eda9> | 2004-12-29 22:46:54 +0000 |
---|---|---|
committer | schnetter <schnetter@850bcc8b-0e4f-0410-8c26-8d28fbf1eda9> | 2004-12-29 22:46:54 +0000 |
commit | 7e72d1c33bc8aeed446ce1a0247189f9e53773b9 (patch) | |
tree | babe65b90bedf4fe58cb64104f8330bbb1358b01 /src/apply_dissipation.F77 | |
parent | ee2bb42cece14c3a96f872d1644d34fb836aa999 (diff) |
Pass dt in addition to dx to the dissipating function
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Dissipation/trunk@6 850bcc8b-0e4f-0410-8c26-8d28fbf1eda9
Diffstat (limited to 'src/apply_dissipation.F77')
-rw-r--r-- | src/apply_dissipation.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/apply_dissipation.F77 b/src/apply_dissipation.F77 index 38d55f7..b5d6939 100644 --- a/src/apply_dissipation.F77 +++ b/src/apply_dissipation.F77 @@ -2,12 +2,12 @@ c $Header$ #include "cctk.h" - subroutine apply_dissipation (var, rhs, ni, nj, nk, dx, order, epsdis) + subroutine apply_dissipation (var, rhs, ni, nj, nk, dx, dt, order, epsdis) implicit none integer ni, nj, nk CCTK_REAL var(ni,nj,nk), rhs(ni,nj,nk) - CCTK_REAL dx(3) + CCTK_REAL dx(3), dt CCTK_INT order CCTK_REAL epsdis |