research/dns-hit3d-fdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added mpi barrier after restat write to avoid send/recv time out

Browse source
This commit is contained in:
ignis 2019-04-04 17:08:52 +09:00
parent 8431f9cac8
commit d798fe343e
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
m_fdm_calc.f90
View file

@ -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