From 88a0a1799137bd7ff3506301b3024fc9d3fcc366 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392>
Date: Fri, 7 Jan 2000 09:52:35 +0000
Subject: rotating binary charges

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@19 f5a6acaf-da7d-456b-b0a8-35edbc60b392
---
 schedule.ccl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
index d5d569f..9725db8 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,6 +1,26 @@
 # Schedule definitions for thorn IDScalarWave
 # $Header$
 
+
+if (CCTK_Equals(binary_source,"yes")||CCTK_Equals(binary_source,"fast"))
+{ 
+  schedule WaveBinary at EVOL after WaveToyF77_Evolution
+  {  
+    STORAGE: wavetoy::scalarevolve
+    LANG:    Fortran
+  } "Provide binary source during evolution"
+}
+
+if (CCTK_Equals(binary_source,"slow"))
+{ 
+  schedule WaveBinarySlow at EVOL after WaveToyF77_Evolution
+  {  
+    STORAGE: wavetoy::scalarevolve
+    LANG:    Fortran
+  } "Provide binary source during evolution"
+}
+
+
 schedule IDScalarWave_CheckParameters at CCTK_PARAMCHECK
 {
   LANG: Fortran
@@ -12,3 +32,4 @@ schedule IDScalarWave_InitialData at CCTK_INITIAL
   COMMUNICATION: wavetoy::scalarevolve
   LANG:          Fortran
 } "Initial data for 3D wave equation"
+
-- 
cgit v1.2.3