diff options
Diffstat (limited to 'src/ADMConstraints.F')
-rw-r--r-- | src/ADMConstraints.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 1bcbe5f..2157094 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -44,7 +44,7 @@ c (for outer boundary condition) integer, dimension(3),parameter :: sw = 1 -c Return code from Cactus boundary conditions. +c Return code from Cactus sync routine and boundary conditions. integer ierr @@ -233,8 +233,8 @@ c Apply flat boundary conditions at outer boundaries. c Synchronize. if (constraint_communication.eq.1) then - call CCTK_SyncGroup(cctkGH,"admconstraints::hamiltonian") - call CCTK_SyncGroup(cctkGH,"admconstraints::momentum") + call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::hamiltonian") + call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::momentum") end if c Cartoon. |