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

Comment added

This commit is contained in:
achalhp 2024-06-13 18:41:25 +05:30
parent b26e60b28f
commit 7c97fc32f8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -545,7 +545,7 @@ associate(prm => param(ph), stt => state(ph), dlt => deltastate(ph))
neighbor_e = geom(ph)%IPneighborhood(1,n,en) neighbor_e = geom(ph)%IPneighborhood(1,n,en)
if (any(dNeq(phase_O_0(ph)%data(en)%asQuaternion(), & if (any(dNeq(phase_O_0(ph)%data(en)%asQuaternion(), &
phase_O_0(ph)%data(neighbor_e)%asQuaternion()))) then phase_O_0(ph)%data(neighbor_e)%asQuaternion()))) then !> Selection of grain boundary elements
Ability_Nucleation: if(stt%f_twin(twin_var,en)>(stt%fmc_twin(twin_var,en)+prm%checkstep)) then Ability_Nucleation: if(stt%f_twin(twin_var,en)>(stt%fmc_twin(twin_var,en)+prm%checkstep)) then
stt%fmc_twin(twin_var,en) = stt%fmc_twin(twin_var,en)+prm%checkstep stt%fmc_twin(twin_var,en) = stt%fmc_twin(twin_var,en)+prm%checkstep