Merge branch 'dislotwin-fix' into 'development'

avoid uninitialized variables See merge request damask/DAMASK!947
damask-multiphysics · Jun 3, 2024 · bbd1e20 · bbd1e20
2 parents ca4ccc1 + 2decdec
commit bbd1e20
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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')