From 840fd0e9fa5a516f9e3d3ee4be74c8e4bb91e8ac Mon Sep 17 00:00:00 2001 From: Tias Maiti Date: Fri, 11 Sep 2015 17:44:26 +0000 Subject: [PATCH] report absolute value of accumulated_shear_slip in dot state --- code/plastic_dislotwin.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/plastic_dislotwin.f90 b/code/plastic_dislotwin.f90 index 69465126a..6ed80d9e5 100644 --- a/code/plastic_dislotwin.f90 +++ b/code/plastic_dislotwin.f90 @@ -1852,7 +1852,7 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el) DotRhoDipFormation(j)-DotRhoEdgeDipAnnihilation(j)-DotRhoEdgeDipClimb(j) !* Dotstate for accumulated shear due to slip - plasticState(ph)%dotState(2_pInt*ns+j, of) = gdot_slip(j) + plasticState(ph)%dotState(2_pInt*ns+j, of) = abs(gdot_slip(j)) enddo enddo