Put inherited parameters in Chemora.h.

ianhinder · Aug 18, 2017 · 00ce49d · 00ce49d
1 parent 14a5430
commit 00ce49d
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m
@@ -23,6 +23,10 @@
 
 BeginPackage["Kranc`"];
 
+(* Param.m *)
+
+{ usedParameters };
+
 (* CodeGen.m *)
 
 {INV, SQR, CUB, QAD, ScalarINV, ScalarSQR, ScalarCUB, ScalarQAD,

diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
@@ -438,6 +438,11 @@ Thorn generation (main entry point for non-tensorial thorns)
             " set_parameter(" <> chemoraQuote[lookup[#,Name]] 
               <> ", \"CCTK_REAL\");\n" & 
               /@ lookup[GetObjectField[c,"Parameters"],"Reals"] ]
+           <> StringJoin[
+            " set_parameter(" <> chemoraQuote[lookup[#,Name]]
+              <> ", \"" <> lookup[#,Type] <> "\");\n" &
+            /@ Join @@ ( lookupDefault[#, UsedParameters, {}]& 
+                    /@ usedParameters[GetObjectField[c,"Parameters"],opts] ) ]
            <> lookup[#,ChemoraContents] &,
            Select[ GetObjectField[c, "Calculations"], 
                    CalculationOnDevice[#] &] ] ]