From e60274fbe10387a17dcd3dd68ec89b8499bf8f82 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sun, 13 May 2007 04:01:00 +0000 Subject: 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 --- CarpetExtra/RegridSyncTest/schedule.ccl | 6 ++++++ CarpetExtra/RegridSyncTest/src/regridsynctest.F90 | 11 +++++++++++ 2 files changed, 17 insertions(+) (limited to 'CarpetExtra') 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 -- cgit v1.2.3