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_ADM/configuration.ccl | 5 +-- ML_ADM/interface.ccl | 77 +++++++++++++++----------------- ML_ADM/param.ccl | 11 +++-- ML_ADM/schedule.ccl | 65 ++++++++++++++++++++++----- ML_ADM/src/Boundaries.c | 5 +-- ML_ADM/src/ML_ADM_Minkowski.c | 5 +-- ML_ADM/src/ML_ADM_RHS.c | 5 +-- ML_ADM/src/ML_ADM_boundary.c | 5 +-- ML_ADM/src/ML_ADM_constraints.c | 5 +-- ML_ADM/src/ML_ADM_constraints_boundary.c | 5 +-- ML_ADM/src/ML_ADM_convertFromADMBase.c | 5 +-- ML_ADM/src/ML_ADM_convertToADMBase.c | 5 +-- ML_ADM/src/RegisterMoL.c | 5 +-- ML_ADM/src/RegisterSymmetries.c | 5 +-- ML_ADM/src/Startup.c | 5 +-- ML_ADM/src/make.code.defn | 5 +-- 16 files changed, 110 insertions(+), 108 deletions(-) (limited to 'ML_ADM') 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 @@ -41,42 +38,6 @@ CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=1.0 M3 } "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' { @@ -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 @@ -49,6 +46,12 @@ CCTK_INT timelevels "Number of active timelevels" 0:3 :: "" } 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 -- cgit v1.2.3