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

remove old HIT3D save after writing fdm save

Browse source
This commit is contained in:
ignis 2014-08-22 11:51:42 +09:00
parent 9c48452b0f
commit 50bc5073c1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
main.f90
View file

@ -202,8 +202,6 @@ program x_code
! write the restart file if it's the time
if (mod(itime,IPRINT2).eq.0) then
call restart_write_parallel
!remove hit restart file
call system ('rm -f '//run_name//'.64.'//ex_file_ext)
if (fdm_sw.ne.0) then ! Reacting
!call gather_4
if (myid.eq.master) then
@ -214,6 +212,8 @@ program x_code
end if
call MPI_BARRIER(MPI_COMM_TASK, mpi_err)
endif
!remove HIT3D restart file except the latest
call system ('rm -f '//run_name//'.64.'//ex_file_ext)
ex_file_ext = file_ext
endif