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

1462 lines
84 KiB
Fortran
Raw Normal View History

cleaning up, removing unused variables and variable initialisation
2015-04-21 20:46:13 +05:30
!--------------------------------------------------------------------------------------------------
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @author David Cereceda, Lawrence Livermore National Laboratory
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incoprorating dislocation and twinning physics
!> @details to be done
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
module plastic_disloUCLA
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use prec, only: &
pReal, &
pInt
implicit none
private
integer(pInt), dimension(:), allocatable, public, protected :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_sizePostResults !< cumulative size of post results
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
integer(pInt), dimension(:,:), allocatable, target, public :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_sizePostResult !< size of each post result output
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
character(len=64), dimension(:,:), allocatable, target, public :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_output !< name of each post result output
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), parameter, private :: &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
kB = 1.38e-23_pReal !< Boltzmann constant in J/Kelvin
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
integer(pInt), dimension(:), allocatable, target, public :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_Noutput !< number of outputs per instance of this plasticity
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
remove superfluous variables
2016-01-16 12:36:34 +05:30
integer(pInt), dimension(:), allocatable, private :: &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
plastic_disloUCLA_totalNslip !< total number of active slip systems for each instance
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
integer(pInt), dimension(:,:), allocatable, private :: &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
plastic_disloUCLA_Nslip !< number of active slip systems for each family and instance
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), dimension(:), allocatable, private :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_CAtomicVolume, & !< atomic volume in Bugers vector unit
plastic_disloUCLA_D0, & !< prefactor for self-diffusion coefficient
plastic_disloUCLA_Qsd, & !< activation energy for dislocation climb
plastic_disloUCLA_GrainSize, & !< grain size
plastic_disloUCLA_CEdgeDipMinDistance, & !<
plastic_disloUCLA_SolidSolutionStrength, & !< Strength due to elements in solid solution
plastic_disloUCLA_dipoleFormationFactor, & !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
removing remainders of twinning
2016-04-25 02:06:35 +05:30
plastic_disloUCLA_aTolRho !< absolute tolerance for integration of dislocation density
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), dimension(:,:), allocatable, private :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
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_burgersPerSlipFamily, & !< absolute length of burgers vector [m] for each slip family and instance
plastic_disloUCLA_burgersPerSlipSystem, & !< absolute length of burgers vector [m] for each slip system and instance
plastic_disloUCLA_QedgePerSlipFamily, & !< activation energy for glide [J] for each slip family and instance
plastic_disloUCLA_QedgePerSlipSystem, & !< activation energy for glide [J] for each slip system 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_tau_peierlsPerSlipFamily, & !< Peierls stress [Pa] for each family and instance
plastic_disloUCLA_CLambdaSlipPerSlipFamily, & !< Adj. parameter for distance between 2 forest dislocations for each slip family and instance
plastic_disloUCLA_CLambdaSlipPerSlipSystem, & !< Adj. parameter for distance between 2 forest dislocations for each slip system and instance
plastic_disloUCLA_interaction_SlipSlip, & !< coefficients for slip-slip interaction for each interaction type and instance
plastic_disloUCLA_pPerSlipFamily, & !< p-exponent in glide velocity
plastic_disloUCLA_qPerSlipFamily, & !< q-exponent in glide velocity
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
!* mobility law parameters
removing remainders of twinning
2016-04-25 02:06:35 +05:30
plastic_disloUCLA_kinkheight, & !< height of the kink pair
plastic_disloUCLA_omega, & !< attempt frequency for kink pair nucleation
plastic_disloUCLA_kinkwidth, & !< width of the kink pair
plastic_disloUCLA_dislolength, & !< dislocation length (lamda)
plastic_disloUCLA_friction, & !< friction coeff. B (kMC)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
!*
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_nonSchmidCoeff !< non-Schmid coefficients (bcc)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), dimension(:,:,:), allocatable, private :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_interactionMatrix_SlipSlip, & !< interaction matrix of the different slip systems for each instance
plastic_disloUCLA_forestProjectionEdge !< matrix of forest projections of edge dislocations for each instance
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enum, bind(c)
enumerator :: undefined_ID, &
edge_density_ID, &
dipole_density_ID, &
shear_rate_slip_ID, &
accumulated_shear_slip_ID, &
mfp_slip_ID, &
resolved_stress_slip_ID, &
threshold_stress_slip_ID, &
edge_dipole_distance_ID, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
stress_exponent_ID
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
end enum
integer(kind(undefined_ID)), dimension(:,:), allocatable, private :: &
remove superfluous variables
2016-01-16 12:36:34 +05:30
plastic_disloUCLA_outputID !< ID of each post result output
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
type, private :: tDisloUCLAState
real(pReal), pointer, dimension(:,:) :: &
rhoEdge, &
rhoEdgeDip, &
accshear_slip, &
invLambdaSlip, &
mfp_slip, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
threshold_stress_slip
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
end type
type(tDisloUCLAState ), allocatable, dimension(:), private :: &
state, &
state0, &
dotState
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
public :: &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_init, &
plastic_disloUCLA_microstructure, &
plastic_disloUCLA_LpAndItsTangent, &
plastic_disloUCLA_dotState, &
plastic_disloUCLA_postResults
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
private :: &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_stateInit, &
plastic_disloUCLA_aTolState
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
contains
!--------------------------------------------------------------------------------------------------
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
subroutine plastic_disloUCLA_init(fileUnit)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use debug, only: &
debug_level,&
debug_constitutive,&
debug_levelBasic
use math, only: &
math_Mandel3333to66, &
math_Voigt66to3333, &
math_mul3x3
use IO, only: &
IO_read, &
IO_lc, &
IO_getTag, &
IO_isBlank, &
IO_stringPos, &
IO_stringValue, &
IO_floatValue, &
IO_intValue, &
IO_warning, &
IO_error, &
IO_timeStamp, &
IO_EOF
use material, only: &
phase_plasticity, &
phase_plasticityInstance, &
phase_Noutput, &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
PLASTICITY_DISLOUCLA_label, &
PLASTICITY_DISLOUCLA_ID, &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
material_phase, &
plasticState, &
MATERIAL_partPhase
use lattice
use numerics,only: &
lots of memory savings (~ stateside + 250 pReals per integration point) when using analytic jacobian
2015-08-28 16:25:38 +05:30
analyticJaco, &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
worldrank, &
numerics_integrator
implicit none
integer(pInt), intent(in) :: fileUnit
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
integer(pInt), allocatable, dimension(:) :: chunkPos
removing remainders of twinning
2016-04-25 02:06:35 +05:30
integer(pInt) :: maxNinstance,mySize=0_pInt,phase,maxTotalNslip,&
f,instance,j,k,o,ns, &
Nchunks_SlipSlip = 0_pInt, &
Nchunks_SlipFamilies = 0_pInt,Nchunks_nonSchmid = 0_pInt, &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
offset_slip, index_myFamily, index_otherFamily, &
startIndex, endIndex
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
integer(pInt) :: sizeState, sizeDotState, sizeDeltaState
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
integer(pInt) :: NofMyPhase
character(len=65536) :: &
tag = '', &
line = ''
removing remainders of twinning
2016-04-25 02:06:35 +05:30
real(pReal), dimension(:), allocatable :: tempPerSlip
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
mainProcess: if (worldrank == 0) then
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_DISLOUCLA_label//' init -+>>>'
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
endif mainProcess
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
maxNinstance = int(count(phase_plasticity == PLASTICITY_DISLOUCLA_ID),pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
write(6,'(a16,1x,i5,/)') '# instances:',maxNinstance
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_sizePostResults(maxNinstance), source=0_pInt)
allocate(plastic_disloUCLA_sizePostResult(maxval(phase_Noutput),maxNinstance),source=0_pInt)
allocate(plastic_disloUCLA_output(maxval(phase_Noutput),maxNinstance))
plastic_disloUCLA_output = ''
allocate(plastic_disloUCLA_outputID(maxval(phase_Noutput),maxNinstance), source=undefined_ID)
allocate(plastic_disloUCLA_Noutput(maxNinstance), source=0_pInt)
allocate(plastic_disloUCLA_Nslip(lattice_maxNslipFamily,maxNinstance), source=0_pInt)
allocate(plastic_disloUCLA_totalNslip(maxNinstance), source=0_pInt)
allocate(plastic_disloUCLA_CAtomicVolume(maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_D0(maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_Qsd(maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_GrainSize(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_aTolRho(maxNinstance), source=0.0_pReal)
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_burgersPerSlipFamily(lattice_maxNslipFamily,maxNinstance),source=0.0_pReal)
fixed bug: output size was not set
2015-01-23 18:38:25 +05:30
allocate(plastic_disloUCLA_kinkheight(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_omega(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_kinkwidth(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_dislolength(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_friction(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_QedgePerSlipFamily(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), &
fixed missing initialization causing a NaN in gdot and crashes
2014-12-11 20:34:16 +05:30
source=0.0_pReal)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_pPerSlipFamily(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_qPerSlipFamily(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_CLambdaSlipPerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
fixed missing initialization causing a NaN in gdot and crashes
2014-12-11 20:34:16 +05:30
source=0.0_pReal)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_interaction_SlipSlip(lattice_maxNinteraction,maxNinstance),source=0.0_pReal)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_nonSchmidCoeff(lattice_maxNnonSchmid,maxNinstance), source=0.0_pReal)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
rewind(fileUnit)
phase = 0_pInt
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= MATERIAL_partPhase) ! wind forward to <phase>
line = IO_read(fileUnit)
enddo
parsingFile: do while (trim(line) /= IO_EOF) ! read through sections of phase part
line = IO_read(fileUnit)
if (IO_isBlank(line)) cycle ! skip empty lines
if (IO_getTag(line,'<','>') /= '') then ! stop at next part
line = IO_read(fileUnit, .true.) ! reset IO_read
exit
endif
if (IO_getTag(line,'[',']') /= '') then ! next phase section
phase = phase + 1_pInt ! advance phase section counter
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
if (phase_plasticity(phase) == PLASTICITY_DISLOUCLA_ID) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
Nchunks_SlipFamilies = count(lattice_NslipSystem(:,phase) > 0_pInt)
Nchunks_SlipSlip = maxval(lattice_interactionSlipSlip(:,:,phase))
Nchunks_nonSchmid = lattice_NnonSchmid(phase)
if(allocated(tempPerSlip)) deallocate(tempPerSlip)
allocate(tempPerSlip(Nchunks_SlipFamilies))
endif
cycle ! skip to next line
endif
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
if (phase > 0_pInt ) then; if (phase_plasticity(phase) == PLASTICITY_DISLOUCLA_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(phase) ! which instance of my plasticity is present phase
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
chunkPos = IO_stringPos(line)
tag = IO_lc(IO_stringValue(line,chunkPos,1_pInt)) ! extract key
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
select case(tag)
case ('(output)')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
select case(IO_lc(IO_stringValue(line,chunkPos,2_pInt)))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('edge_density')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = edge_density_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('dipole_density')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = dipole_density_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
added some aliases for output to finally converge from 'shear_rate' to 'shearrate' and from 'accumulatedshear' to 'accumulated_shear'
2015-03-09 16:59:44 +05:30
case ('shear_rate_slip','shearrate_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = shear_rate_slip_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('accumulated_shear_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = accumulated_shear_slip_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('mfp_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = mfp_slip_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('resolved_stress_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = resolved_stress_slip_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
added threshold_stress_slip as output (got lost once upon a time)
2015-01-22 15:04:11 +05:30
case ('threshold_stress_slip')
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = threshold_stress_slip_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('edge_dipole_distance')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = edge_dipole_distance_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('stress_exponent')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Noutput(instance) = plastic_disloUCLA_Noutput(instance) + 1_pInt
plastic_disloUCLA_outputID(plastic_disloUCLA_Noutput(instance),instance) = stress_exponent_ID
plastic_disloUCLA_output(plastic_disloUCLA_Noutput(instance),instance) = &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
IO_lc(IO_stringValue(line,chunkPos,2_pInt))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
end select
!--------------------------------------------------------------------------------------------------
! parameters depending on number of slip system families
case ('nslip')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
if (chunkPos(1) < Nchunks_SlipFamilies + 1_pInt) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_warning(50_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOUCLA_label//')')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
if (chunkPos(1) > Nchunks_SlipFamilies + 1_pInt) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(150_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOUCLA_label//')')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
Nchunks_SlipFamilies = chunkPos(1) - 1_pInt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
do j = 1_pInt, Nchunks_SlipFamilies
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_Nslip(j,instance) = IO_intValue(line,chunkPos,1_pInt+j)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
case ('rhoedge0','rhoedgedip0','slipburgers','qedge','v0','clambdaslip','tau_peierls','p_slip','q_slip',&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
'kink_height','omega','kink_width','dislolength','friction_coeff')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
do j = 1_pInt, Nchunks_SlipFamilies
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
tempPerSlip(j) = IO_floatValue(line,chunkPos,1_pInt+j)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
select case(tag)
case ('rhoedge0')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_rhoEdge0(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('rhoedgedip0')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_rhoEdgeDip0(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('slipburgers')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_burgersPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('qedge')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_QedgePerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('v0')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_v0PerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('clambdaslip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_CLambdaSlipPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('tau_peierls')
if (lattice_structure(phase) /= LATTICE_bcc_ID) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_warning(42_pInt,ext_msg=trim(tag)//' for non-bcc ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_tau_peierlsPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('p_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_pPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('q_slip')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_qPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
case ('kink_height')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_kinkheight(1:Nchunks_SlipFamilies,instance) = &
2015-01-16 04:10:17 +05:30
tempPerSlip(1:Nchunks_SlipFamilies)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
case ('omega')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_omega(1:Nchunks_SlipFamilies,instance) = &
2015-01-16 04:10:17 +05:30
tempPerSlip(1:Nchunks_SlipFamilies)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
case ('kink_width')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_kinkwidth(1:Nchunks_SlipFamilies,instance) = &
2015-01-16 04:10:17 +05:30
tempPerSlip(1:Nchunks_SlipFamilies)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
case ('dislolength')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_dislolength(1:Nchunks_SlipFamilies,instance) = &
2015-01-16 04:10:17 +05:30
tempPerSlip(1:Nchunks_SlipFamilies)
case ('friction_coeff')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_friction(1:Nchunks_SlipFamilies,instance) = &
2015-01-16 04:10:17 +05:30
tempPerSlip(1:Nchunks_SlipFamilies)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
end select
removing mechanical twinning part
2016-04-25 00:35:05 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
! parameters depending on number of interactions
case ('interaction_slipslip','interactionslipslip')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
if (chunkPos(1) < 1_pInt + Nchunks_SlipSlip) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOUCLA_label//')')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
do j = 1_pInt, Nchunks_SlipSlip
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_interaction_SlipSlip(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
case ('nonschmid_coefficients')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
if (chunkPos(1) < 1_pInt + Nchunks_nonSchmid) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOUCLA_label//')')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
do j = 1_pInt,Nchunks_nonSchmid
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_nonSchmidCoeff(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
!--------------------------------------------------------------------------------------------------
removing remainders of twinning
2016-04-25 02:06:35 +05:30
! parameters independent of number of slip systems
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('grainsize')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_GrainSize(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('d0')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_D0(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('qsd')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_Qsd(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('atol_rho')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_aTolRho(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('solidsolutionstrength')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_SolidSolutionStrength(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('cedgedipmindistance')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_CEdgeDipMinDistance(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('catomicvolume')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_CAtomicVolume(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case ('dipoleformationfactor')
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
plastic_disloUCLA_dipoleFormationFactor(instance) = IO_floatValue(line,chunkPos,2_pInt)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
end select
endif; endif
enddo parsingFile
sanityChecks: do phase = 1_pInt, size(phase_plasticity)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
myPhase: if (phase_plasticity(phase) == PLASTICITY_disloUCLA_ID) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(phase)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (sum(plastic_disloUCLA_Nslip(:,instance)) < 0_pInt) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Nslip ('//PLASTICITY_DISLOUCLA_label//')')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
do f = 1_pInt,lattice_maxNslipFamily
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_Nslip(f,instance) > 0_pInt) then
if (plastic_disloUCLA_rhoEdge0(f,instance) < 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='rhoEdge0 ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_rhoEdgeDip0(f,instance) < 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='rhoEdgeDip0 ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_burgersPerSlipFamily(f,instance) <= 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='slipBurgers ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_v0PerSlipFamily(f,instance) <= 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='v0 ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance) < 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='tau_peierls ('//PLASTICITY_DISLOUCLA_label//')')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif
enddo
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_CAtomicVolume(instance) <= 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='cAtomicVolume ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_D0(instance) <= 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='D0 ('//PLASTICITY_DISLOUCLA_label//')')
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_Qsd(instance) <= 0.0_pReal) &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Qsd ('//PLASTICITY_DISLOUCLA_label//')')
removing remainders of twinning
2016-04-25 02:06:35 +05:30
! if (plastic_disloUCLA_aTolRho(instance) <= 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='aTolRho ('//PLASTICITY_DISLOUCLA_label//')')
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
removing remainders of twinning
2016-04-25 02:06:35 +05:30
! Determine total number of active slip systems
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_Nslip(:,instance) = min(lattice_NslipSystem(:,phase),plastic_disloUCLA_Nslip(:,instance))
plastic_disloUCLA_totalNslip(instance) = sum(plastic_disloUCLA_Nslip(:,instance))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif myPhase
enddo sanityChecks
!--------------------------------------------------------------------------------------------------
! allocation of variables whose size depends on the total number of active slip systems
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
maxTotalNslip = maxval(plastic_disloUCLA_totalNslip)
allocate(plastic_disloUCLA_burgersPerSlipSystem(maxTotalNslip, maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_QedgePerSlipSystem(maxTotalNslip, maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_v0PerSlipSystem(maxTotalNslip, maxNinstance), source=0.0_pReal)
allocate(plastic_disloUCLA_CLambdaSlipPerSlipSystem(maxTotalNslip, maxNinstance),source=0.0_pReal)
allocate(plastic_disloUCLA_interactionMatrix_SlipSlip(maxval(plastic_disloUCLA_totalNslip),& ! slip resistance from slip activity
maxval(plastic_disloUCLA_totalNslip),&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
maxNinstance), source=0.0_pReal)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
allocate(plastic_disloUCLA_forestProjectionEdge(maxTotalNslip,maxTotalNslip,maxNinstance), &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
source=0.0_pReal)
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
allocate(state(maxNinstance))
allocate(state0(maxNinstance))
allocate(dotState(maxNinstance))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
initializeInstances: do phase = 1_pInt, size(phase_plasticity)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
myPhase2: if (phase_plasticity(phase) == PLASTICITY_disloUCLA_ID) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
NofMyPhase=count(material_phase==phase)
instance = phase_plasticityInstance(phase)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
! Determine size of postResults array
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
outputs: do o = 1_pInt,plastic_disloUCLA_Noutput(instance)
select case(plastic_disloUCLA_outputID(o,instance))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case(edge_density_ID, &
dipole_density_ID, &
shear_rate_slip_ID, &
accumulated_shear_slip_ID, &
mfp_slip_ID, &
resolved_stress_slip_ID, &
threshold_stress_slip_ID, &
edge_dipole_distance_ID, &
stress_exponent_ID &
)
mySize = ns
end select
if (mySize > 0_pInt) then ! any meaningful output found
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_sizePostResult(o,instance) = mySize
plastic_disloUCLA_sizePostResults(instance) = plastic_disloUCLA_sizePostResults(instance) + mySize
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif
enddo outputs
remove superfluous variables
2016-01-16 12:36:34 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
! allocate state arrays
remove superfluous variables
2016-01-16 12:36:34 +05:30
removing remainders of twinning
2016-04-25 02:06:35 +05:30
sizeDotState = int(size(['rhoEdge ','rhoEdgeDip ','accshearslip']),pInt) * ns
remove superfluous variables
2016-01-16 12:36:34 +05:30
sizeDeltaState = 0_pInt
sizeState = sizeDotState &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
+ int(size(['invLambdaSlip ',&
'meanFreePathSlip ','tauSlipThreshold ']),pInt) * ns
remove superfluous variables
2016-01-16 12:36:34 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
plasticState(phase)%sizeDeltaState = sizeDeltaState
fixed bug: output size was not set
2015-01-23 18:38:25 +05:30
plasticState(phase)%sizePostResults = plastic_disloUCLA_sizePostResults(instance)
plasticState(phase)%nSlip = plastic_disloucla_totalNslip(instance)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
plasticState(phase)%nTwin = 0_pInt
fixed bug: output size was not set
2015-01-23 18:38:25 +05:30
plasticState(phase)%nTrans= 0_pInt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
allocate(plasticState(phase)%aTolState (sizeState), source=0.0_pReal)
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%subState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%state (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
allocate(plasticState(phase)%deltaState (sizeDeltaState,NofMyPhase), source=0.0_pReal)
lots of memory savings (~ stateside + 250 pReals per integration point) when using analytic jacobian
2015-08-28 16:25:38 +05:30
if (.not. analyticJaco) then
allocate(plasticState(phase)%state_backup (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%dotState_backup (sizeDotState,NofMyPhase), source=0.0_pReal)
endif
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
if (any(numerics_integrator == 1_pInt)) then
allocate(plasticState(phase)%previousDotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%previousDotState2 (sizeDotState,NofMyPhase), source=0.0_pReal)
endif
if (any(numerics_integrator == 4_pInt)) &
allocate(plasticState(phase)%RK4dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 5_pInt)) &
allocate(plasticState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal)
fixed bug: output size was not set
2015-01-23 18:38:25 +05:30
offset_slip = 2_pInt*plasticState(phase)%nSlip
plasticState(phase)%slipRate => &
plasticState(phase)%dotState(offset_slip+1:offset_slip+plasticState(phase)%nSlip,1:NofMyPhase)
plasticState(phase)%accumulatedSlip => &
plasticState(phase)%state (offset_slip+1:offset_slip+plasticState(phase)%nSlip,1:NofMyPhase)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Process slip related parameters ------------------------------------------------
mySlipFamilies: do f = 1_pInt,lattice_maxNslipFamily
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
index_myFamily = sum(plastic_disloUCLA_Nslip(1:f-1_pInt,instance)) ! index in truncated slip system list
mySlipSystems: do j = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Burgers vector,
! dislocation velocity prefactor,
! mean free path prefactor,
! and minimum dipole distance
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_burgersPerSlipSystem(index_myFamily+j,instance) = &
plastic_disloUCLA_burgersPerSlipFamily(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_QedgePerSlipSystem(index_myFamily+j,instance) = &
plastic_disloUCLA_QedgePerSlipFamily(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_v0PerSlipSystem(index_myFamily+j,instance) = &
plastic_disloUCLA_v0PerSlipFamily(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_CLambdaSlipPerSlipSystem(index_myFamily+j,instance) = &
plastic_disloUCLA_CLambdaSlipPerSlipFamily(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Calculation of forest projections for edge dislocations
!* Interaction matrices
otherSlipFamilies: do o = 1_pInt,lattice_maxNslipFamily
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
index_otherFamily = sum(plastic_disloUCLA_Nslip(1:o-1_pInt,instance))
otherSlipSystems: do k = 1_pInt,plastic_disloUCLA_Nslip(o,instance)
plastic_disloUCLA_forestProjectionEdge(index_myFamily+j,index_otherFamily+k,instance) = &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
abs(math_mul3x3(lattice_sn(:,sum(lattice_NslipSystem(1:f-1,phase))+j,phase), &
lattice_st(:,sum(lattice_NslipSystem(1:o-1,phase))+k,phase)))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_interactionMatrix_SlipSlip(index_myFamily+j,index_otherFamily+k,instance) = &
plastic_disloUCLA_interaction_SlipSlip(lattice_interactionSlipSlip( &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
sum(lattice_NslipSystem(1:f-1,phase))+j, &
sum(lattice_NslipSystem(1:o-1,phase))+k, &
phase), instance )
enddo otherSlipSystems; enddo otherSlipFamilies
removing remainders of twinning
2016-04-25 02:06:35 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo mySlipSystems
enddo mySlipFamilies
removing remainders of twinning
2016-04-25 02:06:35 +05:30
startIndex=1_pInt
endIndex=ns
state(instance)%rhoEdge=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%rhoEdge=>plasticState(phase)%state0(startIndex:endIndex,:)
dotState(instance)%rhoEdge=>plasticState(phase)%dotState(startIndex:endIndex,:)
startIndex=endIndex+1_pInt
endIndex=endIndex+ns
state(instance)%rhoEdgeDip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%rhoEdgeDip=>plasticState(phase)%state0(startIndex:endIndex,:)
dotState(instance)%rhoEdgeDip=>plasticState(phase)%dotState(startIndex:endIndex,:)
startIndex=endIndex+1_pInt
endIndex=endIndex+ns
state(instance)%accshear_slip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%accshear_slip=>plasticState(phase)%state0(startIndex:endIndex,:)
dotState(instance)%accshear_slip=>plasticState(phase)%dotState(startIndex:endIndex,:)
startIndex=endIndex+1_pInt
endIndex=endIndex+ns
state(instance)%invLambdaSlip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%invLambdaSlip=>plasticState(phase)%state0(startIndex:endIndex,:)
startIndex=endIndex+1_pInt
endIndex=endIndex+ns
state(instance)%mfp_slip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%mfp_slip=>plasticState(phase)%state0(startIndex:endIndex,:)
startIndex=endIndex+1_pInt
endIndex=endIndex+ns
state(instance)%threshold_stress_slip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%threshold_stress_slip=>plasticState(phase)%state0(startIndex:endIndex,:)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
call plastic_disloUCLA_stateInit(phase,instance)
call plastic_disloUCLA_aTolState(phase,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif myPhase2
enddo initializeInstances
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_init
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief sets the relevant state values for a given instance of this plasticity
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
subroutine plastic_disloUCLA_stateInit(ph,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use math, only: &
pi
use lattice, only: &
lattice_maxNslipFamily, &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
lattice_mu
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use material, only: &
plasticState
implicit none
integer(pInt), intent(in) :: &
instance, & !< number specifying the instance of the plasticity
ph
real(pReal), dimension(plasticState(ph)%sizeState) :: tempState
removing remainders of twinning
2016-04-25 02:06:35 +05:30
integer(pInt) :: i,f,ns, index_myFamily
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
real(pReal), dimension(plastic_disloUCLA_totalNslip(instance)) :: &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
rhoEdge0, &
rhoEdgeDip0, &
invLambdaSlip0, &
MeanFreePathSlip0, &
tauSlipThreshold0
tempState = 0.0_pReal
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
! initialize basic slip state variables
do f = 1_pInt,lattice_maxNslipFamily
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
index_myFamily = sum(plastic_disloUCLA_Nslip(1:f-1_pInt,instance)) ! index in truncated slip system list
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
rhoEdge0(index_myFamily+1_pInt: &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
index_myFamily+plastic_disloUCLA_Nslip(f,instance)) = &
plastic_disloUCLA_rhoEdge0(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
rhoEdgeDip0(index_myFamily+1_pInt: &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
index_myFamily+plastic_disloUCLA_Nslip(f,instance)) = &
plastic_disloUCLA_rhoEdgeDip0(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
tempState(1_pInt:ns) = rhoEdge0
tempState(ns+1_pInt:2_pInt*ns) = rhoEdgeDip0
!--------------------------------------------------------------------------------------------------
! initialize dependent slip microstructural variables
forall (i = 1_pInt:ns) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
invLambdaSlip0(i) = sqrt(dot_product((rhoEdge0+rhoEdgeDip0),plastic_disloUCLA_forestProjectionEdge(1:ns,i,instance)))/ &
plastic_disloUCLA_CLambdaSlipPerSlipSystem(i,instance)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
tempState(3_pInt*ns+1:4_pInt*ns) = invLambdaSlip0
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
forall (i = 1_pInt:ns) &
MeanFreePathSlip0(i) = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_GrainSize(instance)/(1.0_pReal+invLambdaSlip0(i)*plastic_disloUCLA_GrainSize(instance))
removing remainders of twinning
2016-04-25 02:06:35 +05:30
tempState(4_pInt*ns+1:5_pInt*ns) = MeanFreePathSlip0
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
forall (i = 1_pInt:ns) &
tauSlipThreshold0(i) = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
lattice_mu(ph)*plastic_disloUCLA_burgersPerSlipSystem(i,instance) * &
sqrt(dot_product((rhoEdge0+rhoEdgeDip0),plastic_disloUCLA_interactionMatrix_SlipSlip(i,1:ns,instance)))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
removing remainders of twinning
2016-04-25 02:06:35 +05:30
tempState(5_pInt*ns+1:6_pInt*ns) = tauSlipThreshold0
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
plasticState(ph)%state0 = spread(tempState,2,size(plasticState(ph)%state(1,:)))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_stateInit
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief sets the relevant state values for a given instance of this plasticity
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
subroutine plastic_disloUCLA_aTolState(ph,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use material, only: &
plasticState
implicit none
integer(pInt), intent(in) :: &
ph, &
instance ! number specifying the current instance of the plasticity
removing remainders of twinning
2016-04-25 02:06:35 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
! Tolerance state for dislocation densities
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plasticState(ph)%aTolState(1_pInt:2_pInt*plastic_disloUCLA_totalNslip(instance)) = &
plastic_disloUCLA_aTolRho(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
! Tolerance state for accumulated shear due to slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plasticState(ph)%aTolState(2_pInt*plastic_disloUCLA_totalNslip(instance)+1_pInt: &
3_pInt*plastic_disloUCLA_totalNslip(instance))=1e6_pReal
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_aTolState
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
subroutine plastic_disloUCLA_microstructure(temperature,ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use math, only: &
pi
use material, only: &
phase_plasticityInstance, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use lattice, only: &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
lattice_mu
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
implicit none
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
real(pReal), intent(in) :: &
temperature !< temperature at IP
integer(pInt) :: &
instance, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
ns,s, &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
ph, &
of
!* Shortened notation
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
of = phasememberAt(ipc,ip,el)
ph = phaseAt(ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* 1/mean free distance between 2 forest dislocations seen by a moving dislocation
forall (s = 1_pInt:ns) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%invLambdaSlip(s,of) = &
sqrt(dot_product((state(instance)%rhoEdge(1_pInt:ns,of)+state(instance)%rhoEdgeDip(1_pInt:ns,of)),&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_forestProjectionEdge(1:ns,s,instance)))/ &
plastic_disloUCLA_CLambdaSlipPerSlipSystem(s,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* mean free path between 2 obstacles seen by a moving dislocation
do s = 1_pInt,ns
removing remainders of twinning
2016-04-25 02:06:35 +05:30
state(instance)%mfp_slip(s,of) = &
plastic_disloUCLA_GrainSize(instance)/&
(1.0_pReal+plastic_disloUCLA_GrainSize(instance)*(state(instance)%invLambdaSlip(s,of)))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo
!* threshold stress for dislocation motion
forall (s = 1_pInt:ns) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%threshold_stress_slip(s,of) = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
lattice_mu(ph)*plastic_disloUCLA_burgersPerSlipSystem(s,instance)*&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
sqrt(dot_product((state(instance)%rhoEdge(1_pInt:ns,of)+state(instance)%rhoEdgeDip(1_pInt:ns,of)),&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_interactionMatrix_SlipSlip(s,1:ns,instance)))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_microstructure
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates plastic velocity gradient and its tangent
!--------------------------------------------------------------------------------------------------
updated damage models: - coupling to plasticity handled within damage module instead of plasticity module - anisotropic models more stable
2015-01-29 19:26:09 +05:30
subroutine plastic_disloUCLA_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature,ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use prec, only: &
tol_math_check
use math, only: &
math_Plain3333to99, &
math_Mandel6to33, &
math_Mandel33to6, &
math_symmetric33, &
math_mul33x3
use material, only: &
material_phase, &
phase_plasticityInstance, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use lattice, only: &
lattice_Sslip, &
lattice_Sslip_v, &
lattice_maxNslipFamily,&
lattice_NslipSystem, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
lattice_NnonSchmid
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
implicit none
updated damage models: - coupling to plasticity handled within damage module instead of plasticity module - anisotropic models more stable
2015-01-29 19:26:09 +05:30
integer(pInt), intent(in) :: ipc,ip,el
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), intent(in) :: Temperature
real(pReal), dimension(6), intent(in) :: Tstar_v
real(pReal), dimension(3,3), intent(out) :: Lp
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
real(pReal), dimension(9,9), intent(out) :: dLp_dTstar99
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
removing remainders of twinning
2016-04-25 02:06:35 +05:30
integer(pInt) :: instance,ph,of,ns,f,i,j,k,l,m,n,index_myFamily
real(pReal) :: StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0, &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_pos,tau_slip_neg,vel_slip,dvel_slip,&
removing remainders of twinning
2016-04-25 02:06:35 +05:30
dgdot_dtauslip_pos,dgdot_dtauslip_neg,stressRatio
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
real(pReal), dimension(3,3,2) :: &
nonSchmid_tensor
real(pReal), dimension(3,3,3,3) :: &
dLp_dTstar3333
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
real(pReal), dimension(plastic_disloUCLA_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
gdot_slip_pos,gdot_slip_neg
!* Shortened notation
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
of = phasememberAt(ipc,ip,el)
ph = phaseAt(ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
Lp = 0.0_pReal
dLp_dTstar3333 = 0.0_pReal
!--------------------------------------------------------------------------------------------------
! Dislocation glide part
gdot_slip_pos = 0.0_pReal
gdot_slip_neg = 0.0_pReal
dgdot_dtauslip_pos = 0.0_pReal
dgdot_dtauslip_neg = 0.0_pReal
j = 0_pInt
slipFamilies: do f = 1_pInt,lattice_maxNslipFamily
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
slipSystems: do i = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = j+1_pInt
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Boltzmann ratio
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
BoltzmannRatio = plastic_disloUCLA_QedgePerSlipSystem(j,instance)/(kB*Temperature)
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Initial shear rates
DotGamma0 = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdge(j,of)*plastic_disloUCLA_burgersPerSlipSystem(j,instance)*&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_v0PerSlipSystem(j,instance)
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Resolved shear stress on slip system
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
tau_slip_pos = dot_product(Tstar_v,lattice_Sslip_v(1:6,1,index_myFamily+i,ph))
tau_slip_neg = tau_slip_pos
nonSchmid_tensor(1:3,1:3,1) = lattice_Sslip(1:3,1:3,1,index_myFamily+i,ph)
nonSchmid_tensor(1:3,1:3,2) = nonSchmid_tensor(1:3,1:3,1)
nonSchmidSystems: do k = 1,lattice_NnonSchmid(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_pos = tau_slip_pos + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
small readability improvement
2015-12-22 14:52:57 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k, index_myFamily+i,ph))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_neg = tau_slip_neg + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k+1,index_myFamily+i,ph))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
nonSchmid_tensor(1:3,1:3,1) = nonSchmid_tensor(1:3,1:3,1) + plastic_disloUCLA_nonSchmidCoeff(k,instance)*&
small readability improvement
2015-12-22 14:52:57 +05:30
lattice_Sslip(1:3,1:3,2*k, index_myFamily+i,ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
nonSchmid_tensor(1:3,1:3,2) = nonSchmid_tensor(1:3,1:3,2) + plastic_disloUCLA_nonSchmidCoeff(k,instance)*&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
lattice_Sslip(1:3,1:3,2*k+1,index_myFamily+i,ph)
enddo nonSchmidSystems
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
significantPostitiveStress: if((abs(tau_slip_pos)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
!* Stress ratio
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_pos)-state(instance)%threshold_stress_slip(j,of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
stressRatio_pminus1 = stressRatio**(plastic_disloUCLA_pPerSlipFamily(f,instance)-1.0_pReal)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Shear rates due to slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_pos &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
gdot_slip_pos(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
* sign(1.0_pReal,tau_slip_pos)
!* Derivatives of shear rates
dvel_slip = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
+ tau_slip_pos &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) ) &!deltaf(f)
2015-01-16 04:10:17 +05:30
) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
) &
- (tau_slip_pos &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) )& !deltaf(f)
2015-01-16 04:10:17 +05:30
) &
) &
/ ( &
( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)**2.0_pReal &
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
dgdot_dtauslip_pos = DotGamma0 * dvel_slip
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
endif significantPostitiveStress
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
significantNegativeStress: if((abs(tau_slip_neg)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
!* Stress ratio
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_neg)-state(instance)%threshold_stress_slip(j,of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
stressRatio_pminus1 = stressRatio**(plastic_disloUCLA_pPerSlipFamily(f,instance)-1.0_pReal)
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
!* Shear rates due to slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_neg &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_neg(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
* sign(1.0_pReal,tau_slip_neg)
!* Derivatives of shear rates
dvel_slip = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
+ tau_slip_neg &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) ) &!deltaf(f)
2015-01-16 04:10:17 +05:30
) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
) &
- (tau_slip_neg &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) )& !deltaf(f)
2015-01-16 04:10:17 +05:30
) &
) &
/ ( &
( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)**2.0_pReal &
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
dgdot_dtauslip_neg = DotGamma0 * dvel_slip
2015-01-16 04:10:17 +05:30
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
endif significantNegativeStress
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Plastic velocity gradient for dislocation glide
Lp = Lp + (gdot_slip_pos(j)+gdot_slip_neg(j))*0.5_pReal*lattice_Sslip(1:3,1:3,1,index_myFamily+i,ph)
!* Calculation of the tangent of Lp
forall (k=1_pInt:3_pInt,l=1_pInt:3_pInt,m=1_pInt:3_pInt,n=1_pInt:3_pInt) &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
dLp_dTstar3333(k,l,m,n) = &
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
dLp_dTstar3333(k,l,m,n) + (dgdot_dtauslip_pos*nonSchmid_tensor(m,n,1)+&
dgdot_dtauslip_neg*nonSchmid_tensor(m,n,2))*0.5_pReal*&
lattice_Sslip(k,l,1,index_myFamily+i,ph)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo slipSystems
enddo slipFamilies
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
dLp_dTstar99 = math_Plain3333to99(dLp_dTstar3333)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_LpAndItsTangent
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates the rate of change of microstructure
!--------------------------------------------------------------------------------------------------
updated damage models: - coupling to plasticity handled within damage module instead of plasticity module - anisotropic models more stable
2015-01-29 19:26:09 +05:30
subroutine plastic_disloUCLA_dotState(Tstar_v,Temperature,ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use prec, only: &
tol_math_check
use math, only: &
pi
use material, only: &
material_phase, &
phase_plasticityInstance, &
plasticState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use lattice, only: &
lattice_Sslip_v, &
lattice_maxNslipFamily, &
lattice_NslipSystem, &
lattice_NnonSchmid, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
lattice_mu
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
implicit none
real(pReal), dimension(6), intent(in):: &
Tstar_v !< 2nd Piola Kirchhoff stress tensor in Mandel notation
real(pReal), intent(in) :: &
temperature !< temperature at integration point
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
removing remainders of twinning
2016-04-25 02:06:35 +05:30
integer(pInt) :: instance,ns,f,i,j,k,index_myFamily, &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
ph, &
of
real(pReal) :: &
stressRatio_p,&
BoltzmannRatio,&
DotGamma0,&
stressRatio, &
EdgeDipMinDistance,&
AtomicVolume,&
VacancyDiffusion,&
tau_slip_pos,&
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
tau_slip_neg,&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
DotRhoMultiplication,&
EdgeDipDistance, &
DotRhoEdgeDipAnnihilation, &
DotRhoEdgeEdgeAnnihilation, &
ClimbVelocity, &
DotRhoEdgeDipClimb, &
DotRhoDipFormation, &
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
vel_slip, &
gdot_slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
real(pReal), dimension(plastic_disloUCLA_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_pos, gdot_slip_neg
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Shortened notation
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
of = phasememberAt(ipc,ip,el)
ph = phaseAt(ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(ph)
removing remainders of twinning
2016-04-25 02:06:35 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
plasticState(ph)%dotState(:,of) = 0.0_pReal
!* Dislocation density evolution
gdot_slip_pos = 0.0_pReal
fixed missing initialization causing a NaN in gdot and crashes
2014-12-11 20:34:16 +05:30
gdot_slip_neg = 0.0_pReal
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = 0_pInt
slipFamilies: do f = 1_pInt,lattice_maxNslipFamily
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
slipSystems: do i = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = j+1_pInt
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Boltzmann ratio
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
BoltzmannRatio = plastic_disloUCLA_QedgePerSlipSystem(j,instance)/(kB*Temperature)
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Initial shear rates
DotGamma0 = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdge(j,of)*plastic_disloUCLA_burgersPerSlipSystem(j,instance)*&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_v0PerSlipSystem(j,instance)
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Resolved shear stress on slip system
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
tau_slip_pos = dot_product(Tstar_v,lattice_Sslip_v(1:6,1,index_myFamily+i,ph))
tau_slip_neg = tau_slip_pos
nonSchmidSystems: do k = 1,lattice_NnonSchmid(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_pos = tau_slip_pos + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k, index_myFamily+i,ph))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_neg = tau_slip_neg + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k+1,index_myFamily+i,ph))
enddo nonSchmidSystems
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
significantPositiveStress: if((abs(tau_slip_pos)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Stress ratios
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_pos)-state(instance)%threshold_stress_slip(j,of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Shear rates due to slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_pos &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
gdot_slip_pos(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
* sign(1.0_pReal,tau_slip_pos)
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
endif significantPositiveStress
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
significantNegativeStress: if((abs(tau_slip_neg)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
!* Stress ratios
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_neg)-state(instance)%threshold_stress_slip(j,of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
2015-01-16 04:10:17 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_neg &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_neg(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
* sign(1.0_pReal,tau_slip_neg)
endif significantNegativeStress
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
gdot_slip = (gdot_slip_pos(j)+gdot_slip_neg(j))*0.5_pReal
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Multiplication
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
DotRhoMultiplication = abs(gdot_slip)/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_burgersPerSlipSystem(j,instance)* &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%mfp_slip(j,of))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Dipole formation
EdgeDipMinDistance = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_CEdgeDipMinDistance(instance)*plastic_disloUCLA_burgersPerSlipSystem(j,instance)
took some gfortran complaints serious (unused imports, implicit castings)
2015-04-11 17:17:33 +05:30
if (abs(tau_slip_pos) <= tiny(0.0_pReal)) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
DotRhoDipFormation = 0.0_pReal
else
EdgeDipDistance = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(3.0_pReal*lattice_mu(ph)*plastic_disloUCLA_burgersPerSlipSystem(j,instance))/&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
(16.0_pReal*pi*abs(tau_slip_pos))
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
if (EdgeDipDistance>state(instance)%mfp_slip(j,of)) EdgeDipDistance=state(instance)%mfp_slip(j,of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
if (EdgeDipDistance<EdgeDipMinDistance) EdgeDipDistance=EdgeDipMinDistance
DotRhoDipFormation = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
((2.0_pReal*EdgeDipDistance)/plastic_disloUCLA_burgersPerSlipSystem(j,instance))*&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdge(j,of)*abs(gdot_slip)*plastic_disloUCLA_dipoleFormationFactor(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif
!* Spontaneous annihilation of 2 single edge dislocations
DotRhoEdgeEdgeAnnihilation = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
((2.0_pReal*EdgeDipMinDistance)/plastic_disloUCLA_burgersPerSlipSystem(j,instance))*&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdge(j,of)*abs(gdot_slip)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Spontaneous annihilation of a single edge dislocation with a dipole constituent
DotRhoEdgeDipAnnihilation = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
((2.0_pReal*EdgeDipMinDistance)/plastic_disloUCLA_burgersPerSlipSystem(j,instance))*&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdgeDip(j,of)*abs(gdot_slip)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Dislocation dipole climb
AtomicVolume = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_CAtomicVolume(instance)*plastic_disloUCLA_burgersPerSlipSystem(j,instance)**(3.0_pReal)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
VacancyDiffusion = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_D0(instance)*exp(-plastic_disloUCLA_Qsd(instance)/(kB*Temperature))
took some gfortran complaints serious (unused imports, implicit castings)
2015-04-11 17:17:33 +05:30
if (abs(tau_slip_pos) <= tiny(0.0_pReal)) then
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
DotRhoEdgeDipClimb = 0.0_pReal
else
ClimbVelocity = &
((3.0_pReal*lattice_mu(ph)*VacancyDiffusion*AtomicVolume)/(2.0_pReal*pi*kB*Temperature))*&
(1/(EdgeDipDistance+EdgeDipMinDistance))
DotRhoEdgeDipClimb = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
(4.0_pReal*ClimbVelocity*state(instance)%rhoEdgeDip(j,of))/(EdgeDipDistance-EdgeDipMinDistance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
endif
!* Edge dislocation density rate of change
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
dotState(instance)%rhoEdge(j,of) = &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
DotRhoMultiplication-DotRhoDipFormation-DotRhoEdgeEdgeAnnihilation
!* Edge dislocation dipole density rate of change
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
dotState(instance)%rhoEdgeDip(j,of) = &
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
DotRhoDipFormation-DotRhoEdgeDipAnnihilation-DotRhoEdgeDipClimb
!* Dotstate for accumulated shear due to slip
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
dotState(instance)%accshear_slip(j,of) = gdot_slip
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
enddo slipSystems
enddo slipFamilies
removing remainders of twinning
2016-04-25 02:06:35 +05:30
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end subroutine plastic_disloUCLA_dotState
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief return array of constitutive results
!--------------------------------------------------------------------------------------------------
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
function plastic_disloUCLA_postResults(Tstar_v,Temperature,ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use prec, only: &
tol_math_check
use math, only: &
pi
use material, only: &
material_phase, &
phase_plasticityInstance,&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
!plasticState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
use lattice, only: &
lattice_Sslip_v, &
lattice_maxNslipFamily, &
lattice_NslipSystem, &
lattice_NnonSchmid, &
removing remainders of twinning
2016-04-25 02:06:35 +05:30
lattice_mu
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
implicit none
real(pReal), dimension(6), intent(in) :: &
Tstar_v !< 2nd Piola Kirchhoff stress tensor in Mandel notation
real(pReal), intent(in) :: &
temperature !< temperature at integration point
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
real(pReal), dimension(plastic_disloUCLA_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
plastic_disloUCLA_postResults
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
integer(pInt) :: &
instance,&
removing remainders of twinning
2016-04-25 02:06:35 +05:30
ns,&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
f,o,i,c,j,k,index_myFamily,&
ph, &
of
removing remainders of twinning
2016-04-25 02:06:35 +05:30
real(pReal) :: StressRatio_p,StressRatio_pminus1,&
BoltzmannRatio,DotGamma0,stressRatio,&
dvel_slip, vel_slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
real(pReal), dimension(plastic_disloUCLA_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_pos,dgdot_dtauslip_pos,tau_slip_pos,gdot_slip_neg,dgdot_dtauslip_neg,tau_slip_neg
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Shortened notation
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
of = phasememberAt(ipc,ip,el)
ph = phaseAt(ipc,ip,el)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
instance = phase_plasticityInstance(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
ns = plastic_disloUCLA_totalNslip(instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
!* Required output
c = 0_pInt
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults = 0.0_pReal
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
do o = 1_pInt,plastic_disloUCLA_Noutput(instance)
select case(plastic_disloUCLA_outputID(o,instance))
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case (edge_density_ID)
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
plastic_disloUCLA_postResults(c+1_pInt:c+ns) = state(instance)%rhoEdge(1_pInt:ns,of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
case (dipole_density_ID)
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
plastic_disloUCLA_postResults(c+1_pInt:c+ns) = state(instance)%rhoEdgeDip(1_pInt:ns,of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
removing remainders of twinning
2016-04-25 02:06:35 +05:30
case (shear_rate_slip_ID,stress_exponent_ID)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
gdot_slip_pos = 0.0_pReal
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_neg = 0.0_pReal
dgdot_dtauslip_pos = 0.0_pReal
dgdot_dtauslip_neg = 0.0_pReal
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = 0_pInt
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
slipFamilies: do f = 1_pInt,lattice_maxNslipFamily
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
slipSystems: do i = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
j = j + 1_pInt
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Boltzmann ratio
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
BoltzmannRatio = plastic_disloUCLA_QedgePerSlipSystem(j,instance)/(kB*Temperature)
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
!* Initial shear rates
DotGamma0 = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%rhoEdge(j,of)*plastic_disloUCLA_burgersPerSlipSystem(j,instance)*&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_v0PerSlipSystem(j,instance)
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
!* Resolved shear stress on slip system
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
tau_slip_pos(j) = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
tau_slip_neg(j) = tau_slip_pos(j)
nonSchmidSystems: do k = 1,lattice_NnonSchmid(ph)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_pos = tau_slip_pos + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k,index_myFamily+i,ph))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
tau_slip_neg = tau_slip_neg + plastic_disloUCLA_nonSchmidCoeff(k,instance)* &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
dot_product(Tstar_v,lattice_Sslip_v(1:6,2*k+1,index_myFamily+i,ph))
enddo nonSchmidSystems
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
significantPositiveTau: if((abs(tau_slip_pos(j))-state(instance)%threshold_stress_slip(j, of)) > tol_math_check) then
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
!* Stress ratio
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_pos(j))-state(instance)%threshold_stress_slip(j, of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
stressRatio_pminus1 = stressRatio**(plastic_disloUCLA_pPerSlipFamily(f,instance)-1.0_pReal)
!* Shear rates due to slip
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_pos(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
gdot_slip_pos(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
* sign(1.0_pReal,tau_slip_pos(j))
!* Derivatives of shear rates
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
dvel_slip = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
+ tau_slip_pos(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) ) &!deltaf(f)
2015-01-16 04:10:17 +05:30
) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
) &
- (tau_slip_pos(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) )& !deltaf(f)
2015-01-16 04:10:17 +05:30
) &
) &
/ ( &
( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_pos(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)**2.0_pReal &
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
dgdot_dtauslip_pos(j) = DotGamma0 * dvel_slip
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
endif significantPositiveTau
significantNegativeTau: if((abs(tau_slip_neg(j))-state(instance)%threshold_stress_slip(j, of)) > tol_math_check) then
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
!* Stress ratios
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
stressRatio = ((abs(tau_slip_neg(j))-state(instance)%threshold_stress_slip(j, of))/&
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(plastic_disloUCLA_SolidSolutionStrength(instance)+&
plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance)))
stressRatio_p = stressRatio** plastic_disloUCLA_pPerSlipFamily(f,instance)
stressRatio_pminus1 = stressRatio**(plastic_disloUCLA_pPerSlipFamily(f,instance)-1.0_pReal)
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
!* Shear rates due to slip
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
vel_slip = 2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* (tau_slip_neg(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
2015-01-16 04:10:17 +05:30
/ ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
gdot_slip_neg(j) = DotGamma0 &
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
* vel_slip &
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
* sign(1.0_pReal,tau_slip_neg(j))
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
!* Derivatives of shear rates
dvel_slip = &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*plastic_disloUCLA_burgersPerSlipFamily(f,instance) &
* plastic_disloUCLA_kinkheight(f,instance) * plastic_disloUCLA_omega(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
* ( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) ) &
2015-01-16 04:10:17 +05:30
* ( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
+ tau_slip_neg(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) ) &!deltaf(f)
2015-01-16 04:10:17 +05:30
) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
) &
- (tau_slip_neg(j) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) ) &
* (2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* (abs(exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)))& !deltaf(i)
*BoltzmannRatio*plastic_disloUCLA_pPerSlipFamily(f,instance)&
*plastic_disloUCLA_qPerSlipFamily(f,instance)/&
(plastic_disloUCLA_SolidSolutionStrength(instance)+plastic_disloUCLA_tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(plastic_disloUCLA_qPerSlipFamily(f,instance)-1.0_pReal) )& !deltaf(f)
2015-01-16 04:10:17 +05:30
) &
) &
/ ( &
( &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
2.0_pReal*(plastic_disloUCLA_burgersPerSlipFamily(f,instance)**2.0_pReal)*tau_slip_neg(j) &
+ plastic_disloUCLA_omega(f,instance) * plastic_disloUCLA_friction(f,instance) &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
*(( state(instance)%mfp_slip(j,of) - plastic_disloUCLA_kinkwidth(f,instance) )**2.0_pReal) &
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** plastic_disloUCLA_qPerSlipFamily(f,instance)) &
2015-01-16 04:10:17 +05:30
)**2.0_pReal &
)
added new model by david (LLNL/UCLA)
2015-01-15 16:26:15 +05:30
dgdot_dtauslip_neg(j) = DotGamma0 * dvel_slip
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
endif significantNegativeTau
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
enddo slipSystems
enddo slipFamilies
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
if (plastic_disloUCLA_outputID(o,instance) == shear_rate_slip_ID) then
plastic_disloUCLA_postResults(c+1:c+ns) = (gdot_slip_pos + gdot_slip_neg)*0.5_pReal
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
c = c + ns
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
elseif(plastic_disloUCLA_outputID(o,instance) == stress_exponent_ID) then
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
do j = 1_pInt, ns
took some gfortran complaints serious (unused imports, implicit castings)
2015-04-11 17:17:33 +05:30
if (abs(gdot_slip_pos(j)+gdot_slip_neg(j))<=tiny(0.0_pReal)) then
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+j) = 0.0_pReal
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
else
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+j) = (tau_slip_pos(j)+tau_slip_neg(j))/&
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
(gdot_slip_pos(j)+gdot_slip_neg(j))*&
(dgdot_dtauslip_pos(j)+dgdot_dtauslip_neg(j))* 0.5_pReal
prepared for merging postResults rate calculation in one loop
2014-11-06 01:09:23 +05:30
endif
unified calculation for slip rate for output to avoid doubling of code introduced calculation of negative and positive stress (three times in the code) for non-schmid behavior. Still, non-schmid behavior is not active at all
2014-11-06 02:23:25 +05:30
enddo
c = c + ns
endif
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
case (accumulated_shear_slip_ID)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+1_pInt:c+ns) = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%accshear_slip(1_pInt:ns, of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
case (mfp_slip_ID)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+1_pInt:c+ns) =&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%mfp_slip(1_pInt:ns, of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
case (resolved_stress_slip_ID)
j = 0_pInt
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
slipFamilies1: do f = 1_pInt,lattice_maxNslipFamily
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
slipSystems1: do i = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = j + 1_pInt
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+j) =&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
enddo slipSystems1; enddo slipFamilies1
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
case (threshold_stress_slip_ID)
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+1_pInt:c+ns) = &
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%threshold_stress_slip(1_pInt:ns,of)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
case (edge_dipole_distance_ID)
j = 0_pInt
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
slipFamilies2: do f = 1_pInt,lattice_maxNslipFamily
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
slipSystems2: do i = 1_pInt,plastic_disloUCLA_Nslip(f,instance)
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
j = j + 1_pInt
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+j) = &
(3.0_pReal*lattice_mu(ph)*plastic_disloUCLA_burgersPerSlipSystem(j,instance))/&
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
(16.0_pReal*pi*abs(dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))))
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
plastic_disloUCLA_postResults(c+j)=min(plastic_disloUCLA_postResults(c+j),&
introduced pointers as names. thx to Chuanlai for doing the work
2016-01-15 20:56:24 +05:30
state(instance)%mfp_slip(j,of))
fully introduced non-schmid behavior
2014-11-07 16:53:34 +05:30
enddo slipSystems2; enddo slipFamilies2
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
c = c + ns
end select
enddo
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end function plastic_disloUCLA_postResults
corrected substraction by volume fraction of twin for LpAndItsTangent and removed the substraction in postResults (like for dislowtin) cleaned up and unified notation in calculation of slip rates
2014-11-06 00:41:09 +05:30
deleted unused variables in dislo UCLA
2015-01-21 20:44:00 +05:30
end module plastic_disloUCLA