Do not generate *_O* and _MP thorns

3 files changed, 38 insertions, 31 deletions

diff --git a/m/McLachlan_ADMConstraints.m b/m/McLachlan_ADMConstraints.m
index eaddae6..b096a69 100644
--- a/m/McLachlan_ADMConstraints.m
+++ b/m/McLachlan_ADMConstraints.m
@@ -191,7 +191,7 @@ CreateKrancThornTT [groups, ".", ADMConstraints,
   DeclaredGroups -> declaredGroupNames,
   PartialDerivatives -> derivatives,
   EvolutionTimelevels -> evolutionTimelevels,
-  UseJacobian -> useJacobian,
+  UseJacobian -> True,
   UseLoopControl -> True,
   InheritedImplementations -> inheritedImplementations
 ];
@@ -204,13 +204,15 @@ CreateKrancThornTT [groups, ".", ADMConstraints,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+*)
 
-createCode[2, False, 3, 1];
+(* createCode[2, False, 3, 1]; *)
 createCode[4, False, 3, 1];
-createCode[4, True,  3, 1];
+(* createCode[4, True,  3, 1]; *)
diff --git a/m/McLachlan_ADMQuantities.m b/m/McLachlan_ADMQuantities.m
index 2f78d56..e76b63d 100644
--- a/m/McLachlan_ADMQuantities.m
+++ b/m/McLachlan_ADMQuantities.m
@@ -308,7 +308,7 @@ CreateKrancThornTT [groups, ".", ADMQuantities,
   DeclaredGroups -> declaredGroupNames,
   PartialDerivatives -> derivatives,
   EvolutionTimelevels -> evolutionTimelevels,
-  UseJacobian -> useJacobian,
+  UseJacobian -> True,
   UseLoopControl -> True,
   InheritedImplementations -> inheritedImplementations,
   IntParameters -> intParameters
@@ -322,13 +322,15 @@ CreateKrancThornTT [groups, ".", ADMQuantities,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+*)
 
-createCode[2, False, 3, 1];
+(* createCode[2, False, 3, 1]; *)
 createCode[4, False, 3, 1];
-createCode[4, True,  3, 1];
+(* createCode[4, True,  3, 1]; *)
diff --git a/m/McLachlan_BSSN.m b/m/McLachlan_BSSN.m
index fa8e79c..1ac8816 100644
--- a/m/McLachlan_BSSN.m
+++ b/m/McLachlan_BSSN.m
@@ -1418,19 +1418,22 @@ CreateKrancThornTT [groups, ".", thorn,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* split upwind derivatives: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
-
-createCode[2, False, True , 3, 1, "BSSN"];
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - split upwind derivatives: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+   - thorn base name
+*)
+
+(* createCode[2, False, True , 3, 1, "BSSN"]; *)
 createCode[4, False, True , 3, 1, "BSSN"];
-createCode[4, False, False, 3, 1, "BSSN"];
-createCode[4, True , True , 3, 1, "BSSN"];
-createCode[8, False, True , 3, 1, "BSSN"];
-createCode[8, True , True , 3, 1, "BSSN"];
+(* createCode[4, False, False, 3, 1, "BSSN"]; *)
+(* createCode[4, True , True , 3, 1, "BSSN"]; *)
+(* createCode[8, False, True , 3, 1, "BSSN"]; *)
+(* createCode[8, True , True , 3, 1, "BSSN"]; *)
 
 createCode[4, False, True , 3, 1, "CCZ4"];