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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-18 19:04:23 -0800 (Fri, 18 Jan 2013)
New Revision: 21279

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
Log:
added a statement to delete previous color pictures, just in case the direct access files were previously bigger


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90	2013-01-18 17:58:30 UTC (rev 21278)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90	2013-01-19 03:04:23 UTC (rev 21279)
@@ -621,6 +621,10 @@
   ! open the image file
   write(file_name,"(a,'/image',i7.7,'.pnm')") OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)),it
 
+! first delete the file, just in case it was previously bigger
+  open(unit=27,file=file_name,status='unknown')
+  close(unit=27,status='delete')
+
   if(BINARY_FILE) then
     open(unit=27,file=file_name,status='unknown',access='direct',recl=1)
     write(27,rec=1) 'P'