diff options
Diffstat (limited to 'm/WeylScal4.m')
-rw-r--r-- | m/WeylScal4.m | 28 |
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"}]; |