no calculation of Lp and dLp_dTstar in first loop
This commit is contained in:
parent
f845b9dc87
commit
a8ab5be60c
|
@ -289,6 +289,12 @@ subroutine constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,sta
|
|||
squarenorm_Tstar = math_mul6x6(Tstar_v,Tstar_v)
|
||||
norm_Tstar = dsqrt(squarenorm_Tstar)
|
||||
|
||||
!* Initialization of Lp and dLp_dTstar
|
||||
Lp = 0.0_pReal
|
||||
dLp_dTstar = 0.0_pReal
|
||||
|
||||
!* for Tstar==0 both Lp and dLp_dTstar are zero (if not n==1)
|
||||
if (norm_Tstar > 0) then
|
||||
!* Calculation of Lp
|
||||
Lp = Tstar33/norm_Tstar*constitutive_j2_gdot0(matID)/constitutive_j2_fTaylor(matID)* &
|
||||
(dsqrt(1.5_pReal)/constitutive_j2_fTaylor(matID)*norm_Tstar/state(ipc,ip,el)%p(1))**constitutive_j2_n(matID)
|
||||
|
@ -297,15 +303,18 @@ subroutine constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,sta
|
|||
factor = constitutive_j2_gdot0(matID)/constitutive_j2_fTaylor(matID)* &
|
||||
(dsqrt(1.5_pReal)/ constitutive_j2_fTaylor(matID)/state(ipc,ip,el)%p(1))**constitutive_j2_n(matID) * &
|
||||
norm_Tstar**(constitutive_j2_n(matID)-1.0_pReal)
|
||||
|
||||
dLp_dTstar3333 = 0.0_pReal
|
||||
dLp_dTstar = 0.0_pReal
|
||||
forall (k=1:3,l=1:3,m=1:3,n=1:3) &
|
||||
dLp_dTstar3333(k,l,m,n) = Tstar33(k,l)*Tstar33(m,n) * (constitutive_j2_n(matID)-1.0_pReal)/squarenorm_Tstar
|
||||
forall (k=1:3,l=1:3) &
|
||||
dLp_dTstar3333(k,l,k,l) = dLp_dTstar3333(k,l,k,l) + 1.0_pReal
|
||||
dLp_dTstar = math_Plain3333to99(factor * dLp_dTstar3333)
|
||||
end if
|
||||
|
||||
! if ((ipc==1) .and. (ip==1) .and. (el==1)) then
|
||||
! write(6,*) 'Lp: ', Lp
|
||||
! write(6,*) 'dLp_dTstar: ', dLp_dTstar
|
||||
! end if
|
||||
return
|
||||
|
||||
end subroutine
|
||||
|
|
Loading…
Reference in New Issue