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

Fixed exit w/o MPI_FINALIZE

Browse source
This commit is contained in:
ignis 2014-04-26 19:43:42 +09:00
parent 8cc2014753
commit 3369c4ca66
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
main.f90
View file

@ -295,7 +295,6 @@ program x_code
ITIME = ITIME-1
if (task.eq.'hydro') call restart_write_parallel
call my_exit(0)
call m_openmpi_exit
stop
9000 format('ITIME=',i6,3x,'TIME=',f8.4,4x,'DT=',f8.5,3x,'Courn= ',f6.4, &

4
my_exit.f90
View file

@ -65,15 +65,15 @@ subroutine my_exit(reason)
write(out,*) "Done."
call flush(out)
close(out)
stop
! call m_fields_exit
! call m_work_exit
! call x_fftw_allocate(-1)
! call m_io_exit
! call m_openmpi_exit
call m_openmpi_exit
stop
return
end subroutine my_exit