diff options
author | lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-01-25 15:45:58 +0000 |
---|---|---|
committer | lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-01-25 15:45:58 +0000 |
commit | 1afac693505d5570067119b110f98f6e8d2c7443 (patch) | |
tree | 7a6bca321bdf8b6fe6ec4da39b61d4327237fdcf | |
parent | 023703612a71ec3db15838ff253a7d0cb374fea5 (diff) |
big fix
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@25 f5a6acaf-da7d-456b-b0a8-35edbc60b392
-rw-r--r-- | src/WaveBinary.F77 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/WaveBinary.F77 b/src/WaveBinary.F77 index 1cd3ccc..81659fb 100644 --- a/src/WaveBinary.F77 +++ b/src/WaveBinary.F77 @@ -38,6 +38,12 @@ c Declare parameters CCTK_REAL xs,ys,zs,rad CCTK_REAL zmin,zmax,charge_factor +c Set up shorthands +c ----------------- + dx = CCTK_DELTA_SPACE(1) + dy = CCTK_DELTA_SPACE(2) + dz = CCTK_DELTA_SPACE(3) + dt = CCTK_DELTA_TIME charge_factor = 3.0d0*binary_charge/ $ (4.0d0*3.1415*binary_size*binary_size*binary_size) @@ -47,12 +53,6 @@ c Declare parameters ys = binary_radius * sin(binary_omega*(cctk_time-dt)) zs = (zmax-zmin)/2 +zmin -c Set up shorthands -c ----------------- - dx = CCTK_DELTA_SPACE(1) - dy = CCTK_DELTA_SPACE(2) - dz = CCTK_DELTA_SPACE(3) - dt = CCTK_DELTA_TIME istart = 2 jstart = 2 |