avoid flush
This commit is contained in:
parent
e7d61e49fe
commit
86db8f8ca4
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue