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

already documented

This commit is contained in:
Martin Diehl 2023-12-04 16:48:09 +01:00
parent 1621473d99
commit a5b5972e9a
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -176,14 +176,14 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
else slipActive else slipActive
xi_0_sl = emptyRealArray xi_0_sl = emptyRealArray
allocate(prm%dot_gamma_0_sl, & !< reference shear strain rate for slip allocate(prm%dot_gamma_0_sl, &
prm%a_sl, & prm%a_sl, &
prm%n_sl, & !< stress exponent for slip prm%n_sl, &
prm%xi_inf_sl, & !< maximum critical shear stress for slip prm%xi_inf_sl, &
prm%f_sat_sl_tw, & !< push-up factor for slip saturation due to twinning prm%f_sat_sl_tw, &
prm%c_1, & prm%c_1, &
prm%c_2, & prm%c_2, &
prm%h_0_sl_sl, & !< reference hardening slip - slip prm%h_0_sl_sl, &
source=emptyRealArray) source=emptyRealArray)
allocate(prm%h_sl_sl(0,0)) allocate(prm%h_sl_sl(0,0))
end if slipActive end if slipActive
@ -212,13 +212,13 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
else twinActive else twinActive
xi_0_tw = emptyRealArray xi_0_tw = emptyRealArray
allocate(prm%dot_gamma_0_tw, & !< reference shear strain rate for twin allocate(prm%dot_gamma_0_tw, &
prm%n_tw, & !< stress exponent for twin prm%n_tw, &
prm%c_3, & prm%c_3, &
prm%c_4, & prm%c_4, &
prm%gamma_char, & !< characteristic shear for twins prm%gamma_char, &
prm%h_0_tw_sl, & !< reference hardening twin - slip prm%h_0_tw_sl, &
prm%h_0_tw_tw, & !< reference hardening twin - twin prm%h_0_tw_tw, &
source=emptyRealArray) source=emptyRealArray)
allocate(prm%h_tw_tw(0,0)) allocate(prm%h_tw_tw(0,0))
end if twinActive end if twinActive