diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-09-11 14:54:57 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-09-11 14:54:57 +0000 |
commit | f945f571f73a7fcc5df1a82f185eb0155d2f548c (patch) | |
tree | c0b47df4e4bb6475b095962ed1daa1556ad0c6f0 /src | |
parent | 415534ba5f23a61a6b19fa86b35624fa9f47dd07 (diff) |
Adding error code for boundary routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@17 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 02e13e0..24adbbc 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -50,9 +50,12 @@ c@@*/ integer :: i,j,k,i1,i2,j1,j2,k1,k2 -c Stencil width used for calculating constraints (needed for outer boundary condition) +c Stencil width used for calculating constraints (for outer boundary condition) integer, dimension(3),parameter :: sw = 1 +c Return code from Cactus boundary conditions + integer ierr + CCTK_REAL :: dx,dy,dz CCTK_REAL :: pi,det,uxx,uxy,uxz,uyy,uyz,uzz @@ -171,7 +174,7 @@ c ---------------------------------- c Synchronize and apply flat boundary conditions call ApplySymmetry(cctkGH,"admconstraints::admconstraints") - call ApplyFlatBC(cctkGH,sw,"admconstraints::admconstraints") + call ApplyFlatBC(ierr,cctkGH,sw,"admconstraints::admconstraints") if (constraint_communication.eq.1) then call CCTK_SyncGroup(cctkGH,"admconstraints::admconstraints") |