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
  type(tDict), pointer :: &
    phases


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

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


  phases => config_material%get_dict('phase')

  do ph = 1, phases%length
    if (.not. myPlasticity(ph)) cycle

    print'(/,1x,a,1x,i0,a)', 'phase',ph,': '//phases%key(ph)

    call phase_allocateState(plasticState(ph),count(material_ID_phase == ph),0,0,0)
  end do

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`
Re-written YAML types Strict typing for YAML New access pattern requires to specify the expected type, i.e. 'scalar', 'list', or 'dict'. This ensures that the node offers the expected functionality instead of polluting 'tNode' with dummy functions which throw error messages if not overwritten. The restructuring of the code allows to hierarchically construct methods without much code duplication. Some aspects of the error messaging system have been improved. 2022-10-25 21:39:36 +05:30			`type(tDict), 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')`
consistent indentation and line-spacings in reporting 2021-11-15 23:05:44 +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
consistent indentation and line-spacings in reporting 2021-11-15 23:05:44 +05:30			`print'(/,1x,a)', '<<<+- phase:mechanical:plastic:none init -+>>>'`
reverse order of printing 2023-08-29 07:11:48 +05:30			`print'(/,1x,a,1x,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
white space and style adjustments 2023-01-18 23:20:01 +05:30
Re-written YAML types Strict typing for YAML New access pattern requires to specify the expected type, i.e. 'scalar', 'list', or 'dict'. This ensures that the node offers the expected functionality instead of polluting 'tNode' with dummy functions which throw error messages if not overwritten. The restructuring of the code allows to hierarchically construct methods without much code duplication. Some aspects of the error messaging system have been improved. 2022-10-25 21:39:36 +05:30			`phases => config_material%get_dict('phase')`
inline math_expand for other constitutive laws 2023-06-23 00:13:55 +05:30
consistent name 'ph' and cleaning 2021-02-16 20:36:09 +05:30			`do ph = 1, phases%length`
consistent indentation and line-spacings in reporting 2021-11-15 23:05:44 +05:30			`if (.not. myPlasticity(ph)) cycle`
inline math_expand for other constitutive laws 2023-06-23 00:13:55 +05:30
			`print'(/,1x,a,1x,i0,a)', 'phase',ph,': '//phases%key(ph)`

more systematic name 2023-01-23 13:01:59 +05:30			`call phase_allocateState(plasticState(ph),count(material_ID_phase == ph),0,0,0)`
consistent indentation and line-spacings in reporting 2021-11-15 23:05:44 +05:30			`end do`
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`