diff options
| -rw-r--r-- | Tools/CodeGen/Kranc.m | 3 | ||||
| -rw-r--r-- | Tools/CodeGen/MoL.m | 8 |
2 files changed, 9 insertions, 2 deletions
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]]; |