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

added crystallite output of current ip coordinates

This commit is contained in:
Christoph Kords 2013-03-27 10:12:28 +00:00
parent 95776c86a6
commit 44eb771583
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/config/material.config
View File

@ -88,6 +88,7 @@ crystallite 2
(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 (output) lp # plastic velocity gradient tensor
(output) elasmatrix # elastic stiffness matrix (output) elasmatrix # elastic stiffness matrix
(output) ipcoords # current ip coordinates
#-------------------# #-------------------#
<phase> <phase>

8
code/crystallite.f90
View File

@ -284,7 +284,7 @@ subroutine crystallite_init(Temperature)
mySize = 1_pInt mySize = 1_pInt
case('orientation','grainrotation') ! orientation as quaternion, or deviation from initial grain orientation in axis-angle form (angle in degrees) case('orientation','grainrotation') ! orientation as quaternion, or deviation from initial grain orientation in axis-angle form (angle in degrees)
mySize = 4_pInt mySize = 4_pInt
case('eulerangles') ! Bunge (3-1-3) Euler angles case('eulerangles','ipcoords')
mySize = 3_pInt mySize = 3_pInt
case('defgrad','f','fe','fp','lp','e','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola') case('defgrad','f','fe','fp','lp','e','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola')
mySize = 9_pInt mySize = 9_pInt
@ -3506,7 +3506,8 @@ function crystallite_postResults(&
math_qMul, & math_qMul, &
math_qConj math_qConj
use mesh, only: mesh_element, & use mesh, only: mesh_element, &
mesh_ipVolume mesh_ipVolume, &
mesh_ipCoordinates
use material, only: microstructure_crystallite, & use material, only: microstructure_crystallite, &
crystallite_Noutput, & crystallite_Noutput, &
material_phase, & material_phase, &
@ -3580,6 +3581,9 @@ function crystallite_postResults(&
crystallite_rotation(1:4,g,i,e)), & crystallite_rotation(1:4,g,i,e)), &
math_qConj(crystallite_orientation(1:4,g,i,e)))) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates math_qConj(crystallite_orientation(1:4,g,i,e)))) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates
crystallite_postResults(c+1) = inDeg * rotation(3) * rotation(4) ! angle in degree crystallite_postResults(c+1) = inDeg * rotation(3) * rotation(4) ! angle in degree
case ('ipcoords')
mySize = 3_pInt
crystallite_postResults(c+1:c+mySize) = mesh_ipCoordinates(1:3,i,e) ! current ip coordinates
! remark: tensor output is of the form 11,12,13, 21,22,23, 31,32,33 ! remark: tensor output is of the form 11,12,13, 21,22,23, 31,32,33
! thus row index i is slow, while column index j is fast. reminder: "row is slow" ! thus row index i is slow, while column index j is fast. reminder: "row is slow"