User: rhaas Date: 2013/07/06 01:10 PM

Modified: /trunk/src/ GRHydro_Con2PrimHot.F90

Log: GRHydro: small cosmetic change to Con2PrimHot

From: Christian David Ott <cott@zwicky.(none)>

File Changes:

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

File [modified]: GRHydro_Con2PrimHot.F90 Delta lines: +5 -1 =================================================================== --- trunk/src/GRHydro_Con2PrimHot.F90 2013-07-06 18:10:41 UTC (rev 548) +++ trunk/src/GRHydro_Con2PrimHot.F90 2013-07-06 18:10:45 UTC (rev 549) @@ -229,11 +229,15 @@ ! Now reset this point to minimum temperature. GRHydro_C2P_failed(i,j,k) = 0 !$OMP CRITICAL - write(warnline,"(A10,i7,4i3,1P10E15.6)") "reset T:",& + write(warnline,"(A10,i7,4i5,1P10E15.6)") "reset T:",& cctk_iteration,GRHydro_Reflevel,& i,j,k,rho(i,j,k),& eps(i,j,k),temperature(i,j,k),y_e(i,j,k) call CCTK_WARN(1,warnline) + write(warnline,"(A10,i7,4i5,1P10E15.6)") "reset T:",& + cctk_iteration,GRHydro_Reflevel,& + i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),r(i,j,k) + call CCTK_WARN(1,warnline) !$OMP END CRITICAL temperature(i,j,k) = GRHydro_hot_atmo_temp keytemp = 1