diff options
author | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2004-03-09 15:30:30 +0000 |
---|---|---|
committer | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2004-03-09 15:30:30 +0000 |
commit | 9000726d755b1997e9f36e6fa0d8d8a8999879c0 (patch) | |
tree | fe7a4e97a5cf544645eed921d0f1f13581d5f7b6 | |
parent | 8b349fd6326f7d239647a8db04d1895251f82ff0 (diff) |
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
-rw-r--r-- | src/ADMConstraints.F | 31 |
1 files changed, 0 insertions, 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 |