diff options
-rw-r--r-- | param.ccl | 6 | ||||
-rw-r--r-- | src/ADMConstraints.F | 5 |
2 files changed, 9 insertions, 2 deletions
@@ -11,7 +11,11 @@ BOOLEAN constraint_communication "If yes sychronise the constraints" { } "no" - +KEYWORD bound "Which boundary condition to apply" +{ + "flat" :: "Flat (copy) boundary condition" + "static" :: "Static (don't do anything) boundary condition" +} "flat" diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index fbb90ff..a40a3cb 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -174,7 +174,10 @@ c ---------------------------------- c Synchronize and apply flat boundary conditions call CartSymBCGroup(ierr,cctkGH,"admconstraints::admconstraints") - call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints") + + if (CCTK_Equals(bound,"flat")) then + call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints") + end if if (constraint_communication.eq.1) then call CCTK_SyncGroup(cctkGH,"admconstraints::admconstraints") |