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

added separate output of dipole formation rate for edge and screw

This commit is contained in:
Christoph Kords 2012-08-27 15:57:31 +00:00
parent aa380dcb08
commit f3e7b3cec8
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/constitutive_nonlocal.f90
View File

@ -743,6 +743,8 @@ do i = 1,maxNinstance
'rho_dot_gen_edge', & 'rho_dot_gen_edge', &
'rho_dot_gen_screw', & 'rho_dot_gen_screw', &
'rho_dot_sgl2dip', & 'rho_dot_sgl2dip', &
'rho_dot_sgl2dip_edge', &
'rho_dot_sgl2dip_screw', &
'rho_dot_ann_ath', & 'rho_dot_ann_ath', &
'rho_dot_ann_the', & 'rho_dot_ann_the', &
'rho_dot_ann_the_edge', & 'rho_dot_ann_the_edge', &
@ -3187,6 +3189,14 @@ do o = 1_pInt,phase_Noutput(material_phase(g,ip,el))
+ constitutive_nonlocal_rhoDotSingle2DipoleGlide(1:ns,2,g,ip,el) + constitutive_nonlocal_rhoDotSingle2DipoleGlide(1:ns,2,g,ip,el)
cs = cs + ns cs = cs + ns
case ('rho_dot_sgl2dip_edge')
constitutive_nonlocal_postResults(cs+1_pInt:cs+ns) = constitutive_nonlocal_rhoDotSingle2DipoleGlide(1:ns,1,g,ip,el)
cs = cs + ns
case ('rho_dot_sgl2dip_screw')
constitutive_nonlocal_postResults(cs+1_pInt:cs+ns) = constitutive_nonlocal_rhoDotSingle2DipoleGlide(1:ns,2,g,ip,el)
cs = cs + ns
case ('rho_dot_ann_ath') case ('rho_dot_ann_ath')
constitutive_nonlocal_postResults(cs+1_pInt:cs+ns) = constitutive_nonlocal_rhoDotAthermalAnnihilation(1:ns,1,g,ip,el) & constitutive_nonlocal_postResults(cs+1_pInt:cs+ns) = constitutive_nonlocal_rhoDotAthermalAnnihilation(1:ns,1,g,ip,el) &
+ constitutive_nonlocal_rhoDotAthermalAnnihilation(1:ns,2,g,ip,el) + constitutive_nonlocal_rhoDotAthermalAnnihilation(1:ns,2,g,ip,el)