diff options
author | schnetter <> | 2003-06-18 18:08:00 +0000 |
---|---|---|
committer | schnetter <> | 2003-06-18 18:08:00 +0000 |
commit | a911fd254cf28fc07e6223be83fd51508ca1b3f6 (patch) | |
tree | 69b89114088905ae7aaa7e0892258f9833312161 /CarpetExtra/IDScalarWaveFO | |
parent | cb07f5cdb6970ef555bc6738788f881e2ea7c63f (diff) |
WaveToyMoL: Produce more output.
WaveToyMoL: Produce more output.
WaveToyFO: Add parameter files.
*.F77: Fix bugs.
darcs-hash:20030618180829-07bb3-0bfc535397f0e58ad8079502f731b0706a25e058.gz
Diffstat (limited to 'CarpetExtra/IDScalarWaveFO')
-rw-r--r-- | CarpetExtra/IDScalarWaveFO/src/initialdata.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/CarpetExtra/IDScalarWaveFO/src/initialdata.F77 b/CarpetExtra/IDScalarWaveFO/src/initialdata.F77 index 15d6e0934..59774e2b7 100644 --- a/CarpetExtra/IDScalarWaveFO/src/initialdata.F77 +++ b/CarpetExtra/IDScalarWaveFO/src/initialdata.F77 @@ -1,4 +1,4 @@ -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/initialdata.F77,v 1.1 2003/06/18 18:24:29 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/initialdata.F77,v 1.2 2003/06/18 20:08:29 schnetter Exp $ #include "cctk.h" #include "cctk_Arguments.h" @@ -22,17 +22,17 @@ c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/ini $ + wave_number(2)*(y(i,j,k)-phase_offset(2)) $ + wave_number(3)*(z(i,j,k)-phase_offset(3)) $ + omega*(cctk_time-time_offset))) - psix(i,j,k) = - amplitude * (2*pi)**2 * wave_number(1) * omega * cos (2*pi * + psix(i,j,k) = amplitude * wave_number(1) / omega * cos (2*pi * $ ( wave_number(1)*(x(i,j,k)-phase_offset(1)) $ + wave_number(2)*(y(i,j,k)-phase_offset(2)) $ + wave_number(3)*(z(i,j,k)-phase_offset(3)) $ + omega*(cctk_time-time_offset))) - psiy(i,j,k) = - amplitude * (2*pi)**2 * wave_number(2) * omega * cos (2*pi * + psiy(i,j,k) = amplitude * wave_number(2) / omega * cos (2*pi * $ ( wave_number(1)*(x(i,j,k)-phase_offset(1)) $ + wave_number(2)*(y(i,j,k)-phase_offset(2)) $ + wave_number(3)*(z(i,j,k)-phase_offset(3)) $ + omega*(cctk_time-time_offset))) - psiz(i,j,k) = - amplitude * (2*pi)**2 * wave_number(3) * omega * cos (2*pi * + psiz(i,j,k) = amplitude * wave_number(3) / omega * cos (2*pi * $ ( wave_number(1)*(x(i,j,k)-phase_offset(1)) $ + wave_number(2)*(y(i,j,k)-phase_offset(2)) $ + wave_number(3)*(z(i,j,k)-phase_offset(3)) |