[cig-commits] r16389 - seismo/3D/SPECFEM3D_GLOBE/trunk

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2010-03-05 08:08:22 -0800 (Fri, 05 Mar 2010)
New Revision: 16389

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90
Log:
enables LOCAL_PATH length up to 150 characters

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90	2010-03-05 02:24:11 UTC (rev 16388)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90	2010-03-05 16:08:22 UTC (rev 16389)
@@ -77,8 +77,17 @@
 ! global point number and coordinates left MPI cut-plane
   open(unit=10,file=prname(1:len_trim(prname))//'iboolleft_xi.txt', &
        status='unknown',iostat=ier)
-  if( ier /= 0 ) call exit_mpi(myrank,'error creating iboolleft_xi.txt for this process')
-
+  if( ier /= 0 ) then
+    if( myrank == 0 ) then 
+      write(IMAIN,*)
+      write(IMAIN,*) 'error creating file: '
+      write(IMAIN,*) prname(1:len_trim(prname))//'iboolleft_xi.txt'
+      write(IMAIN,*)
+      write(IMAIN,*) 'please make sure that the directory specified in Par_file as LOCAL_PATH exists'
+      write(IMAIN,*)
+    endif
+    call exit_mpi(myrank,'error creating iboolleft_xi.txt, please check your Par_file LOCAL_PATH setting')
+  endif
 ! erase the logical mask used to mark points already found
   mask_ibool(:) = .false.
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90	2010-03-05 02:24:11 UTC (rev 16388)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90	2010-03-05 16:08:22 UTC (rev 16389)
@@ -87,7 +87,7 @@
 
   character(len=*) value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=150) string_read
   integer ierr
   common /param_err_common/ ierr