[cig-commits] r8568 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:57:10 -0800 (Fri, 07 Dec 2007)
New Revision: 8568

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
suppressed a non standard statement that generated a warning with the IBM xlf compiler


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-08-05 21:19:45 UTC (rev 8567)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:57:10 UTC (rev 8568)
@@ -1585,10 +1585,6 @@
   write(IOUT,400)
 
 ! count elapsed wall-clock time
-  datein = ''
-  timein = ''
-  zone = ''
-
   call date_and_time(datein,timein,zone,time_values)
 ! time_values(3): day of the month
 ! time_values(5): hour of the day