From 6af885f4ff90d496a972d2d8177479512dcb4cbe Mon Sep 17 00:00:00 2001
From: diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Mon, 14 Jul 2008 22:37:12 +0000
Subject: Added functionality to set up public grid functions (sbp_dx, sbp_dy,
 sbp_dz) containing the delta's used in the Kreiss-Oliger type dissipation.
 This is activated with a parameter (use_variable_deltas) and a routine
 (SBP_DeltaInitial) is scheduled at BASEGRID to set the default values
 initially. The grid functions can be modified later by a scheduled user
 function if so desired.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@116 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 schedule.ccl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
index e4c492d..3fd0600 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -4,10 +4,23 @@
 # Mask for norms
 STORAGE: normmask
 
+if (use_variable_deltas)
+{
+  STORAGE: deltas
+}
+
 SCHEDULE SBP_SetNormMask AT basegrid
 {
   LANG: Fortran
-} "Setup the mask for the calulcation of the norm"
+} "Setup the mask for the calculation of the norm"
+
+if (use_variable_deltas)
+{
+  SCHEDULE SBP_DeltaInitial AT basegrid
+  {
+    LANG: Fortran
+  } "Initialize dissipation deltas"
+}
 
 if (check_grid_sizes)
 {
-- 
cgit v1.2.3