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

don't do any cutbacks in homogenization when my materialpoint consists of only one grain.

This commit is contained in:
Christoph Kords 2009-10-27 08:31:45 +00:00
parent c766ba2e3a
commit 1e5a0318f3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/homogenization.f90
View File

@ -277,8 +277,8 @@ subroutine materialpoint_stressAndItsTangent(&
debugger = (e == 1 .and. i == 1)
! if our materialpoint converged then we are either finished or have to wind forward
if (materialpoint_converged(i,e)) then
! if our materialpoint converged or consists of only one single grain then we are either finished or have to wind forward
if ( materialpoint_converged(i,e) .or. (myNgrains == 1_pInt .and. materialpoint_subStep(i,e) <= 1.0_pReal) ) then
if (debugger) then
!$OMP CRITICAL (write2out)
write(6,'(a21,f10.8,a34,f10.8,a37,/)') 'winding forward from ', &