diff options
author | bentivegna <bentivegna@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-07-10 17:07:08 +0000 |
---|---|---|
committer | bentivegna <bentivegna@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-07-10 17:07:08 +0000 |
commit | 39ffaf79a3df57c3f2735fab783ed0f2004b3dd6 (patch) | |
tree | 8be66da622c1834e017c3a431755487aeae0183c /src/qlm_analyse.F90 | |
parent | a5a2e9fe538632c36af3f280de111b1205f9f87e (diff) |
Modified the spin multipole calculation to use the IH "spin density",
rather than Im(Psi2). Regenerated testsuites.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@25 ef6f4158-a8ee-47d1-ba14-cb73256398e0
Diffstat (limited to 'src/qlm_analyse.F90')
-rw-r--r-- | src/qlm_analyse.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/qlm_analyse.F90 b/src/qlm_analyse.F90 index 415fa88..952a18c 100644 --- a/src/qlm_analyse.F90 +++ b/src/qlm_analyse.F90 @@ -273,6 +273,7 @@ subroutine qlm_analyse (CCTK_ARGUMENTS, hn) spin = spin + xi1(a) * ss(b) * kk(a,b) end do end do + qlm_spin_density(i,j) = spin ! phi^i omega_i = (alpha + ~beta) phi^i m_i + complex conjugate npspin = 0 |