[cig-commits] r20320 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-05 09:55:45 -0700 (Tue, 05 Jun 2012)
New Revision: 20320

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
added output of time step number to PostScript vector plot sentence


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-06-05 16:17:11 UTC (rev 20319)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-06-05 16:55:45 UTC (rev 20320)
@@ -7678,7 +7678,7 @@
 
         if (myrank == 0) then 
           write(IOUT,*)
-          write(IOUT,*) 'Writing PostScript file'
+          write(IOUT,*) 'Writing PostScript vector plot for time step ',it
         endif
 
         if(imagetype_postscript == 1 .and. p_sv) then