From aae99156b4eafdbcc5b460250a6c2d401ba86b96 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 28 Dec 2023 19:18:25 +0100 Subject: [PATCH] not needed --- src/phase.f90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/phase.f90 b/src/phase.f90 index 148b028a7..2191ca791 100644 --- a/src/phase.f90 +++ b/src/phase.f90 @@ -384,7 +384,7 @@ contains !-------------------------------------------------------------------------------------------------- !> @brief Initialize constitutive models for individual physics !-------------------------------------------------------------------------------------------------- -subroutine phase_init +subroutine phase_init() integer :: & ph, ce, co, ma @@ -544,11 +544,7 @@ subroutine crystallite_init() ip, & !< counter in integration point loop el, & !< counter in element loop en, ph - type(tDict), pointer :: & - num_phase, & - phases - phases => config_material%get_dict('phase') !$OMP PARALLEL DO PRIVATE(ce,ph,en) do el = 1, discretization_Nelems