diff options
author | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2013-01-11 15:04:11 +0000 |
---|---|---|
committer | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2013-01-11 15:04:11 +0000 |
commit | c5d0dacc66b08443898399c0eb14ac973bbce544 (patch) | |
tree | 0d81635558085056e6f737d1f30df3ef39486f4c | |
parent | 3bcf15cc67f62bbc15562f1b8ed83e454e4d1595 (diff) |
GRHydro_InitData: Make few evolve_entropy checks logical
From: Tanja Bode <tanja.bode@physics.gatech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@194 ac85fae7-cede-4708-beff-ae01c7fa1c26
-rw-r--r-- | src/GRHydro_BondiM_new.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_BondiM_new.F90 b/src/GRHydro_BondiM_new.F90 index d9fe6b3..deff973 100644 --- a/src/GRHydro_BondiM_new.F90 +++ b/src/GRHydro_BondiM_new.F90 @@ -310,7 +310,7 @@ subroutine GRHydro_BondiM_Iso(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_BondiM_Iso(CCTK_ARGUMENTS) srhs = 0.d0 taurhs = 0.d0 Bconsrhs = 0.d0 - if(evolve_entropy) then + if(evolve_entropy.ne.0) then entropyrhs = 0.d0 end if |