From 22399fbf5205d3595fa5a649f5ee951f6fb84275 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 9 Mar 2004 13:47:31 +0000 Subject: 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/WaveToyF90/trunk@92 f80f6fb6-8356-4fd4-90bc-d84ad503c100 --- interface.ccl | 1 - par/wavetoyf90.par | 2 +- par/wavetoyf90_flat.par | 2 +- par/wavetoyf90_none.par | 2 +- par/wavetoyf90_rad.par | 2 +- src/WaveToy.F | 7 ++----- test/test_rad.par | 2 +- test/test_wavef90_flat.par | 2 +- test/test_wavef90_zero.par | 2 +- 9 files changed, 9 insertions(+), 13 deletions(-) diff --git a/interface.ccl b/interface.ccl index 32a1cc0..9eef8d2 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/wavetoyf90.par b/par/wavetoyf90.par index 9abe77a..860ea82 100644 --- a/par/wavetoyf90.par +++ b/par/wavetoyf90.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 diff --git a/par/wavetoyf90_flat.par b/par/wavetoyf90_flat.par index 58d8fb6..d643595 100644 --- a/par/wavetoyf90_flat.par +++ b/par/wavetoyf90_flat.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii iobasic" +ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii iobasic" time::dtfac = 0.5 diff --git a/par/wavetoyf90_none.par b/par/wavetoyf90_none.par index 37ee342..5ce630e 100644 --- a/par/wavetoyf90_none.par +++ b/par/wavetoyf90_none.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii iobasic" +ActiveThorns = "boundary idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii iobasic" time::dtfac = 0.5 diff --git a/par/wavetoyf90_rad.par b/par/wavetoyf90_rad.par index 1792db3..8029a8a 100644 --- a/par/wavetoyf90_rad.par +++ b/par/wavetoyf90_rad.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughreduce pughslab CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 diff --git a/src/WaveToy.F b/src/WaveToy.F index 6e73ae6..fbb72f2 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -110,12 +110,9 @@ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - integer i - integer :: ierr=0 + integer :: ierr -c Apply the symmetry boundary conditions on any coordinate axes -c ------------------------------------------------------------- - call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") + ierr = 0 c Apply the outer boundary conditions c ----------------------------------- diff --git a/test/test_rad.par b/test/test_rad.par index 243509b..a8befbf 100644 --- a/test/test_rad.par +++ b/test/test_rad.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 diff --git a/test/test_wavef90_flat.par b/test/test_wavef90_flat.par index abc2f8c..cfb8d9d 100644 --- a/test/test_wavef90_flat.par +++ b/test/test_wavef90_flat.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 diff --git a/test/test_wavef90_zero.par b/test/test_wavef90_zero.par index 7644cc4..9ff94c3 100644 --- a/test/test_wavef90_zero.par +++ b/test/test_wavef90_zero.par @@ -10,7 +10,7 @@ # @enddesc # @@*/ -ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase ioutil ioascii" +ActiveThorns = "boundary iobasic idscalarwave time wavetoyf90 pugh pughslab pughreduce CartGrid3D CoordBase SymBase ioutil ioascii" time::dtfac = 0.5 -- cgit v1.2.3