diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:45 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:45 +0000 |
| commit | 5a10e1c4824f816d992b74cf2e7d4b3d6f13cbe7 (patch) | |
| tree | 984690c0413e3238862a58f005d1b586b66ab3d9 | |
| parent | 7d4d21bdffc0ad766bd3b37a3abb672fc47fc797 (diff) | |
GRHydro: small cosmetic change to Con2PrimHot
From: Christian David Ott <cott@zwicky.(none)>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@549 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
| -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 |