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
|
||||
h0 75e6
|
||||
tausat 63e6
|
||||
w0 2.25
|
||||
a 2.25
|
||||
atol_resistance 1
|
||||
|
||||
[Aluminum_phenopowerlaw]
|
||||
|
@ -129,7 +129,7 @@ gdot0_slip 0.001
|
|||
n_slip 20
|
||||
tau0_slip 31e6 # per family
|
||||
tausat_slip 63e6 # per family
|
||||
w0_slip 2.25
|
||||
a_slip 2.25
|
||||
gdot0_twin 0.001
|
||||
n_twin 20
|
||||
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_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
|
||||
w0_slip 1.0
|
||||
a_slip 1.0
|
||||
atol_resistance 1
|
||||
|
||||
[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_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
|
||||
w0_slip 2.0
|
||||
a_slip 2.0
|
||||
atol_resistance 1
|
||||
|
||||
|
||||
|
|
|
@ -38,7 +38,7 @@
|
|||
! n 20
|
||||
! h0 75e6
|
||||
! tausat 63e6
|
||||
! w0 2.25
|
||||
! a 2.25
|
||||
|
||||
MODULE constitutive_j2
|
||||
|
||||
|
@ -63,7 +63,7 @@ MODULE constitutive_j2
|
|||
real(pReal), dimension(:), allocatable :: constitutive_j2_n
|
||||
real(pReal), dimension(:), allocatable :: constitutive_j2_h0
|
||||
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
|
||||
|
||||
|
||||
|
@ -126,7 +126,7 @@ subroutine constitutive_j2_init(file)
|
|||
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_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
|
||||
|
||||
rewind(file)
|
||||
|
@ -167,8 +167,8 @@ subroutine constitutive_j2_init(file)
|
|||
constitutive_j2_h0(i) = IO_floatValue(line,positions,2)
|
||||
case ('tausat')
|
||||
constitutive_j2_tausat(i) = IO_floatValue(line,positions,2)
|
||||
case ('w0')
|
||||
constitutive_j2_w0(i) = IO_floatValue(line,positions,2)
|
||||
case ('a', 'w0')
|
||||
constitutive_j2_a(i) = IO_floatValue(line,positions,2)
|
||||
case ('taylorfactor')
|
||||
constitutive_j2_fTaylor(i) = IO_floatValue(line,positions,2)
|
||||
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_n(i) <= 0.0_pReal) call IO_error(212)
|
||||
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_aTolResistance(i) <= 0.0_pReal) call IO_error(242)
|
||||
enddo
|
||||
|
@ -449,7 +449,7 @@ pure function constitutive_j2_dotState(Tstar_v, Temperature, state, g, ip, el)
|
|||
|
||||
! hardening coefficient
|
||||
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
|
||||
constitutive_j2_dotState = hardening * gamma_dot
|
||||
|
|
|
@ -51,7 +51,7 @@
|
|||
!n_slip 50
|
||||
!tau0_slip 65e6 22e6 52e6 50e6 # per family
|
||||
!tausat_slip 80e6 180e6 140e6 140e6 # per family
|
||||
!w0_slip 1
|
||||
!a_slip 1
|
||||
!gdot0_twin 0.001
|
||||
!n_twin 50
|
||||
!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_twintwin
|
||||
|
||||
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_w0_slip
|
||||
real(pReal), dimension(:), allocatable :: constitutive_phenopowerlaw_a_slip
|
||||
|
||||
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_twintwin = 0.0_pReal
|
||||
|
||||
allocate(constitutive_phenopowerlaw_w0_slip(maxNinstance))
|
||||
constitutive_phenopowerlaw_w0_slip = 0.0_pReal
|
||||
allocate(constitutive_phenopowerlaw_a_slip(maxNinstance))
|
||||
constitutive_phenopowerlaw_a_slip = 0.0_pReal
|
||||
|
||||
allocate(constitutive_phenopowerlaw_aTolResistance(maxNinstance))
|
||||
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)
|
||||
case ('tausat_slip')
|
||||
forall (j = 1:lattice_maxNslipFamily) constitutive_phenopowerlaw_tausat_slip(j,i) = IO_floatValue(line,positions,1+j)
|
||||
case ('w0_slip')
|
||||
constitutive_phenopowerlaw_w0_slip(i) = IO_floatValue(line,positions,2)
|
||||
case ('a_slip', 'w0_slip')
|
||||
constitutive_phenopowerlaw_a_slip(i) = IO_floatValue(line,positions,2)
|
||||
case ('ntwin')
|
||||
forall (j = 1:lattice_maxNtwinFamily) constitutive_phenopowerlaw_Ntwin(j,i) = IO_intValue(line,positions,1+j)
|
||||
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 (any(constitutive_phenopowerlaw_tausat_slip(:,i) <= 0.0_pReal .and. &
|
||||
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)
|
||||
if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. &
|
||||
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
|
||||
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_w0_slip(matID)
|
||||
constitutive_phenopowerlaw_a_slip(matID)
|
||||
|
||||
h_sliptwin(j) = c_sliptwin ! no system-dependent part
|
||||
|
||||
|
|
Loading…
Reference in New Issue