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@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