From 50bc5073c104a962ae1641872e23433fd79bd1d7 Mon Sep 17 00:00:00 2001 From: ignis Date: Fri, 22 Aug 2014 11:51:42 +0900 Subject: [PATCH] remove old HIT3D save after writing fdm save --- main.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.f90 b/main.f90 index 103d70d..13c5ac7 100644 --- a/main.f90 +++ b/main.f90 @@ -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