From 8cc9862630bb22060c3cd273ca5107464709e08d Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 13 Feb 2008 14:47:17 -0600 Subject: Re-generate all code --- ML_BSSN_Helper/param.ccl | 4 ++++ ML_BSSN_Helper/schedule.ccl | 28 ++++++++++++++++++++++------ 2 files changed, 26 insertions(+), 6 deletions(-) (limited to 'ML_BSSN_Helper') diff --git a/ML_BSSN_Helper/param.ccl b/ML_BSSN_Helper/param.ccl index d43cadf..e9a7784 100644 --- a/ML_BSSN_Helper/param.ccl +++ b/ML_BSSN_Helper/param.ccl @@ -5,3 +5,7 @@ USES KEYWORD evolution_method SHARES: GenericFD USES CCTK_INT boundary_width + +SHARES: ML_BSSN + +USES CCTK_INT timelevels diff --git a/ML_BSSN_Helper/schedule.ccl b/ML_BSSN_Helper/schedule.ccl index a81d31c..d373202 100644 --- a/ML_BSSN_Helper/schedule.ccl +++ b/ML_BSSN_Helper/schedule.ccl @@ -1,11 +1,27 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) { - STORAGE: ADMBase::metric[3] - STORAGE: ADMBase::curv[3] - STORAGE: ADMBase::lapse[3] - STORAGE: ADMBase::shift[3] - STORAGE: ADMBase::dtlapse[3] - STORAGE: ADMBase::dtshift[3] + if (timelevels == 1) { + STORAGE: ADMBase::metric[1] + STORAGE: ADMBase::curv[1] + STORAGE: ADMBase::lapse[1] + STORAGE: ADMBase::shift[1] + STORAGE: ADMBase::dtlapse[1] + STORAGE: ADMBase::dtshift[1] + } else if (timelevels == 2) { + STORAGE: ADMBase::metric[2] + STORAGE: ADMBase::curv[2] + STORAGE: ADMBase::lapse[2] + STORAGE: ADMBase::shift[2] + STORAGE: ADMBase::dtlapse[2] + STORAGE: ADMBase::dtshift[2] + } else if (timelevels == 3) { + STORAGE: ADMBase::metric[3] + STORAGE: ADMBase::curv[3] + STORAGE: ADMBase::lapse[3] + STORAGE: ADMBase::shift[3] + STORAGE: ADMBase::dtlapse[3] + STORAGE: ADMBase::dtshift[3] + } SCHEDULE ML_BSSN_RegisterSlicing AT startup { -- cgit v1.2.3