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

need to share variable before if

This commit is contained in:
Martin Diehl 2020-12-17 13:20:18 +01:00
parent da1b006315
commit d83e8dac59
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/grid/DAMASK_grid.f90
View File

@ -62,8 +62,7 @@ program DAMASK_grid
guess, & !< guess along former trajectory guess, & !< guess along former trajectory
stagIterate, & stagIterate, &
cutBack = .false.,& cutBack = .false.,&
set_signal,& signal
set_signal1
integer :: & integer :: &
i, j, m, field, & i, j, m, field, &
errorID = 0, & errorID = 0, &
@ -445,22 +444,21 @@ program DAMASK_grid
print'(/,a,i0,a)', ' increment ', totalIncsCounter, ' NOT converged' print'(/,a,i0,a)', ' increment ', totalIncsCounter, ' NOT converged'
endif; flush(IO_STDOUT) endif; flush(IO_STDOUT)
if (mod(inc,loadCases(l)%f_out) == 0 .or. interface_SIGUSR1) then call MPI_ALLREDUCE(interface_SIGUSR1,signal,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
call interface_setSIGUSR1(.false.)
if (mod(inc,loadCases(l)%f_out) == 0 .or. signal) then
print'(1/,a)', ' ... writing results to file ......................................' print'(1/,a)', ' ... writing results to file ......................................'
flush(IO_STDOUT) 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 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 endif
if (mod(inc,loadCases(l)%f_restart) == 0 .or. interface_SIGUSR2) then call MPI_ALLREDUCE(interface_SIGUSR2,signal,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
call MPI_ALLREDUCE(interface_SIGUSR2,set_signal1,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr) call interface_setSIGUSR2(.false.)
if (mod(inc,loadCases(l)%f_restart) == 0 .or. signal) then
call mech_restartWrite call mech_restartWrite
call CPFEM_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 endif
if (interface_SIGTERM) exit loadCaseLooping call MPI_ALLREDUCE(interface_SIGTERM,signal,1,MPI_LOGICAL,MPI_LAND,PETSC_COMM_WORLD,ierr)
if (signal) exit loadCaseLooping
endif skipping endif skipping
enddo incLooping enddo incLooping