diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-06-03 18:11:41 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-06-03 18:11:41 +0200 |
commit | 763e38daee0f8808d1497e78e75a91fe8dfd3fc7 (patch) | |
tree | 64e14e522f195c556ffe6f9e1a5dedc8ed921fa4 /Examples | |
parent | 3e6f454f556bb811148fffb66a69e90e5000b9ea (diff) |
Temporary commit
Diffstat (limited to 'Examples')
-rw-r--r-- | Examples/EulerSR.m | 8 | ||||
-rw-r--r-- | Examples/kranc.th | 18 |
2 files changed, 17 insertions, 9 deletions
diff --git a/Examples/EulerSR.m b/Examples/EulerSR.m index 2c58c96..e868742 100644 --- a/Examples/EulerSR.m +++ b/Examples/EulerSR.m @@ -109,7 +109,10 @@ eulerCons = pBar -> p, (* from previous timestep *) (* Start loop *) - Sequence@@Join@@Table[ + f -> 10, + + Sequence@@Map[#[[1]] -> IfThen[f > 10.^-12, #[[2]], #[[1]]] &, + {Z -> tau + Den + pBar, Ssq -> S[li] S[lj] Euc[ui,uj], vsq -> Ssq/Z^2, @@ -121,8 +124,7 @@ eulerCons = f -> pEOS - pBar, cs -> Sqrt[gamma (gamma-1) epsi/h], df -> vsq cs^2 - 1, - pBar -> pBar - f/df}, - {i, 1, 5}], + pBar -> pBar - f/df}], (* end of loop *) diff --git a/Examples/kranc.th b/Examples/kranc.th index aa6905a..05eff76 100644 --- a/Examples/kranc.th +++ b/Examples/kranc.th @@ -22,10 +22,10 @@ CactusBase/Boundary CactusBase/CartGrid3D CactusBase/CoordBase CactusBase/Fortran -CactusBase/IOBasic +# CactusBase/IOBasic CactusBase/IOUtil CactusBase/InitBase -CactusBase/LocalInterp +#CactusBase/LocalInterp CactusBase/SymBase CactusBase/Time @@ -63,7 +63,13 @@ Carpet/LoopControl # Kranc support thorn KrancHydroNumericalTools/GenericFD -KrancHydroExamples/Euler -KrancHydroExamples/EulerAuto -KrancHydroExamples/Advect -KrancHydroExamples/Burgers +# KrancHydroExamples/Euler +# KrancHydroExamples/EulerAuto +KrancHydroExamples/EulerSR +# KrancHydroExamples/Advect +# KrancHydroExamples/Burgers + +Carpet/CarpetIOHDF5 +ExternalLibraries/HDF5 +ExternalLibraries/zlib +CactusUtils/TimerReport |