RegridSyncTest: New routine that does nothing but syncing.

darcs-hash:20070515013350-fff0f-fed86411ecaf7ccc47c32b0c6829078be2c4932d.gz

2 files changed, 16 insertions, 0 deletions

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)