From 8960a5df4c91445232cca93381a25da7689bef4f Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Thu, 15 Dec 2011 16:53:20 +0100 Subject: ConservationCalculation.m: Handle case where Shorthands is not specified --- Tools/CodeGen/ConservationCalculation.m | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Tools') diff --git a/Tools/CodeGen/ConservationCalculation.m b/Tools/CodeGen/ConservationCalculation.m index e83aec1..b8cba52 100644 --- a/Tools/CodeGen/ConservationCalculation.m +++ b/Tools/CodeGen/ConservationCalculation.m @@ -167,7 +167,7 @@ primitivesCalc[calc_, thornName_] := Name -> lookup[calc, Name] <> "_primitives", Schedule -> {"in MoL_PostStep after " <> thornName <>"_ApplyBCs"}, Equations -> lookup[calc, PrimitiveEquations], - Shorthands -> lookup[calc, Shorthands] + Shorthands -> lookupDefault[calc, Shorthands, {}] }; conservedCalc[calc_] := @@ -175,7 +175,7 @@ conservedCalc[calc_] := Name -> lookup[calc, Name] <> "_conserved", Schedule -> {"at POSTINITIAL"}, Equations -> lookup[calc, ConservedEquations], - Shorthands -> lookup[calc, Shorthands] + Shorthands -> lookupDefault[calc, Shorthands, {}] }; conservedIntercellCalc[calc_, i_] := @@ -183,7 +183,7 @@ conservedIntercellCalc[calc_, i_] := Name -> lookup[calc, Name] <> "_intercell_conserved_" <> ToString[i], Schedule -> {"in MoL_CalcRHS after " <> lookup[calc, Name] <> "_reconstruct_" <> ToString[i]}, - Shorthands -> lookup[calc, Shorthands], + Shorthands -> lookupDefault[calc, Shorthands, {}], Equations -> Module[{vars = Join[primitiveVars[calc], consVars[calc]]}, Join[lookup[calc, ConservedEquations] /. (Map[# -> leftSymbol[#] &, vars]), -- cgit v1.2.3