!!!!! IMPORTANT !!!!!
All subroutines were committed at once: - constitutive_pheno works - constitutive_dislo without twinning also works This release should serve as reference
This commit is contained in:
parent
3ef451824c
commit
fe70a82d6d
|
@ -116,7 +116,6 @@
|
||||||
real(pReal) ffn(3,3), ffn1(3,3), Temperature, CPFEM_dt, CPFEM_stress(CPFEM_ngens), CPFEM_jaco(CPFEM_ngens,CPFEM_ngens)
|
real(pReal) ffn(3,3), ffn1(3,3), Temperature, CPFEM_dt, CPFEM_stress(CPFEM_ngens), CPFEM_jaco(CPFEM_ngens,CPFEM_ngens)
|
||||||
logical CPFEM_stress_recovery
|
logical CPFEM_stress_recovery
|
||||||
!
|
!
|
||||||
Temperature = 293.0_pReal
|
|
||||||
! calculate only every second cycle
|
! calculate only every second cycle
|
||||||
if(mod(CPFEM_cn,2)==0) then
|
if(mod(CPFEM_cn,2)==0) then
|
||||||
! really calculate only in first call of new cycle and when in stress recovery
|
! really calculate only in first call of new cycle and when in stress recovery
|
||||||
|
@ -151,7 +150,6 @@ if(mod(CPFEM_cn,2)==0) then
|
||||||
! this shall be done in a parallel loop in the future
|
! this shall be done in a parallel loop in the future
|
||||||
do e=1,mesh_NcpElems
|
do e=1,mesh_NcpElems
|
||||||
do i=1,FE_Nips(FE_mapElemtype(mesh_element(2,e)))
|
do i=1,FE_Nips(FE_mapElemtype(mesh_element(2,e)))
|
||||||
write(6,*) 'Debut', e,i
|
|
||||||
call CPFEM_stressIP(CPFEM_cn, CPFEM_dt, i, e)
|
call CPFEM_stressIP(CPFEM_cn, CPFEM_dt, i, e)
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
|
@ -330,8 +328,6 @@ if(mod(CPFEM_cn,2)==0) then
|
||||||
real(pReal), dimension(6,6) :: dcs_de
|
real(pReal), dimension(6,6) :: dcs_de
|
||||||
real(pReal), dimension(constitutive_Nstatevars(grain,CPFEM_in,cp_en)) :: state_old,state_new,state_pert
|
real(pReal), dimension(constitutive_Nstatevars(grain,CPFEM_in,cp_en)) :: state_old,state_new,state_pert
|
||||||
|
|
||||||
write(6,*)
|
|
||||||
write(6,*) 'SOLUTION'
|
|
||||||
call CPFEM_timeIntegration(msg,Fp_new,Fe_new,Tstar_v,state_new, & ! def gradients and PK2 at end of time step
|
call CPFEM_timeIntegration(msg,Fp_new,Fe_new,Tstar_v,state_new, & ! def gradients and PK2 at end of time step
|
||||||
dt,cp_en,CPFEM_in,grain,Fg_new,Fp_old,state_old)
|
dt,cp_en,CPFEM_in,grain,Fg_new,Fp_old,state_old)
|
||||||
|
|
||||||
|
@ -347,8 +343,6 @@ if(mod(CPFEM_cn,2)==0) then
|
||||||
Fg_pert = Fg_new+matmul(E_pert,Fg_old) ! perturbated Fg
|
Fg_pert = Fg_new+matmul(E_pert,Fg_old) ! perturbated Fg
|
||||||
Tstar_v_pert = Tstar_v ! initial guess from end of time step
|
Tstar_v_pert = Tstar_v ! initial guess from end of time step
|
||||||
state_pert = state_new ! initial guess from end of time step
|
state_pert = state_new ! initial guess from end of time step
|
||||||
write(6,*)
|
|
||||||
write(6,*) 'CONSISTENT TANGENT', i
|
|
||||||
call CPFEM_timeIntegration(msg,Fp_pert,Fe_pert,Tstar_v_pert,state_pert, &
|
call CPFEM_timeIntegration(msg,Fp_pert,Fe_pert,Tstar_v_pert,state_pert, &
|
||||||
dt,cp_en,CPFEM_in,grain,Fg_pert,Fp_old,state_old)
|
dt,cp_en,CPFEM_in,grain,Fg_pert,Fp_old,state_old)
|
||||||
if (msg /= 'ok') then
|
if (msg /= 'ok') then
|
||||||
|
@ -360,14 +354,6 @@ if(mod(CPFEM_cn,2)==0) then
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
|
|
||||||
write(6,*) 'OPERATEUR TANGENTE'
|
|
||||||
write(6,*) dcs_de(1,:)
|
|
||||||
write(6,*) dcs_de(2,:)
|
|
||||||
write(6,*) dcs_de(3,:)
|
|
||||||
write(6,*) dcs_de(4,:)
|
|
||||||
write(6,*) dcs_de(5,:)
|
|
||||||
write(6,*) dcs_de(6,:)
|
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
END SUBROUTINE
|
END SUBROUTINE
|
||||||
|
@ -394,7 +380,7 @@ if(mod(CPFEM_cn,2)==0) then
|
||||||
use prec
|
use prec
|
||||||
use constitutive, only: constitutive_Nstatevars,&
|
use constitutive, only: constitutive_Nstatevars,&
|
||||||
constitutive_homogenizedC,constitutive_dotState,constitutive_LpAndItsTangent,&
|
constitutive_homogenizedC,constitutive_dotState,constitutive_LpAndItsTangent,&
|
||||||
constitutive_Microstructure
|
constitutive_Microstructure
|
||||||
use math
|
use math
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
@ -437,10 +423,10 @@ state: do ! outer iteration: state
|
||||||
endif
|
endif
|
||||||
call constitutive_Microstructure(state_new,CPFEM_Temperature(CPFEM_in,cp_en),grain,CPFEM_in,cp_en)
|
call constitutive_Microstructure(state_new,CPFEM_Temperature(CPFEM_in,cp_en),grain,CPFEM_in,cp_en)
|
||||||
C_66 = constitutive_HomogenizedC(state_new, grain, CPFEM_in, cp_en)
|
C_66 = constitutive_HomogenizedC(state_new, grain, CPFEM_in, cp_en)
|
||||||
|
|
||||||
iStress = 0_pInt
|
iStress = 0_pInt
|
||||||
stress: do ! inner iteration: stress
|
stress: do ! inner iteration: stress
|
||||||
iStress = iStress+1
|
iStress = iStress+1
|
||||||
write(6,*) 'istate,istress', istate, istress
|
|
||||||
if (iStress > nStress) then ! too many loops required
|
if (iStress > nStress) then ! too many loops required
|
||||||
msg = 'limit stress iteration'
|
msg = 'limit stress iteration'
|
||||||
return
|
return
|
||||||
|
@ -462,9 +448,6 @@ stress: do ! inner iteration: stress
|
||||||
dTstar_v=0.5*dTstar_v
|
dTstar_v=0.5*dTstar_v
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
write(6,*) 'Tstar_v', Tstar_v
|
|
||||||
write(6,*) 'dTstar_v', dTstar_v
|
|
||||||
!write(6,*) 'norm stress', maxval(abs(Rstress/maxval(abs(Tstar_v))))
|
|
||||||
if (iStress > 1 .and. &
|
if (iStress > 1 .and. &
|
||||||
(maxval(abs(Tstar_v)) < abstol_Stress .or. maxval(abs(Rstress/maxval(abs(Tstar_v)))) < reltol_Stress)) exit stress
|
(maxval(abs(Tstar_v)) < abstol_Stress .or. maxval(abs(Rstress/maxval(abs(Tstar_v)))) < reltol_Stress)) exit stress
|
||||||
|
|
||||||
|
@ -481,8 +464,8 @@ stress: do ! inner iteration: stress
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
Jacobi = math_identity2nd(6) + 0.5_pReal*dt*matmul(C_66,math_Mandel3333to66(LTL))
|
Jacobi = math_identity2nd(6) + 0.5_pReal*dt*matmul(C_66,math_Mandel3333to66(LTL))
|
||||||
j = 0_pInt
|
j = 0_pInt
|
||||||
call math_invert6x6(Jacobi,invJacobi,dummy,failed)
|
call math_invert6x6(Jacobi,invJacobi,dummy,failed)
|
||||||
do while (failed .and. j <= nReg)
|
do while (failed .and. j <= nReg)
|
||||||
forall (i=1:6) Jacobi(i,i) = 1.05_pReal*maxval(Jacobi(i,:)) ! regularization
|
forall (i=1:6) Jacobi(i,i) = 1.05_pReal*maxval(Jacobi(i,:)) ! regularization
|
||||||
|
@ -500,6 +483,10 @@ stress: do ! inner iteration: stress
|
||||||
|
|
||||||
enddo stress
|
enddo stress
|
||||||
Tstar_v = 0.5_pReal*matmul(C_66,math_Mandel33to6(matmul(transpose(B),AB)-math_I3))
|
Tstar_v = 0.5_pReal*matmul(C_66,math_Mandel33to6(matmul(transpose(B),AB)-math_I3))
|
||||||
|
!if ((printer==1_pInt).AND.(CPFEM_in==1_pInt).AND.(cp_en==1_pInt)) then
|
||||||
|
!write(6,'(A10, 12ES12.3)') 'state_new', state_new
|
||||||
|
!write(6,'(A10, 6ES12.3)') 'Tstar_v', Tstar_v
|
||||||
|
!endif
|
||||||
dstate = dt*constitutive_dotState(Tstar_v,state_new,CPFEM_Temperature(CPFEM_in,cp_en),grain,CPFEM_in,cp_en) ! evolution of microstructure
|
dstate = dt*constitutive_dotState(Tstar_v,state_new,CPFEM_Temperature(CPFEM_in,cp_en),grain,CPFEM_in,cp_en) ! evolution of microstructure
|
||||||
Rstate = state_new - (state_old+dstate)
|
Rstate = state_new - (state_old+dstate)
|
||||||
RstateS = 0.0_pReal
|
RstateS = 0.0_pReal
|
||||||
|
@ -507,12 +494,9 @@ stress: do ! inner iteration: stress
|
||||||
RstateS(i) = Rstate(i)/state_new(i)
|
RstateS(i) = Rstate(i)/state_new(i)
|
||||||
state_new = state_old+dstate
|
state_new = state_old+dstate
|
||||||
|
|
||||||
write(6,*) 'norm state', maxval(abs(RstateS))
|
|
||||||
if (maxval(abs(RstateS)) < reltol_State) exit state
|
if (maxval(abs(RstateS)) < reltol_State) exit state
|
||||||
|
|
||||||
enddo state
|
enddo state
|
||||||
! write(999,*) 'Tstar_v raus', Tstar_v
|
|
||||||
! write(999,*)
|
|
||||||
|
|
||||||
invFp_new = matmul(invFp_old,B)
|
invFp_new = matmul(invFp_old,B)
|
||||||
call math_invert3x3(invFp_new,Fp_new,det,failed)
|
call math_invert3x3(invFp_new,Fp_new,det,failed)
|
||||||
|
|
|
@ -499,10 +499,10 @@
|
||||||
|
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
!********************************************************************
|
!*********************************************************************
|
||||||
! read consecutive lines of ints concatenated by "c" as last char
|
! read consecutive lines of ints concatenated by "c" as last char
|
||||||
! or range of values a "to" b
|
! or range of values a "to" b
|
||||||
!********************************************************************
|
!*********************************************************************
|
||||||
FUNCTION IO_continousIntValues (unit,maxN,lookupName,lookupMap,lookupMaxN)
|
FUNCTION IO_continousIntValues (unit,maxN,lookupName,lookupMap,lookupMaxN)
|
||||||
|
|
||||||
use prec, only: pReal,pInt
|
use prec, only: pReal,pInt
|
||||||
|
|
|
@ -349,7 +349,7 @@ do while(.true.)
|
||||||
case ('burgers')
|
case ('burgers')
|
||||||
material_bg(section)=IO_floatValue(line,positions,2)
|
material_bg(section)=IO_floatValue(line,positions,2)
|
||||||
write(6,*) 'burgers', material_bg(section)
|
write(6,*) 'burgers', material_bg(section)
|
||||||
case ('Qedge')
|
case ('qedge')
|
||||||
material_Qedge(section)=IO_floatValue(line,positions,2)
|
material_Qedge(section)=IO_floatValue(line,positions,2)
|
||||||
write(6,*) 'Qedge', material_Qedge(section)
|
write(6,*) 'Qedge', material_Qedge(section)
|
||||||
case ('tau0')
|
case ('tau0')
|
||||||
|
@ -925,11 +925,15 @@ constitutive_rho_p=matmul(constitutive_Pparallel(1:material_Nslip(matID),1:mater
|
||||||
do i=1,material_Nslip(matID)
|
do i=1,material_Nslip(matID)
|
||||||
constitutive_passing_stress(i)=material_tau0(matID)+material_c1(matID)*material_Gmod(matID)*material_bg(matID)*&
|
constitutive_passing_stress(i)=material_tau0(matID)+material_c1(matID)*material_Gmod(matID)*material_bg(matID)*&
|
||||||
sqrt(constitutive_rho_p(i))
|
sqrt(constitutive_rho_p(i))
|
||||||
|
|
||||||
constitutive_jump_width(i)=material_c2(matID)/sqrt(constitutive_rho_f(i))
|
constitutive_jump_width(i)=material_c2(matID)/sqrt(constitutive_rho_f(i))
|
||||||
|
|
||||||
constitutive_activation_volume(i)=material_c3(matID)*constitutive_jump_width(i)*material_bg(matID)**2.0_pReal
|
constitutive_activation_volume(i)=material_c3(matID)*constitutive_jump_width(i)*material_bg(matID)**2.0_pReal
|
||||||
|
|
||||||
constitutive_rho_m(i)=(2.0_pReal*Kb*Tp*sqrt(constitutive_rho_p(i)))/&
|
constitutive_rho_m(i)=(2.0_pReal*Kb*Tp*sqrt(constitutive_rho_p(i)))/&
|
||||||
(material_c1(matID)*material_c3(matID)*material_Gmod(matID)*constitutive_jump_width(i)*&
|
(material_c1(matID)*material_c3(matID)*material_Gmod(matID)*constitutive_jump_width(i)*&
|
||||||
material_bg(matID)**3.0_pReal)
|
material_bg(matID)**3.0_pReal)
|
||||||
|
|
||||||
constitutive_g0_slip(i)=constitutive_rho_m(i)*material_bg(matID)*attack_frequency*constitutive_jump_width(i)*&
|
constitutive_g0_slip(i)=constitutive_rho_m(i)*material_bg(matID)*attack_frequency*constitutive_jump_width(i)*&
|
||||||
exp(-(material_Qedge(matID)+constitutive_passing_stress(i)*constitutive_activation_volume(i))/&
|
exp(-(material_Qedge(matID)+constitutive_passing_stress(i)*constitutive_activation_volume(i))/&
|
||||||
(Kb*Tp))
|
(Kb*Tp))
|
||||||
|
@ -949,15 +953,6 @@ do i=1,material_Ntwin(matID)
|
||||||
constitutive_twin_volume(i)=(pi/6.0_pReal)*material_StackSize(matID)*constitutive_twin_mfp(i)**2.0_pReal
|
constitutive_twin_volume(i)=(pi/6.0_pReal)*material_StackSize(matID)*constitutive_twin_mfp(i)**2.0_pReal
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
!write(6,*) 'rho_f', constitutive_rho_f
|
|
||||||
!write(6,*) 'rho_p', constitutive_rho_p
|
|
||||||
!write(6,*) 'passing', constitutive_passing_stress
|
|
||||||
!write(6,*) 'jump_width', constitutive_jump_width
|
|
||||||
!write(6,*) 'activation_volume', constitutive_activation_volume
|
|
||||||
!write(6,*) 'Temperature', Tp
|
|
||||||
!write(6,*) 'rho_m', constitutive_rho_m
|
|
||||||
!write(6,*) 'g0_slip', constitutive_g0_slip
|
|
||||||
|
|
||||||
return
|
return
|
||||||
end subroutine
|
end subroutine
|
||||||
|
|
||||||
|
@ -994,18 +989,19 @@ real(pReal), dimension(constitutive_Nstatevars(ipc,ip,el)) :: state
|
||||||
matID = constitutive_matID(ipc,ip,el)
|
matID = constitutive_matID(ipc,ip,el)
|
||||||
startIdxTwin = material_Nslip(matID)
|
startIdxTwin = material_Nslip(matID)
|
||||||
|
|
||||||
!* Recompute arrays from the microstructure (may be not needed)
|
|
||||||
call constitutive_Microstructure(state,Tp,ipc,ip,el)
|
|
||||||
|
|
||||||
!* Calculation of Lp - slip
|
!* Calculation of Lp - slip
|
||||||
Ftwin = sum(state((startIdxTwin+1):(startIdxTwin+material_Ntwin(matID))))
|
Ftwin = sum(state((startIdxTwin+1):(startIdxTwin+material_Ntwin(matID))))
|
||||||
Lp = 0.0_pReal
|
Lp = 0.0_pReal
|
||||||
do i=1,material_Nslip(matID)
|
do i=1,material_Nslip(matID)
|
||||||
constitutive_tau_slip(i)=dot_product(Tstar_v,crystal_Sslip_v(:,i,material_CrystalStructure(matID)))
|
constitutive_tau_slip(i)=dot_product(Tstar_v,crystal_Sslip_v(:,i,material_CrystalStructure(matID)))
|
||||||
constitutive_gdot_slip(i)=constitutive_g0_slip(i)*sinh((abs(constitutive_tau_slip(i))*&
|
if (abs(constitutive_tau_slip(i))<constitutive_passing_stress(i)) then
|
||||||
constitutive_activation_volume(i))/(Kb*Tp))*sign(1.0_pReal,constitutive_tau_slip(i))
|
constitutive_gdot_slip(i) = 0.0_pReal
|
||||||
constitutive_dgdot_dtauslip(i)=((constitutive_g0_slip(i)*constitutive_activation_volume(i))/(Kb*Tp))*&
|
constitutive_dgdot_dtauslip(i) = 0.0_pReal
|
||||||
cosh((abs(constitutive_tau_slip(i))*constitutive_activation_volume(i))/(Kb*Tp))
|
else
|
||||||
|
constitutive_gdot_slip(i)=constitutive_g0_slip(i)*sinh(constitutive_tau_slip(i)*constitutive_activation_volume(i)/Kb/Tp)
|
||||||
|
constitutive_dgdot_dtauslip(i)=constitutive_g0_slip(i)*constitutive_activation_volume(i)/Kb/Tp*&
|
||||||
|
cosh(constitutive_tau_slip(i)*constitutive_activation_volume(i)/Kb/Tp)
|
||||||
|
endif
|
||||||
Lp=Lp+(1.0_pReal-Ftwin)*constitutive_gdot_slip(i)*crystal_Sslip(:,:,i,material_CrystalStructure(matID))
|
Lp=Lp+(1.0_pReal-Ftwin)*constitutive_gdot_slip(i)*crystal_Sslip(:,:,i,material_CrystalStructure(matID))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
@ -1038,8 +1034,6 @@ do i=1,material_Ntwin(matID)
|
||||||
crystal_Stwin(:,:,i,material_CrystalStructure(matID))
|
crystal_Stwin(:,:,i,material_CrystalStructure(matID))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
!write(6,*) 'constitutive_gdot_slip'
|
|
||||||
!write(6,*) constitutive_gdot_slip
|
|
||||||
|
|
||||||
!* Calculation of the tangent of Lp
|
!* Calculation of the tangent of Lp
|
||||||
dLp_dTstar=0.0_pReal
|
dLp_dTstar=0.0_pReal
|
||||||
|
@ -1100,9 +1094,6 @@ real(pReal), dimension(constitutive_Nstatevars(ipc,ip,el)) :: constitutive_dotSt
|
||||||
!* Get the material-ID from the triplet(ipc,ip,el)
|
!* Get the material-ID from the triplet(ipc,ip,el)
|
||||||
matID = constitutive_matID(ipc,ip,el)
|
matID = constitutive_matID(ipc,ip,el)
|
||||||
|
|
||||||
!* Recompute arrays from the microstructure (may be not needed)
|
|
||||||
call constitutive_Microstructure(state,Tp,ipc,ip,el)
|
|
||||||
|
|
||||||
!* Hardening of each system
|
!* Hardening of each system
|
||||||
do i=1,material_Nslip(matID)
|
do i=1,material_Nslip(matID)
|
||||||
tau_slip = dot_product(Tstar_v,crystal_Sslip_v(:,i,material_CrystalStructure(matID)))
|
tau_slip = dot_product(Tstar_v,crystal_Sslip_v(:,i,material_CrystalStructure(matID)))
|
||||||
|
|
|
@ -84,9 +84,9 @@ real(pReal), dimension(:,:,:) , allocatable :: constitutive_texVolFrac
|
||||||
!* State variables *
|
!* State variables *
|
||||||
!************************************
|
!************************************
|
||||||
integer(pInt) constitutive_maxNstatevars
|
integer(pInt) constitutive_maxNstatevars
|
||||||
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nstatevars
|
integer(pInt), dimension(:,:,:) , allocatable :: constitutive_Nstatevars
|
||||||
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_old
|
real(pReal), dimension(:,:,:,:) , allocatable :: constitutive_state_old
|
||||||
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_new
|
real(pReal), dimension(:,:,:,:) , allocatable :: constitutive_state_new
|
||||||
|
|
||||||
!************************************
|
!************************************
|
||||||
!* Hardening matrices *
|
!* Hardening matrices *
|
||||||
|
|
|
@ -310,7 +310,7 @@ implicit none
|
||||||
|
|
||||||
!* Definition of variables
|
!* Definition of variables
|
||||||
integer(pInt) i,j,k,l
|
integer(pInt) i,j,k,l
|
||||||
real(pReal) invNorm
|
real(pReal) norm_d,norm_t,norm_n
|
||||||
|
|
||||||
!* Iteration over the crystal structures
|
!* Iteration over the crystal structures
|
||||||
do l=1,crystal_MaxCrystalStructure
|
do l=1,crystal_MaxCrystalStructure
|
||||||
|
@ -320,14 +320,16 @@ do l=1,crystal_MaxCrystalStructure
|
||||||
crystal_st(1,k,l)=crystal_sn(2,k,l)*crystal_sd(3,k,l)-crystal_sn(3,k,l)*crystal_sd(2,k,l)
|
crystal_st(1,k,l)=crystal_sn(2,k,l)*crystal_sd(3,k,l)-crystal_sn(3,k,l)*crystal_sd(2,k,l)
|
||||||
crystal_st(2,k,l)=crystal_sn(3,k,l)*crystal_sd(1,k,l)-crystal_sn(1,k,l)*crystal_sd(3,k,l)
|
crystal_st(2,k,l)=crystal_sn(3,k,l)*crystal_sd(1,k,l)-crystal_sn(1,k,l)*crystal_sd(3,k,l)
|
||||||
crystal_st(3,k,l)=crystal_sn(1,k,l)*crystal_sd(2,k,l)-crystal_sn(2,k,l)*crystal_sd(1,k,l)
|
crystal_st(3,k,l)=crystal_sn(1,k,l)*crystal_sd(2,k,l)-crystal_sn(2,k,l)*crystal_sd(1,k,l)
|
||||||
|
norm_d=dsqrt(crystal_sd(1,k,l)**2+crystal_sd(2,k,l)**2+crystal_sd(3,k,l)**2)
|
||||||
|
norm_t=dsqrt(crystal_st(1,k,l)**2+crystal_st(2,k,l)**2+crystal_st(3,k,l)**2)
|
||||||
|
norm_n=dsqrt(crystal_sn(1,k,l)**2+crystal_sn(2,k,l)**2+crystal_sn(3,k,l)**2)
|
||||||
|
crystal_sd(:,k,l)=crystal_sd(:,k,l)/norm_d
|
||||||
|
crystal_st(:,k,l)=crystal_st(:,k,l)/norm_t
|
||||||
|
crystal_sn(:,k,l)=crystal_sn(:,k,l)/norm_n
|
||||||
!* Defintion of Schmid matrix
|
!* Defintion of Schmid matrix
|
||||||
forall (i=1:3,j=1:3)
|
forall (i=1:3,j=1:3)
|
||||||
crystal_Sslip(i,j,k,l)=crystal_sd(i,k,l)*crystal_sn(j,k,l)
|
crystal_Sslip(i,j,k,l)=crystal_sd(i,k,l)*crystal_sn(j,k,l)
|
||||||
endforall
|
endforall
|
||||||
!* Normalization of Schmid matrix
|
|
||||||
invNorm=dsqrt(1.0_pReal/((crystal_sn(1,k,l)**2+crystal_sn(2,k,l)**2+crystal_sn(3,k,l)**2)*&
|
|
||||||
(crystal_sd(1,k,l)**2+crystal_sd(2,k,l)**2+crystal_sd(3,k,l)**2)))
|
|
||||||
crystal_Sslip(:,:,k,l)=crystal_Sslip(:,:,k,l)*invNorm
|
|
||||||
!* Vectorization of normalized Schmid matrix
|
!* Vectorization of normalized Schmid matrix
|
||||||
crystal_Sslip_v(1,k,l)=crystal_Sslip(1,1,k,l)
|
crystal_Sslip_v(1,k,l)=crystal_Sslip(1,1,k,l)
|
||||||
crystal_Sslip_v(2,k,l)=crystal_Sslip(2,2,k,l)
|
crystal_Sslip_v(2,k,l)=crystal_Sslip(2,2,k,l)
|
||||||
|
@ -344,16 +346,18 @@ do l=1,crystal_MaxCrystalStructure
|
||||||
crystal_tt(1,k,l)=crystal_tn(2,k,l)*crystal_td(3,k,l)-crystal_tn(3,k,l)*crystal_td(2,k,l)
|
crystal_tt(1,k,l)=crystal_tn(2,k,l)*crystal_td(3,k,l)-crystal_tn(3,k,l)*crystal_td(2,k,l)
|
||||||
crystal_tt(2,k,l)=crystal_tn(3,k,l)*crystal_td(1,k,l)-crystal_tn(1,k,l)*crystal_td(3,k,l)
|
crystal_tt(2,k,l)=crystal_tn(3,k,l)*crystal_td(1,k,l)-crystal_tn(1,k,l)*crystal_td(3,k,l)
|
||||||
crystal_tt(3,k,l)=crystal_tn(1,k,l)*crystal_td(2,k,l)-crystal_tn(2,k,l)*crystal_td(1,k,l)
|
crystal_tt(3,k,l)=crystal_tn(1,k,l)*crystal_td(2,k,l)-crystal_tn(2,k,l)*crystal_td(1,k,l)
|
||||||
|
norm_d=dsqrt(crystal_td(1,k,l)**2+crystal_td(2,k,l)**2+crystal_td(3,k,l)**2)
|
||||||
|
norm_t=dsqrt(crystal_tt(1,k,l)**2+crystal_tt(2,k,l)**2+crystal_tt(3,k,l)**2)
|
||||||
|
norm_n=dsqrt(crystal_tn(1,k,l)**2+crystal_tn(2,k,l)**2+crystal_tn(3,k,l)**2)
|
||||||
|
crystal_td(:,k,l)=crystal_td(:,k,l)/norm_d
|
||||||
|
crystal_tt(:,k,l)=crystal_tt(:,k,l)/norm_t
|
||||||
|
crystal_tn(:,k,l)=crystal_tn(:,k,l)/norm_n
|
||||||
!* Defintion of Schmid matrix and transformation matrices
|
!* Defintion of Schmid matrix and transformation matrices
|
||||||
crystal_Qtwin(:,:,k,l)=-math_I3
|
crystal_Qtwin(:,:,k,l)=-math_I3
|
||||||
forall (i=1:3,j=1:3)
|
forall (i=1:3,j=1:3)
|
||||||
crystal_Stwin(i,j,k,l)=crystal_td(i,k,l)*crystal_tn(j,k,l)
|
crystal_Stwin(i,j,k,l)=crystal_td(i,k,l)*crystal_tn(j,k,l)
|
||||||
crystal_Qtwin(i,j,k,l)=crystal_Qtwin(i,j,k,l)+2*crystal_tn(i,k,l)*crystal_tn(j,k,l)
|
crystal_Qtwin(i,j,k,l)=crystal_Qtwin(i,j,k,l)+2*crystal_tn(i,k,l)*crystal_tn(j,k,l)
|
||||||
endforall
|
endforall
|
||||||
!* Normalization of Schmid matrix
|
|
||||||
invNorm=dsqrt(1.0_pReal/((crystal_tn(1,k,l)**2+crystal_tn(2,k,l)**2+crystal_tn(3,k,l)**2)*&
|
|
||||||
(crystal_td(1,k,l)**2+crystal_td(2,k,l)**2+crystal_td(3,k,l)**2)))
|
|
||||||
crystal_Stwin(:,:,k,l)=crystal_Stwin(:,:,k,l)*invNorm
|
|
||||||
!* Vectorization of normalized Schmid matrix
|
!* Vectorization of normalized Schmid matrix
|
||||||
crystal_Stwin_v(1,k,l)=crystal_Stwin(1,1,k,l)
|
crystal_Stwin_v(1,k,l)=crystal_Stwin(1,1,k,l)
|
||||||
crystal_Stwin_v(2,k,l)=crystal_Stwin(2,2,k,l)
|
crystal_Stwin_v(2,k,l)=crystal_Stwin(2,2,k,l)
|
||||||
|
|
|
@ -114,7 +114,7 @@
|
||||||
a(k,i) = a(k,j)
|
a(k,i) = a(k,j)
|
||||||
a(k,j) = tmp
|
a(k,j) = tmp
|
||||||
enddo
|
enddo
|
||||||
else ! if they do cross, exchange left value with pivot and return with the partition index
|
else ! if they do cross, exchange left value with pivot and return with the partition index
|
||||||
do k = 1,d
|
do k = 1,d
|
||||||
tmp = a(k,istart)
|
tmp = a(k,istart)
|
||||||
a(k,istart) = a(k,j)
|
a(k,istart) = a(k,j)
|
||||||
|
|
|
@ -1,28 +1,28 @@
|
||||||
<materials>
|
<materials>
|
||||||
[Aluminium]
|
[TWIP steel FeMnC]
|
||||||
crystal_structure 1
|
crystal_structure 1
|
||||||
Nslip 12
|
Nslip 12
|
||||||
Ntwin 0
|
Ntwin 0
|
||||||
## Elastic constants
|
## Elastic constants
|
||||||
# Unit in [Pa]
|
# Unit in [Pa]
|
||||||
C11 106.75e9
|
C11 245.0e9
|
||||||
C12 60.41e9
|
C12 105.0e9
|
||||||
C44 28.34e9
|
C44 65.0e9
|
||||||
|
|
||||||
## Parameters for phenomenological modeling
|
## Parameters for phenomenological modeling
|
||||||
# Unit in [Pa]
|
# Unit in [Pa]
|
||||||
s0_slip 31.0e6
|
s0_slip 85.0e6
|
||||||
gdot0_slip 0.001
|
gdot0_slip 0.001
|
||||||
n_slip 20
|
n_slip 100.0
|
||||||
h0 75.0e6
|
h0 355.0e6
|
||||||
s_sat 63.0e6
|
s_sat 265.0e6
|
||||||
w0 2.25
|
w0 1.0
|
||||||
# Self and latent hardening coefficients
|
# Self and latent hardening coefficients
|
||||||
hardening_coefficients 1.0 1.4
|
hardening_coefficients 1.0 1.4
|
||||||
|
|
||||||
## Parameters for dislocation-based modeling
|
## Parameters for dislocation-based modeling
|
||||||
# Initial dislocation density [m]²
|
# Initial dislocation density [m]²
|
||||||
rho0 1.5e11
|
rho0 2.8e13
|
||||||
# Burgers vector [m]
|
# Burgers vector [m]
|
||||||
burgers 2.86e-10
|
burgers 2.86e-10
|
||||||
# Activation energy for dislocation glide [J/K]
|
# Activation energy for dislocation glide [J/K]
|
||||||
|
@ -34,31 +34,33 @@ c1 0.1
|
||||||
# Jump width adjustment
|
# Jump width adjustment
|
||||||
c2 2.0
|
c2 2.0
|
||||||
# Activation volume adjustment
|
# Activation volume adjustment
|
||||||
c3 0.4
|
c3 1.2
|
||||||
# Dislocation storage adjustment
|
# Dislocation storage adjustment
|
||||||
c4 20.0
|
# = c4(Anxin)*c2(Anxin) !!!!!!
|
||||||
|
c4 14.29
|
||||||
|
# Athermal annihilation adjustment
|
||||||
|
c7 20.0
|
||||||
|
# Dislocation interaction coefficients
|
||||||
|
interaction_coefficients 1.0 2.2 3.0 1.6 3.8 4.5
|
||||||
|
|
||||||
|
# Twin parameters
|
||||||
# Grain boundaries storage adjustment
|
# Grain boundaries storage adjustment
|
||||||
c5 1.0e100
|
c5 1.0e100
|
||||||
# Twin boundaries storage adjustment
|
# Twin boundaries storage adjustment
|
||||||
c6 1.0e100
|
c6 1.0e100
|
||||||
# Athermal annihilation adjustment
|
|
||||||
c7 10.0
|
|
||||||
# Dislocation interaction coefficients
|
|
||||||
interaction_coefficients 1.0 2.2 3.0 1.6 3.8 4.5
|
|
||||||
# Twin parameters
|
|
||||||
# grain size, average size of stacks of twins [m]
|
# grain size, average size of stacks of twins [m]
|
||||||
grain_size 1.5e-5
|
grain_size 1.5e-5
|
||||||
stack_size 5.0e-8
|
stack_size 5.0e-8
|
||||||
# stacking fault energy
|
# stacking fault energy
|
||||||
stacking_fault_energy 2.0e-2
|
stacking_fault_energy 2.0e-2
|
||||||
# Twin reference [?], twin resistance [Pa], twin sensitivity
|
# Twin reference [?], twin resistance [Pa], twin sensitivity
|
||||||
twin_ref 1.0e-15
|
twin_reference 1.0e-15
|
||||||
twin_res 150.0e6
|
twin_resistance 150.0e6
|
||||||
twin_sens 10.0
|
twin_sensitivity 10.0
|
||||||
|
|
||||||
|
|
||||||
<textures>
|
<textures>
|
||||||
[cube SX]
|
[cube SX]
|
||||||
symmetry monoclinic /orthorhombic
|
symmetry no /monoclinic /orthorhombic
|
||||||
Ngrains 2 /4
|
Ngrains 1 /2 /4
|
||||||
(gauss) phi1 0.0 phi 0.0 phi2 0.0 scatter 0.0 fraction 1.0
|
(gauss) phi1 0.0 phi 45.0 phi2 0.0 scatter 0.0 fraction 1.0
|
||||||
|
|
|
@ -830,7 +830,7 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc
|
||||||
write (6,*)
|
write (6,*)
|
||||||
|
|
||||||
write (fmt,"(a,i3,a,a)") "(",1+mesh_maxValStateVar(1),"(i8)",")"
|
write (fmt,"(a,i3,a,a)") "(",1+mesh_maxValStateVar(1),"(i8)",")"
|
||||||
do i=1,mesh_maxValStateVar(1) ! loop over all (possibly assigned) materials
|
do i=1,mesh_maxValStateVar(1) ! loop over all (possibly assigned) materials
|
||||||
write (6,fmt) i,mesh_MatTex(i,:) ! loop over all (possibly assigned) textures
|
write (6,fmt) i,mesh_MatTex(i,:) ! loop over all (possibly assigned) textures
|
||||||
enddo
|
enddo
|
||||||
write (6,*)
|
write (6,*)
|
||||||
|
|
|
@ -34,7 +34,7 @@
|
||||||
include "crystal.f90"
|
include "crystal.f90"
|
||||||
include "constitutive.f90"
|
include "constitutive.f90"
|
||||||
include "CPFEM.f90"
|
include "CPFEM.f90"
|
||||||
!
|
|
||||||
SUBROUTINE hypela2(d,g,e,de,s,t,dt,ngens,n,nn,kcus,matus,ndi,&
|
SUBROUTINE hypela2(d,g,e,de,s,t,dt,ngens,n,nn,kcus,matus,ndi,&
|
||||||
nshear,disp,dispt,coord,ffn,frotn,strechn,eigvn,ffn1,&
|
nshear,disp,dispt,coord,ffn,frotn,strechn,eigvn,ffn1,&
|
||||||
frotn1,strechn1,eigvn1,ncrd,itel,ndeg,ndm,&
|
frotn1,strechn1,eigvn1,ncrd,itel,ndeg,ndm,&
|
||||||
|
|
|
@ -119,7 +119,7 @@
|
||||||
!2 continue
|
!2 continue
|
||||||
!3 continue
|
!3 continue
|
||||||
!
|
!
|
||||||
!
|
|
||||||
use prec, only: pReal,pInt
|
use prec, only: pReal,pInt
|
||||||
use CPFEM, only: CPFEM_general
|
use CPFEM, only: CPFEM_general
|
||||||
implicit real(pReal) (a-h,o-z)
|
implicit real(pReal) (a-h,o-z)
|
||||||
|
|
|
@ -9,7 +9,7 @@
|
||||||
integer, parameter :: pInt = 4
|
integer, parameter :: pInt = 4
|
||||||
! *** Numerical parameters ***
|
! *** Numerical parameters ***
|
||||||
! *** How frequently the jacobian is recalculated ***
|
! *** How frequently the jacobian is recalculated ***
|
||||||
integer (pInt), parameter :: ijaco = 5_pInt
|
integer (pInt), parameter :: ijaco = 1_pInt
|
||||||
! *** Maximum number of internal cutbacks in time step ***
|
! *** Maximum number of internal cutbacks in time step ***
|
||||||
integer(pInt), parameter :: nCutback = 7_pInt
|
integer(pInt), parameter :: nCutback = 7_pInt
|
||||||
! *** Maximum number of regularization attempts for Jacobi inversion ***
|
! *** Maximum number of regularization attempts for Jacobi inversion ***
|
||||||
|
|
Loading…
Reference in New Issue