diff options
| author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-03-09 13:47:30 +0000 |
|---|---|---|
| committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-03-09 13:47:30 +0000 |
| commit | 08ec00c1d965ca40fd7e560446883f2a9ed4a540 (patch) | |
| tree | 7901a9f6edda6a3cc1c02f54f826c8576c619981 | |
| parent | fb1d6f0fa729d92b39d60555217b59a681b40d4d (diff) | |
Do not explicitly apply the symmetry boundary conditions any more.
Activate SymBase thorn in all parameter files.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@65 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | interface.ccl | 1 | ||||
| -rw-r--r-- | par/wavetoyfortran.par | 2 | ||||
| -rw-r--r-- | par/wavetoyfortran_flat.par | 2 | ||||
| -rw-r--r-- | par/wavetoyfortran_none.par | 2 | ||||
| -rw-r--r-- | par/wavetoyfortran_rad.par | 2 | ||||
| -rw-r--r-- | src/WaveToy.F90 | 6 | ||||
| -rw-r--r-- | test/test_rad.par | 2 |
7 files changed, 7 insertions, 10 deletions
diff --git a/interface.ccl b/interface.ccl index ed14cde..ae77505 100644 --- a/interface.ccl +++ b/interface.ccl @@ -2,7 +2,6 @@ # $Header$ implements: wavetoy -inherits: Grid Boundary USES INCLUDE: Symmetry.h diff --git a/par/wavetoyfortran.par b/par/wavetoyfortran.par index 4465eb8..fa95d2b 100644 --- a/par/wavetoyfortran.par +++ b/par/wavetoyfortran.par @@ -9,7 +9,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary idscalarwave time wavetoyfreef90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary idscalarwave time wavetoyfreef90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 diff --git a/par/wavetoyfortran_flat.par b/par/wavetoyfortran_flat.par index f6a18c5..b46a852 100644 --- a/par/wavetoyfortran_flat.par +++ b/par/wavetoyfortran_flat.par @@ -9,7 +9,7 @@ # @enddesc # @@*/ -ActiveThorns = "idscalarwave time wavetoyfreef90 boundary pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii iobasic" +ActiveThorns = "idscalarwave time wavetoyfreef90 boundary pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii iobasic" time::dtfac = 0.5 diff --git a/par/wavetoyfortran_none.par b/par/wavetoyfortran_none.par index 3131a9f..78b9309 100644 --- a/par/wavetoyfortran_none.par +++ b/par/wavetoyfortran_none.par @@ -9,7 +9,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary idscalarwave time wavetoyfreef90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii iobasic" +ActiveThorns = "boundary idscalarwave time wavetoyfreef90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii iobasic" time::dtfac = 0.5 diff --git a/par/wavetoyfortran_rad.par b/par/wavetoyfortran_rad.par index be51710..130ef5b 100644 --- a/par/wavetoyfortran_rad.par +++ b/par/wavetoyfortran_rad.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "idscalarwave time wavetoyfreef90 boundary pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii iobasic" +ActiveThorns = "idscalarwave time wavetoyfreef90 boundary pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii iobasic" time::dtfac = 0.5 diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 47cf06a..f6d16de 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -113,11 +113,9 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: ierr=0 + CCTK_INT :: ierr -! Apply the symmetry boundary conditions on any coordinate axes -! ------------------------------------------------------------- - call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") + ierr = 0 ! Apply the outer boundary conditions ! ----------------------------------- diff --git a/test/test_rad.par b/test/test_rad.par index 4d81803..3c5f623 100644 --- a/test/test_rad.par +++ b/test/test_rad.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "iobasic idscalarwave time wavetoyfreef90 pugh pughslab pughreduce CartGrid3D CoordBase boundary ioutil ioascii" +ActiveThorns = "iobasic idscalarwave time wavetoyfreef90 pugh pughslab pughreduce CartGrid3D CoordBase SymBase boundary ioutil ioascii" time::dtfac = 0.5 |