From c5c68fbff7f9b27f7bb7439b6fcc77879823dcd9 Mon Sep 17 00:00:00 2001 From: lars Date: Wed, 21 Jul 1999 09:50:23 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@3 89daf98e-ef62-4674-b946-b8ff9de2216c --- schedule.ccl | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 schedule.ccl (limited to 'schedule.ccl') diff --git a/schedule.ccl b/schedule.ccl new file mode 100644 index 0000000..635ec9b --- /dev/null +++ b/schedule.ccl @@ -0,0 +1,31 @@ +# Schedule definitions for thorn AHFinder +#c/*@@ +#c @date July 1999 +#c @author Lars Nerger +#c @@*/ + + +if (ahf_active && ah_persists) +{ + STORAGE: ahfindergrid,ahfmask + COMMUNICATION: ahfindergrid,ahfmask + + schedule ahfinder at CCTK_POSTSTEP + { + LANG: Fortran + STORAGE: ahfgradient,ahfinder_gauss,find3grid + COMMUNICATION: ahfgradient,ahfinder_gauss,find3grid + } "Call apparent horizon finder with persisting grid" +} + +else if (ahf_active) +{ + schedule ahfinder at CCTK_POSTSTEP + { + LANG: Fortran + STORAGE:ahfgradient,ahfinder_gauss,find3grid,ahfindergrid,ahfmask + COMMUNICATION: ahfgradient,ahfinder_gauss,find3grid,ahfindergrid,ahfmask + } "Call apparent horizon finder" +} + + -- cgit v1.2.3