From adb278b7109cc35ea4e934567ead92ac67c766a3 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 30 Sep 2003 09:19:05 +0000 Subject: Now schedules EHFinder_MarkSurfaces followed by EHFinder_ApplySymSC in the new group EHFinder_MarkPoints. This is because I finally got around to use the CartGrid3D symmetry routines that were fixed some time ago to work on integer variables as well. Changed the name of EHFinder_IntegrateEquatorial to EHFinder_IntegrateCircumference (exactly 31 characters long). git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@148 2a26948c-0e4f-0410-aee8-f1d3e353619c --- schedule.ccl | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) (limited to 'schedule.ccl') diff --git a/schedule.ccl b/schedule.ccl index ab8b651..3e9f6ab 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -154,7 +154,13 @@ schedule EHFinder_CountSurfaces in EHFinder_CountMarkSurfaces SYNC: surface_index } "Check if there are more surfaces" -schedule EHFinder_MarkSurfaces in EHFinder_CountMarkSurfaces after EHFinder_CountSurfaces WHILE ehfinder::more_points +schedule GROUP EHFinder_MarkPoints in EHFinder_CountMarkSurfaces after EHFinder_CountSurfaces WHILE ehfinder::more_points +{ + TRIGGERS: eh_area, eh_centroid_x, eh_centroid_y, eh_centroid_z + TRIGGERS: eh_circ_eq, eh_circ_pol +} "Marking surfaces" + +schedule EHFinder_MarkSurfaces in EHFinder_MarkPoints { LANG: Fortran TRIGGERS: eh_area, eh_centroid_x, eh_centroid_y, eh_centroid_z @@ -162,6 +168,13 @@ schedule EHFinder_MarkSurfaces in EHFinder_CountMarkSurfaces after EHFinder_Coun SYNC: surface_index } "Mark points inside the current surface" +schedule EHFinder_ApplySymSC in EHFinder_MarkPoints after EHFinder_MarkSurfaces +{ + LANG: Fortran + TRIGGERS: eh_area, eh_centroid_x, eh_centroid_y, eh_centroid_z + TRIGGERS: eh_circ_eq, eh_circ_pol +} "Apply symmetries of the surface counter grid function" + schedule EHFinder_InfoSurfaces in EHFinder_Surfaces after EHFinder_CountMarkSurfaces { LANG: Fortran @@ -207,7 +220,7 @@ schedule EHFinder_IntegrateCentroid in EHFinder_Integration after EHFinder_Integ TRIGGERS: eh_centroid_x, eh_centroid_y, eh_centroid_z } "Calculate centroid integrals" -schedule EHFinder_IntegrateEquatorial in EHFinder_Integration after EHFinder_IntegrateArea +schedule EHFinder_IntegrateCircumference in EHFinder_Integration after EHFinder_IntegrateArea { LANG: Fortran STORAGE: surface_tmp_arrays, integrate_tmp_array @@ -321,6 +334,7 @@ if (CCTK_Equals(mode,"normal")) STORAGE: dfx STORAGE: dfy STORAGE: dfz + STORAGE: g3inv } "Calculate the source terms" if ( evolve_generators) -- cgit v1.2.3