From 258a6712039d8cf7856f739b7eba47f7976af444 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 2 May 2012 10:02:40 -0400 Subject: Regenerate code, removing the *_O* and *_MP thorns --- ML_WaveToy/configuration.ccl | 6 - ML_WaveToy/interface.ccl | 52 -------- ML_WaveToy/param.ccl | 192 --------------------------- ML_WaveToy/schedule.ccl | 102 -------------- ML_WaveToy/src/Boundaries.cc | 249 ----------------------------------- ML_WaveToy/src/Differencing.h | 144 -------------------- ML_WaveToy/src/RegisterMoL.cc | 20 --- ML_WaveToy/src/RegisterSymmetries.cc | 29 ---- ML_WaveToy/src/Startup.cc | 10 -- ML_WaveToy/src/WT_Gaussian.cc | 132 ------------------- ML_WaveToy/src/WT_RHS.cc | 156 ---------------------- ML_WaveToy/src/make.code.defn | 3 - 12 files changed, 1095 deletions(-) delete mode 100644 ML_WaveToy/configuration.ccl delete mode 100644 ML_WaveToy/interface.ccl delete mode 100644 ML_WaveToy/param.ccl delete mode 100644 ML_WaveToy/schedule.ccl delete mode 100644 ML_WaveToy/src/Boundaries.cc delete mode 100644 ML_WaveToy/src/Differencing.h delete mode 100644 ML_WaveToy/src/RegisterMoL.cc delete mode 100644 ML_WaveToy/src/RegisterSymmetries.cc delete mode 100644 ML_WaveToy/src/Startup.cc delete mode 100644 ML_WaveToy/src/WT_Gaussian.cc delete mode 100644 ML_WaveToy/src/WT_RHS.cc delete mode 100644 ML_WaveToy/src/make.code.defn (limited to 'ML_WaveToy') diff --git a/ML_WaveToy/configuration.ccl b/ML_WaveToy/configuration.ccl deleted file mode 100644 index 0a66ec2..0000000 --- a/ML_WaveToy/configuration.ccl +++ /dev/null @@ -1,6 +0,0 @@ -# File produced by Kranc - -REQUIRES GenericFD -OPTIONAL LoopControl -{ -} diff --git a/ML_WaveToy/interface.ccl b/ML_WaveToy/interface.ccl deleted file mode 100644 index cda1f02..0000000 --- a/ML_WaveToy/interface.ccl +++ /dev/null @@ -1,52 +0,0 @@ -# File produced by Kranc - -implements: ML_WaveToy - -inherits: Grid GenericFD Boundary - - - -USES INCLUDE: GenericFD.h -USES INCLUDE: Symmetry.h -USES INCLUDE: sbp_calc_coeffs.h -USES INCLUDE: Boundary.h -USES INCLUDE: loopcontrol.h - -CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex) -USES FUNCTION MoLRegisterEvolved - -SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle) -USES FUNCTION Diff_coeff - -CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH) -USES FUNCTION MultiPatch_GetMap - -CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name) -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_rho type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0' -{ - rho -} "WT_rho" - -public: -CCTK_REAL WT_u type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0' -{ - u -} "WT_u" - -public: -CCTK_REAL WT_rhorhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0' -{ - rhorhs -} "WT_rhorhs" - -public: -CCTK_REAL WT_urhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0' -{ - urhs -} "WT_urhs" diff --git a/ML_WaveToy/param.ccl b/ML_WaveToy/param.ccl deleted file mode 100644 index dec4281..0000000 --- a/ML_WaveToy/param.ccl +++ /dev/null @@ -1,192 +0,0 @@ -# File produced by Kranc - - -shares: GenericFD - - - -shares: MethodOfLines - -USES CCTK_INT MoL_Num_Evolved_Vars -USES CCTK_INT MoL_Num_ArrayEvolved_Vars - -restricted: -CCTK_INT verbose "verbose" STEERABLE=ALWAYS -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_WaveToy_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER -{ - 2:2 :: "Number of evolved variables used by this thorn" -} 2 - -restricted: -CCTK_INT ML_WaveToy_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER -{ - 0:0 :: "Number of Array evolved variables used by this thorn" -} 0 - -restricted: -CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER -{ - 0:2 :: "" -} 2 - -restricted: -CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER -{ - 0:2 :: "" -} 1 - -restricted: -CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER -{ - 0:2 :: "" -} 1 - -restricted: -CCTK_INT WT_Gaussian_calc_every "WT_Gaussian_calc_every" STEERABLE=ALWAYS -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT WT_RHS_calc_every "WT_RHS_calc_every" STEERABLE=ALWAYS -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT WT_Gaussian_calc_offset "WT_Gaussian_calc_offset" STEERABLE=ALWAYS -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT WT_RHS_calc_offset "WT_RHS_calc_offset" STEERABLE=ALWAYS -{ - *:* :: "" -} 0 - -private: -KEYWORD rho_bound "Boundary condition to implement" STEERABLE=ALWAYS -{ - "flat" :: "Flat boundary condition" - "none" :: "No boundary condition" - "static" :: "Boundaries held fixed" - "radiative" :: "Radiation boundary condition" - "scalar" :: "Dirichlet boundary condition" - "newrad" :: "Improved radiative boundary condition" - "skip" :: "skip boundary condition code" -} "skip" - -private: -KEYWORD u_bound "Boundary condition to implement" STEERABLE=ALWAYS -{ - "flat" :: "Flat boundary condition" - "none" :: "No boundary condition" - "static" :: "Boundaries held fixed" - "radiative" :: "Radiation boundary condition" - "scalar" :: "Dirichlet boundary condition" - "newrad" :: "Improved radiative boundary condition" - "skip" :: "skip boundary condition code" -} "skip" - -private: -KEYWORD WT_rho_bound "Boundary condition to implement" STEERABLE=ALWAYS -{ - "flat" :: "Flat boundary condition" - "none" :: "No boundary condition" - "static" :: "Boundaries held fixed" - "radiative" :: "Radiation boundary condition" - "scalar" :: "Dirichlet boundary condition" - "newrad" :: "Improved radiative boundary condition" - "skip" :: "skip boundary condition code" -} "none" - -private: -KEYWORD WT_u_bound "Boundary condition to implement" STEERABLE=ALWAYS -{ - "flat" :: "Flat boundary condition" - "none" :: "No boundary condition" - "static" :: "Boundaries held fixed" - "radiative" :: "Radiation boundary condition" - "scalar" :: "Dirichlet boundary condition" - "newrad" :: "Improved radiative boundary condition" - "skip" :: "skip boundary condition code" -} "none" - -private: -CCTK_REAL rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL WT_rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL WT_u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL WT_rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL WT_u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL WT_rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL WT_u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS -{ - "*:*" :: "unrestricted" -} 0. - diff --git a/ML_WaveToy/schedule.ccl b/ML_WaveToy/schedule.ccl deleted file mode 100644 index 20b055e..0000000 --- a/ML_WaveToy/schedule.ccl +++ /dev/null @@ -1,102 +0,0 @@ -# File produced by Kranc - - -if (timelevels == 1) -{ - STORAGE: WT_rho[1] -} -if (timelevels == 2) -{ - STORAGE: WT_rho[2] -} - -if (timelevels == 1) -{ - STORAGE: WT_u[1] -} -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 - OPTIONS: meta -} "create banner" - -schedule ML_WaveToy_RegisterSymmetries in SymmetryRegister -{ - LANG: C - OPTIONS: meta -} "register symmetries" - -schedule WT_Gaussian AT initial -{ - LANG: C - WRITES: ML_WaveToy::WT_rho - WRITES: ML_WaveToy::WT_u -} "WT_Gaussian" - -schedule WT_RHS IN MoL_CalcRHS -{ - LANG: C - READS: ML_WaveToy::WT_rho - READS: ML_WaveToy::WT_u - WRITES: ML_WaveToy::WT_rhorhs - WRITES: ML_WaveToy::WT_urhs -} "WT_RHS" - -schedule WT_RHS AT analysis -{ - LANG: C - SYNC: WT_rhorhs - SYNC: WT_urhs - READS: ML_WaveToy::WT_rho - READS: ML_WaveToy::WT_u - WRITES: ML_WaveToy::WT_rhorhs - WRITES: ML_WaveToy::WT_urhs -} "WT_RHS" - -schedule ML_WaveToy_SelectBoundConds in MoL_PostStep -{ - LANG: C - OPTIONS: level - SYNC: WT_rho - SYNC: WT_u -} "select boundary conditions" - -schedule ML_WaveToy_CheckBoundaries at BASEGRID -{ - LANG: C - OPTIONS: meta -} "check boundaries treatment" - -schedule ML_WaveToy_RegisterVars in MoL_Register -{ - LANG: C - OPTIONS: meta -} "Register Variables for MoL" - -schedule group ApplyBCs as ML_WaveToy_ApplyBCs in MoL_PostStep after ML_WaveToy_SelectBoundConds -{ - # no language specified -} "Apply boundary conditions controlled by thorn Boundary" diff --git a/ML_WaveToy/src/Boundaries.cc b/ML_WaveToy/src/Boundaries.cc deleted file mode 100644 index 1e5f99e..0000000 --- a/ML_WaveToy/src/Boundaries.cc +++ /dev/null @@ -1,249 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "cctk_Faces.h" -#include "util_Table.h" -#include "Symmetry.h" - - -/* the boundary treatment is split into 3 steps: */ -/* 1. excision */ -/* 2. symmetries */ -/* 3. "other" boundary conditions, e.g. radiative */ - -/* to simplify scheduling and testing, the 3 steps */ -/* are currently applied in separate functions */ - - -extern "C" void ML_WaveToy_CheckBoundaries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - return; -} - -extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - - if (CCTK_EQUALS(WT_rho_bound, "none" ) || - CCTK_EQUALS(WT_rho_bound, "static") || - CCTK_EQUALS(WT_rho_bound, "flat" ) || - CCTK_EQUALS(WT_rho_bound, "zero" ) ) - { - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_WaveToy::WT_rho", WT_rho_bound); - if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_rho_bound BC for ML_WaveToy::WT_rho!"); - } - - if (CCTK_EQUALS(WT_u_bound, "none" ) || - CCTK_EQUALS(WT_u_bound, "static") || - CCTK_EQUALS(WT_u_bound, "flat" ) || - CCTK_EQUALS(WT_u_bound, "zero" ) ) - { - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_WaveToy::WT_u", WT_u_bound); - if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_u_bound BC for ML_WaveToy::WT_u!"); - } - - if (CCTK_EQUALS(rho_bound, "none" ) || - CCTK_EQUALS(rho_bound, "static") || - CCTK_EQUALS(rho_bound, "flat" ) || - CCTK_EQUALS(rho_bound, "zero" ) ) - { - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_WaveToy::rho", rho_bound); - if (ierr < 0) - CCTK_WARN(0, "Failed to register rho_bound BC for ML_WaveToy::rho!"); - } - - if (CCTK_EQUALS(u_bound, "none" ) || - CCTK_EQUALS(u_bound, "static") || - CCTK_EQUALS(u_bound, "flat" ) || - CCTK_EQUALS(u_bound, "zero" ) ) - { - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, - "ML_WaveToy::u", u_bound); - if (ierr < 0) - CCTK_WARN(0, "Failed to register u_bound BC for ML_WaveToy::u!"); - } - - if (CCTK_EQUALS(WT_rho_bound, "radiative")) - { - /* select radiation boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); - - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, - "ML_WaveToy::WT_rho", "Radiation"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_rho!"); - - } - - if (CCTK_EQUALS(WT_u_bound, "radiative")) - { - /* select radiation boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); - - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, - "ML_WaveToy::WT_u", "Radiation"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_u!"); - - } - - if (CCTK_EQUALS(rho_bound, "radiative")) - { - /* select radiation boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_rho_bound ,rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); - - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, - "ML_WaveToy::rho", "Radiation"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::rho!"); - - } - - if (CCTK_EQUALS(u_bound, "radiative")) - { - /* select radiation boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); - if (Util_TableSetReal(handle_u_bound ,u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); - - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, - "ML_WaveToy::u", "Radiation"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::u!"); - - } - - if (CCTK_EQUALS(WT_rho_bound, "scalar")) - { - /* select scalar boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); - - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, - "ML_WaveToy::WT_rho", "scalar"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_rho!"); - - } - - if (CCTK_EQUALS(WT_u_bound, "scalar")) - { - /* select scalar boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); - - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, - "ML_WaveToy::WT_u", "scalar"); - - if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_u!"); - - } - - if (CCTK_EQUALS(rho_bound, "scalar")) - { - /* select scalar boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); - - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, - "ML_WaveToy::rho", "scalar"); - - if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::rho!"); - - } - - if (CCTK_EQUALS(u_bound, "scalar")) - { - /* select scalar boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); - if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); - - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, - "ML_WaveToy::u", "scalar"); - - if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::u!"); - - } - return; -} - - - -/* template for entries in parameter file: -#$bound$#ML_WaveToy::WT_rho_bound = "skip" -#$bound$#ML_WaveToy::WT_rho_bound_speed = 1.0 -#$bound$#ML_WaveToy::WT_rho_bound_limit = 0.0 -#$bound$#ML_WaveToy::WT_rho_bound_scalar = 0.0 - -#$bound$#ML_WaveToy::WT_u_bound = "skip" -#$bound$#ML_WaveToy::WT_u_bound_speed = 1.0 -#$bound$#ML_WaveToy::WT_u_bound_limit = 0.0 -#$bound$#ML_WaveToy::WT_u_bound_scalar = 0.0 - -#$bound$#ML_WaveToy::rho_bound = "skip" -#$bound$#ML_WaveToy::rho_bound_speed = 1.0 -#$bound$#ML_WaveToy::rho_bound_limit = 0.0 -#$bound$#ML_WaveToy::rho_bound_scalar = 0.0 - -#$bound$#ML_WaveToy::u_bound = "skip" -#$bound$#ML_WaveToy::u_bound_speed = 1.0 -#$bound$#ML_WaveToy::u_bound_limit = 0.0 -#$bound$#ML_WaveToy::u_bound_scalar = 0.0 - -*/ - diff --git a/ML_WaveToy/src/Differencing.h b/ML_WaveToy/src/Differencing.h deleted file mode 100644 index b27ce50..0000000 --- a/ML_WaveToy/src/Differencing.h +++ /dev/null @@ -1,144 +0,0 @@ -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth1(u) ((-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx) -#else -# define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk)) -static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth2(u) ((-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy) -#else -# define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk)) -static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth3(u) ((-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz) -#else -# define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk)) -static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth11(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2) -#else -# define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk)) -static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth22(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2) -#else -# define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk)) -static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth33(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2) -#else -# define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk)) -static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth12(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy) -#else -# define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk)) -static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth13(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz) -#else -# define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk)) -static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth21(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy) -#else -# define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk)) -static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth23(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz) -#else -# define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk)) -static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth31(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz) -#else -# define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk)) -static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth32(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz) -#else -# define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk)) -static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz; -} -#endif - diff --git a/ML_WaveToy/src/RegisterMoL.cc b/ML_WaveToy/src/RegisterMoL.cc deleted file mode 100644 index 8881277..0000000 --- a/ML_WaveToy/src/RegisterMoL.cc +++ /dev/null @@ -1,20 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" - -extern "C" void ML_WaveToy_RegisterVars(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - - /* Register all the evolved grid functions with MoL */ - ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy::rho"), CCTK_VarIndex("ML_WaveToy::rhorhs")); - ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy::u"), CCTK_VarIndex("ML_WaveToy::urhs")); - - /* Register all the evolved Array functions with MoL */ - return; -} diff --git a/ML_WaveToy/src/RegisterSymmetries.cc b/ML_WaveToy/src/RegisterSymmetries.cc deleted file mode 100644 index ae89b96..0000000 --- a/ML_WaveToy/src/RegisterSymmetries.cc +++ /dev/null @@ -1,29 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "Symmetry.h" - -extern "C" void ML_WaveToy_RegisterSymmetries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* array holding symmetry definitions */ - CCTK_INT sym[3]; - - - /* Register symmetries of grid functions */ - sym[0] = 1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_WaveToy::rho"); - - sym[0] = 1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_WaveToy::u"); - -} diff --git a/ML_WaveToy/src/Startup.cc b/ML_WaveToy/src/Startup.cc deleted file mode 100644 index 5f3d2bd..0000000 --- a/ML_WaveToy/src/Startup.cc +++ /dev/null @@ -1,10 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" - -extern "C" int ML_WaveToy_Startup(void) -{ - const char * banner = "ML_WaveToy"; - CCTK_RegisterBanner(banner); - return 0; -} diff --git a/ML_WaveToy/src/WT_Gaussian.cc b/ML_WaveToy/src/WT_Gaussian.cc deleted file mode 100644 index c88259e..0000000 --- a/ML_WaveToy/src/WT_Gaussian.cc +++ /dev/null @@ -1,132 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include -#include -#include -#include -#include -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "cctk_Loop.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define QAD(x) (SQR(SQR(x))) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) - -static void WT_Gaussian_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 imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - ptrdiff_t const di = 1; - ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; - CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0)); - CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); - CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); - CCTK_REAL const t = ToReal(cctk_time); - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx); - CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy); - CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz); - CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy); - CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz); - CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz); - CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx)); - CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy)); - CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz)); - - /* Assign local copies of arrays functions */ - - - - /* Calculate temporaries and arrays functions */ - - /* Copy local copies back to grid functions */ - - /* Loop over the grid points */ - #pragma omp parallel - CCTK_LOOP3(WT_Gaussian, - i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - ptrdiff_t const index = di*i + dj*j + dk*k; - - /* Assign local copies of grid functions */ - - - - /* Include user supplied include files */ - - /* Precompute derivatives */ - - /* Calculate temporaries and grid functions */ - CCTK_REAL uL = 0; - - CCTK_REAL rhoL = 0; - - /* Copy local copies back to grid functions */ - rho[index] = rhoL; - u[index] = uL; - } - CCTK_ENDLOOP3(WT_Gaussian); -} - -extern "C" void WT_Gaussian(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering WT_Gaussian_Body"); - } - - if (cctk_iteration % WT_Gaussian_calc_every != WT_Gaussian_calc_offset) - { - return; - } - - const char *const groups[] = { - "ML_WaveToy::WT_rho", - "ML_WaveToy::WT_u"}; - GenericFD_AssertGroupStorage(cctkGH, "WT_Gaussian", 2, groups); - - - GenericFD_LoopOverEverything(cctkGH, WT_Gaussian_Body); - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Leaving WT_Gaussian_Body"); - } -} diff --git a/ML_WaveToy/src/WT_RHS.cc b/ML_WaveToy/src/WT_RHS.cc deleted file mode 100644 index 2dd39f9..0000000 --- a/ML_WaveToy/src/WT_RHS.cc +++ /dev/null @@ -1,156 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include -#include -#include -#include -#include -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "cctk_Loop.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define QAD(x) (SQR(SQR(x))) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) - -extern "C" void WT_RHS_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_WaveToy::WT_rhorhs","flat"); - if (ierr < 0) - CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_rhorhs."); - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToy::WT_urhs","flat"); - if (ierr < 0) - CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_urhs."); - return; -} - -static void WT_RHS_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 imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - ptrdiff_t const di = 1; - ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; - CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0)); - CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); - CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); - CCTK_REAL const t = ToReal(cctk_time); - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx); - CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy); - CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz); - CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy); - CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz); - CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz); - CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx)); - CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy)); - CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz)); - - /* Assign local copies of arrays functions */ - - - - /* Calculate temporaries and arrays functions */ - - /* Copy local copies back to grid functions */ - - /* Loop over the grid points */ - #pragma omp parallel - CCTK_LOOP3(WT_RHS, - i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - ptrdiff_t const index = di*i + dj*j + dk*k; - - /* Assign local copies of grid functions */ - - CCTK_REAL rhoL = rho[index]; - CCTK_REAL uL = u[index]; - - - /* Include user supplied include files */ - - /* Precompute derivatives */ - CCTK_REAL const PDstandardNth11u = PDstandardNth11(&u[index]); - CCTK_REAL const PDstandardNth22u = PDstandardNth22(&u[index]); - CCTK_REAL const PDstandardNth33u = PDstandardNth33(&u[index]); - - /* Calculate temporaries and grid functions */ - CCTK_REAL urhsL = rhoL; - - CCTK_REAL rhorhsL = PDstandardNth11u + PDstandardNth22u + - PDstandardNth33u; - - /* Copy local copies back to grid functions */ - rhorhs[index] = rhorhsL; - urhs[index] = urhsL; - } - CCTK_ENDLOOP3(WT_RHS); -} - -extern "C" void WT_RHS(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering WT_RHS_Body"); - } - - if (cctk_iteration % WT_RHS_calc_every != WT_RHS_calc_offset) - { - return; - } - - const char *const groups[] = { - "ML_WaveToy::WT_rho", - "ML_WaveToy::WT_rhorhs", - "ML_WaveToy::WT_u", - "ML_WaveToy::WT_urhs"}; - GenericFD_AssertGroupStorage(cctkGH, "WT_RHS", 4, groups); - - GenericFD_EnsureStencilFits(cctkGH, "WT_RHS", 2, 2, 2); - - GenericFD_LoopOverInterior(cctkGH, WT_RHS_Body); - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Leaving WT_RHS_Body"); - } -} diff --git a/ML_WaveToy/src/make.code.defn b/ML_WaveToy/src/make.code.defn deleted file mode 100644 index a36e2d9..0000000 --- a/ML_WaveToy/src/make.code.defn +++ /dev/null @@ -1,3 +0,0 @@ -# File produced by Kranc - -SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc WT_Gaussian.cc WT_RHS.cc Boundaries.cc -- cgit v1.2.3