From 538faecf4557fec68b4b2dd413395740ba27ce2e Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 23 Feb 2010 17:23:07 +0000 Subject: [PATCH] new output "dislocationvelocity" --- code/constitutive_nonlocal.f90 | 7 ++++++- code/material.config | 1 + 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index d054aa0c6..3bac9124e 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -490,6 +490,7 @@ do i = 1,maxNinstance 'rho_dot_dip2sgl', & 'rho_dot_ann_ath', & 'rho_dot_ann_the', & + 'dislocationvelocity', & 'fluxdensity_edge_pos_x', & 'fluxdensity_edge_pos_y', & 'fluxdensity_edge_pos_z', & @@ -2090,7 +2091,11 @@ do o = 1,phase_Noutput(material_phase(g,ip,el)) constitutive_nonlocal_postResults(cs+1:cs+ns) = 4.0_pReal * rhoDip(:,1) * vClimb / ( dUpper(:,1) - dLower(:,1) ) ! !!! cross-slip of screws missing !!! cs = cs + ns - + + case ('dislocationvelocity') + constitutive_nonlocal_postResults(cs+1:cs+ns) = constitutive_nonlocal_v(:,1,g,ip,el) + cs = cs + ns + case ('fluxdensity_edge_pos_x') constitutive_nonlocal_postResults(cs+1:cs+ns) = rhoSgl(:,1) * constitutive_nonlocal_v(:,1,g,ip,el) * m_currentconf(1,:,1) cs = cs + ns diff --git a/code/material.config b/code/material.config index 935fc84de..59119a269 100644 --- a/code/material.config +++ b/code/material.config @@ -162,6 +162,7 @@ constitution nonlocal (output) rho_dot_dip2sgl (output) rho_dot_ann_ath (output) rho_dot_ann_the +(output) dislocationvelocity (output) fluxDensity_edge_pos_x (output) fluxDensity_edge_pos_y (output) fluxDensity_edge_pos_z