Add new RHS boundary condition NewRad, implemented in the thorn LSUThorns/NewRad.

16 files changed, 110 insertions, 108 deletions

diff --git a/ML_ADM/configuration.ccl b/ML_ADM/configuration.ccl
index 290ba20..148a1a1 100644
--- a/ML_ADM/configuration.ccl
+++ b/ML_ADM/configuration.ccl
@@ -1,6 +1,3 @@
-# File produced by user eschnett
-# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009)
-
-# Mathematica script written by Ian Hinder and Sascha Husa
+# File produced by Kranc
 
 REQUIRES LoopControl
diff --git a/ML_ADM/interface.ccl b/ML_ADM/interface.ccl
index b59be52..f712b9e 100644
--- a/ML_ADM/interface.ccl
+++ b/ML_ADM/interface.ccl
@@ -1,7 +1,4 @@
-# File produced by user eschnett
-# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009)
-
-# Mathematica script written by Ian Hinder and Sascha Husa
+# File produced by Kranc
 
 implements: ML_ADM
 
@@ -42,42 +39,6 @@ CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=1.0
 } "ML_mom"
 
 public:
-CCTK_REAL ML_curvrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000'
-{
-  K11rhs,
-  K12rhs,
-  K13rhs,
-  K22rhs,
-  K23rhs,
-  K33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000'
-{
-  g11rhs,
-  g12rhs,
-  g13rhs,
-  g22rhs,
-  g23rhs,
-  g33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=1 tags='tensortypealias="U" tensorweight=1.0000000000000000000'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
 CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000'
 {
   K11,
@@ -112,3 +73,39 @@ CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=1
   beta2,
   beta3
 } "ML_shift"
+
+public:
+CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000'
+{
+  K11rhs,
+  K12rhs,
+  K13rhs,
+  K22rhs,
+  K23rhs,
+  K33rhs
+} "ML_curvrhs"
+
+public:
+CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000'
+{
+  alpharhs
+} "ML_lapserhs"
+
+public:
+CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000'
+{
+  g11rhs,
+  g12rhs,
+  g13rhs,
+  g22rhs,
+  g23rhs,
+  g33rhs
+} "ML_metricrhs"
+
+public:
+CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=1.0000000000000000000'
+{
+  beta1rhs,
+  beta2rhs,
+  beta3rhs
+} "ML_shiftrhs"
diff --git a/ML_ADM/param.ccl b/ML_ADM/param.ccl
index 55eee02..d6e64bb 100644
--- a/ML_ADM/param.ccl
+++ b/ML_ADM/param.ccl
@@ -1,7 +1,4 @@
-# File produced by user eschnett
-# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009)
-
-# Mathematica script written by Ian Hinder and Sascha Husa
+# File produced by Kranc
 
 
 shares: GenericFD
@@ -50,6 +47,12 @@ CCTK_INT timelevels "Number of active timelevels"
 } 3
 
 restricted:
+CCTK_INT rhs_timelevels "Number of active RHS timelevels"
+{
+  0:3 :: ""
+} 1
+
+restricted:
 CCTK_INT ML_ADM_Minkowski_calc_every "ML_ADM_Minkowski_calc_every"
 {
   *:* :: ""
diff --git a/ML_ADM/schedule.ccl b/ML_ADM/schedule.ccl
index 6fe88ce..0140a0d 100644
--- a/ML_ADM/schedule.ccl
+++ b/ML_ADM/schedule.ccl
@@ -1,21 +1,10 @@
-# File produced by user eschnett
-# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009)
-
-# Mathematica script written by Ian Hinder and Sascha Husa
+# File produced by Kranc
 
 
 STORAGE: ML_Ham[1]
 
 STORAGE: ML_mom[1]
 
-STORAGE: ML_curvrhs[1]
-
-STORAGE: ML_lapserhs[1]
-
-STORAGE: ML_metricrhs[1]
-
-STORAGE: ML_shiftrhs[1]
-
 if (timelevels == 1)
 {
   STORAGE: ML_curv[1]
@@ -68,6 +57,58 @@ if (timelevels == 3)
   STORAGE: ML_shift[3]
 }
 
+if (rhs_timelevels == 1)
+{
+  STORAGE: ML_curvrhs[1]
+}
+if (rhs_timelevels == 2)
+{
+  STORAGE: ML_curvrhs[2]
+}
+if (rhs_timelevels == 3)
+{
+  STORAGE: ML_curvrhs[3]
+}
+
+if (rhs_timelevels == 1)
+{
+  STORAGE: ML_lapserhs[1]
+}
+if (rhs_timelevels == 2)
+{
+  STORAGE: ML_lapserhs[2]
+}
+if (rhs_timelevels == 3)
+{
+  STORAGE: ML_lapserhs[3]
+}
+
+if (rhs_timelevels == 1)
+{
+  STORAGE: ML_metricrhs[1]
+}
+if (rhs_timelevels == 2)
+{
+  STORAGE: ML_metricrhs[2]
+}
+if (rhs_timelevels == 3)
+{
+  STORAGE: ML_metricrhs[3]
+}
+
+if (rhs_timelevels == 1)
+{
+  STORAGE: ML_shiftrhs[1]
+}
+if (rhs_timelevels == 2)
+{
+  STORAGE: ML_shiftrhs[2]
+}
+if (rhs_timelevels == 3)
+{
+  STORAGE: ML_shiftrhs[3]
+}
+
 schedule ML_ADM_Startup at STARTUP
 {
   LANG: C
diff --git a/ML_ADM/src/Boundaries.c b/ML_ADM/src/Boundaries.c
index 1be5d43..bb27ba6 100644
--- a/ML_ADM/src/Boundaries.c
+++ b/ML_ADM/src/Boundaries.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
diff --git a/ML_ADM/src/ML_ADM_Minkowski.c b/ML_ADM/src/ML_ADM_Minkowski.c
index 829a327..8db192c 100644
--- a/ML_ADM/src/ML_ADM_Minkowski.c
+++ b/ML_ADM/src/ML_ADM_Minkowski.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_RHS.c b/ML_ADM/src/ML_ADM_RHS.c
index 2db384e..d1dbb86 100644
--- a/ML_ADM/src/ML_ADM_RHS.c
+++ b/ML_ADM/src/ML_ADM_RHS.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_boundary.c b/ML_ADM/src/ML_ADM_boundary.c
index 00663d9..1fb285e 100644
--- a/ML_ADM/src/ML_ADM_boundary.c
+++ b/ML_ADM/src/ML_ADM_boundary.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_constraints.c b/ML_ADM/src/ML_ADM_constraints.c
index d944da7..bce39cc 100644
--- a/ML_ADM/src/ML_ADM_constraints.c
+++ b/ML_ADM/src/ML_ADM_constraints.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_constraints_boundary.c b/ML_ADM/src/ML_ADM_constraints_boundary.c
index 1c66e36..b2d0441 100644
--- a/ML_ADM/src/ML_ADM_constraints_boundary.c
+++ b/ML_ADM/src/ML_ADM_constraints_boundary.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.c b/ML_ADM/src/ML_ADM_convertFromADMBase.c
index 6131bd5..c524164 100644
--- a/ML_ADM/src/ML_ADM_convertFromADMBase.c
+++ b/ML_ADM/src/ML_ADM_convertFromADMBase.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.c b/ML_ADM/src/ML_ADM_convertToADMBase.c
index 5e5ba1a..8aaf272 100644
--- a/ML_ADM/src/ML_ADM_convertToADMBase.c
+++ b/ML_ADM/src/ML_ADM_convertToADMBase.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #define KRANC_C
 
diff --git a/ML_ADM/src/RegisterMoL.c b/ML_ADM/src/RegisterMoL.c
index ed378fc..c8f9711 100644
--- a/ML_ADM/src/RegisterMoL.c
+++ b/ML_ADM/src/RegisterMoL.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
diff --git a/ML_ADM/src/RegisterSymmetries.c b/ML_ADM/src/RegisterSymmetries.c
index ea1cb55..567f321 100644
--- a/ML_ADM/src/RegisterSymmetries.c
+++ b/ML_ADM/src/RegisterSymmetries.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
diff --git a/ML_ADM/src/Startup.c b/ML_ADM/src/Startup.c
index 9837d37..80d6f0d 100644
--- a/ML_ADM/src/Startup.c
+++ b/ML_ADM/src/Startup.c
@@ -1,7 +1,4 @@
-/*  File produced by user eschnett */
-/*  Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */
-
-/*  Mathematica script written by Ian Hinder and Sascha Husa */
+/*  File produced by Kranc */
 
 #include "cctk.h"
 
diff --git a/ML_ADM/src/make.code.defn b/ML_ADM/src/make.code.defn
index 42afc5b..94bec8c 100644
--- a/ML_ADM/src/make.code.defn
+++ b/ML_ADM/src/make.code.defn
@@ -1,6 +1,3 @@
-# File produced by user eschnett
-# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009)
-
-# Mathematica script written by Ian Hinder and Sascha Husa
+# File produced by Kranc
 
 SRCS = Startup.c RegisterMoL.c RegisterSymmetries.c ML_ADM_Minkowski.c ML_ADM_convertFromADMBase.c ML_ADM_RHS.c ML_ADM_boundary.c ML_ADM_convertToADMBase.c ML_ADM_constraints.c ML_ADM_constraints_boundary.c Boundaries.c