From d798fe343ecd4c7ee9bfcd85c779011341378206 Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Thu, 4 Apr 2019 17:08:52 +0900
Subject: [PATCH] added mpi barrier after restat write to avoid send/recv time
 out

---
 m_fdm_calc.f90 | 2 ++
 1 file changed, 2 insertions(+)

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