[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 347)
rhaas at tapir.caltech.edu
rhaas at tapir.caltech.edu
Tue Jun 5 15:45:16 CDT 2012
User: rhaas
Date: 2012/06/05 03:45 PM
Modified:
/trunk/src/
GRHydro_Con2Prim.F90
Log:
GRHydro: fix format statements in hot C2P.
Note: This should be propagated to ET!
Patch by Christian Ott.
File Changes:
Directory: /trunk/src/
======================
File [modified]: GRHydro_Con2Prim.F90
Delta lines: +3 -3
===================================================================
--- trunk/src/GRHydro_Con2Prim.F90 2012-06-05 20:40:27 UTC (rev 346)
+++ trunk/src/GRHydro_Con2Prim.F90 2012-06-05 20:45:16 UTC (rev 347)
@@ -663,7 +663,7 @@
call CCTK_WARN(failinfomode,warnline)
write(warnline,"(A7,i8)") "code: ",keyerr(1)
call CCTK_WARN(failinfomode,warnline)
- write(warnline,"(A10,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
+ write(warnline,"(A10,i5,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
call CCTK_WARN(failinfomode,warnline)
call CCTK_WARN(failwarnmode,"Aborting!!!")
else
@@ -756,7 +756,7 @@
call CCTK_WARN(failinfomode,warnline)
write(warnline,"(A7,i8)") "code: ",keyerr(1)
call CCTK_WARN(failinfomode,warnline)
- write(warnline,"(A10,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
+ write(warnline,"(A10,i5,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
call CCTK_WARN(failinfomode,warnline)
call CCTK_WARN(failwarnmode,"Aborting!!!")
else
@@ -867,7 +867,7 @@
call CCTK_WARN(failinfomode,warnline)
write(warnline,"(A7,i8)") "code: ",keyerr(1)
call CCTK_WARN(failinfomode,warnline)
- write(warnline,"(A10,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
+ write(warnline,"(A10,i5,i5)") "reflevel, iteration: ", GRHydro_reflevel, cctk_iteration
call CCTK_WARN(failinfomode,warnline)
call CCTK_WARN(failwarnmode,"Aborting!!!")
else
More information about the Commits
mailing list