DAMASK_EICMD/src/phase_mechanical_plastic_no...

42 lines
1.5 KiB
Fortran
Raw Normal View History

!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
2019-01-06 04:25:10 +05:30
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Dummy plasticity for purely elastic material
!--------------------------------------------------------------------------------------------------
submodule(phase:plastic) none
contains
!--------------------------------------------------------------------------------------------------
!> @brief Perform module initialization.
!> @details reads in material parameters, allocates arrays, and does sanity checks
!--------------------------------------------------------------------------------------------------
module function plastic_none_init() result(myPlasticity)
2020-08-15 19:32:10 +05:30
logical, dimension(:), allocatable :: myPlasticity
integer :: &
p, &
Nconstituents
2020-08-15 19:32:10 +05:30
class(tNode), pointer :: &
2021-02-13 17:37:35 +05:30
phases
2020-08-15 19:32:10 +05:30
2021-02-13 17:37:35 +05:30
myPlasticity = plastic_active('nonlocal')
if(count(myPlasticity) == 0) return
2021-02-13 17:37:35 +05:30
print'(/,a)', ' <<<+- phase:mechanics:plastic:none init -+>>>'
print'(a,i0)', ' # phases: ',count(myPlasticity); flush(IO_STDOUT)
2021-02-13 17:37:35 +05:30
phases => config_material%get('phase')
2020-08-15 19:32:10 +05:30
do p = 1, phases%length
if(.not. myPlasticity(p)) cycle
2021-01-26 12:24:24 +05:30
Nconstituents = count(material_phaseAt2 == p)
2021-02-09 03:51:53 +05:30
call phase_allocateState(plasticState(p),Nconstituents,0,0,0)
enddo
2020-08-15 19:32:10 +05:30
end function plastic_none_init
2021-01-26 05:41:32 +05:30
end submodule none