diff options
-rw-r--r-- | Tools/CodeGen/CodeGen.m | 4 | ||||
-rw-r--r-- | Tools/CodeGen/Kranc.m | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Tools/CodeGen/CodeGen.m b/Tools/CodeGen/CodeGen.m index e5712ca..44d4262 100644 --- a/Tools/CodeGen/CodeGen.m +++ b/Tools/CodeGen/CodeGen.m @@ -463,11 +463,13 @@ InitialiseFDSpacingVariablesC[vectorise_:False] := ""], 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 index 1077305..a9c9a0d 100644 --- a/Tools/CodeGen/Kranc.m +++ b/Tools/CodeGen/Kranc.m @@ -25,7 +25,7 @@ BeginPackage["Kranc`"]; {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 @@ dummy; 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, |