DAMASK_EICMD/src/phase_mechanical_plastic_no...

!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @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)

  logical, dimension(:), allocatable :: myPlasticity
  integer :: &
    p, &
    Nconstituents
  class(tNode), pointer :: &
    phases


  myPlasticity = plastic_active('nonlocal')
  if(count(myPlasticity) == 0) return

  print'(/,a)', ' <<<+-  phase:mechanics:plastic:none init  -+>>>'
  print'(a,i0)', ' # phases: ',count(myPlasticity); flush(IO_STDOUT)

  phases => config_material%get('phase')
  do p = 1, phases%length
    if(.not. myPlasticity(p)) cycle
    Nconstituents = count(material_phaseAt2 == p)
    call phase_allocateState(plasticState(p),Nconstituents,0,0,0)
  enddo

end function plastic_none_init


end submodule none
doxygen documentation for constitutive_none 2013-05-17 22:39:42 +05:30			`!--------------------------------------------------------------------------------------------------`
			`!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH`
			`!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH`
general polishing 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`
doxygen documentation for constitutive_none 2013-05-17 22:39:42 +05:30			`!--------------------------------------------------------------------------------------------------`
[skip sc] more systematic naming module name 'damagee' gets extra e for the moment to avoid conflict with global variable 'damage' 2021-01-27 01:22:48 +05:30			`submodule(phase:plastic) none`
doxygen documentation for constitutive_none 2013-05-17 22:39:42 +05:30
more documentation and parameters capitalization unified and using ipc in all modules (sometimes called gr) nonlocal: only missing line continuation in string fixed 2013-07-01 11:40:42 +05:30			`contains`
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants) 2012-07-03 16:46:38 +05:30
doxygen documentation for constitutive_none 2013-05-17 22:39:42 +05:30			`!--------------------------------------------------------------------------------------------------`
better print then write - shorter, always writes to STDOUT also, report only details (paper) of active models 2020-09-14 00:30:34 +05:30			`!> @brief Perform module initialization.`
more documentation and parameters capitalization unified and using ipc in all modules (sometimes called gr) nonlocal: only missing line continuation in string fixed 2013-07-01 11:40:42 +05:30			`!> @details reads in material parameters, allocates arrays, and does sanity checks`
doxygen documentation for constitutive_none 2013-05-17 22:39:42 +05:30			`!--------------------------------------------------------------------------------------------------`
better print then write - shorter, always writes to STDOUT also, report only details (paper) of active models 2020-09-14 00:30:34 +05:30			`module function plastic_none_init() result(myPlasticity)`
fixed over-sensitive error in homogeniztion and ifort option in makefile 2013-12-19 14:19:47 +05:30
Restructuring for material.yaml 2020-08-15 19:32:10 +05:30			`logical, dimension(:), allocatable :: myPlasticity`
fixing indentation always 2 spaces, not 1 for the first level 2020-02-01 02:07:18 +05:30			`integer :: &`
			`p, &`
consistent names for counting variables 2020-10-28 02:03:30 +05:30			`Nconstituents`
Restructuring for material.yaml 2020-08-15 19:32:10 +05:30			`class(tNode), pointer :: &`
less verbose reporting 2021-02-13 17:37:35 +05:30			`phases`
Restructuring for material.yaml 2020-08-15 19:32:10 +05:30

less verbose reporting 2021-02-13 17:37:35 +05:30			`myPlasticity = plastic_active('nonlocal')`
			`if(count(myPlasticity) == 0) return`
no need for enums they just complicate the code, any performance gain should be negligible 2020-02-14 13:30:14 +05:30
less verbose reporting 2021-02-13 17:37:35 +05:30			`print'(/,a)', ' <<<+- phase:mechanics:plastic:none init -+>>>'`
			`print'(a,i0)', ' # phases: ',count(myPlasticity); flush(IO_STDOUT)`
better print then write - shorter, always writes to STDOUT also, report only details (paper) of active models 2020-09-14 00:30:34 +05:30
less verbose reporting 2021-02-13 17:37:35 +05:30			`phases => config_material%get('phase')`
Restructuring for material.yaml 2020-08-15 19:32:10 +05:30			`do p = 1, phases%length`
			`if(.not. myPlasticity(p)) cycle`
simplified 2021-01-26 12:24:24 +05:30			`Nconstituents = count(material_phaseAt2 == p)`
systematic names 2021-02-09 03:51:53 +05:30			`call phase_allocateState(plasticState(p),Nconstituents,0,0,0)`
fixing indentation always 2 spaces, not 1 for the first level 2020-02-01 02:07:18 +05:30			`enddo`
changed to new state, please report bugs to Luv or Martin 2014-07-02 17:57:39 +05:30
Restructuring for material.yaml 2020-08-15 19:32:10 +05:30			`end function plastic_none_init`

new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants) 2012-07-03 16:46:38 +05:30
modularizing 2021-01-26 05:41:32 +05:30			`end submodule none`