From 2decdecac5fad65b58e7c4df28a19730aeb94f41 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 1 Jun 2024 22:48:33 +0200 Subject: [PATCH] avoid uninitialized variables only occurs in the (super rare) case of N_slip = 0 --- src/phase_mechanical_plastic_dislotwin.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/phase_mechanical_plastic_dislotwin.f90 b/src/phase_mechanical_plastic_dislotwin.f90 index 3192df505..da4573cba 100644 --- a/src/phase_mechanical_plastic_dislotwin.f90 +++ b/src/phase_mechanical_plastic_dislotwin.f90 @@ -78,9 +78,9 @@ character(len=pSTRLEN), allocatable, dimension(:) :: & output logical :: & - extendedDislocations, & !< consider split into partials for climb calculation - fccTwinTransNucleation, & !< twinning and transformation models are for fcc - omitDipoles !< flag controlling consideration of dipole formation + extendedDislocations = .false., & !< consider split into partials for climb calculation + fccTwinTransNucleation = .false., & !< twinning and transformation models are for fcc + omitDipoles = .false. !< flag controlling consideration of dipole formation character(len=:), allocatable, dimension(:) :: & systems_sl, & systems_tw @@ -206,8 +206,8 @@ module function plastic_dislotwin_init() result(myPlasticity) prm%P_sl = crystal_SchmidMatrix_slip(N_sl,phase_lattice(ph),phase_cOverA(ph)) prm%n0_sl = crystal_slip_normal(N_sl,phase_lattice(ph),phase_cOverA(ph)) - prm%extendedDislocations = pl%get_asBool('extend_dislocations',defaultVal=.false.) - prm%omitDipoles = pl%get_asBool('omit_dipoles', defaultVal=.false.) + prm%extendedDislocations = pl%get_asBool('extend_dislocations',defaultVal=prm%extendedDislocations) + prm%omitDipoles = pl%get_asBool('omit_dipoles', defaultVal=prm%omitDipoles) prm%Q_cl = pl%get_asReal('Q_cl')