From 9000726d755b1997e9f36e6fa0d8d8a8999879c0 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 9 Mar 2004 15:30:30 +0000 Subject: Do not explicitly apply the symmetry boundary conditions any more git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@103 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 31 ------------------------------- 1 file changed, 31 deletions(-) diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 35d2f83..e3259b5 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -258,12 +258,6 @@ c = - (T_{i0} - beta^j T_{ij})/alpha #include "CactusEinstein/ADMMacros/src/macro/MOMYADM_undefine.h" #include "CactusEinstein/ADMMacros/src/macro/MOMZADM_undefine.h" -c Apply symmetry boundary conditions. - - call CartSymGN(ierr,cctkGH,"admconstraints::hamiltonian") - call CartSymGN(ierr,cctkGH,"admconstraints::normalized_hamiltonian") - call CartSymGN(ierr,cctkGH,"admconstraints::momentum") - c Apply flat boundary conditions at outer boundaries. if (CCTK_Equals(bound,"flat") == 1) then @@ -282,30 +276,5 @@ c Apply flat boundary conditions at outer boundaries. $ "admconstraints::momentum", "None") end if -c Synchronize. - - if (constraint_communication.eq.1) then - call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::hamiltonian") - call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::normalized_hamiltonian") - call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::momentum") - end if - -c Cartoon. - - if (cartoon==1) then - - if (CCTK_IsThornActive("Cartoon2D")==1) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 0, -1, - $ "admconstraints::ham", "None") - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 0, -1, - $ "admconstraints::hamnormalized", "None") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 0, -1, - $ "admconstraints::momentum", "None") - else - call CCTK_WARN(0,"You have not activated Cartoon2D") - end if - - end if - return end -- cgit v1.2.3