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

for state integrator 2 (explicit euler) and 3 (adaptive 2nd order euler): don't do any state evolution during stiffness perturbation, but only stress integration, since for those cases the state is not restored after every perturbation step

This commit is contained in:
Christoph Kords 2012-10-19 11:20:31 +00:00
parent b9f97ba5da
commit 36676029e1
1 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
code/crystallite.f90
View File

@ -2045,23 +2045,25 @@ relTemperatureResiduum = 0.0_pReal
!$OMP ENDDO !$OMP ENDDO
! --- STATE JUMP --- if (numerics_integrationMode < 2) then ! in stiffness calculation mode we do not need to do the state integration again, since this is not influenced by a small perturbation in F
! --- STATE JUMP ---
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains !$OMP DO
if (crystallite_todo(g,i,e) .and. crystallite_converged(g,i,e)) then ! converged and still alive... do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
crystallite_todo(g,i,e) = .false. ! ... integration done if (crystallite_todo(g,i,e) .and. crystallite_converged(g,i,e)) then ! converged and still alive...
crystallite_converged(g,i,e) = crystallite_stateJump(g,i,e) ! if state jump fails, then convergence is broken crystallite_todo(g,i,e) = .false. ! ... integration done
if (.not. crystallite_converged(g,i,e)) then crystallite_converged(g,i,e) = crystallite_stateJump(g,i,e) ! if state jump fails, then convergence is broken
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local... if (.not. crystallite_converged(g,i,e)) then
!$OMP CRITICAL (checkTodo) if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped !$OMP CRITICAL (checkTodo)
!$OMP END CRITICAL (checkTodo) crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif endif
endif endif
endif enddo; enddo; enddo
enddo; enddo; enddo !$OMP ENDDO
!$OMP ENDDO endif
!$OMP END PARALLEL !$OMP END PARALLEL
@ -2236,20 +2238,22 @@ endif
!$OMP ENDDO !$OMP ENDDO
! --- STATE JUMP --- if (numerics_integrationMode < 2) then ! in stiffness calculation mode we do not need to do the state integration again, since this is not influenced by a small perturbation in F
! --- STATE JUMP ---
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains !$OMP DO
if (crystallite_todo(g,i,e)) then do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e) if (crystallite_todo(g,i,e)) then
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local... crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP CRITICAL (checkTodo) if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped !$OMP CRITICAL (checkTodo)
!$OMP END CRITICAL (checkTodo) crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif endif
endif enddo; enddo; enddo
enddo; enddo; enddo !$OMP ENDDO
!$OMP ENDDO endif
! --- SET CONVERGENCE FLAG --- ! --- SET CONVERGENCE FLAG ---