corrected activation of slipbands; both velocity and resistance have to be non zero
This commit is contained in:
parent
3b5a5ab812
commit
80cb78c1fd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue