diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 18:55:32 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 18:55:32 +0200 |
commit | a07e177cbd2603aa9d7d0a072c36c4ed84e24bff (patch) | |
tree | 78858e4a2079644087df9b2a167d2dfa5537a1a0 | |
parent | 17d2c25f796b31fde3be23fd16b350ea1e675a9a (diff) |
Add ScheduleTimelevels to evolved and RHS groups in MoL.m
-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]]; |