From 597796a929acc0ec241b2bf66d8c560cbe852b4a Mon Sep 17 00:00:00 2001 From: Anton Khirnov Date: Thu, 11 Jul 2019 13:01:42 +0200 Subject: Move the QMS source function to BSSN. --- src/make.code.defn | 2 +- src/qms.c | 7 ++++++- src/register.c | 9 --------- 3 files changed, 7 insertions(+), 11 deletions(-) delete mode 100644 src/register.c (limited to 'src') 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 = diff --git a/src/qms.c b/src/qms.c index 54cd657..839f16d 100644 --- a/src/qms.c +++ b/src/qms.c @@ -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")); -} -- cgit v1.2.3