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

42 lines
1.6 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
!--------------------------------------------------------------------------------------------------
submodules allow inter-module communication
2019-12-03 01:13:02 +05:30
submodule(constitutive) 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
!--------------------------------------------------------------------------------------------------
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
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
!--------------------------------------------------------------------------------------------------
structure update for constitutive laws
2020-06-18 20:53:05 +05:30
module subroutine plastic_none_init(debug_constitutive)
class(tNode), pointer, intent(in) :: &
polishing
2020-06-26 23:42:05 +05:30
debug_constitutive !< pointer to constitutive debug options
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
integer :: &
Ninstance, &
p, &
NipcMyPhase
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
polishing
2020-03-14 23:41:26 +05:30
write(6,'(/,a)') ' <<<+- plastic_'//PLASTICITY_NONE_LABEL//' init -+>>>'; flush(6)
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
Ninstance = count(phase_plasticity == PLASTICITY_NONE_ID)
structure update for constitutive laws
2020-06-18 20:53:05 +05:30
if (debug_constitutive%contains('basic')) &
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
do p = 1, size(phase_plasticity)
if (phase_plasticity(p) /= PLASTICITY_NONE_ID) cycle
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
fixing indentation always 2 spaces, not 1 for the first level
2020-02-01 02:07:18 +05:30
NipcMyPhase = count(material_phaseAt == p) * discretization_nIP
merge functionality
2020-04-01 13:26:59 +05:30
call material_allocateState(plasticState(p),NipcMyPhase,0,0,0)
no need for enums they just complicate the code, any performance gain should be negligible
2020-02-14 13:30:14 +05:30
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
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end subroutine 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