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

4
code/crystallite.f90
View File

@ -2045,6 +2045,7 @@ relTemperatureResiduum = 0.0_pReal
!$OMP ENDDO !$OMP ENDDO
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 --- ! --- STATE JUMP ---
!$OMP DO !$OMP DO
@ -2062,6 +2063,7 @@ relTemperatureResiduum = 0.0_pReal
endif endif
enddo; enddo; enddo enddo; enddo; enddo
!$OMP ENDDO !$OMP ENDDO
endif
!$OMP END PARALLEL !$OMP END PARALLEL
@ -2236,6 +2238,7 @@ endif
!$OMP ENDDO !$OMP ENDDO
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 --- ! --- STATE JUMP ---
!$OMP DO !$OMP DO
@ -2250,6 +2253,7 @@ endif
endif endif
enddo; enddo; enddo enddo; enddo; enddo
!$OMP ENDDO !$OMP ENDDO
endif
! --- SET CONVERGENCE FLAG --- ! --- SET CONVERGENCE FLAG ---