From 763e38daee0f8808d1497e78e75a91fe8dfd3fc7 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Fri, 3 Jun 2011 18:11:41 +0200
Subject: Temporary commit

---
 Examples/EulerSR.m |  8 +++++---
 Examples/kranc.th  | 18 ++++++++++++------
 2 files changed, 17 insertions(+), 9 deletions(-)

(limited to 'Examples')

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
-- 
cgit v1.2.3