diff options
Diffstat (limited to 'Tools/CodeGen/KrancThorn.m')
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index e684f2b..de89f28 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -192,31 +192,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Conservation Calculations ------------------------------------------------------------------------ *) - Module[ - {inputConsCalcs, outputConsCalcs, consGroups}, - - inputConsCalcs = Map[Append[#, Groups -> GetObjectField[c, "Groups"]] &, - OptionValue[ConservationCalculations]]; - - outputConsCalcs = - Flatten[ - Map[ - ProcessConservationCalculation[#, GetObjectField[c, "Name"]] &, - inputConsCalcs], - 1]; - - outputConsCalcs = - Map[Join[#, {PartialDerivatives -> GetObjectField[c, "PartialDerivatives"], - Implementation -> GetObjectField[c, "Implementation"]}] &, - outputConsCalcs]; - - consGroups = Union@Flatten[ - Map[ConservationCalculationDeclaredGroups, inputConsCalcs],1]; - - c = JoinObjectField[c, "Calculations", outputConsCalcs]; - c = JoinObjectField[c, "Groups", consGroups]; - c = JoinObjectField[c, "DeclaredGroups", Map[groupName, consGroups]]]; - + c = ConservationCalculationProcessCode[c, opts]; (* ------------------------------------------------------------------------ ODEs |