diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2010-10-11 20:32:55 -0500 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2010-10-11 20:32:55 -0500 |
commit | 8e1f20f46f07170786de75fae15ffee82149dfcf (patch) | |
tree | 0992b207543c7499241e61b121413f7e7e529ced /ML_ADMQuantities_O2 | |
parent | 15d57eb888fdcd68b873b02b0468e5508a02c581 (diff) |
Regenerate code
Diffstat (limited to 'ML_ADMQuantities_O2')
-rw-r--r-- | ML_ADMQuantities_O2/interface.ccl | 4 | ||||
-rw-r--r-- | ML_ADMQuantities_O2/schedule.ccl | 2 | ||||
-rw-r--r-- | ML_ADMQuantities_O2/src/Boundaries.c | 4 | ||||
-rw-r--r-- | ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.c | 15 |
4 files changed, 20 insertions, 5 deletions
diff --git a/ML_ADMQuantities_O2/interface.ccl b/ML_ADMQuantities_O2/interface.ccl index f87218f..135a9a5 100644 --- a/ML_ADMQuantities_O2/interface.ccl +++ b/ML_ADMQuantities_O2/interface.ccl @@ -25,7 +25,7 @@ CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT USES FUNCTION Boundary_SelectVarForBC public: -CCTK_REAL ML_Jadm type=GF timelevels=3 tags='tensortypealias="D" tensorweight=1.0000000000000000000' +CCTK_REAL ML_Jadm type=GF timelevels=3 tags='tensortypealias="D" tensorweight=1' { Jadm1, Jadm2, @@ -33,7 +33,7 @@ CCTK_REAL ML_Jadm type=GF timelevels=3 tags='tensortypealias="D" tensorweight=1. } "ML_Jadm" public: -CCTK_REAL ML_Madm type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' +CCTK_REAL ML_Madm type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1' { Madm } "ML_Madm" diff --git a/ML_ADMQuantities_O2/schedule.ccl b/ML_ADMQuantities_O2/schedule.ccl index c48d48c..5fc101c 100644 --- a/ML_ADMQuantities_O2/schedule.ccl +++ b/ML_ADMQuantities_O2/schedule.ccl @@ -42,7 +42,7 @@ schedule ML_ADMQuantities_O2_CheckBoundaries at BASEGRID OPTIONS: meta } "check boundaries treatment" -schedule group ApplyBCs as ML_ADMQuantities_O2_ApplyBCs in MoL_PseudoEvolution after ML_ADMQuantities_O2_SelectBoundConds +schedule group ApplyBCs as ML_ADMQuantities_O2_ApplyBCs in MoL_PseudoEvolution after ML_ADMQuantities_O2_SelectBoundConds { # no language specified } "Apply boundary conditions controlled by thorn Boundary" diff --git a/ML_ADMQuantities_O2/src/Boundaries.c b/ML_ADMQuantities_O2/src/Boundaries.c index eb94663..d6af075 100644 --- a/ML_ADMQuantities_O2/src/Boundaries.c +++ b/ML_ADMQuantities_O2/src/Boundaries.c @@ -31,10 +31,10 @@ void ML_ADMQuantities_O2_SelectBoundConds(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; - ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, -1, "ML_ADMQuantities_O2::ML_Jadm", "scalar"); + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "ML_ADMQuantities_O2::ML_Jadm", "scalar"); if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ML_ADMQuantities_O2::ML_Jadm"); - ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, -1, "ML_ADMQuantities_O2::ML_Madm", "scalar"); + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "ML_ADMQuantities_O2::ML_Madm", "scalar"); if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ML_ADMQuantities_O2::ML_Madm"); } diff --git a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.c b/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.c index 9dfac8d..0560715 100644 --- a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.c +++ b/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.c @@ -20,6 +20,21 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) +void ML_ADMQuantities_O2_SelectBCs(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + CCTK_INT ierr = 0; + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_O2::ML_Jadm","flat"); + if (ierr < 0) + CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_O2::ML_Jadm."); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_O2::ML_Madm","flat"); + if (ierr < 0) + CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_O2::ML_Madm."); + return; +} + void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const min[3], int const max[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[]) { DECLARE_CCTK_ARGUMENTS; |