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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-12-06 07:40:57 -0800 (Tue, 06 Dec 2011)
New Revision: 19273

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90
Log:
fixed the warning given by the new version of Intel ifort


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90	2011-12-05 23:49:26 UTC (rev 19272)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90	2011-12-06 15:40:57 UTC (rev 19273)
@@ -108,7 +108,7 @@
     if(time >= 1.d-3 .and. time < 1000.d0) then
       write(IOUT,"('Time step number ',i7,'   t = ',f9.4,' s out of ',i7)") it,time,NSTEP
     else
-      write(IOUT,"('Time step number ',i7,'   t = ',1pe12.6,' s out of ',i7)") it,time,NSTEP
+      write(IOUT,"('Time step number ',i7,'   t = ',1pe13.6,' s out of ',i7)") it,time,NSTEP
     endif
     write(IOUT,*) 'We have done ',sngl(100.d0*dble(it-1)/dble(NSTEP-1)),'% of the total'
   endif