diff options
Diffstat (limited to 'CarpetExtra/RegridSyncTest')
-rw-r--r-- | CarpetExtra/RegridSyncTest/schedule.ccl | 6 | ||||
-rw-r--r-- | CarpetExtra/RegridSyncTest/src/regridsynctest.F90 | 10 |
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) |