From f3e7b3cec8894ad2596f1d98e4141809350e32b8 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 27 Aug 2012 15:57:31 +0000 Subject: [PATCH] added separate output of dipole formation rate for edge and screw --- code/constitutive_nonlocal.f90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 6cbe7719e..0bc0c4b84 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -743,6 +743,8 @@ do i = 1,maxNinstance 'rho_dot_gen_edge', & 'rho_dot_gen_screw', & 'rho_dot_sgl2dip', & + 'rho_dot_sgl2dip_edge', & + 'rho_dot_sgl2dip_screw', & 'rho_dot_ann_ath', & 'rho_dot_ann_the', & '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) 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') 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)