diff options
| author | shawley <> | 2002-02-22 13:11:00 +0000 |
|---|---|---|
| committer | shawley <> | 2002-02-22 13:11:00 +0000 |
| commit | 6105d4ca132e52370779f4080ea497def89070f4 (patch) | |
| tree | 976be357e7682090e4bf4d0f9cd51d87132fa94c /CarpetExtra/FOWaveToyF77 | |
| parent | efca797cc2c2306920613b324f6d087c9022067e (diff) | |
registers bounds for pi. phix, phiy, phiz
darcs-hash:20020222131128-e415b-c511d7cb8db6a191fb8581225eafc07a48c11a38.gz
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 index d707e9d16..be70c6282 100644 --- a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 @@ -38,6 +38,10 @@ c -*-Fortran-*- integer ierr + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::pi', 'SCALAR') + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phix', 'SCALAR') + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phiy', 'SCALAR') + call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phiz', 'SCALAR') call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phi', 'SCALAR') end |