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

1 files changed, 4 insertions, 2 deletions

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);
 }