From cec6589b26b1eca9df48a679e8899e166e4fe15d Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Thu, 18 Mar 2021 17:04:20 +0100 Subject: [PATCH] polishing --- src/phase_mechanical_elastic.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index 2bd4ed37b..1f1ed367d 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -7,7 +7,7 @@ submodule(phase:mechanical) elastic STIFFNESS_DEGRADATION_DAMAGE_ID end enum - integer, dimension(:), allocatable :: & !< ToDo: should be protected (bug in Intel compiler) + integer, dimension(:), allocatable :: & phase_NstiffnessDegradations integer(kind(ELASTICITY_UNDEFINED_ID)), dimension(:), allocatable :: & @@ -17,6 +17,7 @@ submodule(phase:mechanical) elastic contains + module subroutine elastic_init(phases) class(tNode), pointer :: & @@ -34,7 +35,6 @@ module subroutine elastic_init(phases) print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>' -! initialize elasticity (hooke) allocate(phase_elasticity(phases%length), source = ELASTICITY_undefined_ID) allocate(phase_NstiffnessDegradations(phases%length),source=0)