[cig-commits] r21264 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-16 19:41:09 -0800 (Wed, 16 Jan 2013)
New Revision: 21264

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
Log:
removed an unused variable


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90	2013-01-17 03:36:21 UTC (rev 21263)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90	2013-01-17 03:41:09 UTC (rev 21264)
@@ -614,7 +614,7 @@
   ! local parameter
   integer :: ix,iy,R,G,B,tenthousands,thousands,hundreds,tens,units,remainder,current_rec
   real(kind=CUSTOM_REAL) :: amplitude_max,normalized_value,vpmin,vpmax,x1
-  character(len=256) :: file_name,system_command
+  character(len=256) :: file_name
   ! ASCII code of character '0' and of carriage return character
   integer, parameter :: ascii_code_of_zero = 48, ascii_code_of_carriage_return = 10