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 computed during postprocessing

This commit is contained in:
Martin Diehl 2018-11-25 11:17:12 +01:00
parent be8e6cbe57
commit 1808b37357
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/plastic_phenopowerlaw.f90
View File

@ -24,12 +24,10 @@ module plastic_phenopowerlaw
accumulatedshear_slip_ID, & accumulatedshear_slip_ID, &
shearrate_slip_ID, & shearrate_slip_ID, &
resolvedstress_slip_ID, & resolvedstress_slip_ID, &
totalshear_ID, &
resistance_twin_ID, & resistance_twin_ID, &
accumulatedshear_twin_ID, & accumulatedshear_twin_ID, &
shearrate_twin_ID, & shearrate_twin_ID, &
resolvedstress_twin_ID, & resolvedstress_twin_ID
totalvolfrac_twin_ID
end enum end enum
type, private :: tParameters type, private :: tParameters
@ -338,12 +336,6 @@ subroutine plastic_phenopowerlaw_init
outputID = merge(resolvedstress_twin_ID,undefined_ID,prm%totalNtwin>0_pInt) outputID = merge(resolvedstress_twin_ID,undefined_ID,prm%totalNtwin>0_pInt)
outputSize = prm%totalNtwin outputSize = prm%totalNtwin
case ('totalshear')
outputID = merge(totalshear_ID,undefined_ID,prm%totalNslip>0_pInt)
outputSize = 1_pInt
case ('totalvolfrac_twin')
outputID = merge(totalvolfrac_twin_ID,undefined_ID,prm%totalNtwin>0_pInt)
outputSize = 1_pInt
end select end select
if (outputID /= undefined_ID) then if (outputID /= undefined_ID) then
@ -732,13 +724,6 @@ function plastic_phenopowerlaw_postResults(Mp,instance,of) result(postResults)
enddo enddo
c = c + prm%totalNtwin c = c + prm%totalNtwin
case (totalshear_ID)
postResults(c+1_pInt) = stt%sumGamma(of)
c = c + 1_pInt
case (totalvolfrac_twin_ID)
postResults(c+1_pInt) = stt%sumF(of)
c = c + 1_pInt
end select end select
enddo outputsLoop enddo outputsLoop
end associate end associate