diff options
-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 |