223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

cleanding 

dependentState/microstructure don't need to be part of the complex state
handling
This commit is contained in:
Martin Diehl 2018-11-29 08:14:20 +01:00
parent 9aec5f6db0
commit 228ef831f0
1 changed files with 29 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
src/plastic_disloUCLA.f90
View File

@ -45,8 +45,6 @@ module plastic_disloUCLA
plastic_disloUCLA_dipoleFormationFactor !< scaling factor for dipole formation: 0: off, 1: on. other values not useful plastic_disloUCLA_dipoleFormationFactor !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
real(pReal), dimension(:,:), allocatable, private :: & real(pReal), dimension(:,:), allocatable, private :: &
plastic_disloUCLA_rhoEdge0, & !< initial edge dislocation density per slip system for each family and instance
plastic_disloUCLA_rhoEdgeDip0, & !< initial edge dipole density per slip system for each family and instance
plastic_disloUCLA_v0PerSlipFamily, & !< dislocation velocity prefactor [m/s] for each family and instance plastic_disloUCLA_v0PerSlipFamily, & !< dislocation velocity prefactor [m/s] for each family and instance
plastic_disloUCLA_v0PerSlipSystem, & !< dislocation velocity prefactor [m/s] for each slip system and instance plastic_disloUCLA_v0PerSlipSystem, & !< dislocation velocity prefactor [m/s] for each slip system and instance
plastic_disloUCLA_tau_peierlsPerSlipFamily, & !< Peierls stress [Pa] for each family and instance plastic_disloUCLA_tau_peierlsPerSlipFamily, & !< Peierls stress [Pa] for each family and instance
@ -121,11 +119,21 @@ module plastic_disloUCLA
mfp_slip, & mfp_slip, &
threshold_stress_slip threshold_stress_slip
end type end type
type, private :: tDisloUCLAMicrostructure
real(pReal), allocatable, dimension(:,:) :: &
invLambda, &
mfp, &
threshold_stress
end type tDisloUCLAMicrostructure
type(tDisloUCLAState ), allocatable, dimension(:), private :: & type(tDisloUCLAState ), allocatable, dimension(:), private :: &
state, & state, &
state0, &
dotState dotState
type(tDisloUCLAMicrostructure), allocatable, dimension(:), private :: &
microstructure
public :: & public :: &
plastic_disloUCLA_init, & plastic_disloUCLA_init, &
plastic_disloUCLA_microstructure, & plastic_disloUCLA_microstructure, &
@ -235,8 +243,6 @@ material_allocatePlasticState
allocate(plastic_disloUCLA_CEdgeDipMinDistance(maxNinstance), source=0.0_pReal) allocate(plastic_disloUCLA_CEdgeDipMinDistance(maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_SolidSolutionStrength(maxNinstance), source=0.0_pReal) allocate(plastic_disloUCLA_SolidSolutionStrength(maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_dipoleFormationFactor(maxNinstance), source=1.0_pReal) !should be on by default allocate(plastic_disloUCLA_dipoleFormationFactor(maxNinstance), source=1.0_pReal) !should be on by default
allocate(plastic_disloUCLA_rhoEdge0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_rhoEdgeDip0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_friction(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal) allocate(plastic_disloUCLA_friction(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_v0PerSlipFamily(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal) allocate(plastic_disloUCLA_v0PerSlipFamily(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_tau_peierlsPerSlipFamily(lattice_maxNslipFamily,maxNinstance), & allocate(plastic_disloUCLA_tau_peierlsPerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
@ -250,8 +256,8 @@ material_allocatePlasticState
allocate(param(maxNinstance)) allocate(param(maxNinstance))
allocate(state(maxNinstance)) allocate(state(maxNinstance))
allocate(state0(maxNinstance))
allocate(dotState(maxNinstance)) allocate(dotState(maxNinstance))
allocate(microstructure(maxNinstance))
do p = 1_pInt, size(phase_plasticityInstance) do p = 1_pInt, size(phase_plasticityInstance)
@ -282,8 +288,8 @@ do p = 1_pInt, size(phase_plasticityInstance)
prm%interaction_SlipSlip = lattice_interaction_SlipSlip(prm%Nslip, & prm%interaction_SlipSlip = lattice_interaction_SlipSlip(prm%Nslip, &
config_phase(p)%getFloats('interaction_slipslip'), & config_phase(p)%getFloats('interaction_slipslip'), &
structure(1:3)) structure(1:3))
!prm%rho0 = config_phase(p)%getFloats('rho0') prm%rho0 = config_phase(p)%getFloats('rhoedge0')
!prm%rhoDip0 = config_phase(p)%getFloats('dipole_rho0') prm%rhoDip0 = config_phase(p)%getFloats('rhoedgedip0')
prm%burgers = config_phase(p)%getFloats('slipburgers') prm%burgers = config_phase(p)%getFloats('slipburgers')
prm%H0kp = config_phase(p)%getFloats('qedge') prm%H0kp = config_phase(p)%getFloats('qedge')
!prm%v0 = config_phase(p)%getFloats('v0') !prm%v0 = config_phase(p)%getFloats('v0')
@ -298,6 +304,8 @@ do p = 1_pInt, size(phase_plasticityInstance)
! expand: family => system ! expand: family => system
prm%rho0 = math_expand(prm%rho0, prm%Nslip)
prm%rhoDip0 = math_expand(prm%rhoDip0, prm%Nslip)
prm%q = math_expand(prm%q, prm%Nslip) prm%q = math_expand(prm%q, prm%Nslip)
prm%p = math_expand(prm%p, prm%Nslip) prm%p = math_expand(prm%p, prm%Nslip)
prm%H0kp = math_expand(prm%H0kp, prm%Nslip) prm%H0kp = math_expand(prm%H0kp, prm%Nslip)
@ -404,10 +412,6 @@ plastic_disloUCLA_Noutput(phase_plasticityInstance(p)) = plastic_disloUCLA_Noutp
tempPerSlip(j) = IO_floatValue(line,chunkPos,1_pInt+j) tempPerSlip(j) = IO_floatValue(line,chunkPos,1_pInt+j)
enddo enddo
select case(tag) select case(tag)
case ('rhoedge0')
plastic_disloUCLA_rhoEdge0(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
case ('rhoedgedip0')
plastic_disloUCLA_rhoEdgeDip0(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
case ('v0') case ('v0')
plastic_disloUCLA_v0PerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies) plastic_disloUCLA_v0PerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
case ('clambdaslip') case ('clambdaslip')
@ -456,10 +460,10 @@ plastic_disloUCLA_Noutput(phase_plasticityInstance(p)) = plastic_disloUCLA_Noutp
call IO_error(211_pInt,el=instance,ext_msg='Nslip ('//PLASTICITY_DISLOUCLA_label//')') call IO_error(211_pInt,el=instance,ext_msg='Nslip ('//PLASTICITY_DISLOUCLA_label//')')
do f = 1_pInt,lattice_maxNslipFamily do f = 1_pInt,lattice_maxNslipFamily
if (plastic_disloUCLA_Nslip(f,instance) > 0_pInt) then if (plastic_disloUCLA_Nslip(f,instance) > 0_pInt) then
if (plastic_disloUCLA_rhoEdge0(f,instance) < 0.0_pReal) & !if (plastic_disloUCLA_rhoEdge0(f,instance) < 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='rhoEdge0 ('//PLASTICITY_DISLOUCLA_label//')') ! call IO_error(211_pInt,el=instance,ext_msg='rhoEdge0 ('//PLASTICITY_DISLOUCLA_label//')')
if (plastic_disloUCLA_rhoEdgeDip0(f,instance) < 0.0_pReal) & !if (plastic_disloUCLA_rhoEdgeDip0(f,instance) < 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='rhoEdgeDip0 ('//PLASTICITY_DISLOUCLA_label//')') ! call IO_error(211_pInt,el=instance,ext_msg='rhoEdgeDip0 ('//PLASTICITY_DISLOUCLA_label//')')
!if (plastic_disloUCLA_burgersPerSlipFamily(f,instance) <= 0.0_pReal) & !if (plastic_disloUCLA_burgersPerSlipFamily(f,instance) <= 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='slipBurgers ('//PLASTICITY_DISLOUCLA_label//')') ! call IO_error(211_pInt,el=instance,ext_msg='slipBurgers ('//PLASTICITY_DISLOUCLA_label//')')
if (plastic_disloUCLA_v0PerSlipFamily(f,instance) <= 0.0_pReal) & if (plastic_disloUCLA_v0PerSlipFamily(f,instance) <= 0.0_pReal) &
@ -505,7 +509,7 @@ plastic_disloUCLA_Noutput(phase_plasticityInstance(p)) = plastic_disloUCLA_Noutp
instance = phase_plasticityInstance(phase) instance = phase_plasticityInstance(phase)
ns = plastic_disloUCLA_totalNslip(instance) ns = plastic_disloUCLA_totalNslip(instance)
associate(prm => param(instance), stt=>state(instance)) associate(prm => param(instance), stt=>state(instance),mse => microstructure(phase_plasticityInstance(p)))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! allocate state arrays ! allocate state arrays
@ -587,6 +591,10 @@ plastic_disloUCLA_Noutput(phase_plasticityInstance(p)) = plastic_disloUCLA_Noutp
endIndex=endIndex+ns endIndex=endIndex+ns
stt%threshold_stress_slip=>plasticState(phase)%state(startIndex:endIndex,:) stt%threshold_stress_slip=>plasticState(phase)%state(startIndex:endIndex,:)
allocate(mse%invLambda(prm%totalNslip,NofMyPhase),source=0.0_pReal)
allocate(mse%mfp(prm%totalNslip,NofMyPhase),source=0.0_pReal)
allocate(mse%threshold_stress(prm%totalNslip,NofMyPhase),source=0.0_pReal)
call plastic_disloUCLA_stateInit(phase,instance) call plastic_disloUCLA_stateInit(phase,instance)
plasticState(p)%state0 = plasticState(p)%state ! ToDo: this could be done centrally plasticState(p)%state0 = plasticState(p)%state ! ToDo: this could be done centrally
@ -618,33 +626,20 @@ subroutine plastic_disloUCLA_stateInit(ph,instance)
integer(pInt) :: i,f,ns, index_myFamily integer(pInt) :: i,f,ns, index_myFamily
real(pReal), dimension(plastic_disloUCLA_totalNslip(instance)) :: & real(pReal), dimension(plastic_disloUCLA_totalNslip(instance)) :: &
rhoEdge0, &
rhoEdgeDip0, &
invLambdaSlip0, & invLambdaSlip0, &
MeanFreePathSlip0, & MeanFreePathSlip0, &
tauSlipThreshold0 tauSlipThreshold0
tempState = 0.0_pReal tempState = 0.0_pReal
ns = plastic_disloUCLA_totalNslip(instance) ns = plastic_disloUCLA_totalNslip(instance)
associate(prm => param(instance)) associate(prm => param(instance))
!--------------------------------------------------------------------------------------------------
! initialize basic slip state variables
do f = 1_pInt,lattice_maxNslipFamily
index_myFamily = sum(plastic_disloUCLA_Nslip(1:f-1_pInt,instance)) ! index in truncated slip system list
rhoEdge0(index_myFamily+1_pInt: &
index_myFamily+plastic_disloUCLA_Nslip(f,instance)) = &
plastic_disloUCLA_rhoEdge0(f,instance)
rhoEdgeDip0(index_myFamily+1_pInt: &
index_myFamily+plastic_disloUCLA_Nslip(f,instance)) = &
plastic_disloUCLA_rhoEdgeDip0(f,instance)
enddo
tempState(1_pInt:ns) = rhoEdge0 tempState(1_pInt:ns) = prm%rho0
tempState(ns+1_pInt:2_pInt*ns) = rhoEdgeDip0 tempState(ns+1_pInt:2_pInt*ns) = prm%rhoDip0
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! initialize dependent slip microstructural variables ! initialize dependent slip microstructural variables
forall (i = 1_pInt:ns) & forall (i = 1_pInt:ns) &
invLambdaSlip0(i) = sqrt(dot_product((rhoEdge0+rhoEdgeDip0),plastic_disloUCLA_forestProjectionEdge(1:ns,i,instance)))/ & invLambdaSlip0(i) = sqrt(dot_product((prm%rho0+prm%rhoDip0),plastic_disloUCLA_forestProjectionEdge(1:ns,i,instance)))/ &
plastic_disloUCLA_CLambdaSlipPerSlipSystem(i,instance) plastic_disloUCLA_CLambdaSlipPerSlipSystem(i,instance)
tempState(3_pInt*ns+1:4_pInt*ns) = invLambdaSlip0 tempState(3_pInt*ns+1:4_pInt*ns) = invLambdaSlip0
@ -656,7 +651,7 @@ subroutine plastic_disloUCLA_stateInit(ph,instance)
forall (i = 1_pInt:ns) & forall (i = 1_pInt:ns) &
tauSlipThreshold0(i) = & tauSlipThreshold0(i) = &
lattice_mu(ph)*prm%burgers(i) * & lattice_mu(ph)*prm%burgers(i) * &
sqrt(dot_product((rhoEdge0+rhoEdgeDip0),plastic_disloUCLA_interactionMatrix_SlipSlip(i,1:ns,instance))) sqrt(dot_product((prm%rho0+prm%rhoDip0),plastic_disloUCLA_interactionMatrix_SlipSlip(i,1:ns,instance)))
tempState(5_pInt*ns+1:6_pInt*ns) = tauSlipThreshold0 tempState(5_pInt*ns+1:6_pInt*ns) = tauSlipThreshold0