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

fixed copy and paste errors

This commit is contained in:
Martin Diehl 2019-03-19 14:17:06 +01:00
parent 1b53040f5e
commit 8a07ff4617
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/plastic_dislotwin.f90
View File

@ -890,13 +890,13 @@ subroutine plastic_dislotwin_dependentState(temperature,instance,of)
i
real(pReal) :: &
sumf_twin,SFE,sumf_trans
real(pReal), dimension(param(instance)%totalNtwin) :: &
real(pReal), dimension(param(instance)%totalNslip) :: &
lambda_sl_sl_inv, & !* 1/mean free distance between 2 forest dislocations seen by a moving dislocation
lambda_sl_tw_inv, & !* 1/mean free distance between 2 twin stacks from different systems seen by a moving dislocation
lambda_sl_tr_inv !* 1/mean free distance between 2 martensite lamellar from different systems seen by a moving dislocation
real(pReal), dimension(param(instance)%totalNtrans) :: &
real(pReal), dimension(param(instance)%totalNtwin) :: &
lambda_tw_tw_inv !* 1/mean free distance between 2 twin stacks from different systems seen by a growing twin
real(pReal), dimension(param(instance)%totalNslip) :: &
real(pReal), dimension(param(instance)%totalNtrans) :: &
lambda_tr_tr_inv !* 1/mean free distance between 2 martensite stacks from different systems seen by a growing martensite (1/lambda_trans)
real(pReal), dimension(:), allocatable :: &