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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-02 01:06:22 -0700 (Sun, 02 Sep 2012)
New Revision: 20669

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
improved the 'plot_energy.gnu' script


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-09-02 08:05:52 UTC (rev 20668)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-09-02 08:06:22 UTC (rev 20669)
@@ -4250,6 +4250,7 @@
     write(IOUT_ENERGY,*) 'set ylabel "Energy (J)"'
     write(IOUT_ENERGY,*) &
       'plot "energy.dat" us 1:4 t ''Total Energy'' w l lc 1, "energy.dat" us 1:3 t ''Potential Energy'' w l lc 2'
+    write(IOUT_ENERGY,*) 'pause -1 "Hit any key..."'
     close(IOUT_ENERGY)
   endif