diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src/InitSymBound.F77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 index a64c3463c..d707e9d16 100644 --- a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 @@ -11,13 +11,12 @@ c -*-Fortran-*- #include "cctk.h" #include "cctk_Arguments.h" -#include "cctk_Functions.h" #include "cctk_Parameters.h" /*@@ @routine FOWaveToyF77_InitSymBound @date - @author Erik Schnetter + @author Gabrielle Allen, Erik Schnetter @desc Sets the symmetries for Wave Toy @enddesc @@ -36,18 +35,9 @@ c -*-Fortran-*- DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS - - INTEGER sym(3), symx(3), symy(3), symz(3) - DATA sym /+1, +1, +1/ - DATA symx /-1, +1, +1/ - DATA symy /+1, -1, +1/ - DATA symz /+1, +1, -1/ - INTEGER ierr - - call SetCartSymVN(ierr, cctkGH, sym ,'fowavetoy::pi') - call SetCartSymVN(ierr, cctkGH, sym ,'fowavetoy::phi') - call SetCartSymVN(ierr, cctkGH, symx,'fowavetoy::phix') - call SetCartSymVN(ierr, cctkGH, symy,'fowavetoy::phiy') - call SetCartSymVN(ierr, cctkGH, symz,'fowavetoy::phiz') + + integer ierr + + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phi', 'SCALAR') end |