From 3621f0e8a13779587962fb71f386cc0b94472632 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Tue, 26 Sep 2023 09:17:25 -0400 Subject: [PATCH] check for N_tr, not twice N_tw --- src/phase_mechanical_plastic_dislotwin.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phase_mechanical_plastic_dislotwin.f90 b/src/phase_mechanical_plastic_dislotwin.f90 index a93c4752a..0bd0e1355 100644 --- a/src/phase_mechanical_plastic_dislotwin.f90 +++ b/src/phase_mechanical_plastic_dislotwin.f90 @@ -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