diff options
-rw-r--r-- | src/qlm_multipoles.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/qlm_multipoles.F90 b/src/qlm_multipoles.F90 index 570f216..d8ab9bb 100644 --- a/src/qlm_multipoles.F90 +++ b/src/qlm_multipoles.F90 @@ -35,6 +35,7 @@ subroutine qlm_multipoles (CCTK_ARGUMENTS, hn) CCTK_REAL :: delta_space(2) integer :: i, j + CCTK_REAL :: theta !!$ integer :: a, b, c, d if (veryverbose/=0) then @@ -65,6 +66,7 @@ subroutine qlm_multipoles (CCTK_ARGUMENTS, hn) do j = 1+qlm_nghostsphi(hn), qlm_nphi(hn)-qlm_nghostsphi(hn) do i = 1+qlm_nghoststheta(hn), qlm_ntheta(hn)-qlm_nghoststheta(hn) + theta = qlm_origin_theta(hn) + (i-1)*qlm_delta_theta(hn) ! 2-metric on the horizon qq(1,1) = qlm_qtt(i,j,hn) |