From 40bd5db361abbdbf71e595c05b149dec6d8de312 Mon Sep 17 00:00:00 2001 From: Vitesh Shah Date: Mon, 14 Dec 2020 09:17:15 +0100 Subject: [PATCH] signals enabling writing results,restart and termination --- src/grid/DAMASK_grid.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index a8271cffc..f461fbf90 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -442,18 +442,19 @@ program DAMASK_grid print'(/,a,i0,a)', ' increment ', totalIncsCounter, ' NOT converged' endif; flush(IO_STDOUT) - if (mod(inc,loadCases(l)%f_out) == 0) then + if (mod(inc,loadCases(l)%f_out) == 0 .or. interface_SIGUSR1) then print'(1/,a)', ' ... writing results to file ......................................' flush(IO_STDOUT) call CPFEM_results(totalIncsCounter,time) endif - if (mod(inc,loadCases(l)%f_restart) == 0) then + if (mod(inc,loadCases(l)%f_restart) == 0 .or. interface_SIGUSR2) then call mech_restartWrite call CPFEM_restartWrite endif + if (interface_SIGTERM) exit loadCaseLooping endif skipping - enddo incLooping + enddo incLooping enddo loadCaseLooping