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