diff options
| author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-10-27 12:29:50 +0000 |
|---|---|---|
| committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-10-27 12:29:50 +0000 |
| commit | 19b102850583f79f8c7aa9676c3c6ea79359ad65 (patch) | |
| tree | 2edb1a429341f9f0c914d6f57a7e2e426fb24e67 /src/ADMConstraints.F | |
| parent | 1a31c37503f1db30830bf20071811358dbee90c8 (diff) | |
Can choose static or flat boundary conditions for the constraints.
The parameter is
ADMConstraints::bound = "flat" etc
and the default is flat
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@25 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src/ADMConstraints.F')
| -rw-r--r-- | src/ADMConstraints.F | 5 |
1 files changed, 4 insertions, 1 deletions
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") |