From a07e177cbd2603aa9d7d0a072c36c4ed84e24bff Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Thu, 12 Sep 2013 18:55:32 +0200
Subject: Add ScheduleTimelevels to evolved and RHS groups in MoL.m

---
 Tools/CodeGen/Kranc.m | 3 +++
 Tools/CodeGen/MoL.m   | 8 ++++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

(limited to 'Tools')

diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m
index 8769b59..a3bf3e5 100644
--- a/Tools/CodeGen/Kranc.m
+++ b/Tools/CodeGen/Kranc.m
@@ -64,6 +64,9 @@ MoLEvolved;
 
 {InterfaceTimelevels};
 
+(* Schedule.m *)
+ScheduleTimelevels;
+
 (* KrancThorn.m *)
 
 ThornOptions =
diff --git a/Tools/CodeGen/MoL.m b/Tools/CodeGen/MoL.m
index 7148aaa..b6090f1 100644
--- a/Tools/CodeGen/MoL.m
+++ b/Tools/CodeGen/MoL.m
@@ -571,6 +571,7 @@ EvolvedGroupToRHSGroup[name_, groups_] :=
     group = SetGroupVariables[group, newVars];
     group = AddGroupTag[group, "Prolongation" -> "None"];
     group = DeleteGroupExtra[group, MoLEvolved];
+    group = group /. (ScheduleTimelevels -> _) :> (ScheduleTimelevels -> "rhs_timelevels");
          
     Return[group]];
 
@@ -616,8 +617,11 @@ DefFn[
     groups2 = Map[If[MemberQ[evolvedGroups, groupName[#]],
                      (* Print["Adding InterfaceTimelevels to ", groupName[#]]; *)
                      AddGroupExtra[
-                       EnsureInterfaceTimelevels[#, evolutionTimelevels],
-                       MoLEvolved -> True],
+                       AddGroupExtra[
+                         EnsureInterfaceTimelevels[#, evolutionTimelevels],
+                         MoLEvolved -> True],
+                       ScheduleTimelevels -> "timelevels"],
+                     (* else *)
                      #] &, groups];
     groups2]];
 
-- 
cgit v1.2.3