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

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/11/08 07:59 PM

Modified:
 /trunk/src/
  GRHydro_BondiM_new.F90

Log:
 GRHydro_InitData: yet another initialization bug fixed in bondiM.
 
 From: Bruno Coutinho Mundim <bcmsma at astro.rit.edu>

File Changes:

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

File [modified]: GRHydro_BondiM_new.F90
Delta lines: +2 -1
===================================================================
--- trunk/src/GRHydro_BondiM_new.F90	2012-11-09 01:59:14 UTC (rev 181)
+++ trunk/src/GRHydro_BondiM_new.F90	2012-11-09 01:59:16 UTC (rev 182)
@@ -201,7 +201,6 @@
 
 
 
-  bondi_bsmooth = 1.0d0
 
   do i=1,nx
      do j=1,ny
@@ -216,6 +215,8 @@
            yhat = yp/riso
            zhat = zp/riso
            roverm = riso/M
+
+           bondi_bsmooth = 1.0d0
            
            if(roverm > ONEmTINY) then
               rsch = 0.25 * ( 2.*riso + M)**2 / riso