check for N_tr, not twice N_tw

This commit is contained in:
Philip Eisenlohr 2023-09-26 09:17:25 -04:00
parent a99daf5e14
commit 3621f0e8a1
1 changed files with 1 additions and 1 deletions

View File

@ -358,7 +358,7 @@ module function plastic_dislotwin_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! parameters required for several mechanisms and their interactions
if (prm%sum_N_sl + prm%sum_N_tw + prm%sum_N_tw > 0) &
if (prm%sum_N_sl + prm%sum_N_tw + prm%sum_N_tr > 0) &
prm%D = pl%get_asReal('D')
if (prm%sum_N_tw + prm%sum_N_tr > 0) then