[Commits] [svn:einsteintoolkit] NullSHRExtract/branches/tapir/src/ (Rev. 22)

[bela at caltech.edu]

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