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

2 files changed, 6 insertions, 4 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
       
diff --git a/src/dissipation.c b/src/dissipation.c
index fd59e31..44a8eb2 100644
--- a/src/dissipation.c
+++ b/src/dissipation.c
@@ -14,6 +14,7 @@ CCTK_FNAME(apply_dissipation) (CCTK_REAL const * const var,
                                int       const * const nj,
                                int       const * const nk,
                                CCTK_REAL const * const dx,
+                               CCTK_REAL const * const dt,
                                CCTK_INT  const * const order,
                                CCTK_REAL const * const epsdis);
 
@@ -40,7 +41,7 @@ apply (int const varindex, char const * const optstring, void * const arg)
   cGroup vardata, rhsdata;
   CCTK_REAL const * varptr;
   CCTK_REAL       * rhsptr;
-  CCTK_REAL dx[3];
+  CCTK_REAL dt, dx[3];
   int n;
   int d;
   int ierr;
@@ -53,6 +54,7 @@ apply (int const varindex, char const * const optstring, void * const arg)
     }
   }
   
+  dt = CCTK_DELTA_TIME;
   for (d=0; d<3; ++d) {
     dx[d] = CCTK_DELTA_SPACE(d);
   }
@@ -104,5 +106,5 @@ apply (int const varindex, char const * const optstring, void * const arg)
   
   CCTK_FNAME(apply_dissipation)
     (varptr, rhsptr, &cctk_lsh[0], &cctk_lsh[1], &cctk_lsh[2],
-     dx, &order, &epsdis);
+     dx, &dt, &order, &epsdis);
 }