diff options
Diffstat (limited to 'CarpetExtra/WaveToyF77')
-rw-r--r-- | CarpetExtra/WaveToyF77/par/wavetoyf77_rad_rl2.par | 8 | ||||
-rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 12 |
2 files changed, 12 insertions, 8 deletions
diff --git a/CarpetExtra/WaveToyF77/par/wavetoyf77_rad_rl2.par b/CarpetExtra/WaveToyF77/par/wavetoyf77_rad_rl2.par index 2198a8451..d53c7890f 100644 --- a/CarpetExtra/WaveToyF77/par/wavetoyf77_rad_rl2.par +++ b/CarpetExtra/WaveToyF77/par/wavetoyf77_rad_rl2.par @@ -7,11 +7,11 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/par/Attic/wavetoyf77_rad_rl2.par,v 1.1 2001/03/12 16:54:25 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/par/Attic/wavetoyf77_rad_rl2.par,v 1.2 2001/03/13 13:07:32 eschnett Exp $ ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetLib CarpetSlab IDScalarWave WaveToyF77" -Cactus::cctk_itlast = 120 +Cactus::cctk_itlast = 1 # 120 Time::dtfac = 0.5 @@ -27,13 +27,13 @@ grid::dxyz = 0.3 IO::outdir = "wavetoyf77_rad_rl2" -IOBasic::outinfo_every = 10 +IOBasic::outinfo_every = 1 # 10 #IOBasic::outinfo_vars = "wavetoy::phi" #IOBasic::outScalar_every = 2 #IOBasic::outScalar_vars = "wavetoy::phi" -IOASCII::out1D_every = 2 +IOASCII::out1D_every = 1 # 2 IOASCII::out1D_vars = "wavetoy::phi grid::coordinates" WaveToyF77::bound = radiation diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index ec10a310c..310d15304 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -136,10 +136,6 @@ c --------------------- sw(2) = 1 sw(3) = 1 -c Apply the symmetry boundary conditions on any coordinate axes -c ------------------------------------------------------------- - call Cart3dSymGN (ierr, cctkGH, "wavetoy::scalarevolve") - c Apply the outer boundary conditions c ----------------------------------- if (CCTK_EQUALS(bound, "flat")) then @@ -159,4 +155,12 @@ c ----------------------------------- call CCTK_WARN (0, "Boundary conditions not applied - giving up!") end if +c Apply the symmetry boundary conditions on any coordinate axes +c ------------------------------------------------------------- + call Cart3dSymGN (ierr, cctkGH, "wavetoy::scalarevolve") + + if (ierr .lt. 0) then + call CCTK_WARN (0, "Boundary conditions not applied - giving up!") + end if + end |