updates coupling routine

Author: danielpeter

src/specfem3D/couple_with_injection.f90

@@ -3397,9 +3397,15 @@ subroutine couple_with_injection_prepare_specfem_files()
   call interpolate_with_Catmull_Rom(ntimesteps,dt_incr,start_time, &
                                     tmp_veloc_points_timeseries,tmp_traction_points_timeseries)
 
+  ! closes file
+  close(IOUT)
+
   ! free temporary arrays
   deallocate(tmp_veloc_points_timeseries,tmp_traction_points_timeseries)
 
+  ! synchronizes MPI processes
+  call synchronize_all()
+
   ! clear arrays for reading
   Veloc_specfem(:,:) = 0.0_CUSTOM_REAL
   Tract_specfem(:,:) = 0.0_CUSTOM_REAL