[cig-commits] r19801 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-18 12:54:02 -0700 (Sun, 18 Mar 2012)
New Revision: 19801

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
Log:
added a clearer message when output directory does not exist


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90	2012-03-18 18:28:33 UTC (rev 19800)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90	2012-03-18 19:54:02 UTC (rev 19801)
@@ -81,7 +81,7 @@
     ! opens Database file
     write(prname, "('./OUTPUT_FILES/Database',i5.5)") iproc
     open(unit=15,file=trim(prname),status='unknown',iostat=ios)
-    if( ios /= 0 ) stop 'error saving databases'
+    if( ios /= 0 ) stop 'error saving databases; check that directory OUTPUT_FILES exists'
 
     write(15,*) '#'
     write(15,*) '# Database for SPECFEM2D'