diff options
| author | shawley <> | 2002-02-26 13:56:00 +0000 |
|---|---|---|
| committer | shawley <> | 2002-02-26 13:56:00 +0000 |
| commit | 5301155945f6541963e2f5b96419de39d55f6241 (patch) | |
| tree | 85c949f9e30791e8dd4cb03eeb357378a0a0c5b1 /CarpetExtra/FOWaveToyF77 | |
| parent | 4f4fb76f54f1268897ee972d2a87143bc2f98a0a (diff) | |
now registering phix, phiy and phiz and components of a "vector" type
darcs-hash:20020226135622-e415b-a01fdae41a7c78f1b793ef3c064caf876c8ea2db.gz
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 index 92a281ebf..db3659ce7 100644 --- a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 @@ -39,9 +39,9 @@ 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::phix' // + & ' wavetoy::phiy wavetoy::phiz', 'VECTOR') + & call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phi', 'SCALAR') call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::resid', 'SCALAR') |