diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-05-13 04:01:00 +0000 |
|---|---|---|
| committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-05-13 04:01:00 +0000 |
| commit | e60274fbe10387a17dcd3dd68ec89b8499bf8f82 (patch) | |
| tree | e41301901b8449160f258a31118afb9df670aa32 /CarpetExtra | |
| parent | 61864b8dcffcc0ea9ac07ad13fb92354124f26b3 (diff) | |
RegridSyncTest: Initialise the current time level in the evol bin
Initialise the current time level in the evol bin.
darcs-hash:20070513040155-dae7b-4c5c55c32752b32f2bd98a1adb701574de7b65f9.gz
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 |