DAMASK_EICMD/src/phase_mechanical_plastic_no...

40 lines
1.4 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 :: &
2021-02-16 20:36:09 +05:30
ph
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 19:08:53 +05:30
myPlasticity = plastic_active('none')
2021-02-13 17:37:35 +05:30
if(count(myPlasticity) == 0) return
2021-02-13 23:27:41 +05:30
print'(/,a)', ' <<<+- phase:mechanical:plastic:none init -+>>>'
2021-02-13 17:37:35 +05:30
print'(a,i0)', ' # phases: ',count(myPlasticity); flush(IO_STDOUT)
2021-02-13 17:37:35 +05:30
phases => config_material%get('phase')
2021-02-16 20:36:09 +05:30
do ph = 1, phases%length
if(.not. myPlasticity(ph)) cycle
2021-04-06 15:08:44 +05:30
call phase_allocateState(plasticState(ph),count(material_phaseID == ph),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