From 9c305228e04c8f92afcfb2b6c7be771204f3af53 Mon Sep 17 00:00:00 2001
From: cott <schnetter@cct.lsu.edu>
Date: Tue, 15 May 2007 01:33:00 +0000
Subject: RegridSyncTest: New routine that does nothing but syncing.

darcs-hash:20070515013350-fff0f-fed86411ecaf7ccc47c32b0c6829078be2c4932d.gz
---
 CarpetExtra/RegridSyncTest/schedule.ccl           |  6 ++++++
 CarpetExtra/RegridSyncTest/src/regridsynctest.F90 | 10 ++++++++++
 2 files changed, 16 insertions(+)

(limited to 'CarpetExtra/RegridSyncTest')

diff --git a/CarpetExtra/RegridSyncTest/schedule.ccl b/CarpetExtra/RegridSyncTest/schedule.ccl
index 47a971d11..d5ef873ea 100644
--- a/CarpetExtra/RegridSyncTest/schedule.ccl
+++ b/CarpetExtra/RegridSyncTest/schedule.ccl
@@ -22,6 +22,12 @@ schedule RegridSyncTest_evolve AT CCTK_EVOL
   SYNC: myregridtestgf
 } "Do something at evol"
 
+schedule regridsynctest_sync AT POSTREGRID BEFORE regridsynctest_output
+{
+  LANG: Fortran
+  SYNC: myregridtestgf
+} "Dummy routine for sync-ing"
+
 schedule regridsynctest_output AT POSTREGRID BEFORE RegridSyncTest_do_something
 {
   LANG: C
diff --git a/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90
index d93d6844e..868dee8af 100644
--- a/CarpetExtra/RegridSyncTest/src/regridsynctest.F90
+++ b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90
@@ -15,6 +15,16 @@ subroutine RegridSyncTest_setup(CCTK_ARGUMENTS)
 
 end subroutine RegridSyncTest_setup
 
+subroutine RegridSyncTest_sync(CCTK_ARGUMENTS)
+
+  implicit none
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_ARGUMENTS
+
+!  :-)
+
+end subroutine RegridSyncTest_sync
+
 
 
 subroutine RegridSyncTest_do_something(CCTK_ARGUMENTS)
-- 
cgit v1.2.3