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/src/InitSymBound.F77 | |
parent | 3c7bfec92c24c4ddbda2120feae35c34deff37d7 (diff) |
Added HydroToy, the counterpart of SpaceTimeToy.
darcs-hash:20010318213704-f6438-25fa67cf10277b9aed6ee4c2addb1899ad6e21c7.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77/src/InitSymBound.F77')
-rw-r--r-- | CarpetExtra/WaveToyF77/src/InitSymBound.F77 | 8 |
1 files changed, 1 insertions, 7 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 |