diff options
Diffstat (limited to 'src/GRHydro_Con2PrimHot.F90')
| -rw-r--r-- | src/GRHydro_Con2PrimHot.F90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GRHydro_Con2PrimHot.F90 b/src/GRHydro_Con2PrimHot.F90 index 0d7015d..5725e18 100644 --- a/src/GRHydro_Con2PrimHot.F90 +++ b/src/GRHydro_Con2PrimHot.F90 @@ -229,11 +229,15 @@ subroutine Conservative2PrimitiveHot(CCTK_ARGUMENTS) ! 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 |