diff options
| author | lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-01-18 14:44:12 +0000 |
|---|---|---|
| committer | lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-01-18 14:44:12 +0000 |
| commit | c9e093838b2b1c2b0653399a1cb967a5e9c5a529 (patch) | |
| tree | bc365e357356322833ab31218ccb6e28e9083ebb | |
| parent | 174d428e9616a6779443b02dd4b259021c6a6639 (diff) | |
debug statement moved
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@23 f5a6acaf-da7d-456b-b0a8-35edbc60b392
| -rw-r--r-- | src/WaveBinary.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WaveBinary.F77 b/src/WaveBinary.F77 index 980e5f7..1cd3ccc 100644 --- a/src/WaveBinary.F77 +++ b/src/WaveBinary.F77 @@ -150,7 +150,6 @@ c Things to do on first iteration if (firstcall.eq.1) then charge_factor = 3.0d0*binary_charge/ $ (4.0d0*3.1415*binary_size*binary_size*binary_size) - write(*,*) "Charge: ",charge_factor end if @@ -246,6 +245,7 @@ c the min/max index we actually own (no ghostzones). if (((firstcall.eq.1).and.(CCTK_EQUALS(binary_verbose,"yes"))) $ .or.(CCTK_EQUALS(binary_verbose,"debug"))) then write (*,*) + write (*,*) "Charge: ",charge_factor write (*,*) "Charge center: xs,ys,zs ", xs,ys,zs write (*,*) "Charge extension: " write (*,*) " x-extension: ",xs-binary_size, xs+binary_size |