223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

1e-6 seems to be a more reasoable absolute tolerance for accumulated shear

This commit is contained in:
Martin Diehl 2018-05-24 00:25:29 +02:00
parent 9fc334afd1
commit 175bab4073
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plastic_dislotwin.f90
View File

@ -1138,7 +1138,7 @@ subroutine plastic_dislotwin_init(fileUnit)
endIndex=endIndex+ns endIndex=endIndex+ns
state(instance)%accshear_slip=>plasticState(phase)%state(startIndex:endIndex,:) state(instance)%accshear_slip=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%accshear_slip=>plasticState(phase)%dotState(startIndex:endIndex,:) dotState(instance)%accshear_slip=>plasticState(phase)%dotState(startIndex:endIndex,:)
plasticState(phase)%aTolState(startIndex:endIndex) = 1e6_pReal plasticState(phase)%aTolState(startIndex:endIndex) = 1e-6_pReal
startIndex=endIndex+1 startIndex=endIndex+1
endIndex=endIndex+nt endIndex=endIndex+nt
@ -1150,7 +1150,7 @@ subroutine plastic_dislotwin_init(fileUnit)
endIndex=endIndex+nt endIndex=endIndex+nt
state(instance)%accshear_twin=>plasticState(phase)%state(startIndex:endIndex,:) state(instance)%accshear_twin=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%accshear_twin=>plasticState(phase)%dotState(startIndex:endIndex,:) dotState(instance)%accshear_twin=>plasticState(phase)%dotState(startIndex:endIndex,:)
plasticState(phase)%aTolState(startIndex:endIndex) = 1e6_pReal plasticState(phase)%aTolState(startIndex:endIndex) = 1e-6_pReal
startIndex=endIndex+1 startIndex=endIndex+1
endIndex=endIndex+nr endIndex=endIndex+nr