THRIFT: Add FLUSH and remove no longer existing files from remove

PrincetonUniversity · Nov 25, 2024 · 3200bd9 · 3200bd9
1 parent 8b112d0
commit 3200bd9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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