aboutsummaryrefslogtreecommitdiff
path: root/m/WeylScal4.m
diff options
context:
space:
mode:
authorhinder <hinder@4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843>2010-09-13 11:16:27 +0000
committerhinder <hinder@4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843>2010-09-13 11:16:27 +0000
commit279e8c54fa0e13c5f460739aa723bb26e1461b74 (patch)
treecfd7f1d8bcbec8da774373b0e78a752e579fd2b8 /m/WeylScal4.m
parent653514294786522d16e9a098e5a31b9d968772db (diff)
Schedule calculation automatically including boundary conditions
Newer versions of Kranc default to scheduling calculations in MoL_PseudoEvolution and applying the boundary conditions if no Schedule string is supplied. Here WeylScal4 is updated to use this feature, which removes the need for manual patching. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/WeylScal4/trunk@60 4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843
Diffstat (limited to 'm/WeylScal4.m')
-rw-r--r--m/WeylScal4.m28
1 files changed, 2 insertions, 26 deletions
diff --git a/m/WeylScal4.m b/m/WeylScal4.m
index 4c373ec..ecf62db 100644
--- a/m/WeylScal4.m
+++ b/m/WeylScal4.m
@@ -124,7 +124,6 @@ realParameters = {{Name -> offset, Default -> 10^(-15)},xorig,yorig,zorig};
PsisCalc[fdOrder_, PD_] :=
{
Name -> "psis_calc_" <> fdOrder,
- Schedule -> {"in WeylScal4_Calculate as calc_np"},
Where -> Interior,
ConditionalOnKeyword -> {"fd_order", fdOrder},
Shorthands -> shorthands,
@@ -270,28 +269,6 @@ PsisCalc[fdOrder_, PD_] :=
}
};
-(* Dummy calculation routine to fool Kranc into thinking that the Weyl scalars
- are evolved quantities. This way we get code to register boundary conditions.
- Unfortunately it also registers with MoL so we have to remove that code by hand.
-*)
-DummyCalc :=
-{
- Name -> "dummycalc",
- Schedule -> {"in Nowhere_Nevertoberun"},
- Equations ->
- {
- dot[Psi4r] -> 0,
- dot[Psi4i] -> 0 (*,
- dot[Psi3r] -> 0,
- dot[Psi3i] -> 0,
- dot[Psi2r] -> 0,
- dot[Psi2i] -> 0,
- dot[Psi1r] -> 0,
- dot[Psi1i] -> 0,
- dot[Psi0r] -> 0,
- dot[Psi0i] -> 0 *)
- }
-}
(****************************************************************************
Construct the thorn
@@ -312,8 +289,7 @@ keywordParameters =
calculations =
{
PsisCalc["2nd", PDstandard2nd],
- PsisCalc["4th", PDstandard4th],
- DummyCalc
+ PsisCalc["4th", PDstandard4th]
};
CreateKrancThornTT[groups, ".", "WeylScal4",
@@ -322,4 +298,4 @@ CreateKrancThornTT[groups, ".", "WeylScal4",
PartialDerivatives -> derivatives,
KeywordParameters -> keywordParameters,
RealParameters -> realParameters,
- InheritedImplementations -> {"admbase"}];
+ InheritedImplementations -> {"admbase", "methodoflines"}];