[cig-commits] r15992 - seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN

[pieyre at geodynamics.org]

Author: pieyre
Date: 2009-11-18 06:05:49 -0800 (Wed, 18 Nov 2009)
New Revision: 15992

Modified:
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/locate_source.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/meshfem3D.f90
Log:
added a missing parameter in a routine call in locate_source.f90

Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/locate_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/locate_source.f90	2009-11-18 12:51:35 UTC (rev 15991)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/locate_source.f90	2009-11-18 14:05:49 UTC (rev 15992)
@@ -373,7 +373,7 @@
 
     ispec_selected_source_all(:,:) = -1
 
-  call gather_all_i(ispec_selected_source(ns:ne),ng,ispec_selected_source_all(1:ng,:),ng)
+  call gather_all_i(ispec_selected_source(ns:ne),ng,ispec_selected_source_all(1:ng,:),ng,NPROC)
 
   call gather_all_dp(xi_source(ns:ne),ng,xi_source_all(1:ng,:),ng,NPROC)
   call gather_all_dp(eta_source(ns:ne),ng,eta_source_all(1:ng,:),ng,NPROC)

Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/meshfem3D.f90	2009-11-18 12:51:35 UTC (rev 15991)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.3_last_BASIN/meshfem3D.f90	2009-11-18 14:05:49 UTC (rev 15992)
@@ -309,7 +309,7 @@
   endif
 
 ! read the parameter file
-  call read_parameter_file(LATITUDE_MIN,LATITUDE_MAX,LONGITUDE_MIN,LONGITUDE_MAX, &
+  call read_parameter_file_meshfem3D(LATITUDE_MIN,LATITUDE_MAX,LONGITUDE_MIN,LONGITUDE_MAX, &
         UTM_X_MIN,UTM_X_MAX,UTM_Y_MIN,UTM_Y_MAX,Z_DEPTH_BLOCK, &
         NER_SEDIM,NER_BASEMENT_SEDIM,NER_16_BASEMENT,NER_MOHO_16,NER_BOTTOM_MOHO, &
         NEX_XI,NEX_ETA,NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP,UTM_PROJECTION_ZONE,DT, &