diff options
author | Peter Diener <diener@10-4-34-85.lsu.edu> | 2007-11-08 17:47:30 -0600 |
---|---|---|
committer | Peter Diener <diener@10-4-34-85.lsu.edu> | 2007-11-08 17:47:30 -0600 |
commit | 901aee61dc2a0b884b5982162a93d3023bfcb80e (patch) | |
tree | ab3219dc91b9fa9365f9c4ae31369cf63de5cbc5 /ML_ADM | |
parent | daaeb6d07f894776e2ba309d19d87c4afd97c5d4 (diff) |
Constraints
Current state: Constraints converge. Metric RHS converges. The rest doesn't.
Signed-off-by: Peter Diener <diener@10-4-34-85.lsu.edu>
Diffstat (limited to 'ML_ADM')
-rw-r--r-- | ML_ADM/configuration.ccl | 4 | ||||
-rw-r--r-- | ML_ADM/interface.ccl | 36 | ||||
-rw-r--r-- | ML_ADM/param.ccl | 36 | ||||
-rw-r--r-- | ML_ADM/schedule.ccl | 36 | ||||
-rw-r--r-- | ML_ADM/src/Boundaries.c | 204 | ||||
-rw-r--r-- | ML_ADM/src/ML_ADM_Minkowski.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/ML_ADM_RHS.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/ML_ADM_constraints.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/ML_ADM_convertFromADMBase.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/ML_ADM_convertToADMBase.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/RegisterMoL.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/RegisterSymmetries.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/Startup.c | 4 | ||||
-rw-r--r-- | ML_ADM/src/make.code.defn | 4 |
14 files changed, 176 insertions, 176 deletions
diff --git a/ML_ADM/configuration.ccl b/ML_ADM/configuration.ccl index 0374af4..006249a 100644 --- a/ML_ADM/configuration.ccl +++ b/ML_ADM/configuration.ccl @@ -1,5 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/interface.ccl b/ML_ADM/interface.ccl index 7137187..69bf36b 100644 --- a/ML_ADM/interface.ccl +++ b/ML_ADM/interface.ccl @@ -1,5 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa @@ -45,7 +45,7 @@ CCTK_REAL mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=1.0000 } "mom" public: -CCTK_REAL curvrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' +CCTK_REAL ml_curvrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' { K11rhs, K12rhs, @@ -53,16 +53,16 @@ CCTK_REAL curvrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweig K22rhs, K23rhs, K33rhs -} "curvrhs" +} "ml_curvrhs" public: -CCTK_REAL lapserhs type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' +CCTK_REAL ml_lapserhs type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' { alpharhs -} "lapserhs" +} "ml_lapserhs" public: -CCTK_REAL metricrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' +CCTK_REAL ml_metricrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' { g11rhs, g12rhs, @@ -70,18 +70,18 @@ CCTK_REAL metricrhs type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorwe g22rhs, g23rhs, g33rhs -} "metricrhs" +} "ml_metricrhs" public: -CCTK_REAL shiftrhs type=GF timelevels=1 tags='tensortypealias="U" tensorweight=1.0000000000000000000' +CCTK_REAL ml_shiftrhs type=GF timelevels=1 tags='tensortypealias="U" tensorweight=1.0000000000000000000' { beta1rhs, beta2rhs, beta3rhs -} "shiftrhs" +} "ml_shiftrhs" public: -CCTK_REAL curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' +CCTK_REAL ml_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' { K11, K12, @@ -89,16 +89,16 @@ CCTK_REAL curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight= K22, K23, K33 -} "curv" +} "ml_curv" public: -CCTK_REAL lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' +CCTK_REAL ml_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' { alpha -} "lapse" +} "ml_lapse" public: -CCTK_REAL metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' +CCTK_REAL ml_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=1.0000000000000000000' { g11, g12, @@ -106,12 +106,12 @@ CCTK_REAL metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweigh g22, g23, g33 -} "metric" +} "ml_metric" public: -CCTK_REAL shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=1.0000000000000000000' +CCTK_REAL ml_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=1.0000000000000000000' { beta1, beta2, beta3 -} "shift" +} "ml_shift" diff --git a/ML_ADM/param.ccl b/ML_ADM/param.ccl index adba59f..7e0ebb8 100644 --- a/ML_ADM/param.ccl +++ b/ML_ADM/param.ccl @@ -1,5 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa @@ -301,7 +301,7 @@ KEYWORD beta3_bound "Boundary condition to implement" } "skip" private: -KEYWORD curv_bound "Boundary condition to implement" +KEYWORD ml_curv_bound "Boundary condition to implement" { "flat" :: "Flat boundary condition" "none" :: "No boundary condition" @@ -313,7 +313,7 @@ KEYWORD curv_bound "Boundary condition to implement" } "skip" private: -KEYWORD lapse_bound "Boundary condition to implement" +KEYWORD ml_lapse_bound "Boundary condition to implement" { "flat" :: "Flat boundary condition" "none" :: "No boundary condition" @@ -325,7 +325,7 @@ KEYWORD lapse_bound "Boundary condition to implement" } "skip" private: -KEYWORD metric_bound "Boundary condition to implement" +KEYWORD ml_metric_bound "Boundary condition to implement" { "flat" :: "Flat boundary condition" "none" :: "No boundary condition" @@ -337,7 +337,7 @@ KEYWORD metric_bound "Boundary condition to implement" } "skip" private: -KEYWORD shift_bound "Boundary condition to implement" +KEYWORD ml_shift_bound "Boundary condition to implement" { "flat" :: "Flat boundary condition" "none" :: "No boundary condition" @@ -445,25 +445,25 @@ CCTK_REAL beta3_bound_speed "characteristic speed at boundary" } 1. private: -CCTK_REAL curv_bound_speed "characteristic speed at boundary" +CCTK_REAL ml_curv_bound_speed "characteristic speed at boundary" { "0:*" :: "outgoing characteristic speed > 0" } 1. private: -CCTK_REAL lapse_bound_speed "characteristic speed at boundary" +CCTK_REAL ml_lapse_bound_speed "characteristic speed at boundary" { "0:*" :: "outgoing characteristic speed > 0" } 1. private: -CCTK_REAL metric_bound_speed "characteristic speed at boundary" +CCTK_REAL ml_metric_bound_speed "characteristic speed at boundary" { "0:*" :: "outgoing characteristic speed > 0" } 1. private: -CCTK_REAL shift_bound_speed "characteristic speed at boundary" +CCTK_REAL ml_shift_bound_speed "characteristic speed at boundary" { "0:*" :: "outgoing characteristic speed > 0" } 1. @@ -565,25 +565,25 @@ CCTK_REAL beta3_bound_limit "limit value for r -> infinity" } 0. private: -CCTK_REAL curv_bound_limit "limit value for r -> infinity" +CCTK_REAL ml_curv_bound_limit "limit value for r -> infinity" { "*:*" :: "value of limit value is unrestricted" } 0. private: -CCTK_REAL lapse_bound_limit "limit value for r -> infinity" +CCTK_REAL ml_lapse_bound_limit "limit value for r -> infinity" { "*:*" :: "value of limit value is unrestricted" } 0. private: -CCTK_REAL metric_bound_limit "limit value for r -> infinity" +CCTK_REAL ml_metric_bound_limit "limit value for r -> infinity" { "*:*" :: "value of limit value is unrestricted" } 0. private: -CCTK_REAL shift_bound_limit "limit value for r -> infinity" +CCTK_REAL ml_shift_bound_limit "limit value for r -> infinity" { "*:*" :: "value of limit value is unrestricted" } 0. @@ -685,25 +685,25 @@ CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" } 0. private: -CCTK_REAL curv_bound_scalar "Dirichlet boundary value" +CCTK_REAL ml_curv_bound_scalar "Dirichlet boundary value" { "*:*" :: "unrestricted" } 0. private: -CCTK_REAL lapse_bound_scalar "Dirichlet boundary value" +CCTK_REAL ml_lapse_bound_scalar "Dirichlet boundary value" { "*:*" :: "unrestricted" } 0. private: -CCTK_REAL metric_bound_scalar "Dirichlet boundary value" +CCTK_REAL ml_metric_bound_scalar "Dirichlet boundary value" { "*:*" :: "unrestricted" } 0. private: -CCTK_REAL shift_bound_scalar "Dirichlet boundary value" +CCTK_REAL ml_shift_bound_scalar "Dirichlet boundary value" { "*:*" :: "unrestricted" } 0. diff --git a/ML_ADM/schedule.ccl b/ML_ADM/schedule.ccl index 314d2b5..a4a9e14 100644 --- a/ML_ADM/schedule.ccl +++ b/ML_ADM/schedule.ccl @@ -1,5 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa @@ -8,21 +8,21 @@ STORAGE: Ham[1] STORAGE: mom[1] -STORAGE: curvrhs[1] +STORAGE: ml_curvrhs[1] -STORAGE: lapserhs[1] +STORAGE: ml_lapserhs[1] -STORAGE: metricrhs[1] +STORAGE: ml_metricrhs[1] -STORAGE: shiftrhs[1] +STORAGE: ml_shiftrhs[1] -STORAGE: curv[3] +STORAGE: ml_curv[3] -STORAGE: lapse[3] +STORAGE: ml_lapse[3] -STORAGE: metric[3] +STORAGE: ml_metric[3] -STORAGE: shift[3] +STORAGE: ml_shift[3] schedule ML_ADM_Startup at STARTUP { @@ -72,10 +72,10 @@ schedule ML_ADM_RHS AT analysis { LANG: C - SYNC: curvrhs - SYNC: lapserhs - SYNC: metricrhs - SYNC: shiftrhs + SYNC: ml_curvrhs + SYNC: ml_lapserhs + SYNC: ml_metricrhs + SYNC: ml_shiftrhs } "ML_ADM_RHS" schedule ML_ADM_convertToADMBase IN MoL_PostStep AFTER ML_ADM_ApplyBCs @@ -96,10 +96,10 @@ schedule ML_ADM_ApplyBoundConds in MoL_PostStep { LANG: C OPTIONS: level - SYNC: curv - SYNC: lapse - SYNC: metric - SYNC: shift + SYNC: ml_curv + SYNC: ml_lapse + SYNC: ml_metric + SYNC: ml_shift } "apply boundary conditions" schedule ML_ADM_CheckBoundaries at BASEGRID diff --git a/ML_ADM/src/Boundaries.c b/ML_ADM/src/Boundaries.c index 6d66707..9986962 100644 --- a/ML_ADM/src/Boundaries.c +++ b/ML_ADM/src/Boundaries.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -35,48 +35,48 @@ void ML_ADM_ApplyBoundConds(CCTK_ARGUMENTS) CCTK_INT ierr = 0; - if (CCTK_EQUALS(curv_bound, "none" ) || - CCTK_EQUALS(curv_bound, "static") || - CCTK_EQUALS(curv_bound, "flat" ) || - CCTK_EQUALS(curv_bound, "zero" ) ) + if (CCTK_EQUALS(ml_curv_bound, "none" ) || + CCTK_EQUALS(ml_curv_bound, "static") || + CCTK_EQUALS(ml_curv_bound, "flat" ) || + CCTK_EQUALS(ml_curv_bound, "zero" ) ) { ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_ADM::curv", curv_bound); + "ML_ADM::ml_curv", ml_curv_bound); if (ierr < 0) - CCTK_WARN(-1, "Failed to register curv_bound BC for ML_ADM::curv!"); + CCTK_WARN(-1, "Failed to register ml_curv_bound BC for ML_ADM::ml_curv!"); } - if (CCTK_EQUALS(lapse_bound, "none" ) || - CCTK_EQUALS(lapse_bound, "static") || - CCTK_EQUALS(lapse_bound, "flat" ) || - CCTK_EQUALS(lapse_bound, "zero" ) ) + if (CCTK_EQUALS(ml_lapse_bound, "none" ) || + CCTK_EQUALS(ml_lapse_bound, "static") || + CCTK_EQUALS(ml_lapse_bound, "flat" ) || + CCTK_EQUALS(ml_lapse_bound, "zero" ) ) { ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_ADM::lapse", lapse_bound); + "ML_ADM::ml_lapse", ml_lapse_bound); if (ierr < 0) - CCTK_WARN(-1, "Failed to register lapse_bound BC for ML_ADM::lapse!"); + CCTK_WARN(-1, "Failed to register ml_lapse_bound BC for ML_ADM::ml_lapse!"); } - if (CCTK_EQUALS(metric_bound, "none" ) || - CCTK_EQUALS(metric_bound, "static") || - CCTK_EQUALS(metric_bound, "flat" ) || - CCTK_EQUALS(metric_bound, "zero" ) ) + if (CCTK_EQUALS(ml_metric_bound, "none" ) || + CCTK_EQUALS(ml_metric_bound, "static") || + CCTK_EQUALS(ml_metric_bound, "flat" ) || + CCTK_EQUALS(ml_metric_bound, "zero" ) ) { ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_ADM::metric", metric_bound); + "ML_ADM::ml_metric", ml_metric_bound); if (ierr < 0) - CCTK_WARN(-1, "Failed to register metric_bound BC for ML_ADM::metric!"); + CCTK_WARN(-1, "Failed to register ml_metric_bound BC for ML_ADM::ml_metric!"); } - if (CCTK_EQUALS(shift_bound, "none" ) || - CCTK_EQUALS(shift_bound, "static") || - CCTK_EQUALS(shift_bound, "flat" ) || - CCTK_EQUALS(shift_bound, "zero" ) ) + if (CCTK_EQUALS(ml_shift_bound, "none" ) || + CCTK_EQUALS(ml_shift_bound, "static") || + CCTK_EQUALS(ml_shift_bound, "flat" ) || + CCTK_EQUALS(ml_shift_bound, "zero" ) ) { ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_ADM::shift", shift_bound); + "ML_ADM::ml_shift", ml_shift_bound); if (ierr < 0) - CCTK_WARN(-1, "Failed to register shift_bound BC for ML_ADM::shift!"); + CCTK_WARN(-1, "Failed to register ml_shift_bound BC for ML_ADM::ml_shift!"); } if (CCTK_EQUALS(K11_bound, "none" ) || @@ -255,75 +255,75 @@ void ML_ADM_ApplyBoundConds(CCTK_ARGUMENTS) CCTK_WARN(-1, "Failed to register beta3_bound BC for ML_ADM::beta3!"); } - if (CCTK_EQUALS(curv_bound, "radiative")) + if (CCTK_EQUALS(ml_curv_bound, "radiative")) { /* apply radiation boundary condition */ - CCTK_INT handle_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_curv_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_curv_bound , curv_bound_limit, "LIMIT") < 0) + CCTK_INT handle_ml_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_curv_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_curv_bound , ml_curv_bound_limit, "LIMIT") < 0) CCTK_WARN(-1, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_curv_bound ,curv_bound_speed, "SPEED") < 0) + if (Util_TableSetReal(handle_ml_curv_bound ,ml_curv_bound_speed, "SPEED") < 0) CCTK_WARN(-1, "could not set SPEED value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_curv_bound, - "ML_ADM::curv", "Radiation"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_curv_bound, + "ML_ADM::ml_curv", "Radiation"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::curv!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::ml_curv!"); } - if (CCTK_EQUALS(lapse_bound, "radiative")) + if (CCTK_EQUALS(ml_lapse_bound, "radiative")) { /* apply radiation boundary condition */ - CCTK_INT handle_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_lapse_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_lapse_bound , lapse_bound_limit, "LIMIT") < 0) + CCTK_INT handle_ml_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_lapse_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_lapse_bound , ml_lapse_bound_limit, "LIMIT") < 0) CCTK_WARN(-1, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_lapse_bound ,lapse_bound_speed, "SPEED") < 0) + if (Util_TableSetReal(handle_ml_lapse_bound ,ml_lapse_bound_speed, "SPEED") < 0) CCTK_WARN(-1, "could not set SPEED value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_lapse_bound, - "ML_ADM::lapse", "Radiation"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_lapse_bound, + "ML_ADM::ml_lapse", "Radiation"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::lapse!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::ml_lapse!"); } - if (CCTK_EQUALS(metric_bound, "radiative")) + if (CCTK_EQUALS(ml_metric_bound, "radiative")) { /* apply radiation boundary condition */ - CCTK_INT handle_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_metric_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_metric_bound , metric_bound_limit, "LIMIT") < 0) + CCTK_INT handle_ml_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_metric_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_metric_bound , ml_metric_bound_limit, "LIMIT") < 0) CCTK_WARN(-1, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_metric_bound ,metric_bound_speed, "SPEED") < 0) + if (Util_TableSetReal(handle_ml_metric_bound ,ml_metric_bound_speed, "SPEED") < 0) CCTK_WARN(-1, "could not set SPEED value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_metric_bound, - "ML_ADM::metric", "Radiation"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_metric_bound, + "ML_ADM::ml_metric", "Radiation"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::metric!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::ml_metric!"); } - if (CCTK_EQUALS(shift_bound, "radiative")) + if (CCTK_EQUALS(ml_shift_bound, "radiative")) { /* apply radiation boundary condition */ - CCTK_INT handle_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_shift_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_shift_bound , shift_bound_limit, "LIMIT") < 0) + CCTK_INT handle_ml_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_shift_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_shift_bound , ml_shift_bound_limit, "LIMIT") < 0) CCTK_WARN(-1, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_shift_bound ,shift_bound_speed, "SPEED") < 0) + if (Util_TableSetReal(handle_ml_shift_bound ,ml_shift_bound_speed, "SPEED") < 0) CCTK_WARN(-1, "could not set SPEED value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_shift_bound, - "ML_ADM::shift", "Radiation"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_shift_bound, + "ML_ADM::ml_shift", "Radiation"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::shift!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_ADM::ml_shift!"); } @@ -615,67 +615,67 @@ void ML_ADM_ApplyBoundConds(CCTK_ARGUMENTS) } - if (CCTK_EQUALS(curv_bound, "scalar")) + if (CCTK_EQUALS(ml_curv_bound, "scalar")) { /* apply scalar boundary condition */ - CCTK_INT handle_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_curv_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_curv_bound ,curv_bound_scalar, "SCALAR") < 0) + CCTK_INT handle_ml_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_curv_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_curv_bound ,ml_curv_bound_scalar, "SCALAR") < 0) CCTK_WARN(-1, "could not set SCALAR value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_curv_bound, - "ML_ADM::curv", "scalar"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_curv_bound, + "ML_ADM::ml_curv", "scalar"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::curv!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::ml_curv!"); } - if (CCTK_EQUALS(lapse_bound, "scalar")) + if (CCTK_EQUALS(ml_lapse_bound, "scalar")) { /* apply scalar boundary condition */ - CCTK_INT handle_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_lapse_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_lapse_bound ,lapse_bound_scalar, "SCALAR") < 0) + CCTK_INT handle_ml_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_lapse_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_lapse_bound ,ml_lapse_bound_scalar, "SCALAR") < 0) CCTK_WARN(-1, "could not set SCALAR value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_lapse_bound, - "ML_ADM::lapse", "scalar"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_lapse_bound, + "ML_ADM::ml_lapse", "scalar"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::lapse!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::ml_lapse!"); } - if (CCTK_EQUALS(metric_bound, "scalar")) + if (CCTK_EQUALS(ml_metric_bound, "scalar")) { /* apply scalar boundary condition */ - CCTK_INT handle_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_metric_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_metric_bound ,metric_bound_scalar, "SCALAR") < 0) + CCTK_INT handle_ml_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_metric_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_metric_bound ,ml_metric_bound_scalar, "SCALAR") < 0) CCTK_WARN(-1, "could not set SCALAR value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_metric_bound, - "ML_ADM::metric", "scalar"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_metric_bound, + "ML_ADM::ml_metric", "scalar"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::metric!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::ml_metric!"); } - if (CCTK_EQUALS(shift_bound, "scalar")) + if (CCTK_EQUALS(ml_shift_bound, "scalar")) { /* apply scalar boundary condition */ - CCTK_INT handle_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_shift_bound < 0) CCTK_WARN(-1, "could not create table!"); - if (Util_TableSetReal(handle_shift_bound ,shift_bound_scalar, "SCALAR") < 0) + CCTK_INT handle_ml_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_ml_shift_bound < 0) CCTK_WARN(-1, "could not create table!"); + if (Util_TableSetReal(handle_ml_shift_bound ,ml_shift_bound_scalar, "SCALAR") < 0) CCTK_WARN(-1, "could not set SCALAR value in table!"); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_shift_bound, - "ML_ADM::shift", "scalar"); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ml_shift_bound, + "ML_ADM::ml_shift", "scalar"); if (ierr < 0) - CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::shift!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_ADM::ml_shift!"); } @@ -940,25 +940,25 @@ void ML_ADM_ApplyBoundConds(CCTK_ARGUMENTS) /* template for entries in parameter file: -#$bound$#ML_ADM::curv_bound = "skip" -#$bound$#ML_ADM::curv_bound_speed = 1.0 -#$bound$#ML_ADM::curv_bound_limit = 0.0 -#$bound$#ML_ADM::curv_bound_scalar = 0.0 +#$bound$#ML_ADM::ml_curv_bound = "skip" +#$bound$#ML_ADM::ml_curv_bound_speed = 1.0 +#$bound$#ML_ADM::ml_curv_bound_limit = 0.0 +#$bound$#ML_ADM::ml_curv_bound_scalar = 0.0 -#$bound$#ML_ADM::lapse_bound = "skip" -#$bound$#ML_ADM::lapse_bound_speed = 1.0 -#$bound$#ML_ADM::lapse_bound_limit = 0.0 -#$bound$#ML_ADM::lapse_bound_scalar = 0.0 +#$bound$#ML_ADM::ml_lapse_bound = "skip" +#$bound$#ML_ADM::ml_lapse_bound_speed = 1.0 +#$bound$#ML_ADM::ml_lapse_bound_limit = 0.0 +#$bound$#ML_ADM::ml_lapse_bound_scalar = 0.0 -#$bound$#ML_ADM::metric_bound = "skip" -#$bound$#ML_ADM::metric_bound_speed = 1.0 -#$bound$#ML_ADM::metric_bound_limit = 0.0 -#$bound$#ML_ADM::metric_bound_scalar = 0.0 +#$bound$#ML_ADM::ml_metric_bound = "skip" +#$bound$#ML_ADM::ml_metric_bound_speed = 1.0 +#$bound$#ML_ADM::ml_metric_bound_limit = 0.0 +#$bound$#ML_ADM::ml_metric_bound_scalar = 0.0 -#$bound$#ML_ADM::shift_bound = "skip" -#$bound$#ML_ADM::shift_bound_speed = 1.0 -#$bound$#ML_ADM::shift_bound_limit = 0.0 -#$bound$#ML_ADM::shift_bound_scalar = 0.0 +#$bound$#ML_ADM::ml_shift_bound = "skip" +#$bound$#ML_ADM::ml_shift_bound_speed = 1.0 +#$bound$#ML_ADM::ml_shift_bound_limit = 0.0 +#$bound$#ML_ADM::ml_shift_bound_scalar = 0.0 #$bound$#ML_ADM::K11_bound = "skip" #$bound$#ML_ADM::K11_bound_speed = 1.0 diff --git a/ML_ADM/src/ML_ADM_Minkowski.c b/ML_ADM/src/ML_ADM_Minkowski.c index 8b4b7b6..bfdfb22 100644 --- a/ML_ADM/src/ML_ADM_Minkowski.c +++ b/ML_ADM/src/ML_ADM_Minkowski.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_RHS.c b/ML_ADM/src/ML_ADM_RHS.c index db9a713..cc16858 100644 --- a/ML_ADM/src/ML_ADM_RHS.c +++ b/ML_ADM/src/ML_ADM_RHS.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_constraints.c b/ML_ADM/src/ML_ADM_constraints.c index 8dd52b2..f373870 100644 --- a/ML_ADM/src/ML_ADM_constraints.c +++ b/ML_ADM/src/ML_ADM_constraints.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.c b/ML_ADM/src/ML_ADM_convertFromADMBase.c index 1288d06..a5c0a03 100644 --- a/ML_ADM/src/ML_ADM_convertFromADMBase.c +++ b/ML_ADM/src/ML_ADM_convertFromADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.c b/ML_ADM/src/ML_ADM_convertToADMBase.c index 87dc888..39a3064 100644 --- a/ML_ADM/src/ML_ADM_convertToADMBase.c +++ b/ML_ADM/src/ML_ADM_convertToADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/RegisterMoL.c b/ML_ADM/src/RegisterMoL.c index a22fb2d..e65c17e 100644 --- a/ML_ADM/src/RegisterMoL.c +++ b/ML_ADM/src/RegisterMoL.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/RegisterSymmetries.c b/ML_ADM/src/RegisterSymmetries.c index b610f81..457279f 100644 --- a/ML_ADM/src/RegisterSymmetries.c +++ b/ML_ADM/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/Startup.c b/ML_ADM/src/Startup.c index 136b76f..644d208 100644 --- a/ML_ADM/src/Startup.c +++ b/ML_ADM/src/Startup.c @@ -1,5 +1,5 @@ -/* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/make.code.defn b/ML_ADM/src/make.code.defn index 6e2a3f8..2f29c3a 100644 --- a/ML_ADM/src/make.code.defn +++ b/ML_ADM/src/make.code.defn @@ -1,5 +1,5 @@ -# File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa |