[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 549)

[rhaas at tapir.caltech.edu]

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