added "Lp" as crystallite output
This commit is contained in:
parent
e022810e66
commit
2f503f5cdb
|
@ -261,7 +261,7 @@ do i = 1,material_Ncrystallite
|
||||||
mySize = 3
|
mySize = 3
|
||||||
case('grainrotation') ! Deviation from initial grain orientation in axis-angle form (angle in degrees)
|
case('grainrotation') ! Deviation from initial grain orientation in axis-angle form (angle in degrees)
|
||||||
mySize = 4
|
mySize = 4
|
||||||
case('defgrad','f','fe','fp','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola')
|
case('defgrad','f','fe','fp','lp','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola')
|
||||||
mySize = 9
|
mySize = 9
|
||||||
case default
|
case default
|
||||||
mySize = 0
|
mySize = 0
|
||||||
|
@ -2894,6 +2894,10 @@ function crystallite_postResults(&
|
||||||
mySize = 9_pInt
|
mySize = 9_pInt
|
||||||
crystallite_postResults(c+1:c+1+mySize) = reshape(math_transpose3x3(crystallite_Fp(:,:,g,i,e)),(/mySize/))
|
crystallite_postResults(c+1:c+1+mySize) = reshape(math_transpose3x3(crystallite_Fp(:,:,g,i,e)),(/mySize/))
|
||||||
c = c + mySize
|
c = c + mySize
|
||||||
|
case ('lp')
|
||||||
|
mySize = 9_pInt
|
||||||
|
crystallite_postResults(c+1:c+1+mySize) = reshape(math_transpose3x3(crystallite_Lp(:,:,g,i,e)),(/mySize/))
|
||||||
|
c = c + mySize
|
||||||
case ('p','firstpiola','1stpiola')
|
case ('p','firstpiola','1stpiola')
|
||||||
mySize = 9_pInt
|
mySize = 9_pInt
|
||||||
crystallite_postResults(c+1:c+1+mySize) = reshape(math_transpose3x3(crystallite_P(:,:,g,i,e)),(/mySize/))
|
crystallite_postResults(c+1:c+1+mySize) = reshape(math_transpose3x3(crystallite_P(:,:,g,i,e)),(/mySize/))
|
||||||
|
|
|
@ -73,6 +73,7 @@ crystallite 1
|
||||||
(output) ee # elastic strain as Green-Lagrange tensor
|
(output) ee # elastic strain as Green-Lagrange tensor
|
||||||
(output) p # first Piola-Kichhoff stress tensor; synonyms: "firstpiola", "1stpiola"
|
(output) p # first Piola-Kichhoff stress tensor; synonyms: "firstpiola", "1stpiola"
|
||||||
(output) s # second Piola-Kichhoff stress tensor; synonyms: "tstar", "secondpiola", "2ndpiola"
|
(output) s # second Piola-Kichhoff stress tensor; synonyms: "tstar", "secondpiola", "2ndpiola"
|
||||||
|
(output) lp # plastic velocity gradient tensor
|
||||||
|
|
||||||
#-------------------#
|
#-------------------#
|
||||||
<phase>
|
<phase>
|
||||||
|
|
Loading…
Reference in New Issue