corrected activation of slipbands; both velocity and resistance have to be non zero

This commit is contained in:
Franz Roters 2013-10-11 13:52:00 +00:00
parent 3b5a5ab812
commit 80cb78c1fd
1 changed files with 691 additions and 691 deletions

View File

@ -1219,7 +1219,7 @@ subroutine constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperat
enddo
!* Shear banding (shearband) part
if(constitutive_dislotwin_sbVelocity(matID) /= 0.0_pReal .or. &
if(constitutive_dislotwin_sbVelocity(matID) /= 0.0_pReal .and. &
constitutive_dislotwin_sbResistance(matID) /= 0.0_pReal) then
gdot_sb = 0.0_pReal
dgdot_dtausb = 0.0_pReal