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
|
enddo
|
||||||
|
|
||||||
!* Shear banding (shearband) part
|
!* 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
|
constitutive_dislotwin_sbResistance(matID) /= 0.0_pReal) then
|
||||||
gdot_sb = 0.0_pReal
|
gdot_sb = 0.0_pReal
|
||||||
dgdot_dtausb = 0.0_pReal
|
dgdot_dtausb = 0.0_pReal
|
||||||
|
|
Loading…
Reference in New Issue