[Commits] [svn:einsteintoolkit] GRHydro_InitData/trunk/src/ (Rev. 194)

[rhaas at tapir.caltech.edu]

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