[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 552)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2013/07/06 01:10 PM

Modified:
 /trunk/src/
  GRHydro_Reconstruct.F90, GRHydro_Source.F90

Log:
 GRHydro: fix compiler warnings
 
 * remove unused variable
 
 * pacify compiler warning about possibly uninitialized value
   not sure if one could somehow get the compiler to realize that the
   condition on which access is based is false in both case, ie that
   evolve_MHD is an effective constant.
 
 From: Roland Haas <rhaas at tapir.caltech.edu>

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_Reconstruct.F90
Delta lines: +3 -0
===================================================================
--- trunk/src/GRHydro_Reconstruct.F90	2013-07-06 18:10:53 UTC (rev 551)
+++ trunk/src/GRHydro_Reconstruct.F90	2013-07-06 18:10:57 UTC (rev 552)
@@ -108,6 +108,9 @@
     else
       local_min_tracer = 0.0d0
     end if
+  else
+    ! pacify compiler warning about unintialized local_min_tracer
+    local_min_tracer = 1d42
   end if
 
 

File [modified]: GRHydro_Source.F90
Delta lines: +2 -3
===================================================================
--- trunk/src/GRHydro_Source.F90	2013-07-06 18:10:53 UTC (rev 551)
+++ trunk/src/GRHydro_Source.F90	2013-07-06 18:10:57 UTC (rev 552)
@@ -77,7 +77,6 @@
   CCTK_REAL :: db_gaa, db_gab, db_gac, db_gbb, db_gbc, db_gcc
   CCTK_REAL :: dc_gaa, dc_gab, dc_gac, dc_gbb, dc_gbc, dc_gcc
   CCTK_REAL :: da, db, dc, ida, idb, idc
-  CCTK_REAL :: psi4pt, da_psi4, db_psi4, dc_psi4
   CCTK_REAL :: shiftshiftk, shiftka, shiftkb, shiftkc
   CCTK_REAL :: sumTK
   CCTK_REAL :: halfshiftdga, halfshiftdgb, halfshiftdgc
@@ -186,7 +185,7 @@
   
   !$OMP PARALLEL DO PRIVATE(i, j, k, local_spatial_order,&
   !$OMP localgaa,localgab,localgac,localgbb,localgbc,localgcc,&
-  !$OMP psi4pt,det,sqrtdet,rhoenthalpyW2,shifta,shiftb,shiftc,&
+  !$OMP det,sqrtdet,rhoenthalpyW2,shifta,shiftb,shiftc,&
   !$OMP da_betaa,da_betab,da_betac,db_betaa,db_betab,db_betac,&
   !$OMP dc_betaa,dc_betab,dc_betac,velashift,velbshift,velcshift,&
   !$OMP vlowa,vlowb,vlowc,t00,t0a,t0b,t0c,taa,tab,tac,tbb,tbc,tcc,&
@@ -195,7 +194,7 @@
   !$OMP da_gaa, da_gab, da_gac, da_gbb, da_gbc, da_gcc,&
   !$OMP db_gaa, db_gab, db_gac, db_gbb, db_gbc, db_gcc,&
   !$OMP dc_gaa, dc_gab, dc_gac, dc_gbb, dc_gbc, dc_gcc,&
-  !$OMP da_psi4,db_psi4,dc_psi4,shiftshiftk,shiftka,shiftkb,shiftkc,&
+  !$OMP shiftshiftk,shiftka,shiftkb,shiftkc,&
   !$OMP sumTK,halfshiftdga,halfshiftdgb,halfshiftdgc,&
   !$OMP halfTdga,halfTdgb,halfTdgc,invalp,invalp2)
   do k=1 + GRHydro_stencil,nc - GRHydro_stencil