diff options
author | Peter Diener <diener@linux-hn3d.site> | 2009-11-13 16:49:01 -0600 |
---|---|---|
committer | Peter Diener <diener@linux-hn3d.site> | 2009-11-13 16:49:01 -0600 |
commit | 87fa6dcf3ff19d937313d20cca8f9e2bca1d4aec (patch) | |
tree | bd52d9c059ce96c6fc2fe8c3250e07b9a6e3c73b /m | |
parent | 1b38f77d150fbb55cef32fa3b8ac6da3015403d7 (diff) |
Merge with Erik's latest changes.
Signed-off-by: Peter Diener <diener@linux-hn3d.site>
Diffstat (limited to 'm')
-rw-r--r-- | m/McLachlan_BSSN.m | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/m/McLachlan_BSSN.m b/m/McLachlan_BSSN.m index 388aa51..042f010 100644 --- a/m/McLachlan_BSSN.m +++ b/m/McLachlan_BSSN.m @@ -17,7 +17,7 @@ prefix = "ML_"; suffix = If [useGlobalDerivs, "_MP", ""] <> If [derivOrder!=4, "_O" <> ToString[derivOrder], ""] <> - If [evolutionTimelevels!=3, "_TL" <> ToString[evolutionTimelevels], ""] <> + (* If [evolutionTimelevels!=3, "_TL" <> ToString[evolutionTimelevels], ""] <> *) If [addMatter==1, "_M", ""]; BSSN = prefix <> "BSSN" <> suffix; @@ -704,9 +704,9 @@ enforceCalc = trAt -> gtu[ua,ub] At[la,lb], - At[la,lb] -> At[la,lb] - (1/3) gt[la,lb] trAt + At[la,lb] -> At[la,lb] - (1/3) gt[la,lb] trAt, - (* alpha -> Max[alpha, 10^(-10)] *) + alpha -> Max[alpha, MinimumLapse] } }; @@ -1004,6 +1004,11 @@ realParameters = Name -> ShiftAdvectionCoeff, Description -> "Factor in front of the shift advection terms in gamma driver", Default -> 1 + }, + { + Name -> MinimumLapse, + Description -> "Minimum value of the lapse function", + Default -> -1 } }; |