diff --git a/m_fdm_calc.f90 b/m_fdm_calc.f90
index c5d11ad..d47a9fa 100644
--- a/m_fdm_calc.f90
+++ b/m_fdm_calc.f90
@@ -207,6 +207,8 @@ module m_fdm_calc
       call MPI_FILE_CLOSE(fh, mpi_err)
       call MPI_INFO_FREE(mpi_info, mpi_err)
 
+      call MPI_Barrier(MPI_COMM_TASK, mpi_err)
+
       if (myid.eq.0) write(*,*) '======================================================='
       fullsavenum=fullsavenum+1
   end subroutine fdm_restart_write