From 77c0b32af967f67c155fe6577c5b738a4edff89f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 14 Feb 2013 08:53:17 +0000 Subject: [PATCH] removed possible (but not-working) output of schmid_factor_shearband from dislotwin --- code/config/material.config | 1 - code/constitutive_dislotwin.f90 | 11 +++-------- 2 files changed, 3 insertions(+), 9 deletions(-) diff --git a/code/config/material.config b/code/config/material.config index df336fa5d..c188af493 100644 --- a/code/config/material.config +++ b/code/config/material.config @@ -402,7 +402,6 @@ plasticity dislotwin #(output) threshold_stress_twin #(output) shear_rate_shearband #(output) resolved_stress_shearband -#(output) schmid_factor_shearband #(output) sb_eigenvalues #(output) sb_eigenvectors diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90 index a398e00bd..cd2778412 100644 --- a/code/constitutive_dislotwin.f90 +++ b/code/constitutive_dislotwin.f90 @@ -539,8 +539,6 @@ do i = 1_pInt,maxNinstance 'shear_rate_shearband' & ) mySize = 6_pInt - case('schmid_factor_shearband') - mySize = 6_pInt case('sb_eigenvalues') mySize = 3_pInt case('sb_eigenvectors') @@ -1505,13 +1503,10 @@ do o = 1_pInt,phase_Noutput(material_phase(g,ip,el)) enddo; enddo c = c + ns case ('resolved_stress_shearband') - do j = 1_pInt,6_pInt ! loop over all shearband families + do j = 1_pInt,6_pInt ! loop over all shearband families constitutive_dislotwin_postResults(c+j) = dot_product(Tstar_v, constitutive_dislotwin_sbSv(1:6,j,g,ip,el)) - enddo - c = c + 6_pInt - case ('schmid_factor_shearband') !ToDo: j has no value!!!!!! - constitutive_dislotwin_postResults(c+1_pInt:c+6_pInt) = constitutive_dislotwin_sbSv(1:6,j,g,ip,el) - c = c + 6_pInt + enddo + c = c + 6_pInt case ('shear_rate_shearband') do j = 1_pInt,6_pInt ! loop over all shearband families !* Resolved shear stress on shearband system