From 57cd9fb7cab2e2d47770aa0a7fcf94ba3a1c84c0 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Mon, 23 Jan 2012 17:00:51 -0600 Subject: KrancThorn.m: Don't generate certain code unless we have ConservationCalculations defined --- Tools/CodeGen/KrancThorn.m | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Tools/CodeGen') 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}}; -- cgit v1.2.3