- fixed another minor issue with USE_OTHER_TIME_FUNCTION

SPECFEM · Dec 10, 2023 · c1c2b4d · c1c2b4d
1 parent 821006b
commit c1c2b4d
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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)