Remove old code for determining boundary groups

ianhinder · Sep 12, 2013 · 65af169 · 65af169
1 parent 3237af2
commit 65af169
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 9 deletions.
diff --git a/Tools/CodeGen/CactusBoundary.m b/Tools/CodeGen/CactusBoundary.m
@@ -166,18 +166,14 @@
        Map[createBoundScalarParam, Map[unqualifiedGroupName,evolvedGroups]]]]];
 
 
-GetSources[evolvedGroups_, declaredGroups_, groups_, implementation_, thornName_] :=
+GetSources[declaredGroups_, groups_, implementation_, thornName_] :=
   Module[{boundarySpec, evolvedGFs},
-    evolvedGroups2 = MoLEvolvedGroups[declaredGroups, groups];
-
-    If[Union@evolvedGroups2 =!= Union[evolvedGroups],
-       Print["Group mismatch"];
-       Quit[1]];
+    evolvedGroups = MoLEvolvedGroups[declaredGroups, groups];
+    evolvedGFs = variablesFromGroups[evolvedGroups, groups];
 
-    evolvedGFs = variablesFromGroups[evolvedGroups2, groups];
     boundarySpec = 
     {
-      Groups -> evolvedGroups2, 
+      Groups -> evolvedGroups,
       EvolvedGFs -> Map[qualifyGFName[#, groups, implementation] &, evolvedGFs],
       BaseImplementation -> implementation, 
       ThornName -> thornName,

diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
@@ -343,7 +343,7 @@ Thorn generation (main entry point for non-tensorial thorns)
 
     sources = Join[
       sources,
-      CactusBoundary`GetSources[evolvedGroups, declaredGroups, groups, implementation, thornName]];
+      CactusBoundary`GetSources[declaredGroups, groups, implementation, thornName]];
 
     (* ------------------------------------------------------------------------ 
        Add parameter check source file