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

finished updating to new state of dislokmc

This commit is contained in:
Martin Diehl 2014-08-07 15:50:52 +00:00
parent f0ade8d0a3
commit 0fc5e3717c
2 changed files with 268 additions and 265 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

531
code/constitutive_dislokmc.f90
View File

File diff suppressed because it is too large Load Diff

2
code/constitutive_dislotwin.f90
View File

@ -1523,7 +1523,7 @@ subroutine constitutive_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
ns = constitutive_dislotwin_totalNslip(instance)
nt = constitutive_dislotwin_totalNtwin(instance)
! allocate(constitutive_dislotwin_dotState(plasticState(ph)%sizeDotState))
!* Total twin volume fraction
sumf = sum(plasticState(ph)%state((3_pInt*ns+1_pInt):(3_pInt*ns+nt), of)) ! safe for nt == 0
plasticState(ph)%dotState(:,of) = 0.0_pReal