User: rhaas Date: 2013/01/11 09:04 AM

Modified: /trunk/src/ GRHydro_BondiM_new.F90

Log: GRHydro_InitData: Make few evolve_entropy checks logical

From: Tanja Bode tanja.bode@physics.gatech.edu

File Changes:

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

File [modified]: GRHydro_BondiM_new.F90 Delta lines: +2 -2 =================================================================== --- trunk/src/GRHydro_BondiM_new.F90 2013-01-11 15:04:10 UTC (rev 193) +++ trunk/src/GRHydro_BondiM_new.F90 2013-01-11 15:04:11 UTC (rev 194) @@ -310,7 +310,7 @@ eps(i,j,k),press(i,j,k), & Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),w_lorentz(i,j,k))

- if(evolve_entropy) then + if(evolve_entropy.ne.0) then entropy(i,j,k) = press(i,j,k) * rho(i,j,k)**(-gmo) entropycons(i,j,k) = sdet * entropy(i,j,k) * w_lorentz(i,j,k) end if @@ -325,7 +325,7 @@ srhs = 0.d0 taurhs = 0.d0 Bconsrhs = 0.d0 - if(evolve_entropy) then + if(evolve_entropy.ne.0) then entropyrhs = 0.d0 end if