MoL.m: Add MoLProcessGroups

This function is called to modify the groups structure for MoL's requirements.  At the moment, it adds an InterfaceTimelevels option to the group with a value of EvolutionTimelevels (passed in as an argument).

Tools/CodeGen/Kranc.m

@@ -57,6 +57,10 @@
 
 {Name, Definitions, shift, spacing, SBPDerivative};
 
+(* Interface.m *)
+
+{InterfaceTimelevels};
+
 (* KrancThorn.m *)
 
 ThornOptions =

Tools/CodeGen/MoL.m

@@ -34,6 +34,7 @@
 MoLRHSGroupDefinitions;
 MoLRHSODEGroupDefinitions;
 MoLUsedFunctions;
+MoLProcessGroups;
 
 Begin["`Private`"];
 
@@ -597,6 +598,19 @@
     *)
   }];
 
+DefFn[
+  MoLProcessGroups[declaredGroups_List, calcs_List, groups_List,
+                   evolutionTimelevels_Integer] :=
+  Module[
+    {evolvedGroups, groups2},
+    evolvedGroups = MoLEvolvedGroups[declaredGroups, calcs, groups];
+
+    groups2 = Map[If[MemberQ[evolvedGroups, groupName[#]],
+                     (* Print["Adding InterfaceTimelevels to ", groupName[#]]; *)
+                     EnsureInterfaceTimelevels[#, evolutionTimelevels],
+                     #] &, groups];
+    groups2]];
+
 End[];
 
 EndPackage[];