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 :: &
    ph
  class(tNode), pointer :: &
    phases


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

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

  phases => config_material%get('phase')
  do ph = 1, phases%length
    if(.not. myPlasticity(ph)) cycle
    call phase_allocateState(plasticState(ph),count(material_phaseID == ph),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 :: &`
consistent name 'ph' and cleaning 2021-02-16 20:36:09 +05:30			`ph`
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

copy and paste error 2021-02-13 19:08:53 +05:30			`myPlasticity = plastic_active('none')`
less verbose reporting 2021-02-13 17:37:35 +05:30			`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
missing renames 2021-02-13 23:27:41 +05:30			`print'(/,a)', ' <<<+- phase:mechanical:plastic:none init -+>>>'`
less verbose reporting 2021-02-13 17:37:35 +05:30			`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')`
consistent name 'ph' and cleaning 2021-02-16 20:36:09 +05:30			`do ph = 1, phases%length`
			`if(.not. myPlasticity(ph)) cycle`
new names 2021-04-06 15:08:44 +05:30			`call phase_allocateState(plasticState(ph),count(material_phaseID == ph),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`