diff options
Diffstat (limited to 'src/ADMConstraints.F')
| -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 |