User: szilagyi Date: 2013/11/08 01:42 PM

Modified: /branches/tapir/src/ NullSHRE_ExtractWT.F90, NullSHRE_InitialWT.F90, NullSHRE_MetricReconPast.F90, NullSHRE_SchReadClm.F90, NullSHRE_modBoundary.F90, wt_SphHarmDecomp.F90

Log: fix some compiler warnings

File Changes:

Directory: /branches/tapir/src/ ===============================

File [modified]: NullSHRE_ExtractWT.F90 Delta lines: +2 -2 =================================================================== --- branches/tapir/src/NullSHRE_ExtractWT.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/NullSHRE_ExtractWT.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -220,8 +220,8 @@ call wt_ub (qs, ps, lsh(1), lsh(2), etaup0_s, etaup1_s, dr0_s, dr1_s,& beta_l_s, qa, u_wt_s, u_l_s)

- call wt_qb(rwt, r0_n, j_wt_n, u_l_n, q_wt_n) - call wt_qb(rwt, r0_s, j_wt_s, u_l_s, q_wt_s) + call wt_qb(r0_n, j_wt_n, u_l_n, q_wt_n) + call wt_qb(r0_s, j_wt_s, u_l_s, q_wt_s)

call wt_wb (etaup0_n, etaup1_n, r0_n, dr0_n, dr1_n, beta_l_n, w_wt_n, w_l_n) call wt_wb (etaup0_s, etaup1_s, r0_s, dr0_s, dr1_s, beta_l_s, w_wt_s, w_l_s)

File [modified]: NullSHRE_InitialWT.F90 Delta lines: +0 -2 =================================================================== --- branches/tapir/src/NullSHRE_InitialWT.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/NullSHRE_InitialWT.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -33,8 +33,6 @@ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS CCTK_REAL :: rl_min, elld_min - CCTK_INT, save :: reduce_handle - character(len=500) :: message

#define dt cctk_delta_time #define dd null_delta(1)

File [modified]: NullSHRE_MetricReconPast.F90 Delta lines: +0 -2 =================================================================== --- branches/tapir/src/NullSHRE_MetricReconPast.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/NullSHRE_MetricReconPast.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -20,8 +20,6 @@ DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: n, l, m, k, retval - CCTK_REAL :: Nlm

SHRE_gij_p_p = SHRE_gij SHRE_git_p_p = SHRE_git

File [modified]: NullSHRE_SchReadClm.F90 Delta lines: +1 -1 =================================================================== --- branches/tapir/src/NullSHRE_SchReadClm.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/NullSHRE_SchReadClm.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -17,7 +17,7 @@ DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: n, l, m, k + CCTK_INT :: n, l, m

CCTK_COMPLEX, dimension((l_max+1)*(l_max+1)) :: C1, C2, C3, C4, C5, & C6, C7, C8, C9, C10

File [modified]: NullSHRE_modBoundary.F90 Delta lines: +3 -4 =================================================================== --- branches/tapir/src/NullSHRE_modBoundary.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/NullSHRE_modBoundary.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -132,7 +132,7 @@

! beta_{,\lambda} eq. (68)

- beta_l%d = r0%d / (8.d0 * dr0(1)%d) * (j_l%d * conjg(j_l%d) -& + beta_l%d = r0%d / (8.d0 * dr0(1)%d) * dble(j_l%d * conjg(j_l%d) -& & dble(conjg(j_wt%d) * j_l%d) ** 2 / (1.d0 + dble(j_wt%d) ** 2& & + dimag(j_wt%d) ** 2))

@@ -198,12 +198,11 @@ end subroutine wt_ub

- subroutine wt_qb(rwt, r0, j_wt, u_l, q_wt) + subroutine wt_qb(r0, j_wt, u_l, q_wt) ! the auxiliary variable of the U equation use NullSHRE_modGFdef implicit none

- CCTK_REAL, intent (in) :: rwt type (gf2d), intent (in) :: r0 type (gf2dc), intent (in) :: j_wt, u_l type (gf2dc), intent (inout) :: q_wt @@ -341,7 +340,7 @@ end do end do

- temp%d = sqrt(1+j_wt%d*conjg(j_wt%d)) ! i.e., store K in temp + temp%d = sqrt(1+dble(j_wt%d*conjg(j_wt%d))) ! i.e., store K in temp

ck_wt%d = ck_wt%d + 2 * dcmplx(qs, ps) * temp%d

File [modified]: wt_SphHarmDecomp.F90 Delta lines: +1 -4 =================================================================== --- branches/tapir/src/wt_SphHarmDecomp.F90 2013-11-07 21:56:12 UTC (rev 21) +++ branches/tapir/src/wt_SphHarmDecomp.F90 2013-11-08 19:42:15 UTC (rev 22) @@ -17,12 +17,9 @@ CCTK_COMPLEX, dimension(2:lmax, -lmax:lmax) :: JSphCoeff CCTK_COMPLEX, dimension(1:lmax, -lmax:lmax) :: USphCoeff CCTK_COMPLEX, dimension(0:lmax, -lmax:lmax) :: betaSphCoeff, WSphCoeff - CCTK_INT :: spin, lmode, nchar, Nradial - character(len=256) :: io_out_dir, filestring_re, filestring_im, filestring, tmp - CCTK_REAL :: time + CCTK_INT :: Nradial CCTK_INT :: i_max, gi_max, i_min, gi_min, retval CCTK_INT, save :: reduce_handle - character(len=500) :: message logical, save :: first_time = .TRUE. logical :: truncate