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

polishing

This commit is contained in:
Martin Diehl 2018-11-25 11:14:09 +01:00
parent c0ce95183c
commit 917453d191
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/plastic_kinematichardening.f90
View File

@ -1,9 +1,9 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @author Philip Eisenlohr, Michigan State University !> @author Philip Eisenlohr, Michigan State University
!> @author Zhuowen Zhao, Michigan State University !> @author Zhuowen Zhao, Michigan State University
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH !> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Introducing Voce-type kinematic hardening rule into crystal plasticity !> @brief Phenomenological crystal plasticity using a power law formulation for the shear rates
!! formulation using a power law fitting !! and a Voce-type kinematic hardening rule
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module plastic_kinehardening module plastic_kinehardening
use prec, only: & use prec, only: &
@ -33,19 +33,19 @@ module plastic_kinehardening
enum, bind(c) enum, bind(c)
enumerator :: undefined_ID, & enumerator :: &
crss_ID, & !< critical resolved stress undefined_ID, &
crss_back_ID, & !< critical resolved back stress crss_ID, & !< critical resolved stress
sense_ID, & !< sense of acting shear stress (-1 or +1) crss_back_ID, & !< critical resolved back stress
chi0_ID, & !< backstress at last switch of stress sense (positive?) sense_ID, & !< sense of acting shear stress (-1 or +1)
gamma0_ID, & !< accumulated shear at last switch of stress sense (at current switch?) chi0_ID, & !< backstress at last switch of stress sense (positive?)
accshear_ID, & gamma0_ID, & !< accumulated shear at last switch of stress sense (at current switch?)
shearrate_ID, & accshear_ID, &
resolvedstress_ID shearrate_ID, &
resolvedstress_ID
end enum end enum
type, private :: tParameters !< container type for internal constitutive parameters type, private :: tParameters !< container type for internal constitutive parameters
integer(kind(undefined_ID)), dimension(:), allocatable, private :: & integer(kind(undefined_ID)), dimension(:), allocatable, private :: &
outputID !< ID of each post result output outputID !< ID of each post result output