[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