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

add some descriptions and correct wrong uppercase

This commit is contained in:
Daniel Otto de Mentock 2023-01-16 11:40:42 +01:00
parent 176ce8106e
commit 786127af10
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/phase_mechanical_plastic_isotropic.f90
View File

@ -106,7 +106,7 @@ module function plastic_isotropic_init() result(myPlasticity)
prm%c_2 = pl%get_asFloat('c_2', defaultVal=0.0_pReal) prm%c_2 = pl%get_asFloat('c_2', defaultVal=0.0_pReal)
prm%a = pl%get_asFloat('a') prm%a = pl%get_asFloat('a')
prm%dilatation = pl%get_AsBool('dilatation',defaultVal = .false.) prm%dilatation = pl%get_asBool('dilatation',defaultVal = .false.)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! sanity checks ! sanity checks

3
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -85,7 +85,8 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
sizeState, sizeDotState, & sizeState, sizeDotState, &
startIndex, endIndex startIndex, endIndex
integer, dimension(:), allocatable :: & integer, dimension(:), allocatable :: &
N_sl, N_tw N_sl, & !< number of slip-systems for a given slip family
N_tw !< number of twin-systems for a given twin family
real(pReal), dimension(:), allocatable :: & real(pReal), dimension(:), allocatable :: &
xi_0_sl, & !< initial critical shear stress for slip xi_0_sl, & !< initial critical shear stress for slip
xi_0_tw, & !< initial critical shear stress for twin xi_0_tw, & !< initial critical shear stress for twin