diff options
| author | eschnett <> | 2001-03-18 21:37:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-18 21:37:00 +0000 |
| commit | d3ae8e4b27664bbc9210fa49f58ceffe4336f7c1 (patch) | |
| tree | 5c1657bb027d9b5d3e0758b24a4a86281baa673b /CarpetExtra/WaveToyF77 | |
| parent | 3c7bfec92c24c4ddbda2120feae35c34deff37d7 (diff) | |
Added HydroToy, the counterpart of SpaceTimeToy.
darcs-hash:20010318213704-f6438-25fa67cf10277b9aed6ee4c2addb1899ad6e21c7.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/InitSymBound.F77 | 8 | ||||
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 8 |
2 files changed, 5 insertions, 11 deletions
diff --git a/CarpetExtra/WaveToyF77/src/InitSymBound.F77 b/CarpetExtra/WaveToyF77/src/InitSymBound.F77 index 701cee60f..3e7ff7233 100644 --- a/CarpetExtra/WaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/WaveToyF77/src/InitSymBound.F77 @@ -37,13 +37,7 @@ c -*-Fortran-*- DECLARE_CCTK_PARAMETERS integer ierr - integer sym(3) - sym(1) = 1 - sym(2) = 1 - sym(3) = 1 - - call Cart3dSetTensorTypeVN (ierr, cctkGH, - $ 'wavetoy::phi', 'SCALAR') + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phi', 'SCALAR') end diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index 310d15304..fd82abd2e 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -151,16 +151,16 @@ c ----------------------------------- call CCTK_WARN (0, "No boundary condition selected") end if - if (ierr .lt. 0) then - call CCTK_WARN (0, "Boundary conditions not applied - giving up!") - end if +c$$$ if (ierr .lt. 0) then +c$$$ call CCTK_WARN (0, "Boundary conditions not applied - giving up!") +c$$$ 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!") + call CCTK_WARN (0, "Symmetry conditions not applied - giving up!") end if end |