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

can be easily calculated during post processing 

and does not have to be a state
This commit is contained in:
Martin Diehl 2018-11-25 10:59:36 +01:00
parent c7fb868b40
commit c0ce95183c
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/plastic_kinematichardening.f90
View File

@ -40,7 +40,6 @@ module plastic_kinehardening
chi0_ID, & !< backstress at last switch of stress sense (positive?) chi0_ID, & !< backstress at last switch of stress sense (positive?)
gamma0_ID, & !< accumulated shear at last switch of stress sense (at current switch?) gamma0_ID, & !< accumulated shear at last switch of stress sense (at current switch?)
accshear_ID, & accshear_ID, &
sumGamma_ID, &
shearrate_ID, & shearrate_ID, &
resolvedstress_ID resolvedstress_ID
@ -260,9 +259,6 @@ subroutine plastic_kinehardening_init(fileUnit)
case ('accumulatedshear') case ('accumulatedshear')
output_ID = accshear_ID output_ID = accshear_ID
case ('totalshear')
output_ID = sumGamma_ID
case ('shearrate') case ('shearrate')
output_ID = shearrate_ID output_ID = shearrate_ID
@ -399,8 +395,6 @@ subroutine plastic_kinehardening_init(fileUnit)
shearrate_ID, & shearrate_ID, &
resolvedstress_ID) resolvedstress_ID)
mySize = nSlip mySize = nSlip
case(sumGamma_ID)
mySize = 1_pInt
case default case default
end select end select
@ -920,10 +914,6 @@ function plastic_kinehardening_postResults(Mp,ipc,ip,el)
plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = state(instance)%accshear(:,of) plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = state(instance)%accshear(:,of)
c = c + nSlip c = c + nSlip
case (sumGamma_ID)
plastic_kinehardening_postResults(c+1_pInt) = state(instance)%sumGamma(of)
c = c + 1_pInt
case (shearrate_ID) case (shearrate_ID)
plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = gdot_pos+gdot_neg plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = gdot_pos+gdot_neg
c = c + nSlip c = c + nSlip