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

Corrected Tstar calculation by 0.5

This commit is contained in:
Luc Hantcherli 2007-04-04 13:56:10 +00:00
parent ea20fc73c1
commit 6fcf763054
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
trunk/CPFEM.f90
View File

@ -465,7 +465,7 @@
dt,& dt,&
cp_en,& ! Element number cp_en,& ! Element number
CPFEM_in,& ! Integration point number CPFEM_in,& ! Integration point number
iori,& ! number of orintation iori,& ! number of orientation
Fg_new,& Fg_new,&
Fp_old,& Fp_old,&
Fp_new,& Fp_new,&
@ -513,8 +513,8 @@
! *** Calculation of A and T*0 (see Kalidindi) *** ! *** Calculation of A and T*0 (see Kalidindi) ***
A = matmul(Fg_new,invFp_old) ! actually Fe A = matmul(Fg_new,invFp_old) ! actually Fe
A = matmul(transpose(A), A) A = matmul(transpose(A), A)
C_66=constitutive_HomogenizedC(iori, CPFEM_in, cp_en) !ÄÄÄ C_66 = constitutive_HomogenizedC(iori, CPFEM_in, cp_en) !ÄÄÄ
Tstar_v=matmul(C_66, math_Mandel33to6(A-math_I3)) ! fully elastic guess Tstar_v = 0.5_pReal*matmul(C_66, math_Mandel33to6(A-math_I3)) ! fully elastic guess ADDED 1/2
! QUESTION follow former plastic slope to guess better? ! QUESTION follow former plastic slope to guess better?
! !
! *** Second level of iterative procedure: Resistences *** ! *** Second level of iterative procedure: Resistences ***
@ -525,14 +525,14 @@
! *** Calculation of gdot_slip *** ! *** Calculation of gdot_slip ***
call constitutive_LpAndItsTangent(Tstar_v, iori, CPFEM_in, cp_en, Lp, dLp) call constitutive_LpAndItsTangent(Tstar_v, iori, CPFEM_in, cp_en, Lp, dLp)
I3tLp = math_I3-dt*Lp I3tLp = math_I3-dt*Lp
help=matmul(transpose(I3tLp),matmul(A, I3tLp))-math_I3 help=matmul(transpose(I3tLp),matmul(A, I3tLp))
Tstar0_v = 0.5_pReal * matmul(C_66, math_Mandel33to6(help)) Tstar0_v = 0.5_pReal * matmul(C_66, math_Mandel33to6(help-math_I3))
R1=Tstar_v-Tstar0_v R1=Tstar_v-Tstar0_v
if (maxval(abs(R1/maxval(abs(Tstar_v)))) < tol_inner) goto 100 if (maxval(abs(R1/maxval(abs(Tstar_v)))) < tol_inner) goto 100
! !
! *** Jacobi Calculation: dRes/dTstar *** ! *** Jacobi Calculation: dRes/dTstar ***
help=matmul(A, I3tLp) help=matmul(A, I3tLp)
help1=0 help1=0.0_pReal
do i=1,3 do i=1,3
do j=1,3 do j=1,3
do k=1,3 do k=1,3