Add dt variable for use in calculations

This adds to the dx, dy, dz that are already available.
ianhinder · May 27, 2011 · 58a28be · 58a28be
1 parent f12da40
commit 58a28be
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/Tools/CodeGen/CodeGen.m b/Tools/CodeGen/CodeGen.m
@@ -463,11 +463,13 @@
     ""],
     DeclareAssignVariable[DataType[], "dx", "ToReal(CCTK_DELTA_SPACE(0))"],
     DeclareAssignVariable[DataType[], "dy", "ToReal(CCTK_DELTA_SPACE(1))"],
-    DeclareAssignVariable[DataType[], "dz", "ToReal(CCTK_DELTA_SPACE(2))"]
+    DeclareAssignVariable[DataType[], "dz", "ToReal(CCTK_DELTA_SPACE(2))"],
+    DeclareAssignVariable[DataType[], "dt", "ToReal(CCTK_DELTA_TIME)"]
   };
 
 InitialiseFDSpacingVariablesFortran[] := 
   {
+    AssignVariable["dt", "CCTK_DELTA_TIME"],
     AssignVariable["dx", "CCTK_DELTA_SPACE(1)"],
     AssignVariable["dy", "CCTK_DELTA_SPACE(2)"],
     AssignVariable["dz", "CCTK_DELTA_SPACE(3)"]

diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m
@@ -25,7 +25,7 @@
 {INV, SQR, CUB, QAD, IfThen, ToReal, sqrt, exp, pow, fmax, fmin,
  kmadd, kmsub, knmadd, knmsub, kpos, kneg, kadd, ksub, kmul, kdiv,
  kfabs, kfmax, kfmin, ksqrt, kexp, klog, kpow,
- dir1, dir2, dir3, dx, dy, dz,
+ dir1, dir2, dir3, dt, dx, dy, dz,
  khalf, kthird, ktwothird, kfourthird, keightthird};
 
 (* Helpers.m *)
@@ -38,7 +38,7 @@
 LoopPreIncludes, GroupImplementations, PartialDerivatives, NoSimplify,
 Boundary, Interior, InteriorNoSync, Where, AddToStencilWidth,
 Everywhere, normal1, normal2, normal3, INV, SQR, CUB, QAD, dot, pow,
-exp, dx, dy, dz, idx, idy, idz}
+exp, dt, dx, dy, dz, idx, idy, idz}
 
 {ConditionalOnKeyword, ConditionalOnKeywords, CollectList, Interior,
 InteriorNoSync, Boundary, BoundaryWithGhosts, Where, PreDefinitions,