phase_mechanical_plastic edit works

This commit is contained in:
achalhp 2024-02-03 15:55:08 +05:30
parent b1a4f98c60
commit cde95bf2d3
2 changed files with 56 additions and 55 deletions

View File

@ -210,9 +210,7 @@ submodule(phase:mechanical) plastic
en en
end subroutine plastic_phenopowerlaw_deltaState end subroutine plastic_phenopowerlaw_deltaState
module subroutine plastic_kinematic_deltaFp(Mp,ph,en,twinJump,deltaFp) !< Achal module subroutine plastic_kinematic_deltaFp(ph,en,twinJump,deltaFp) !< Achal
real(pReal), dimension(3,3), intent(in) :: &
Mp
integer, intent(in) :: & integer, intent(in) :: &
ph, & ph, &
en en
@ -469,15 +467,15 @@ end function plastic_active
!3) -(last sampled volume fraction) to restart sampling !3) -(last sampled volume fraction) to restart sampling
!4) logical true if twinning possible/needed, false if not occurring/not needed !4) logical true if twinning possible/needed, false if not occurring/not needed
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! subroutine constitutive_KinematicJump(ph, en, Jump_occurr,deltaFp) subroutine plastic_KinematicJump(ph, en, Jump_occurr,deltaFp)
! integer, intent(in) :: & integer, intent(in) :: &
! ph, & ph, &
! en en
! logical , intent(out) :: & logical , intent(out) :: &
! Jump_occurr Jump_occurr
! real(pReal), dimension(3,3), intent(out) :: & real(pReal), dimension(3,3), intent(out) :: &
! deltaFp deltaFp
! real(pReal), dimension(3,3) :: & ! real(pReal), dimension(3,3) :: &
! Mp ! Mp
@ -487,16 +485,16 @@ end function plastic_active
! phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en)) ! phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en))
! plasticType: select case (phase_plasticity(ph)) plasticType: select case (phase_plasticity(ph))
! case (PLASTIC_PHENOPOWERLAW_ID) plasticType case (PLASTIC_PHENOPOWERLAW_ID) plasticType
! call plastic_kinematic_deltaFp(ph,en, Jump_occurr,deltaFp) call plastic_kinematic_deltaFp(ph,en, Jump_occurr,deltaFp)
! end select plasticType end select plasticType
! endif ! endif
! end subroutine constitutive_KinematicJump end subroutine plastic_KinematicJump
end submodule plastic end submodule plastic

View File

@ -37,7 +37,8 @@ type :: tParameters
h_0_sl_sl = 1.0_pReal, & !< reference hardening slip - slip h_0_sl_sl = 1.0_pReal, & !< reference hardening slip - slip
h_0_tw_sl = 1.0_pReal, & !< reference hardening twin - slip h_0_tw_sl = 1.0_pReal, & !< reference hardening twin - slip
h_0_tw_tw = 1.0_pReal, & !< reference hardening twin - twin h_0_tw_tw = 1.0_pReal, & !< reference hardening twin - twin
a_sl = 1.0_pReal a_sl = 1.0_pReal, &
checkstep = 0.1_pReal !< Achal Parameter to control sampling frequency
real(pReal), allocatable, dimension(:) :: & real(pReal), allocatable, dimension(:) :: &
xi_inf_sl, & !< maximum critical shear stress for slip xi_inf_sl, & !< maximum critical shear stress for slip
h_int, & !< per family hardening activity (optional) h_int, & !< per family hardening activity (optional)
@ -82,7 +83,7 @@ type :: tPhenopowerlawState
gamma_sl, & gamma_sl, &
gamma_tw, & gamma_tw, &
f_twin, & f_twin, &
fmc_twin !< Achal fmc_twin !< Achal, To control sampling frequency
end type tPhenopowerlawState end type tPhenopowerlawState
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -141,7 +142,7 @@ allocate(deltastate(phases%length))
do ph = 1, phases%length do ph = 1, phases%length
if (.not. myPlasticity(ph)) cycle if (.not. myPlasticity(ph)) cycle
associate(prm => param(ph), stt => state(ph), dot => dotState(ph), & associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dlt => deltastate(ph), &
idx_dot => indexDotState(ph)) idx_dot => indexDotState(ph))
phase => phases%get(ph) phase => phases%get(ph)
@ -216,6 +217,7 @@ do ph = 1, phases%length
prm%n_tw = pl%get_asFloat('n_tw') prm%n_tw = pl%get_asFloat('n_tw')
prm%f_sat_sl_tw = pl%get_asFloat('f_sat_sl-tw') prm%f_sat_sl_tw = pl%get_asFloat('f_sat_sl-tw')
prm%h_0_tw_tw = pl%get_asFloat('h_0_tw-tw') prm%h_0_tw_tw = pl%get_asFloat('h_0_tw-tw')
prm%checkstep = pl%get_asFloat('checkstep', defaultVal=0.1_pReal) !< Achal
! expand: family => system ! expand: family => system
xi_0_tw = math_expand(xi_0_tw,N_tw) xi_0_tw = math_expand(xi_0_tw,N_tw)
@ -322,15 +324,14 @@ do ph = 1, phases%length
idx_dot%f_twin = [startIndex,endIndex] ! Achal idx_dot%f_twin = [startIndex,endIndex] ! Achal
stt%f_twin => plasticState(ph)%state(startIndex:endIndex,:) ! Achal stt%f_twin => plasticState(ph)%state(startIndex:endIndex,:) ! Achal
!dot%f_twin => plasticState(ph)%dotState(startIndex:endIndex,:) !dot%f_twin => plasticState(ph)%dotState(startIndex:endIndex,:)
deltastate(ph)%f_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:) ! Achal dlt%f_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:) ! Achal
plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal) plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
startIndex = endIndex + 1 startIndex = endIndex + 1
endIndex = endIndex + prm%totalNtwin endIndex = endIndex + prm%sum_N_tw
stt%fmc_twin_nucl => plasticState(p)%state (startIndex:endIndex,:) stt%fmc_twin => plasticState(ph)%state(startIndex:endIndex,:)
dlt%fmc_twin_nucl => plasticState(p)%deltaState(startIndex-plasticState(p)%offsetDeltaState: & dlt%fmc_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:)
endIndex-plasticState(p)%offsetDeltaState,:) plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolShear
write(6,*)"offset", o ! Achal Delete write(6,*)"offset", o ! Achal Delete
@ -438,7 +439,7 @@ associate(prm => param(ph), stt => state(ph), &
call kinetics_tw(Mp,ph,en,dot_gamma_tw,fdot_twin) call kinetics_tw(Mp,ph,en,dot_gamma_tw,fdot_twin)
if(en==1) call plastic_kinematic_deltaFp(Mp,ph,en,twinJump,deltaFp) ! delete this if(en==1) call plastic_kinematic_deltaFp(ph,en,twinJump,deltaFp) ! delete this
if(en==1) write(6,*)'f_twin',dotState(indexDotState(ph)%f_twin(1):indexDotState(ph)%f_twin(2)) !Achal delete if(en==1) write(6,*)'f_twin',dotState(indexDotState(ph)%f_twin(1):indexDotState(ph)%f_twin(2)) !Achal delete
@ -464,11 +465,10 @@ end function phenopowerlaw_dotState
!> @brief calculates instantaneous incremental change of kinematics and associated jump state !> @brief calculates instantaneous incremental change of kinematics and associated jump state
!> Satya, Achal !> Satya, Achal
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module subroutine plastic_kinematic_deltaFp(Mp,ph,en,twinJump,deltaFp) module subroutine plastic_kinematic_deltaFp(ph,en,twinJump,deltaFp)
use math, only: & use math, only: &
math_I3 math_I3
real(pReal), dimension(3,3), intent(in) :: & ! Mp is no longer input
Mp
integer, intent(in) :: & integer, intent(in) :: &
ph, & ph, &
en en
@ -499,7 +499,7 @@ deltaFp = math_I3
!* loop through my neighborhood and get the connection vectors (in lattice frame) and the excess densities !Achal !* loop through my neighborhood and get the connection vectors (in lattice frame) and the excess densities !Achal
associate(prm => param(ph), stt => state(ph), dot => dotState(ph), del => deltastate(ph)) associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dlt => deltastate(ph))
nRealNeighbors = 0.0_pReal !Achal nRealNeighbors = 0.0_pReal !Achal
@ -511,7 +511,7 @@ neighbors: do n = 1,nIPneighbors
enddo neighbors enddo neighbors
tau_tw = [(math_tensordot(Mp,prm%P_tw(1:3,1:3,i)),i=1,prm%sum_N_tw)] !tau_tw = [(math_tensordot(Mp,prm%P_tw(1:3,1:3,i)),i=1,prm%sum_N_tw)]
!twin_var = maxloc((0.05_pReal*(abs(tau_tw)/stt%xi_tw(:,en))**prm%n_tw)/prm%gamma_char,dim=1) ! This prints values from 1 to 6, fdot0_twin is taken as 0.05 !twin_var = maxloc((0.05_pReal*(abs(tau_tw)/stt%xi_tw(:,en))**prm%n_tw)/prm%gamma_char,dim=1) ! This prints values from 1 to 6, fdot0_twin is taken as 0.05
twin_var = maxloc(stt%f_twin(:,en),dim=1) twin_var = maxloc(stt%f_twin(:,en),dim=1)
!fdot_twin = (0.05_pReal*(abs(tau_tw)/stt%xi_tw(:,en))**prm%n_tw)/prm%gamma_char ! This is sometimes >1 !fdot_twin = (0.05_pReal*(abs(tau_tw)/stt%xi_tw(:,en))**prm%n_tw)/prm%gamma_char ! This is sometimes >1
@ -524,15 +524,18 @@ call RANDOM_NUMBER(random)
!write(6,*)'random',random !delete this !write(6,*)'random',random !delete this
!if (en==1) write(6,*)'f_twin', stt%f_twin(:,en) !if (en==1) write(6,*)'f_twin', stt%f_twin(:,en)
Ability_Nucleation: if(stt%f_twin(twin_var,en)>(stt%fmc_twin(twin_var,en)+prm%checkstep)) then
Success_Nucleation: if (random*0.0000000000000000000000001_pReal <= maxval((0.05_pReal*(abs(tau_tw) & stt%fmc_twin(twin_var,en) = stt%fmc_twin(twin_var,en)+prm%checkstep
/stt%xi_tw(:,en))**prm%n_tw)/prm%gamma_char)) then ! Instead of sum take max
Success_Nucleation: if (random*0.00000000000000000000001_pReal <= stt%f_twin(twin_var,en)) then ! Instead of sum take max
twinJump = .true. twinJump = .true.
deltaFp = prm%CorrespondanceMatrix(:,:,twin_var) deltaFp = prm%CorrespondanceMatrix(:,:,twin_var)
del%f_twin(:,en) = 0.0_pReal - stt%f_twin(:,en) dlt%f_twin(:,en) = 0.0_pReal - stt%f_twin(:,en)
end if Success_Nucleation end if Success_Nucleation
endif Ability_Nucleation
end associate end associate
end subroutine plastic_kinematic_deltaFp end subroutine plastic_kinematic_deltaFp