updates coupling routine

danielpeter · Dec 19, 2024 · 0ebaa4f · 0ebaa4f
1 parent fb55620
commit 0ebaa4f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/specfem3D/couple_with_injection.f90 b/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