diff options
author | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-04-11 01:57:44 +0000 |
---|---|---|
committer | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-04-11 01:57:44 +0000 |
commit | d599a5abfa9eac2ad39f56567b6f18104b1d17d6 (patch) | |
tree | a3edce8d21e8d683be87a7564f827ee9c1b8a1c2 /src/qlm_calculate.F90 | |
parent | 785f01b260541287633dfe2534bf108883faeea6 (diff) |
Remove variables containing derivative of the two-metric.
Correct some comments.
Remove format statements from VTK output code.
Remove output_vtk option.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@13 ef6f4158-a8ee-47d1-ba14-cb73256398e0
Diffstat (limited to 'src/qlm_calculate.F90')
-rw-r--r-- | src/qlm_calculate.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/qlm_calculate.F90 b/src/qlm_calculate.F90 index 17b4177..1361266 100644 --- a/src/qlm_calculate.F90 +++ b/src/qlm_calculate.F90 @@ -27,7 +27,7 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) did_allocate = .false. num_procs = CCTK_nProcs (cctkGH) - my_proc = CCTK_MyProc (cctkGH) + my_proc = CCTK_MyProc (cctkGH) do pass = 1, (num_surfaces + num_procs - 1) / num_procs @@ -47,7 +47,7 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) if (verbose/=0 .or. veryverbose/=0) then if (hn > 0) then - write (msg, '("Calculating Isolated and Dynamical Horizon quantities for horizon ",i4)') hn-1 + write (msg, '("Calculating quasi-local quantities for surface ",i4)') hn-1 else write (msg, '("Performing dummy calculation")') end if @@ -113,7 +113,7 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) call qlm_multipoles_normalise (CCTK_PASS_FTOF, hn) end if - if (output_vtk /= 0) then + if (output_vtk_every /= 0) then if (mod(cctk_iteration,output_vtk_every) == 0) then write(slabel,'(I2.2)'), hn write(ilabel,'(I8.8)'), cctk_iteration |