diff --git a/src/auxiliaries/combine_vol_data_impl.f90 b/src/auxiliaries/combine_vol_data_impl.f90 index 6177b1a2e..e685ed1ca 100644 --- a/src/auxiliaries/combine_vol_data_impl.f90 +++ b/src/auxiliaries/combine_vol_data_impl.f90 @@ -39,7 +39,7 @@ module combine_vtk_par integer,dimension(:,:),allocatable :: total_dat_con ! maximum number of slices - integer,parameter :: MAX_NUM_NODES = 600 + integer,parameter :: MAX_NUM_NODES = 1000 end module combine_vtk_par diff --git a/src/specfem3D/get_cmt.f90 b/src/specfem3D/get_cmt.f90 index 6ce670ef4..4ceb92d5e 100644 --- a/src/specfem3D/get_cmt.f90 +++ b/src/specfem3D/get_cmt.f90 @@ -69,6 +69,7 @@ subroutine get_cmt(CMTSOLUTION,yr,jda,mo,da,ho,mi,sec, & t_shift(:) = 0.d0 tshift_src(:) = 0.d0 hdur(:) = 0.d0 + cmt_stf(:) = 0 moment_tensor(:,:) = 0.d0 ! origin time diff --git a/src/specfem3D/locate_source.F90 b/src/specfem3D/locate_source.F90 index 11f1d110a..06c4dfcb2 100644 --- a/src/specfem3D/locate_source.F90 +++ b/src/specfem3D/locate_source.F90 @@ -867,11 +867,10 @@ subroutine read_source_locations(lat,lon,depth,moment_tensor) sec_PDE = sec ! second endif ! broadcasts specific moment tensor infos + call bcast_all_i(cmt_stf,NSOURCES) call bcast_all_dp(moment_tensor,6*NSOURCES) endif - ! broadcasts general source information read on the main to the nodes - call bcast_all_i(cmt_stf,NSOURCES) call bcast_all_dp(tshift_src,NSOURCES) call bcast_all_dp(hdur,NSOURCES) call bcast_all_dp(lat,NSOURCES)