diff options
Diffstat (limited to 'Tools/CodeGen')
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index 93760cc..0a4003a 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -113,7 +113,9 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ includeFiles = OptionValue[IncludeFiles]; evolutionTimelevels = OptionValue[EvolutionTimelevels]; (* Redundant *) defaultEvolutionTimelevels = lookupDefault[{opts}, DefaultEvolutionTimelevels, evolutionTimelevels]; - realParams = OptionValue[RealParameters] ~Join~ ConservationDifferencingRealParameters[]; + realParams = OptionValue[RealParameters]; + If[OptionValue[ConservationCalculations] =!= {}, + realParams = Join[realParams,ConservationDifferencingRealParameters[]]]; intParams = OptionValue[IntParameters]; realParamDefs = MakeFullParamDefs[realParams]; intParamDefs = MakeFullParamDefs[intParams]; @@ -124,8 +126,9 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ extendedRealParams = OptionValue[ExtendedRealParameters]; extendedIntParams = OptionValue[ExtendedIntParameters]; extendedKeywordParams = OptionValue[ExtendedKeywordParameters]; - partialDerivs = OptionValue[PartialDerivatives] ~Join~ - ConservationDifferencingOperators[]; + partialDerivs = OptionValue[PartialDerivatives]; + If[OptionValue[ConservationCalculations] =!= {}, + partialDerivs = Join[partialDerivs, ConservationDifferencingOperators[]]]; reflectionSymmetries = OptionValue[ReflectionSymmetries]; coordGroup = {"grid::coordinates", {Kranc`x,Kranc`y,Kranc`z,Kranc`r}}; |