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

no plastic model as default

This commit is contained in:
Martin Diehl 2021-03-26 21:16:11 +01:00
parent 9fd244d8a0
commit 4d046e4e16
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_mechanical_plastic.f90
View File

@ -450,8 +450,8 @@ function plastic_active(plastic_label) result(active_plastic)
do ph = 1, phases%length do ph = 1, phases%length
phase => phases%get(ph) phase => phases%get(ph)
mech => phase%get('mechanical') mech => phase%get('mechanical')
pl => mech%get('plastic') pl => mech%get('plastic',defaultVal = emptyDict)
if(pl%get_asString('type') == plastic_label) active_plastic(ph) = .true. if(pl%get_asString('type',defaultVal='none') == plastic_label) active_plastic(ph) = .true.
enddo enddo
end function plastic_active end function plastic_active