diff options
| author | Anton Khirnov <anton@khirnov.net> | 2019-07-11 13:01:42 +0200 |
|---|---|---|
| committer | Anton Khirnov <anton@khirnov.net> | 2019-07-11 13:04:07 +0200 |
| commit | 597796a929acc0ec241b2bf66d8c560cbe852b4a (patch) | |
| tree | 4a6c8707ad3e883876f8fd3fd4f85fa2178dc825 /src | |
| parent | b96c89a5cce040424bb6031bdacb008a6c956dd1 (diff) | |
Move the QMS source function to BSSN.
Diffstat (limited to 'src')
| -rw-r--r-- | src/make.code.defn | 2 | ||||
| -rw-r--r-- | src/qms.c | 7 | ||||
| -rw-r--r-- | src/register.c | 9 |
3 files changed, 7 insertions, 11 deletions
diff --git a/src/make.code.defn b/src/make.code.defn index 2863409..5171428 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -1,7 +1,7 @@ # Main make.code.defn file for thorn MaximalSlicingAxi # Source files in this directory -SRCS = basis.c bicgstab.c qms.c qms_solve.c pssolve.c register.c +SRCS = basis.c bicgstab.c qms.c qms_solve.c pssolve.c # Subdirectories containing source files SUBDIRS = @@ -353,7 +353,7 @@ void quasimaximal_slicing_axi_eval(CCTK_ARGUMENTS) int64_t expand_start; - double *coeffs = NULL; + double *coeffs = NULL, *W; int i, ret; if (!qms_context) @@ -393,6 +393,11 @@ void quasimaximal_slicing_axi_eval(CCTK_ARGUMENTS) } #endif + if (ccz4) + W = CCTK_VarDataPtr(cctkGH, 0, "ML_CCZ4::W"); + else + W = CCTK_VarDataPtr(cctkGH, 0, "ML_BSSN::W"); + CCTK_TimerStart("QuasiMaximalSlicing_Expand"); expand_start = gettime(); #if 0 diff --git a/src/register.c b/src/register.c deleted file mode 100644 index 65c2d21..0000000 --- a/src/register.c +++ /dev/null @@ -1,9 +0,0 @@ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "Slicing.h" - -void qms_register_mol(CCTK_ARGUMENTS) -{ - MoLRegisterConstrained(CCTK_VarIndex("QuasiMaximalSlicing::W")); -} |