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

can be done in parallel

This commit is contained in:
Martin Diehl 2020-04-02 09:29:58 +02:00
parent d9806cb7f3
commit 565cf8239f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/crystallite.f90
View File

@ -1597,12 +1597,14 @@ subroutine nonlocalConvergenceCheck
integer :: e,i,p integer :: e,i,p
!$OMP PARALLEL DO PRIVATE(p)
do e = FEsolving_execElem(1),FEsolving_execElem(2) do e = FEsolving_execElem(1),FEsolving_execElem(2)
p = material_phaseAt(1,e) p = material_phaseAt(1,e)
do i = FEsolving_execIP(1),FEsolving_execIP(2) do i = FEsolving_execIP(1),FEsolving_execIP(2)
if(plasticState(p)%nonlocal) crystallite_converged(1,i,e) = .false. if(plasticState(p)%nonlocal) crystallite_converged(1,i,e) = .false.
enddo enddo
enddo enddo
!$OMP END PARALLEL DO
end subroutine nonlocalConvergenceCheck end subroutine nonlocalConvergenceCheck