diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2010-12-06 15:41:19 -0600 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2010-12-06 15:41:19 -0600 |
commit | 8dc516f688364ead3bcf42a2bd72b9a1ce690ac1 (patch) | |
tree | afd5422b0a5c4f75d814d25d24d36821502eb2ca /m | |
parent | 114be04441e1362c4d4577f7d70f46d5f062a920 (diff) |
Do not apply constraint boundaries manually; Kranc does this now automatically.
Diffstat (limited to 'm')
-rw-r--r-- | m/McLachlan_BSSN.m | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/m/McLachlan_BSSN.m b/m/McLachlan_BSSN.m index 2a09b03..0550d4d 100644 --- a/m/McLachlan_BSSN.m +++ b/m/McLachlan_BSSN.m @@ -906,7 +906,7 @@ boundaryCalc = constraintsCalc = { Name -> BSSN <> "_constraints", - Schedule -> {"IN " <> BSSN <> "_constraintsCalcGroup"}, + Schedule -> Automatic, Where -> Interior, Shorthands -> {detgt, ddetgt[la], gtu[ua,ub], Gt[ua,lb,lc], e4phi, em4phi, g[la,lb], detg, gu[ua,ub], ddetg[la], G[ua,lb,lc], @@ -1040,23 +1040,6 @@ constraintsCalc2 = PartialCalculation[constraintsCalc, "2", cA }]; - - -constraintsBoundaryCalc = -{ - Name -> BSSN <> "_constraints_boundary", - Schedule -> {"IN " <> BSSN <> "_constraintsCalcGroup AFTER " <> BSSN <> "_constraints"}, - Where -> BoundaryWithGhosts, - Equations -> - { - H -> 0, - M[la] -> 0, - cS -> 0, - cXt[ua] -> 0, - cA -> 0 - } -}; - (******************************************************************************) (* Implementations *) (******************************************************************************) @@ -1255,8 +1238,7 @@ calculations = convertToADMBaseDtLapseShiftBoundaryCalc, convertToADMBaseFakeDtLapseShiftCalc, (* constraintsCalc, *) - constraintsCalc1, constraintsCalc2, - constraintsBoundaryCalc + constraintsCalc1, constraintsCalc2 }; CreateKrancThornTT [groups, ".", BSSN, |