renamed w0 and w0_slip to a and a_slip
This commit is contained in:
parent
f685bbba0e
commit
515986c4d6
|
@ -101,7 +101,7 @@ gdot0 0.001
|
||||||
n 20
|
n 20
|
||||||
h0 75e6
|
h0 75e6
|
||||||
tausat 63e6
|
tausat 63e6
|
||||||
w0 2.25
|
a 2.25
|
||||||
atol_resistance 1
|
atol_resistance 1
|
||||||
|
|
||||||
[Aluminum_phenopowerlaw]
|
[Aluminum_phenopowerlaw]
|
||||||
|
@ -129,7 +129,7 @@ gdot0_slip 0.001
|
||||||
n_slip 20
|
n_slip 20
|
||||||
tau0_slip 31e6 # per family
|
tau0_slip 31e6 # per family
|
||||||
tausat_slip 63e6 # per family
|
tausat_slip 63e6 # per family
|
||||||
w0_slip 2.25
|
a_slip 2.25
|
||||||
gdot0_twin 0.001
|
gdot0_twin 0.001
|
||||||
n_twin 20
|
n_twin 20
|
||||||
tau0_twin 31e6 # per family
|
tau0_twin 31e6 # per family
|
||||||
|
@ -281,7 +281,7 @@ interaction_slipslip 1 1 1.4 1.4 1.4 1.4
|
||||||
interaction_sliptwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_sliptwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
interaction_twinslip 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_twinslip 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
interaction_twintwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_twintwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
w0_slip 1.0
|
a_slip 1.0
|
||||||
atol_resistance 1
|
atol_resistance 1
|
||||||
|
|
||||||
[BCC_Martensite]
|
[BCC_Martensite]
|
||||||
|
@ -312,7 +312,7 @@ interaction_slipslip 1 1 1.4 1.4 1.4 1.4
|
||||||
interaction_sliptwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_sliptwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
interaction_twinslip 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_twinslip 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
interaction_twintwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
interaction_twintwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
||||||
w0_slip 2.0
|
a_slip 2.0
|
||||||
atol_resistance 1
|
atol_resistance 1
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -38,7 +38,7 @@
|
||||||
! n 20
|
! n 20
|
||||||
! h0 75e6
|
! h0 75e6
|
||||||
! tausat 63e6
|
! tausat 63e6
|
||||||
! w0 2.25
|
! a 2.25
|
||||||
|
|
||||||
MODULE constitutive_j2
|
MODULE constitutive_j2
|
||||||
|
|
||||||
|
@ -63,7 +63,7 @@ MODULE constitutive_j2
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_j2_n
|
real(pReal), dimension(:), allocatable :: constitutive_j2_n
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_j2_h0
|
real(pReal), dimension(:), allocatable :: constitutive_j2_h0
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_j2_tausat
|
real(pReal), dimension(:), allocatable :: constitutive_j2_tausat
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_j2_w0
|
real(pReal), dimension(:), allocatable :: constitutive_j2_a
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_j2_aTolResistance
|
real(pReal), dimension(:), allocatable :: constitutive_j2_aTolResistance
|
||||||
|
|
||||||
|
|
||||||
|
@ -126,7 +126,7 @@ subroutine constitutive_j2_init(file)
|
||||||
allocate(constitutive_j2_n(maxNinstance)) ; constitutive_j2_n = 0.0_pReal
|
allocate(constitutive_j2_n(maxNinstance)) ; constitutive_j2_n = 0.0_pReal
|
||||||
allocate(constitutive_j2_h0(maxNinstance)) ; constitutive_j2_h0 = 0.0_pReal
|
allocate(constitutive_j2_h0(maxNinstance)) ; constitutive_j2_h0 = 0.0_pReal
|
||||||
allocate(constitutive_j2_tausat(maxNinstance)) ; constitutive_j2_tausat = 0.0_pReal
|
allocate(constitutive_j2_tausat(maxNinstance)) ; constitutive_j2_tausat = 0.0_pReal
|
||||||
allocate(constitutive_j2_w0(maxNinstance)) ; constitutive_j2_w0 = 0.0_pReal
|
allocate(constitutive_j2_a(maxNinstance)) ; constitutive_j2_a = 0.0_pReal
|
||||||
allocate(constitutive_j2_aTolResistance(maxNinstance)) ; constitutive_j2_aTolResistance = 0.0_pReal
|
allocate(constitutive_j2_aTolResistance(maxNinstance)) ; constitutive_j2_aTolResistance = 0.0_pReal
|
||||||
|
|
||||||
rewind(file)
|
rewind(file)
|
||||||
|
@ -167,8 +167,8 @@ subroutine constitutive_j2_init(file)
|
||||||
constitutive_j2_h0(i) = IO_floatValue(line,positions,2)
|
constitutive_j2_h0(i) = IO_floatValue(line,positions,2)
|
||||||
case ('tausat')
|
case ('tausat')
|
||||||
constitutive_j2_tausat(i) = IO_floatValue(line,positions,2)
|
constitutive_j2_tausat(i) = IO_floatValue(line,positions,2)
|
||||||
case ('w0')
|
case ('a', 'w0')
|
||||||
constitutive_j2_w0(i) = IO_floatValue(line,positions,2)
|
constitutive_j2_a(i) = IO_floatValue(line,positions,2)
|
||||||
case ('taylorfactor')
|
case ('taylorfactor')
|
||||||
constitutive_j2_fTaylor(i) = IO_floatValue(line,positions,2)
|
constitutive_j2_fTaylor(i) = IO_floatValue(line,positions,2)
|
||||||
case ('atol_resistance')
|
case ('atol_resistance')
|
||||||
|
@ -182,7 +182,7 @@ subroutine constitutive_j2_init(file)
|
||||||
if (constitutive_j2_gdot0(i) <= 0.0_pReal) call IO_error(211)
|
if (constitutive_j2_gdot0(i) <= 0.0_pReal) call IO_error(211)
|
||||||
if (constitutive_j2_n(i) <= 0.0_pReal) call IO_error(212)
|
if (constitutive_j2_n(i) <= 0.0_pReal) call IO_error(212)
|
||||||
if (constitutive_j2_tausat(i) <= 0.0_pReal) call IO_error(213)
|
if (constitutive_j2_tausat(i) <= 0.0_pReal) call IO_error(213)
|
||||||
if (constitutive_j2_w0(i) <= 0.0_pReal) call IO_error(241)
|
if (constitutive_j2_a(i) <= 0.0_pReal) call IO_error(241)
|
||||||
if (constitutive_j2_fTaylor(i) <= 0.0_pReal) call IO_error(240)
|
if (constitutive_j2_fTaylor(i) <= 0.0_pReal) call IO_error(240)
|
||||||
if (constitutive_j2_aTolResistance(i) <= 0.0_pReal) call IO_error(242)
|
if (constitutive_j2_aTolResistance(i) <= 0.0_pReal) call IO_error(242)
|
||||||
enddo
|
enddo
|
||||||
|
@ -449,7 +449,7 @@ pure function constitutive_j2_dotState(Tstar_v, Temperature, state, g, ip, el)
|
||||||
|
|
||||||
! hardening coefficient
|
! hardening coefficient
|
||||||
hardening = constitutive_j2_h0(matID) * &
|
hardening = constitutive_j2_h0(matID) * &
|
||||||
( 1.0_pReal - state(g,ip,el)%p(1) / constitutive_j2_tausat(matID) ) ** constitutive_j2_w0(matID)
|
( 1.0_pReal - state(g,ip,el)%p(1) / constitutive_j2_tausat(matID) ) ** constitutive_j2_a(matID)
|
||||||
|
|
||||||
! dotState
|
! dotState
|
||||||
constitutive_j2_dotState = hardening * gamma_dot
|
constitutive_j2_dotState = hardening * gamma_dot
|
||||||
|
|
|
@ -51,7 +51,7 @@
|
||||||
!n_slip 50
|
!n_slip 50
|
||||||
!tau0_slip 65e6 22e6 52e6 50e6 # per family
|
!tau0_slip 65e6 22e6 52e6 50e6 # per family
|
||||||
!tausat_slip 80e6 180e6 140e6 140e6 # per family
|
!tausat_slip 80e6 180e6 140e6 140e6 # per family
|
||||||
!w0_slip 1
|
!a_slip 1
|
||||||
!gdot0_twin 0.001
|
!gdot0_twin 0.001
|
||||||
!n_twin 50
|
!n_twin 50
|
||||||
!tau0_twin 52e6 52e6 52e6 52e6 # per family
|
!tau0_twin 52e6 52e6 52e6 52e6 # per family
|
||||||
|
@ -128,7 +128,7 @@ MODULE constitutive_phenopowerlaw
|
||||||
real(pReal), dimension(:,:,:), allocatable :: constitutive_phenopowerlaw_hardeningMatrix_twinslip
|
real(pReal), dimension(:,:,:), allocatable :: constitutive_phenopowerlaw_hardeningMatrix_twinslip
|
||||||
real(pReal), dimension(:,:,:), allocatable :: constitutive_phenopowerlaw_hardeningMatrix_twintwin
|
real(pReal), dimension(:,:,:), allocatable :: constitutive_phenopowerlaw_hardeningMatrix_twintwin
|
||||||
|
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_w0_slip
|
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_a_slip
|
||||||
|
|
||||||
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_aTolResistance
|
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_aTolResistance
|
||||||
|
|
||||||
|
@ -244,8 +244,8 @@ subroutine constitutive_phenopowerlaw_init(file)
|
||||||
constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal
|
constitutive_phenopowerlaw_interaction_twinslip = 0.0_pReal
|
||||||
constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal
|
constitutive_phenopowerlaw_interaction_twintwin = 0.0_pReal
|
||||||
|
|
||||||
allocate(constitutive_phenopowerlaw_w0_slip(maxNinstance))
|
allocate(constitutive_phenopowerlaw_a_slip(maxNinstance))
|
||||||
constitutive_phenopowerlaw_w0_slip = 0.0_pReal
|
constitutive_phenopowerlaw_a_slip = 0.0_pReal
|
||||||
|
|
||||||
allocate(constitutive_phenopowerlaw_aTolResistance(maxNinstance))
|
allocate(constitutive_phenopowerlaw_aTolResistance(maxNinstance))
|
||||||
constitutive_phenopowerlaw_aTolResistance = 0.0_pReal
|
constitutive_phenopowerlaw_aTolResistance = 0.0_pReal
|
||||||
|
@ -298,8 +298,8 @@ subroutine constitutive_phenopowerlaw_init(file)
|
||||||
forall (j = 1:lattice_maxNslipFamily) constitutive_phenopowerlaw_tau0_slip(j,i) = IO_floatValue(line,positions,1+j)
|
forall (j = 1:lattice_maxNslipFamily) constitutive_phenopowerlaw_tau0_slip(j,i) = IO_floatValue(line,positions,1+j)
|
||||||
case ('tausat_slip')
|
case ('tausat_slip')
|
||||||
forall (j = 1:lattice_maxNslipFamily) constitutive_phenopowerlaw_tausat_slip(j,i) = IO_floatValue(line,positions,1+j)
|
forall (j = 1:lattice_maxNslipFamily) constitutive_phenopowerlaw_tausat_slip(j,i) = IO_floatValue(line,positions,1+j)
|
||||||
case ('w0_slip')
|
case ('a_slip', 'w0_slip')
|
||||||
constitutive_phenopowerlaw_w0_slip(i) = IO_floatValue(line,positions,2)
|
constitutive_phenopowerlaw_a_slip(i) = IO_floatValue(line,positions,2)
|
||||||
case ('ntwin')
|
case ('ntwin')
|
||||||
forall (j = 1:lattice_maxNtwinFamily) constitutive_phenopowerlaw_Ntwin(j,i) = IO_intValue(line,positions,1+j)
|
forall (j = 1:lattice_maxNtwinFamily) constitutive_phenopowerlaw_Ntwin(j,i) = IO_intValue(line,positions,1+j)
|
||||||
case ('gdot0_twin')
|
case ('gdot0_twin')
|
||||||
|
@ -364,7 +364,7 @@ subroutine constitutive_phenopowerlaw_init(file)
|
||||||
if (constitutive_phenopowerlaw_n_slip(i) <= 0.0_pReal) call IO_error(212,i)
|
if (constitutive_phenopowerlaw_n_slip(i) <= 0.0_pReal) call IO_error(212,i)
|
||||||
if (any(constitutive_phenopowerlaw_tausat_slip(:,i) <= 0.0_pReal .and. &
|
if (any(constitutive_phenopowerlaw_tausat_slip(:,i) <= 0.0_pReal .and. &
|
||||||
constitutive_phenopowerlaw_Nslip(:,i) > 0)) call IO_error(213,i)
|
constitutive_phenopowerlaw_Nslip(:,i) > 0)) call IO_error(213,i)
|
||||||
if (any(constitutive_phenopowerlaw_w0_slip(i) == 0.0_pReal .and. &
|
if (any(constitutive_phenopowerlaw_a_slip(i) == 0.0_pReal .and. &
|
||||||
constitutive_phenopowerlaw_Nslip(:,i) > 0)) call IO_error(214,i)
|
constitutive_phenopowerlaw_Nslip(:,i) > 0)) call IO_error(214,i)
|
||||||
if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. &
|
if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. &
|
||||||
constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(210,i)
|
constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(210,i)
|
||||||
|
@ -795,7 +795,7 @@ function constitutive_phenopowerlaw_dotState(Tstar_v,Temperature,state,ipc,ip,el
|
||||||
j = j+1_pInt
|
j = j+1_pInt
|
||||||
h_slipslip(j) = c_slipslip*(1.0_pReal-state(ipc,ip,el)%p(j) / & ! system-dependent prefactor for slip--slip interaction
|
h_slipslip(j) = c_slipslip*(1.0_pReal-state(ipc,ip,el)%p(j) / & ! system-dependent prefactor for slip--slip interaction
|
||||||
(constitutive_phenopowerlaw_tausat_slip(f,matID)+ssat_offset))** &
|
(constitutive_phenopowerlaw_tausat_slip(f,matID)+ssat_offset))** &
|
||||||
constitutive_phenopowerlaw_w0_slip(matID)
|
constitutive_phenopowerlaw_a_slip(matID)
|
||||||
|
|
||||||
h_sliptwin(j) = c_sliptwin ! no system-dependent part
|
h_sliptwin(j) = c_sliptwin ! no system-dependent part
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue