[cig-commits] r16390 - seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0
danielpeter at geodynamics.org
danielpeter at geodynamics.org
Fri Mar 5 08:10:39 PST 2010
Author: danielpeter
Date: 2010-03-05 08:10:39 -0800 (Fri, 05 Mar 2010)
New Revision: 16390
Modified:
seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/get_MPI_cutplanes_xi.f90
seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/read_value_parameters.f90
Log:
copying to tags version; enables LOCAL_PATH length up to 150 characters
Modified: seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/get_MPI_cutplanes_xi.f90 2010-03-05 16:08:22 UTC (rev 16389)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/get_MPI_cutplanes_xi.f90 2010-03-05 16:10:39 UTC (rev 16390)
@@ -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/tags/v5.0.0/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/read_value_parameters.f90 2010-03-05 16:08:22 UTC (rev 16389)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/read_value_parameters.f90 2010-03-05 16:10:39 UTC (rev 16390)
@@ -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
More information about the CIG-COMMITS
mailing list