From c76ffda57fa1a5090ff6ae1d9d846553c25333d2 Mon Sep 17 00:00:00 2001
From: hawke <hawke@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>
Date: Tue, 26 Apr 2005 10:37:19 +0000
Subject: Move boundary conditions to a separate routine, scheduled in level
 mode. This removes warnings from thorn Boundary when run in MultiPatch.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@113 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
---
 src/ADMConstraints.F | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F
index 4abc93e..36308c5 100644
--- a/src/ADMConstraints.F
+++ b/src/ADMConstraints.F
@@ -45,10 +45,6 @@ c     flags for excision
 
       integer ex_field, ex_type_excised
 
-c     Return code from Cactus sync routine and boundary conditions.
-
-      integer ierr
-
 c     Various real variables.
 
       CCTK_REAL m_rho,m_sx,m_sy,m_sz
@@ -274,6 +270,23 @@ c                     = - (T_{i0} - beta^j T_{ij})/alpha
 #include "CactusEinstein/ADMMacros/src/macro/MOMYADM_undefine.h"
 #include "CactusEinstein/ADMMacros/src/macro/MOMZADM_undefine.h"
 
+      return
+      end
+
+      
+
+      subroutine ADMConstraints_Boundaries(CCTK_ARGUMENTS)
+      
+      implicit none
+
+      DECLARE_CCTK_ARGUMENTS
+      DECLARE_CCTK_PARAMETERS
+      DECLARE_CCTK_FUNCTIONS
+
+c     Return code from Cactus sync routine and boundary conditions.
+
+      integer ierr
+
 c     Apply flat boundary conditions at outer boundaries.
 
       if (CCTK_Equals(bound,"flat") == 1) then
-- 
cgit v1.2.3