From 3200bd9bf4b512854d1a5dc16aad8b2afc29928c Mon Sep 17 00:00:00 2001 From: ajchcoelho Date: Mon, 25 Nov 2024 09:18:44 +0100 Subject: [PATCH] THRIFT: Add FLUSH and remove no longer existing files from remove --- THRIFT/Sources/thrift_evolve.f90 | 1 + THRIFT/Sources/thrift_interface_mod.f90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/THRIFT/Sources/thrift_evolve.f90 b/THRIFT/Sources/thrift_evolve.f90 index 554b2580..b9a6ea8b 100644 --- a/THRIFT/Sources/thrift_evolve.f90 +++ b/THRIFT/Sources/thrift_evolve.f90 @@ -232,6 +232,7 @@ SUBROUTINE thrift_evolve WRITE(*, '(A33, F6.1, A)') ' TOTAL time in thrift_evolve: ', (etime_total-stime_total) / 60.0, ' min' WRITE(6,*)'===============================================================================' WRITE(6,*) ' ' + CALL FLUSH(6) END IF ! Deallocate helpers diff --git a/THRIFT/Sources/thrift_interface_mod.f90 b/THRIFT/Sources/thrift_interface_mod.f90 index 99b52430..786447e7 100644 --- a/THRIFT/Sources/thrift_interface_mod.f90 +++ b/THRIFT/Sources/thrift_interface_mod.f90 @@ -86,7 +86,7 @@ SUBROUTINE thrift_cleanup IF (myid == master) THEN ! Remove the *_opt* files WRITE(6,*) ' Cleaning up files'; CALL FLUSH(6); ier = 0; ierr_mpi = 0; cmdtxt='' - CALL EXECUTE_COMMAND_LINE("rm -rf dcon* jxbout* mercier* dkesout* fort.* input_dkes* opt_dkes* results.*",WAIT=.TRUE.,EXITSTAT=ier,CMDSTAT=ierr_mpi,CMDMSG=cmdtxt) + CALL EXECUTE_COMMAND_LINE("rm -rf dcon* jxbout* mercier* dkesout* fort.*",WAIT=.TRUE.,EXITSTAT=ier,CMDSTAT=ierr_mpi,CMDMSG=cmdtxt) WRITE(6,*) ' rm: EXITSTAT=',ier,' CMDSTAT=',ierr_mpi; CALL FLUSH(6) WRITE(6,*) ' MESSAGE: ',TRIM(cmdtxt); CALL FLUSH(6) ! Zip up the results