From 08ec00c1d965ca40fd7e560446883f2a9ed4a540 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 9 Mar 2004 13:47:30 +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/WaveToyFreeF90/trunk@65 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- interface.ccl | 1 - par/wavetoyfortran.par | 2 +- par/wavetoyfortran_flat.par | 2 +- par/wavetoyfortran_none.par | 2 +- par/wavetoyfortran_rad.par | 2 +- src/WaveToy.F90 | 6 ++---- 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 -- cgit v1.2.3