223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
DAMASK_EICMD/src/constitutive_plastic_none.f90

54 lines
1.8 KiB
Fortran
Raw Normal View History

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
!--------------------------------------------------------------------------------------------------
WIP: compatible with new names
2020-11-03 05:19:17 +05:30
submodule(constitutive:constitutive_mech) 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 names for counting variables
2020-10-28 02:03:30 +05:30
Ninstances, &
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
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 :: &
phases, &
phase, &
under mech dictionary
2020-11-03 03:16:46 +05:30
mech, &
Restructuring for material.yaml
2020-08-15 19:32:10 +05:30
pl
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
print'(/,a)', ' <<<+- plastic_none init -+>>>'
Restructuring for material.yaml
2020-08-15 19:32:10 +05:30
prefix should be name of the module poor substitute for namespace
2020-09-13 14:09:17 +05:30
phases => config_material%get('phase')
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
allocate(myPlasticity(phases%length), source = .false.)
Restructuring for material.yaml
2020-08-15 19:32:10 +05:30
do p = 1, phases%length
phase => phases%get(p)
mech --> mechanics
2020-11-18 01:54:40 +05:30
mech => phase%get('mechanics')
under mech dictionary
2020-11-03 03:16:46 +05:30
pl => mech%get ('plasticity')
Restructuring for material.yaml
2020-08-15 19:32:10 +05:30
if(pl%get_asString('type') == 'none') myPlasticity(p) = .true.
enddo
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
consistent names for counting variables
2020-10-28 02:03:30 +05:30
Ninstances = count(myPlasticity)
print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
if(Ninstances == 0) return
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
Restructuring for material.yaml
2020-08-15 19:32:10 +05:30
do p = 1, phases%length
phase => phases%get(p)
if(.not. myPlasticity(p)) cycle
consistent names for counting variables
2020-10-28 02:03:30 +05:30
Nconstituents = count(material_phaseAt == p) * discretization_nIPs
call constitutive_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
submodules allow inter-module communication
2019-12-03 01:13:02 +05:30
end submodule plastic_none