not needed
This commit is contained in:
parent
958936c449
commit
4515920b69
|
@ -311,26 +311,6 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE
|
||||||
enddo
|
enddo
|
||||||
!$OMP END DO
|
!$OMP END DO
|
||||||
|
|
||||||
! !$OMP DO PRIVATE(ho,ph,ce)
|
|
||||||
! do el = FEsolving_execElem(1),FEsolving_execElem(2)
|
|
||||||
! if (terminallyIll) continue
|
|
||||||
! ho = material_homogenizationAt(el)
|
|
||||||
! do ip = FEsolving_execIP(1),FEsolving_execIP(2)
|
|
||||||
! ce = (el-1)*discretization_nIPs + ip
|
|
||||||
! call damage_partition(ce)
|
|
||||||
! do co = 1, homogenization_Nconstituents(ho)
|
|
||||||
! ph = material_phaseAt(co,el)
|
|
||||||
! if (.not. thermal_stress(dt,ph,material_phaseMemberAt(co,ip,el))) then
|
|
||||||
! if (.not. terminallyIll) & ! so first signals terminally ill...
|
|
||||||
! print*, ' Integration point ', ip,' at element ', el, ' terminally ill'
|
|
||||||
! terminallyIll = .true. ! ...and kills all others
|
|
||||||
! endif
|
|
||||||
! call thermal_homogenize(ip,el)
|
|
||||||
! enddo
|
|
||||||
! enddo
|
|
||||||
! enddo
|
|
||||||
! !$OMP END DO
|
|
||||||
|
|
||||||
!$OMP DO PRIVATE(ho)
|
!$OMP DO PRIVATE(ho)
|
||||||
elementLooping3: do el = FEsolving_execElem(1),FEsolving_execElem(2)
|
elementLooping3: do el = FEsolving_execElem(1),FEsolving_execElem(2)
|
||||||
ho = material_homogenizationAt(el)
|
ho = material_homogenizationAt(el)
|
||||||
|
|
Loading…
Reference in New Issue