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

polishing of constitutive output size determination in _init()

This commit is contained in:
Philip Eisenlohr 2009-07-24 15:23:45 +00:00
parent 9bbde133a1
commit 53cff7458c
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
code/constitutive_phenopowerlaw.f90
View File

@ -339,21 +339,19 @@ subroutine constitutive_phenopowerlaw_init(file)
do i = 1,maxNinstance do i = 1,maxNinstance
do j = 1,maxval(phase_Noutput) do j = 1,maxval(phase_Noutput)
select case(constitutive_phenopowerlaw_output(j,i)) select case(constitutive_phenopowerlaw_output(j,i))
case('resistance_slip') case('resistance_slip', &
'shearrate_slip', &
'resolvedstress_slip' &
)
mySize = constitutive_phenopowerlaw_totalNslip(i) mySize = constitutive_phenopowerlaw_totalNslip(i)
case('shearrate_slip') case('resistance_twin', &
mySize = constitutive_phenopowerlaw_totalNslip(i) 'shearrate_twin', &
case('resolvedstress_slip') 'resolvedstress_twin' &
mySize = constitutive_phenopowerlaw_totalNslip(i) )
case('totalshear')
mySize = 1_pInt
case('resistance_twin')
mySize = constitutive_phenopowerlaw_totalNtwin(i) mySize = constitutive_phenopowerlaw_totalNtwin(i)
case('shearrate_twin') case('totalshear', &
mySize = constitutive_phenopowerlaw_totalNtwin(i) 'totalvolfrac' &
case('resolvedstress_twin') )
mySize = constitutive_phenopowerlaw_totalNtwin(i)
case('totalvolfrac')
mySize = 1_pInt mySize = 1_pInt
case default case default
mySize = 0_pInt mySize = 0_pInt