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)