223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

polishing

This commit is contained in:
Sharan Roongta 2021-03-18 17:04:20 +01:00
parent ef792a578b
commit cec6589b26
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_mechanical_elastic.f90
View File

@ -7,7 +7,7 @@ submodule(phase:mechanical) elastic
STIFFNESS_DEGRADATION_DAMAGE_ID STIFFNESS_DEGRADATION_DAMAGE_ID
end enum end enum
integer, dimension(:), allocatable :: & !< ToDo: should be protected (bug in Intel compiler) integer, dimension(:), allocatable :: &
phase_NstiffnessDegradations phase_NstiffnessDegradations
integer(kind(ELASTICITY_UNDEFINED_ID)), dimension(:), allocatable :: & integer(kind(ELASTICITY_UNDEFINED_ID)), dimension(:), allocatable :: &
@ -17,6 +17,7 @@ submodule(phase:mechanical) elastic
contains contains
module subroutine elastic_init(phases) module subroutine elastic_init(phases)
class(tNode), pointer :: & class(tNode), pointer :: &
@ -34,7 +35,6 @@ module subroutine elastic_init(phases)
print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>' print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>'
! initialize elasticity (hooke)
allocate(phase_elasticity(phases%length), source = ELASTICITY_undefined_ID) allocate(phase_elasticity(phases%length), source = ELASTICITY_undefined_ID)
allocate(phase_NstiffnessDegradations(phases%length),source=0) allocate(phase_NstiffnessDegradations(phases%length),source=0)