diff options
Diffstat (limited to 'CarpetExtra')
-rw-r--r-- | CarpetExtra/RegridSyncTest/schedule.ccl | 6 | ||||
-rw-r--r-- | CarpetExtra/RegridSyncTest/src/regridsynctest.F90 | 11 |
2 files changed, 17 insertions, 0 deletions
diff --git a/CarpetExtra/RegridSyncTest/schedule.ccl b/CarpetExtra/RegridSyncTest/schedule.ccl index 55b10ebb6..35a26e58b 100644 --- a/CarpetExtra/RegridSyncTest/schedule.ccl +++ b/CarpetExtra/RegridSyncTest/schedule.ccl @@ -15,3 +15,9 @@ schedule RegridSyncTest_do_something AT PostRegrid SYNC: myregridtestgf } "Do something at postregrid and try to sync" + +schedule RegridSyncTest_evolve AT CCTK_EVOL +{ + LANG: Fortran + SYNC: myregridtestgf +} "Do something at evol" diff --git a/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 index d0c84d27d..d93d6844e 100644 --- a/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 +++ b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 @@ -27,3 +27,14 @@ subroutine RegridSyncTest_do_something(CCTK_ARGUMENTS) end subroutine RegridSyncTest_do_something + + +subroutine RegridSyncTest_evolve(CCTK_ARGUMENTS) + + implicit none + DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS + + myregridtestgf = 0.8d0 + +end subroutine RegridSyncTest_evolve |