223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

MPI communication for SIGUSRXXX

This commit is contained in:
Vitesh Shah 2020-12-17 12:42:17 +01:00
parent 768d139768
commit da1b006315
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/grid/DAMASK_grid.f90
View File

@ -61,10 +61,13 @@ program DAMASK_grid
logical :: &
guess, & !< guess along former trajectory
stagIterate, &
cutBack = .false.
cutBack = .false.,&
set_signal,&
set_signal1
integer :: &
i, j, m, field, &
errorID = 0, &
ierr,&
cutBackLevel = 0, & !< cut back level \f$ t = \frac{t_{inc}}{2^l} \f$
stepFraction = 0, & !< fraction of current time interval
l = 0, & !< current load case
@ -445,13 +448,17 @@ program DAMASK_grid
if (mod(inc,loadCases(l)%f_out) == 0 .or. interface_SIGUSR1) then
print'(1/,a)', ' ... writing results to file ......................................'
flush(IO_STDOUT)
call MPI_ALLREDUCE(interface_SIGUSR1,set_signal,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
call CPFEM_results(totalIncsCounter,time)
call interface_setSIGUSR1(.false.)
call MPI_ALLREDUCE(interface_SIGUSR1,set_signal,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
endif
if (mod(inc,loadCases(l)%f_restart) == 0 .or. interface_SIGUSR2) then
call MPI_ALLREDUCE(interface_SIGUSR2,set_signal1,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
call mech_restartWrite
call CPFEM_restartWrite
call interface_setSIGUSR2(.false.)
call MPI_ALLREDUCE(interface_SIGUSR2,set_signal1,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
endif
if (interface_SIGTERM) exit loadCaseLooping
endif skipping