From a52abf35db4c68c5e28e8ce9b00b394c4ea382ee Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Fri, 4 Sep 2009 18:50:58 -0500 Subject: Add new RHS boundary condition NewRad, implemented in the thorn LSUThorns/NewRad. --- ML_WaveToy/configuration.ccl | 5 +---- ML_WaveToy/interface.ccl | 29 +++++++++++++---------------- ML_WaveToy/param.ccl | 11 +++++++---- ML_WaveToy/schedule.ccl | 27 +++++++++++++++++++-------- ML_WaveToy/src/Boundaries.c | 5 +---- ML_WaveToy/src/RegisterMoL.c | 5 +---- ML_WaveToy/src/RegisterSymmetries.c | 5 +---- ML_WaveToy/src/Startup.c | 5 +---- ML_WaveToy/src/WT_Gaussian.c | 5 +---- ML_WaveToy/src/WT_RHS.c | 5 +---- ML_WaveToy/src/make.code.defn | 5 +---- 11 files changed, 47 insertions(+), 60 deletions(-) (limited to 'ML_WaveToy') diff --git a/ML_WaveToy/configuration.ccl b/ML_WaveToy/configuration.ccl index 5fb01c5..148a1a1 100644 --- a/ML_WaveToy/configuration.ccl +++ b/ML_WaveToy/configuration.ccl @@ -1,6 +1,3 @@ -# File produced by user eschnett -# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) - -# Mathematica script written by Ian Hinder and Sascha Husa +# File produced by Kranc REQUIRES LoopControl diff --git a/ML_WaveToy/interface.ccl b/ML_WaveToy/interface.ccl index 2da5f6c..0eaf036 100644 --- a/ML_WaveToy/interface.ccl +++ b/ML_WaveToy/interface.ccl @@ -1,7 +1,4 @@ -# File produced by user eschnett -# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) - -# Mathematica script written by Ian Hinder and Sascha Husa +# File produced by Kranc implements: ML_WaveToy @@ -27,18 +24,6 @@ USES FUNCTION Boundary_SelectGroupForBC CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name) USES FUNCTION Boundary_SelectVarForBC -public: -CCTK_REAL WT_rhorhs type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' -{ - rhorhs -} "WT_rhorhs" - -public: -CCTK_REAL WT_urhs type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' -{ - urhs -} "WT_urhs" - public: CCTK_REAL WT_rho type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' { @@ -50,3 +35,15 @@ CCTK_REAL WT_u type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight= { u } "WT_u" + +public: +CCTK_REAL WT_rhorhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' +{ + rhorhs +} "WT_rhorhs" + +public: +CCTK_REAL WT_urhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' +{ + urhs +} "WT_urhs" diff --git a/ML_WaveToy/param.ccl b/ML_WaveToy/param.ccl index ac4441a..0ec7fbc 100644 --- a/ML_WaveToy/param.ccl +++ b/ML_WaveToy/param.ccl @@ -1,7 +1,4 @@ -# File produced by user eschnett -# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) - -# Mathematica script written by Ian Hinder and Sascha Husa +# File produced by Kranc shares: GenericFD @@ -35,6 +32,12 @@ CCTK_INT timelevels "Number of active timelevels" 0:2 :: "" } 2 +restricted: +CCTK_INT rhs_timelevels "Number of active RHS timelevels" +{ + 0:2 :: "" +} 1 + restricted: CCTK_INT WT_Gaussian_calc_every "WT_Gaussian_calc_every" { diff --git a/ML_WaveToy/schedule.ccl b/ML_WaveToy/schedule.ccl index 81bdce8..955217d 100644 --- a/ML_WaveToy/schedule.ccl +++ b/ML_WaveToy/schedule.ccl @@ -1,12 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) +# File produced by Kranc -# Mathematica script written by Ian Hinder and Sascha Husa - - -STORAGE: WT_rhorhs[1] - -STORAGE: WT_urhs[1] if (timelevels == 1) { @@ -26,6 +19,24 @@ if (timelevels == 2) STORAGE: WT_u[2] } +if (rhs_timelevels == 1) +{ + STORAGE: WT_rhorhs[1] +} +if (rhs_timelevels == 2) +{ + STORAGE: WT_rhorhs[2] +} + +if (rhs_timelevels == 1) +{ + STORAGE: WT_urhs[1] +} +if (rhs_timelevels == 2) +{ + STORAGE: WT_urhs[2] +} + schedule ML_WaveToy_Startup at STARTUP { LANG: C diff --git a/ML_WaveToy/src/Boundaries.c b/ML_WaveToy/src/Boundaries.c index 63173bc..086626f 100644 --- a/ML_WaveToy/src/Boundaries.c +++ b/ML_WaveToy/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) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #include "cctk.h" #include "cctk_Arguments.h" diff --git a/ML_WaveToy/src/RegisterMoL.c b/ML_WaveToy/src/RegisterMoL.c index 2ce856c..7c0f0eb 100644 --- a/ML_WaveToy/src/RegisterMoL.c +++ b/ML_WaveToy/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) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #include "cctk.h" #include "cctk_Arguments.h" diff --git a/ML_WaveToy/src/RegisterSymmetries.c b/ML_WaveToy/src/RegisterSymmetries.c index e3bf88a..67e799a 100644 --- a/ML_WaveToy/src/RegisterSymmetries.c +++ b/ML_WaveToy/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) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #include "cctk.h" #include "cctk_Arguments.h" diff --git a/ML_WaveToy/src/Startup.c b/ML_WaveToy/src/Startup.c index ce5162f..c80c9fb 100644 --- a/ML_WaveToy/src/Startup.c +++ b/ML_WaveToy/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) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #include "cctk.h" diff --git a/ML_WaveToy/src/WT_Gaussian.c b/ML_WaveToy/src/WT_Gaussian.c index b6dbd79..fe06432 100644 --- a/ML_WaveToy/src/WT_Gaussian.c +++ b/ML_WaveToy/src/WT_Gaussian.c @@ -1,7 +1,4 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #define KRANC_C diff --git a/ML_WaveToy/src/WT_RHS.c b/ML_WaveToy/src/WT_RHS.c index 1cb84f7..7317ac9 100644 --- a/ML_WaveToy/src/WT_RHS.c +++ b/ML_WaveToy/src/WT_RHS.c @@ -1,7 +1,4 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (November 11, 2008) */ - -/* Mathematica script written by Ian Hinder and Sascha Husa */ +/* File produced by Kranc */ #define KRANC_C diff --git a/ML_WaveToy/src/make.code.defn b/ML_WaveToy/src/make.code.defn index d6bd576..9a7a3e2 100644 --- a/ML_WaveToy/src/make.code.defn +++ b/ML_WaveToy/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) (November 11, 2008) - -# Mathematica script written by Ian Hinder and Sascha Husa +# File produced by Kranc SRCS = Startup.c RegisterMoL.c RegisterSymmetries.c WT_Gaussian.c WT_RHS.c Boundaries.c -- cgit v1.2.3