diff options
-rw-r--r-- | src/ADMConstraints.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index a40a3cb..7f74c2e 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -175,7 +175,7 @@ c Synchronize and apply flat boundary conditions call CartSymBCGroup(ierr,cctkGH,"admconstraints::admconstraints") - if (CCTK_Equals(bound,"flat")) then + if (CCTK_Equals(bound,"flat") == 1) then call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints") end if |