From 6ba63f74aff5e48f8eb0d2dfde1053bbe3412d66 Mon Sep 17 00:00:00 2001 From: goodale Date: Wed, 19 Apr 2000 07:58:34 +0000 Subject: Removed explicit calls to sync and boundaries. Now the syncing is done via the schedular. Tom git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@17 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- schedule.ccl | 6 ++++++ src/WaveToy.F90 | 9 --------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/schedule.ccl b/schedule.ccl index 9686bca..b723678 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -16,4 +16,10 @@ schedule WaveToyFreeF90_InitSymBound at BASEGRID schedule WaveToyFreeF90_Evolution as WaveToy_Evolution at EVOL { LANG: Fortran + SYNC: scalarevolve } "Evolution of 3D wave equation" + +schedule WaveToyFreeF90_Boundaries as WaveToy_Boundaries at EVOL AFTER WaveToy_Evolution +{ + LANG: Fortran +} "Boundaries of 3D wave equation" diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 6ba1074..58e337f 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -91,15 +91,6 @@ subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) end do end do - ! Synchronize - ! ----------- - call CCTK_SyncGroup(cctkGH,"wavetoy::scalarevolve") - - ! Apply boundary conditions - ! ------------------------- - call WaveToyFreeF90_Boundaries(CCTK_PASS_FTOF) - - end subroutine WaveToyFreeF90_Evolution -- cgit v1.2.3