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

avoid flush

This commit is contained in:
Martin Diehl 2020-03-23 00:15:00 +01:00
parent e7d61e49fe
commit 86db8f8ca4
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
src/crystallite.f90
View File

@ -1580,29 +1580,31 @@ end subroutine setConvergenceFlag
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine update_stress(timeFraction) subroutine update_stress(timeFraction)
real(pReal), intent(in) :: & real(pReal), intent(in) :: &
timeFraction timeFraction
integer :: & integer :: &
e, & !< element index in element loop e, & !< element index in element loop
i, & !< integration point index in ip loop i, & !< integration point index in ip loop
g g
logical :: &
nonlocal_broken
!$OMP PARALLEL DO nonlocal_broken = .false.
do e = FEsolving_execElem(1),FEsolving_execElem(2) !$OMP PARALLEL DO
do i = FEsolving_execIP(1),FEsolving_execIP(2) do e = FEsolving_execElem(1),FEsolving_execElem(2)
do g = 1,homogenization_Ngrains(material_homogenizationAt(e)) do i = FEsolving_execIP(1),FEsolving_execIP(2)
!$OMP FLUSH(crystallite_todo) do g = 1,homogenization_Ngrains(material_homogenizationAt(e))
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e) .and. &
crystallite_todo(g,i,e) = integrateStress(g,i,e,timeFraction) (.not. nonlocal_broken .or. crystallite_localPlasticity(g,i,e)) ) then
!$OMP FLUSH(crystallite_todo) crystallite_todo(g,i,e) = integrateStress(g,i,e,timeFraction)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local... if (.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) &
!$OMP CRITICAL (checkTodo) nonlocal_broken = .true.
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped endif
!$OMP END CRITICAL (checkTodo) enddo; enddo; enddo
endif !$OMP END PARALLEL DO
endif
enddo; enddo; enddo if(nonlocal_broken) &
!$OMP END PARALLEL DO where(.not. crystallite_localPlasticity) crystallite_todo = .true.
end subroutine update_stress end subroutine update_stress