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

implemented yield stop criteria

This commit is contained in:
Fengbo Han 2017-07-27 16:24:56 +02:00
parent 5cedba0721
commit 3f02844966
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/DAMASK_spectral.f90
View File

@ -696,7 +696,8 @@ program DAMASK_spectral
eqPlasticStrainOld = eqPlasticStrainNew eqPlasticStrainOld = eqPlasticStrainNew
plasticWorkOld = plasticWorkNew plasticWorkOld = plasticWorkNew
call utilities_calcPlasticity(yieldStressNew, plasticStrainNew, eqStressNew, eqTotalStrainNew, eqPlasticStrainNew, plasticWorkNew) call utilities_calcPlasticity(yieldStressNew, plasticStrainNew, eqStressNew, eqTotalStrainNew, &
eqPlasticStrainNew, plasticWorkNew)
if(stopFlag .eq. 'totalStrain') then if(stopFlag .eq. 'totalStrain') then
if(eqTotalStrainNew > yieldStopValue) then if(eqTotalStrainNew > yieldStopValue) then