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

2461 lines
124 KiB
Fortran
Raw Normal View History

added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incoprorating dislocation and twinning physics
!> @details to be done
!--------------------------------------------------------------------------------------------------
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
module plastic_dislotwin
introduced named constants for homogenization_type, phase_plasticitiy, and phase_elasticity to replace expensive string comparison. Labels for different schemes need to be stored in material.f90 because they are needed when parsing the config file
2013-11-27 13:34:05 +05:30
use prec, only: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
pReal, &
pInt
Prefix not needed for private variables
2018-05-03 14:38:51 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
implicit none
private
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
integer(pInt), dimension(:), allocatable, public, protected :: &
removing code fragments after introducing pointer state
2015-12-16 11:45:21 +05:30
plastic_dislotwin_sizePostResults !< cumulative size of post results
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
integer(pInt), dimension(:,:), allocatable, target, public :: &
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_sizePostResult !< size of each post result output
edited lines exceeding 132 chars (before any comment started)
2012-01-11 22:26:35 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
character(len=64), dimension(:,:), allocatable, target, public :: &
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_output !< name of each post result output
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), parameter, private :: &
disabled a faulty ntrans loop (matmul was complaining)
2015-01-23 16:53:35 +05:30
kB = 1.38e-23_pReal !< Boltzmann constant in J/Kelvin
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use constitutive_xxx_Noutput instead of phase_Noutput as number of outputs for more consistency with constitutive multi physics output
2014-09-26 15:55:26 +05:30
integer(pInt), dimension(:), allocatable, target, public :: &
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_Noutput !< number of outputs per instance of this plasticity
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
integer(pInt), dimension(:), allocatable, private :: &
Prefix not needed for private variables
2018-05-03 14:38:51 +05:30
totalNslip, & !< total number of active slip systems for each instance
totalNtwin, & !< total number of active twin systems for each instance
totalNtrans !< number of active transformation systems
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
integer(pInt), dimension(:,:), allocatable, private :: &
Nslip, &
Ntwin, &
Ntrans
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), dimension(:,:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctwin66 !< twin elasticity matrix in Mandel notation for each instance
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), dimension(:,:,:,:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctwin3333 !< twin elasticity matrix for each instance
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
real(pReal), dimension(:,:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctrans66 !< trans elasticity matrix in Mandel notation for each instance
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
real(pReal), dimension(:,:,:,:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctrans3333 !< trans elasticity matrix for each instance
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), dimension(:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
QedgePerSlipFamily, & !< activation energy for glide [J] for each slip family and instance
QedgePerSlipSystem, & !< activation energy for glide [J] for each slip system and instance
v0PerSlipFamily, & !< dislocation velocity prefactor [m/s] for each family and instance
v0PerSlipSystem, & !< dislocation velocity prefactor [m/s] for each slip system and instance
tau_peierlsPerSlipFamily, & !< Peierls stress [Pa] for each family and instance
Ndot0PerTwinFamily, & !< twin nucleation rate [1/m³s] for each twin family and instance
Ndot0PerTwinSystem, & !< twin nucleation rate [1/m³s] for each twin system and instance
Ndot0PerTransFamily, & !< trans nucleation rate [1/m³s] for each trans family and instance
Ndot0PerTransSystem, & !< trans nucleation rate [1/m³s] for each trans system and instance
tau_r_twin, & !< stress to bring partial close together for each twin system and instance
tau_r_trans, & !< stress to bring partial close together for each trans system and instance
twinsizePerTwinFamily, & !< twin thickness [m] for each twin family and instance
twinsizePerTwinSystem, & !< twin thickness [m] for each twin system and instance
CLambdaSlipPerSlipFamily, & !< Adj. parameter for distance between 2 forest dislocations for each slip family and instance
CLambdaSlipPerSlipSystem, & !< Adj. parameter for distance between 2 forest dislocations for each slip system and instance
lamellarsizePerTransFamily, & !< martensite lamellar thickness [m] for each trans family and instance
lamellarsizePerTransSystem, & !< martensite lamellar thickness [m] for each trans system and instance
interaction_SlipSlip, & !< coefficients for slip-slip interaction for each interaction type and instance
interaction_SlipTwin, & !< coefficients for slip-twin interaction for each interaction type and instance
interaction_TwinSlip, & !< coefficients for twin-slip interaction for each interaction type and instance
interaction_TwinTwin, & !< coefficients for twin-twin interaction for each interaction type and instance
interaction_SlipTrans, & !< coefficients for slip-trans interaction for each interaction type and instance
interaction_TransSlip, & !< coefficients for trans-slip interaction for each interaction type and instance
interaction_TransTrans, & !< coefficients for trans-trans interaction for each interaction type and instance
pPerSlipFamily, & !< p-exponent in glide velocity
qPerSlipFamily, & !< q-exponent in glide velocity
rPerTwinFamily, & !< r-exponent in twin nucleation rate
sPerTransFamily !< s-exponent in trans nucleation rate
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), dimension(:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_SlipSlip, & !< interaction matrix of the different slip systems for each instance
interactionMatrix_SlipTwin, & !< interaction matrix of slip systems with twin systems for each instance
interactionMatrix_TwinSlip, & !< interaction matrix of twin systems with slip systems for each instance
interactionMatrix_TwinTwin, & !< interaction matrix of the different twin systems for each instance
interactionMatrix_SlipTrans, & !< interaction matrix of slip systems with trans systems for each instance
interactionMatrix_TransSlip, & !< interaction matrix of trans systems with slip systems for each instance
interactionMatrix_TransTrans, & !< interaction matrix of the different trans systems for each instance
forestProjectionEdge, & !< matrix of forest projections of edge dislocations for each instance
projectionMatrix_Trans !< matrix for projection of slip system shear on fault band (twin) systems for each instance
Projection matrices for transformation
2014-09-24 18:01:16 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
real(pReal), dimension(:,:,:,:,:), allocatable, private :: &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
sbSv
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +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, &
stress_exponent_ID, &
twin_fraction_ID, &
shear_rate_twin_ID, &
accumulated_shear_twin_ID, &
mfp_twin_ID, &
resolved_stress_twin_ID, &
threshold_stress_twin_ID, &
resolved_stress_shearband_ID, &
shear_rate_shearband_ID, &
sb_eigenvalues_ID, &
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
sb_eigenvectors_ID, &
stress_trans_fraction_ID, &
strain_trans_fraction_ID, &
trans_fraction_ID
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
end enum
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
type,private :: tParameters
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
integer(kind(undefined_ID)), dimension(:), allocatable, private :: &
outputID !< ID of each post result output
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal) :: &
CAtomicVolume, & !< atomic volume in Bugers vector unit
Prefix not needed for private variables
2018-05-03 14:38:51 +05:30
D0, & !< prefactor for self-diffusion coefficient
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
Qsd, & !< activation energy for dislocation climb
GrainSize, & !<grain size
pShearBand, & !< p-exponent in shear band velocity
qShearBand, & !< q-exponent in shear band velocity
MaxTwinFraction, & !<max allowed total twin volume fraction
CEdgeDipMinDistance, & !<
Cmfptwin, & !<
Cthresholdtwin, & !<
SolidSolutionStrength, & !<strength due to elements in solid solution
L0_twin, & !< Length of twin nuclei in Burgers vectors
L0_trans, & !< Length of trans nuclei in Burgers vectors
xc_twin, & !< critical distance for formation of twin nucleus
xc_trans, & !< critical distance for formation of trans nucleus
VcrossSlip, & !< cross slip volume
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
sbResistance, & !< value for shearband resistance (might become an internal state variable at some point)
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
sbVelocity, & !< value for shearband velocity_0
sbQedge, & !< value for shearband systems Qedge
SFE_0K, & !< stacking fault energy at zero K
dSFE_dT, & !< temperature dependance of stacking fault energy
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
dipoleFormationFactor = 1.0_pReal, & !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
aTolRho, & !< absolute tolerance for integration of dislocation density
aTolTwinFrac, & !< absolute tolerance for integration of twin volume fraction
aTolTransFrac, & !< absolute tolerance for integration of trans volume fraction
deltaG, & !< Free energy difference between austensite and martensite
Cmfptrans, & !<
Cthresholdtrans, & !<
transStackHeight !< Stack height of hex nucleus
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
integer(pInt), dimension(:), allocatable, private :: &
Nslip, & !< number of active slip systems for each family and instance
Ntwin, & !< number of active twin systems for each family and instance
Ntrans !< number of active transformation systems for each family and instance
real(pReal), dimension(:), allocatable, private :: &
rho0, & !< initial unipolar dislocation density per slip system
rhoDip0, & !< initial dipole dislocation density per slip system
burgers_slip, & !< absolute length of burgers vector [m] for each slip systems
burgers_twin, & !< absolute length of burgers vector [m] for each slip systems
burgers_trans !< absolute length of burgers vector [m] for each twin family and instance
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
end type
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), dimension(:), allocatable, private, target :: param !< containers of constitutive parameters (len Ninstance)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
type, private :: tDislotwinState
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
real(pReal), pointer, dimension(:,:) :: &
Typo
2015-11-09 14:21:05 +05:30
rhoEdge, &
rhoEdgeDip, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
accshear_slip, &
Consistent variable names
2015-11-10 18:31:03 +05:30
twinFraction, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
accshear_twin, &
Consistent variable names
2015-11-10 18:31:03 +05:30
stressTransFraction, &
strainTransFraction , &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
invLambdaSlip, &
invLambdaSlipTwin, &
invLambdaTwin, &
invLambdaSlipTrans, &
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
invLambdaTrans, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
mfp_slip, &
mfp_twin, &
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
mfp_trans, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
threshold_stress_slip, &
threshold_stress_twin, &
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
threshold_stress_trans, &
twinVolume, &
martensiteVolume
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
end type
type(tDislotwinState), allocatable, dimension(:), private :: &
state, &
state0, &
dotState
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
public :: &
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_init, &
plastic_dislotwin_homogenizedC, &
plastic_dislotwin_microstructure, &
plastic_dislotwin_LpAndItsTangent, &
plastic_dislotwin_dotState, &
plastic_dislotwin_postResults
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
contains
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added "public" (and where possible "protected") statements to functions/subroutines/variables/parameters where needed added -fmodule-private to compile options for gfortran, i.e. gfortran won't compile anymore if an entity is not explicitly declared as public but used in another module to ensure stronger encapsulation
2013-03-28 13:10:30 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
!--------------------------------------------------------------------------------------------------
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
subroutine plastic_dislotwin_init(fileUnit)
compiler_options and compiler_version supported by new Intel compiler
2018-02-02 17:06:09 +05:30
#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800
suppress warning when compiling with gfortran
2017-10-05 20:05:34 +05:30
use, intrinsic :: iso_fortran_env, only: &
compiler_version, &
compiler_options
#endif
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
use prec, only: &
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
dEq0, &
dNeq0, &
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
dNeq
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use debug, only: &
debug_level,&
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
debug_constitutive,&
debug_levelBasic
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use math, only: &
math_Mandel3333to66, &
math_Voigt66to3333, &
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
math_mul3x3, &
math_expand,&
pi
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use mesh, only: &
mesh_maxNips, &
mesh_NcpElems
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
use IO, only: &
moved reading in of lattice stru
2014-02-10 20:01:19 +05:30
IO_read, &
IO_lc, &
IO_getTag, &
IO_isBlank, &
IO_stringPos, &
IO_stringValue, &
IO_floatValue, &
IO_intValue, &
IO_warning, &
IO_error, &
IO_timeStamp, &
IO_EOF
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
use material, only: &
homogenization_maxNgrains, &
phase_plasticity, &
phase_plasticityInstance, &
phase_Noutput, &
PLASTICITY_DISLOTWIN_label, &
PLASTICITY_DISLOTWIN_ID, &
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
material_phase, &
material.config is read in centrally moving data from material to config_material. use statements need to change. All aspects of reading from file will be removed from the individual modules
2018-06-10 21:31:52 +05:30
plasticState
more general name (should include parsing of debug and numerics)
2018-06-14 10:09:49 +05:30
use config, only: &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
MATERIAL_partPhase, &
phaseConfig
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use lattice
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
use numerics,only: &
numerics_integrator
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
implicit none
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
integer(pInt), intent(in) :: fileUnit
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
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
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
integer(pInt) :: maxNinstance,mySize=0_pInt,phase,maxTotalNslip,maxTotalNtwin,maxTotalNtrans,&
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
f,instance,j,i,k,l,m,n,o,p,q,r,s,ns,nt,nr, &
cleaning up, removing unused variables and variable initialisation
2015-04-21 20:46:13 +05:30
Nchunks_SlipSlip = 0_pInt, Nchunks_SlipTwin = 0_pInt, &
Nchunks_TwinSlip = 0_pInt, Nchunks_TwinTwin = 0_pInt, &
Did not initialize a variable
2015-11-17 20:50:36 +05:30
Nchunks_SlipTrans = 0_pInt, Nchunks_TransSlip = 0_pInt, Nchunks_TransTrans = 0_pInt, &
cleaning up, removing unused variables and variable initialisation
2015-04-21 20:46:13 +05:30
Nchunks_SlipFamilies = 0_pInt, Nchunks_TwinFamilies = 0_pInt, Nchunks_TransFamilies = 0_pInt, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
offset_slip, index_myFamily, index_otherFamily, &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
startIndex, endIndex, outputID,outputSize
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
integer(pInt) :: sizeState, sizeDotState, sizeDeltaState
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
integer(pInt) :: NofMyPhase
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
real(pReal), allocatable, dimension(:) :: &
invLambdaSlip0,&
MeanFreePathSlip0,&
MeanFreePathTrans0,&
MeanFreePathTwin0,&
tauSlipThreshold0,&
TwinVolume0,&
MartensiteVolume0
fixed small bug in detecting the lattice structure. only first 3 letters count (e.g. 'ort' and 'orthography' will give the orthorombic lattice type)
2013-11-28 14:26:02 +05:30
character(len=65536) :: &
tag = '', &
line = ''
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
character(len=65536), dimension(:), allocatable :: outputs
integer(pInt), dimension(0), parameter :: emptyInt = [integer(pInt)::]
real(pReal), dimension(0), parameter :: emptyReal = [real(pReal)::]
character(len=65536), dimension(0), parameter :: emptyString = [character(len=65536)::]
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), pointer :: prm
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
real(pReal), dimension(:), allocatable :: tempPerSlip, tempPerTwin, tempPerTrans
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
removed allocation for (dot)state backup, simplified screen output handling for MPI
2016-07-25 23:42:00 +05:30
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_DISLOTWIN_label//' init -+>>>'
Citations in plastic_twin
2018-04-17 19:21:59 +05:30
write(6,'(/,a)') ' A. Ma and F. Roters, Acta Materialia, 52(12):3603–3612, 2004'
write(6,'(/,a)') ' https://doi.org/10.1016/j.actamat.2004.04.012'
"et al." instead of "et. al" abbreviates "et alii", meaning "and others"
2018-04-22 13:37:49 +05:30
write(6,'(/,a)') ' F.Roters et al., Computational Materials Science, 39:91–95, 2007'
Citations in plastic_twin
2018-04-17 19:21:59 +05:30
write(6,'(/,a)') ' https://doi.org/10.1016/j.commatsci.2006.04.014'
"et al." instead of "et. al" abbreviates "et alii", meaning "and others"
2018-04-22 13:37:49 +05:30
write(6,'(/,a)') ' Wong et al., Acta Materialia, 118:140–151, 2016'
A citation on twinning was missing
2018-04-18 18:52:19 +05:30
write(6,'(/,a)') ' https://doi.org/10.1016/j.actamat.2016.07.032'
removed allocation for (dot)state backup, simplified screen output handling for MPI
2016-07-25 23:42:00 +05:30
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
made code standard conform to Fortran 2008 (ignoring warning concerning comments beyond character 132). Basically, changing "x" format specifier to "Nx" ("1x") plus removing $ format specifier added compiler switches for gfortran and ifort to check for standard conformity old gnu compilers <4.4 are not longer supported because they don't provide the c binding for fftw
2012-02-01 00:48:55 +05:30
#include "compilation_info.f90"
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
introduced named constants for homogenization_type, phase_plasticitiy, and phase_elasticity to replace expensive string comparison. Labels for different schemes need to be stored in material.f90 because they are needed when parsing the config file
2013-11-27 13:34:05 +05:30
maxNinstance = int(count(phase_plasticity == PLASTICITY_DISLOTWIN_ID),pInt)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
write(6,'(a16,1x,i5,/)') '# instances:',maxNinstance
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
allocate(plastic_dislotwin_sizePostResults(maxNinstance), source=0_pInt)
allocate(plastic_dislotwin_sizePostResult(maxval(phase_Noutput),maxNinstance),source=0_pInt)
allocate(plastic_dislotwin_output(maxval(phase_Noutput),maxNinstance))
plastic_dislotwin_output = ''
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
allocate(plastic_dislotwin_Noutput(maxNinstance), source=0_pInt)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(param(maxNinstance))
allocate(totalNslip(maxNinstance), source=0_pInt)
allocate(totalNtwin(maxNinstance), source=0_pInt)
allocate(totalNtrans(maxNinstance), source=0_pInt)
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
allocate(Nslip(lattice_maxNslipFamily,maxNinstance), source=0_pInt)
allocate(Ntwin(lattice_maxNtwinFamily,maxNinstance), source=0_pInt)
allocate(Ntrans(lattice_maxNtransFamily,maxNinstance), source=0_pInt)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(QedgePerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(v0PerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(tau_peierlsPerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(pPerSlipFamily(lattice_maxNslipFamily,maxNinstance),source=0.0_pReal)
allocate(qPerSlipFamily(lattice_maxNslipFamily,maxNinstance),source=0.0_pReal)
allocate(Ndot0PerTwinFamily(lattice_maxNtwinFamily,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(Ndot0PerTransFamily(lattice_maxNtransFamily,maxNinstance), &
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(twinsizePerTwinFamily(lattice_maxNtwinFamily,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(CLambdaSlipPerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(rPerTwinFamily(lattice_maxNtwinFamily,maxNinstance),source=0.0_pReal)
allocate(interaction_SlipSlip(lattice_maxNinteraction,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_SlipTwin(lattice_maxNinteraction,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_TwinSlip(lattice_maxNinteraction,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_TwinTwin(lattice_maxNinteraction,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_SlipTrans(lattice_maxNinteraction,maxNinstance), &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_TransSlip(lattice_maxNinteraction,maxNinstance), &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interaction_TransTrans(lattice_maxNinteraction,maxNinstance), &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(sbSv(6,6,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(lamellarsizePerTransFamily(lattice_maxNtransFamily,maxNinstance), &
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(sPerTransFamily(lattice_maxNtransFamily,maxNinstance),source=0.0_pReal)
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
do phase = 1_pInt, size(phase_plasticityInstance)
if (phase_plasticity(phase) == PLASTICITY_DISLOTWIN_ID) then
instance = phase_plasticityInstance(phase)
prm => param(instance)
prm%Nslip = phaseConfig(phase)%getInts('nslip',defaultVal=emptyInt)
!if (size > Nchunks_SlipFamilies + 1_pInt) call IO_error(150_pInt,ext_msg=extmsg)
if (sum(prm%Nslip) > 0_pInt) then
prm%rho0 = phaseConfig(phase)%getFloats('rhoedge0')
prm%rhoDip0 = phaseConfig(phase)%getFloats('rhoedgedip0')
prm%burgers_slip = phaseConfig(phase)%getFloats('slipburgers')
prm%aTolRho = phaseConfig(phase)%getFloat('atol_rho')
prm%CEdgeDipMinDistance = phaseConfig(phase)%getFloat('cedgedipmindistance')
endif
prm%Ntwin = phaseConfig(phase)%getInts('ntwin', defaultVal=emptyInt)
!if (size > Nchunks_SlipFamilies + 1_pInt) call IO_error(150_pInt,ext_msg=extmsg)
if (sum(prm%Ntwin) > 0_pInt) then
prm%burgers_twin = phaseConfig(phase)%getFloats('twinburgers')
prm%xc_twin = phaseConfig(phase)%getFloat('xc_twin')
prm%aTolTwinFrac = phaseConfig(phase)%getFloat('atol_twinfrac')
prm%L0_twin = phaseConfig(phase)%getFloat('l0_twin')
endif
prm%Ntrans = phaseConfig(phase)%getInts('ntrans', defaultVal=emptyInt)
!if (size > Nchunks_SlipFamilies + 1_pInt) call IO_error(150_pInt,ext_msg=extmsg)
if (sum(prm%Ntrans) > 0_pInt) then
prm%burgers_trans = phaseConfig(phase)%getFloats('transburgers')
prm%Cthresholdtrans = phaseConfig(phase)%getFloat('cthresholdtrans', defaultVal=0.0_pReal) ! ToDo: How to handle that???
prm%transStackHeight = phaseConfig(phase)%getFloat('transstackheight', defaultVal=0.0_pReal) ! ToDo: How to handle that???
prm%Cmfptrans = phaseConfig(phase)%getFloat('cmfptrans', defaultVal=0.0_pReal) ! ToDo: How to handle that???
prm%deltaG = phaseConfig(phase)%getFloat('deltag')
prm%xc_trans = phaseConfig(phase)%getFloat('xc_trans', defaultVal=0.0_pReal) ! ToDo: How to handle that???
prm%L0_trans = phaseConfig(phase)%getFloat('l0_trans')
prm%aTolTransFrac = phaseConfig(phase)%getFloat('atol_transfrac')
endif
if (sum(prm%Ntwin) > 0_pInt .or. sum(prm%Ntrans) > 0_pInt) then
prm%SFE_0K = phaseConfig(phase)%getFloat('sfe_0k')
prm%dSFE_dT = phaseConfig(phase)%getFloat('dsfe_dt')
prm%VcrossSlip = phaseConfig(phase)%getFloat('vcrossslip')
endif
prm%sbResistance = phaseConfig(phase)%getFloat('shearbandresistance',defaultVal=0.0_pReal)
prm%sbVelocity = phaseConfig(phase)%getFloat('shearbandvelocity',defaultVal=0.0_pReal)
prm%CAtomicVolume = phaseConfig(phase)%getFloat('catomicvolume')
prm%GrainSize = phaseConfig(phase)%getFloat('grainsize')
prm%MaxTwinFraction = phaseConfig(phase)%getFloat('maxtwinfraction') ! ToDo: only used in postResults
prm%pShearBand = phaseConfig(phase)%getFloat('p_shearband')
prm%qShearBand = phaseConfig(phase)%getFloat('q_shearband')
prm%D0 = phaseConfig(phase)%getFloat('d0')
prm%Qsd = phaseConfig(phase)%getFloat('qsd')
prm%SolidSolutionStrength = phaseConfig(phase)%getFloat('solidsolutionstrength')
prm%dipoleFormationFactor= phaseConfig(phase)%getFloat('dipoleformationfactor', defaultVal=0.0_pReal) ! ToDo: How to handle that???
prm%sbQedge = phaseConfig(phase)%getFloat('qedgepersbsystem')
! case ('p_shearband')
! prm%pShearBand = IO_floatValue(line,chunkPos,2_pInt)
! case ('q_shearband')
! prm%qShearBand = IO_floatValue(line,chunkPos,2_pInt)
! case ('d0')
! prm%D0 = IO_floatValue(line,chunkPos,2_pInt)
! case ('qsd')
! prm%Qsd = IO_floatValue(line,chunkPos,2_pInt)
! case ('atol_twinfrac')
! prm%aTolTwinFrac = IO_floatValue(line,chunkPos,2_pInt)
! case ('atol_transfrac')
! prm%aTolTransFrac = IO_floatValue(line,chunkPos,2_pInt)
! case ('solidsolutionstrength')
! prm%SolidSolutionStrength = IO_floatValue(line,chunkPos,2_pInt)
! case ('l0_twin')
! prm%L0_twin = IO_floatValue(line,chunkPos,2_pInt)
! case ('vcrossslip')
! prm%VcrossSlip = IO_floatValue(line,chunkPos,2_pInt)
! case ('cedgedipmindistance')
! prm%CEdgeDipMinDistance = IO_floatValue(line,chunkPos,2_pInt)
! case ('sfe_0k')
! prm%SFE_0K = IO_floatValue(line,chunkPos,2_pInt)
! case ('dsfe_dt')
! prm%dSFE_dT = IO_floatValue(line,chunkPos,2_pInt)
! case ('dipoleformationfactor')
! prm%dipoleFormationFactor = IO_floatValue(line,chunkPos,2_pInt)
! case ('qedgepersbsystem')
! prm%sbQedge = IO_floatValue(line,chunkPos,2_pInt)
outputs = phaseConfig(phase)%getStrings('(output)', defaultVal=emptyString)
allocate(prm%outputID(0))
do i= 1_pInt, size(outputs)
outputID = undefined_ID
select case(outputs(i))
case ('edge_density')
outputID = edge_density_ID
outputSize = sum(prm%Nslip)
case ('dipole_density')
outputID = dipole_density_ID
outputSize = sum(prm%Nslip)
case ('shear_rate_slip','shearrate_slip')
outputID = shear_rate_slip_ID
outputSize = sum(prm%Nslip)
case ('accumulated_shear_slip')
outputID = accumulated_shear_slip_ID
outputSize = sum(prm%Nslip)
case ('mfp_slip')
outputID = mfp_slip_ID
outputSize = sum(prm%Nslip)
case ('resolved_stress_slip')
outputID = resolved_stress_slip_ID
outputSize = sum(prm%Nslip)
case ('threshold_stress_slip')
outputID= threshold_stress_slip_ID
outputSize = sum(prm%Nslip)
case ('edge_dipole_distance')
outputID = edge_dipole_distance_ID
outputSize = sum(prm%Nslip)
case ('stress_exponent')
outputID = stress_exponent_ID
outputSize = sum(prm%Nslip)
case ('twin_fraction')
outputID = twin_fraction_ID
outputSize = sum(prm%Ntwin)
case ('shear_rate_twin','shearrate_twin')
outputID= shear_rate_twin_ID
outputSize = sum(prm%Ntwin)
case ('accumulated_shear_twin')
outputID = accumulated_shear_twin_ID
outputSize = sum(prm%Ntwin)
case ('mfp_twin')
outputID = mfp_twin_ID
outputSize = sum(prm%Ntwin)
case ('resolved_stress_twin')
outputID = resolved_stress_twin_ID
outputSize = sum(prm%Ntwin)
case ('threshold_stress_twin')
outputID = threshold_stress_twin_ID
outputSize = sum(prm%Ntwin)
case ('resolved_stress_shearband')
outputID = resolved_stress_shearband_ID
outputSize = 6_pInt
case ('shear_rate_shearband','shearrate_shearband')
outputID = shear_rate_shearband_ID
outputSize = 6_pInt
case ('sb_eigenvalues')
outputID = sb_eigenvalues_ID
outputSize = 3_pInt
case ('sb_eigenvectors')
outputID = sb_eigenvectors_ID
outputSize = 3_pInt
case ('stress_trans_fraction')
outputID = stress_trans_fraction_ID
outputSize = sum(prm%Ntrans)
case ('strain_trans_fraction')
outputID = strain_trans_fraction_ID
outputSize = sum(prm%Ntrans)
case ('trans_fraction','total_trans_fraction')
outputID = trans_fraction_ID
outputSize = sum(prm%Ntrans)
end select
if (outputID /= undefined_ID) then
plastic_dislotwin_output(i,instance) = outputs(i)
plastic_dislotwin_sizePostResult(i,instance) = outputSize
prm%outputID = [prm%outputID , outputID]
endif
enddo
endif
enddo
introduced named constants for homogenization_type, phase_plasticitiy, and phase_elasticity to replace expensive string comparison. Labels for different schemes need to be stored in material.f90 because they are needed when parsing the config file
2013-11-27 13:34:05 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
rewind(fileUnit)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
phase = 0_pInt
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= MATERIAL_partPhase) ! wind forward to <phase>
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
line = IO_read(fileUnit)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
parsingFile: do while (trim(line) /= IO_EOF) ! read through sections of phase part
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
line = IO_read(fileUnit)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
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
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
exit
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
if (IO_getTag(line,'[',']') /= '') then ! next phase section
phase = phase + 1_pInt ! advance phase section counter
if (phase_plasticity(phase) == PLASTICITY_DISLOTWIN_ID) then
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
instance = phase_plasticityInstance(phase)
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
Nchunks_SlipFamilies = count(lattice_NslipSystem(:,phase) > 0_pInt)
Nchunks_TwinFamilies = count(lattice_NtwinSystem(:,phase) > 0_pInt)
Nchunks_TransFamilies = count(lattice_NtransSystem(:,phase)> 0_pInt)
Nchunks_SlipSlip = maxval(lattice_interactionSlipSlip(:,:,phase))
Nchunks_SlipTwin = maxval(lattice_interactionSlipTwin(:,:,phase))
Nchunks_TwinSlip = maxval(lattice_interactionTwinSlip(:,:,phase))
Nchunks_TwinTwin = maxval(lattice_interactionTwinTwin(:,:,phase))
Nchunks_SlipTrans = maxval(lattice_interactionSlipTrans(:,:,phase))
Nchunks_TransSlip = maxval(lattice_interactionTransSlip(:,:,phase))
Nchunks_TransTrans = maxval(lattice_interactionTransTrans(:,:,phase))
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if(allocated(tempPerSlip)) deallocate(tempPerSlip)
if(allocated(tempPerTwin)) deallocate(tempPerTwin)
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
if(allocated(tempPerTrans)) deallocate(tempPerTrans)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
allocate(tempPerSlip(Nchunks_SlipFamilies))
allocate(tempPerTwin(Nchunks_TwinFamilies))
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
allocate(tempPerTrans(Nchunks_TransFamilies))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
endif
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
cycle ! skip to next line
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
endif
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
if (phase > 0_pInt ) then; if (phase_plasticity(phase) == PLASTICITY_DISLOTWIN_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
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
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
select case(tag)
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
!--------------------------------------------------------------------------------------------------
some minor polishing on the way
2014-04-04 20:10:30 +05:30
! parameters depending on number of slip system families
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
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) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_warning(50_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(150_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
do j = 1_pInt, Nchunks_SlipFamilies
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
Nslip(j,instance) = IO_intValue(line,chunkPos,1_pInt+j)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
case ('qedge','v0','clambdaslip','tau_peierls','p_slip','q_slip')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +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)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
select case(tag)
case ('qedge')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
QedgePerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('v0')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('clambdaslip')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
CLambdaSlipPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('tau_peierls')
if (lattice_structure(phase) /= LATTICE_bcc_ID) &
call IO_warning(42_pInt,ext_msg=trim(tag)//' for non-bcc ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('p_slip')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
pPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('q_slip')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
qPerSlipFamily(1:Nchunks_SlipFamilies,instance) = tempPerSlip(1:Nchunks_SlipFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
end select
!--------------------------------------------------------------------------------------------------
! parameters depending on slip number of twin families
case ('ntwin')
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_TwinFamilies + 1_pInt) &
fixed warning message in constitutive
2014-06-17 20:54:44 +05:30
call IO_warning(51_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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_TwinFamilies + 1_pInt) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(150_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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_TwinFamilies = chunkPos(1) - 1_pInt
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
do j = 1_pInt, Nchunks_TwinFamilies
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
Ntwin(j,instance) = IO_intValue(line,chunkPos,1_pInt+j)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
case ('ndot0_twin','twinsize','twinburgers','r_twin')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
do j = 1_pInt, Nchunks_TwinFamilies
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
tempPerTwin(j) = IO_floatValue(line,chunkPos,1_pInt+j)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
select case(tag)
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
case ('ndot0_twin')
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if (lattice_structure(phase) == LATTICE_fcc_ID) &
call IO_warning(42_pInt,ext_msg=trim(tag)//' for fcc ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0PerTwinFamily(1:Nchunks_TwinFamilies,instance) = tempPerTwin(1:Nchunks_TwinFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('twinsize')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
twinsizePerTwinFamily(1:Nchunks_TwinFamilies,instance) = tempPerTwin(1:Nchunks_TwinFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
case ('r_twin')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
rPerTwinFamily(1:Nchunks_TwinFamilies,instance) = tempPerTwin(1:Nchunks_TwinFamilies)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
end select
some minor polishing on the way
2014-04-04 20:10:30 +05:30
!--------------------------------------------------------------------------------------------------
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
! parameters depending on number of transformation system families
case ('ntrans')
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_TransFamilies + 1_pInt) &
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
call IO_warning(53_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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_TransFamilies + 1_pInt) &
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
call IO_error(150_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_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_TransFamilies = chunkPos(1) - 1_pInt
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
do j = 1_pInt, Nchunks_TransFamilies
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
Ntrans(j,instance) = IO_intValue(line,chunkPos,1_pInt+j)
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
enddo
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
case ('ndot0_trans','lamellarsize','transburgers','s_trans')
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
do j = 1_pInt, Nchunks_TransFamilies
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
tempPerTrans(j) = IO_floatValue(line,chunkPos,1_pInt+j)
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
enddo
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
select case(tag)
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
case ('ndot0_trans')
if (lattice_structure(phase) == LATTICE_fcc_ID) &
call IO_warning(42_pInt,ext_msg=trim(tag)//' for fcc ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0PerTransFamily(1:Nchunks_TransFamilies,instance) = tempPerTrans(1:Nchunks_TransFamilies)
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
case ('lamellarsize')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
lamellarsizePerTransFamily(1:Nchunks_TransFamilies,instance) = tempPerTrans(1:Nchunks_TransFamilies)
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
case ('s_trans')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
sPerTransFamily(1:Nchunks_TransFamilies,instance) = tempPerTrans(1:Nchunks_TransFamilies)
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
end select
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
!--------------------------------------------------------------------------------------------------
some minor polishing on the way
2014-04-04 20:10:30 +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) &
some minor polishing on the way
2014-04-04 20:10:30 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_SlipSlip
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_SlipSlip(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
some minor polishing on the way
2014-04-04 20:10:30 +05:30
enddo
case ('interaction_sliptwin','interactionsliptwin')
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_SlipTwin) &
some minor polishing on the way
2014-04-04 20:10:30 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_SlipTwin
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_SlipTwin(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
some minor polishing on the way
2014-04-04 20:10:30 +05:30
enddo
case ('interaction_twinslip','interactiontwinslip')
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_TwinSlip) &
some minor polishing on the way
2014-04-04 20:10:30 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_TwinSlip
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_TwinSlip(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
some minor polishing on the way
2014-04-04 20:10:30 +05:30
enddo
case ('interaction_twintwin','interactiontwintwin')
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_TwinTwin) &
some minor polishing on the way
2014-04-04 20:10:30 +05:30
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_TwinTwin
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_TwinTwin(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
some minor polishing on the way
2014-04-04 20:10:30 +05:30
enddo
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
case ('interaction_sliptrans','interactionsliptrans')
if (chunkPos(1) < 1_pInt + Nchunks_SlipTrans) &
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_SlipTrans
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_SlipTrans(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
enddo
case ('interaction_transslip','interactiontransslip')
if (chunkPos(1) < 1_pInt + Nchunks_TransSlip) &
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_TransSlip
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_TransSlip(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
enddo
case ('interaction_transtrans','interactiontranstrans')
if (chunkPos(1) < 1_pInt + Nchunks_TransTrans) &
call IO_warning(52_pInt,ext_msg=trim(tag)//' ('//PLASTICITY_DISLOTWIN_label//')')
do j = 1_pInt, Nchunks_TransTrans
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interaction_TransTrans(j,instance) = IO_floatValue(line,chunkPos,1_pInt+j)
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
enddo
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
end select
endif; endif
enddo parsingFile
sanityChecks: do phase = 1_pInt, size(phase_plasticity)
myPhase: if (phase_plasticity(phase) == PLASTICITY_dislotwin_ID) then
instance = phase_plasticityInstance(phase)
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (sum(Nslip(:,instance)) < 0_pInt) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Nslip ('//PLASTICITY_DISLOTWIN_label//')')
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (sum(Ntwin(:,instance)) < 0_pInt) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Ntwin ('//PLASTICITY_DISLOTWIN_label//')')
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (sum(Ntrans(:,instance)) < 0_pInt) &
Tolerance for TRIP volume fraction
2014-10-23 19:21:18 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Ntrans ('//PLASTICITY_DISLOTWIN_label//')')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
do f = 1_pInt,lattice_maxNslipFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (Nslip(f,instance) > 0_pInt) then
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
! if (rhoEdge0(f,instance) < 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='rhoEdge0 ('//PLASTICITY_DISLOTWIN_label//')')
! if (rhoEdgeDip0(f,instance) < 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='rhoEdgeDip0 ('//PLASTICITY_DISLOTWIN_label//')')
! if (burgersPerSlipFamily(f,instance) <= 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='slipBurgers ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (v0PerSlipFamily(f,instance) <= 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='v0 ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau_peierlsPerSlipFamily(f,instance) < 0.0_pReal) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='tau_peierls ('//PLASTICITY_DISLOTWIN_label//')')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
enddo
do f = 1_pInt,lattice_maxNtwinFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (Ntwin(f,instance) > 0_pInt) then
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
! if (burgersPerTwinFamily(f,instance) <= 0.0_pReal) &
! call IO_error(211_pInt,el=instance,ext_msg='twinburgers ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (Ndot0PerTwinFamily(f,instance) < 0.0_pReal) &
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
call IO_error(211_pInt,el=instance,ext_msg='ndot0_twin ('//PLASTICITY_DISLOTWIN_label//')')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
enddo
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (param(instance)%CAtomicVolume <= 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='cAtomicVolume ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (param(instance)%D0 <= 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='D0 ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (param(instance)%Qsd <= 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='Qsd ('//PLASTICITY_DISLOTWIN_label//')')
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (sum(Ntwin(:,instance)) > 0_pInt) then
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (dEq0(param(instance)%SFE_0K) .and. &
dEq0(param(instance)%dSFE_dT) .and. &
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
lattice_structure(phase) == LATTICE_fcc_ID) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%aTolRho <= 0.0_pReal) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='aTolRho ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%aTolTwinFrac <= 0.0_pReal) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='aTolTwinFrac ('//PLASTICITY_DISLOTWIN_label//')')
endif
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
if (sum(Ntrans(:,instance)) > 0_pInt) then
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (dEq0(param(instance)%SFE_0K) .and. &
dEq0(param(instance)%dSFE_dT) .and. &
Sanity checks for SFE
2015-07-08 21:07:16 +05:30
lattice_structure(phase) == LATTICE_fcc_ID) &
call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%aTolTransFrac <= 0.0_pReal) &
Tolerance for TRIP volume fraction
2014-10-23 19:21:18 +05:30
call IO_error(211_pInt,el=instance,ext_msg='aTolTransFrac ('//PLASTICITY_DISLOTWIN_label//')')
endif
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
if (param(instance)%sbResistance < 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='sbResistance ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%sbVelocity < 0.0_pReal) &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
call IO_error(211_pInt,el=instance,ext_msg='sbVelocity ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%sbVelocity > 0.0_pReal .and. &
param(instance)%pShearBand <= 0.0_pReal) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='pShearBand ('//PLASTICITY_DISLOTWIN_label//')')
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
if (dNeq0(param(instance)%dipoleFormationFactor) .and. &
dNeq(param(instance)%dipoleFormationFactor, 1.0_pReal)) &
added parameter to dislotwin 'dipoleformationfactor'. set it to 0.0 to turn hardening due to dipole formation off (like in the updated tungsten example). standard behavior (e.g. a value of 1) is recovered if no value is given
2014-03-14 05:20:55 +05:30
call IO_error(211_pInt,el=instance,ext_msg='dipoleFormationFactor ('//PLASTICITY_DISLOTWIN_label//')')
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
if (param(instance)%sbVelocity > 0.0_pReal .and. &
param(instance)%qShearBand <= 0.0_pReal) &
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
call IO_error(211_pInt,el=instance,ext_msg='qShearBand ('//PLASTICITY_DISLOTWIN_label//')')
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!--------------------------------------------------------------------------------------------------
! Determine total number of active slip or twin systems
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
Nslip(:,instance) = min(lattice_NslipSystem(:,phase),Nslip(:,instance))
Ntwin(:,instance) = min(lattice_NtwinSystem(:,phase),Ntwin(:,instance))
Ntrans(:,instance)= min(lattice_NtransSystem(:,phase),Ntrans(:,instance))
totalNslip(instance) = sum(Nslip(:,instance))
totalNtwin(instance) = sum(Ntwin(:,instance))
totalNtrans(instance) = sum(Ntrans(:,instance))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif myPhase
enddo sanityChecks
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!--------------------------------------------------------------------------------------------------
! allocation of variables whose size depends on the total number of active slip systems
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
maxTotalNslip = maxval(totalNslip)
maxTotalNtwin = maxval(totalNtwin)
maxTotalNtrans = maxval(totalNtrans)
allocate(QedgePerSlipSystem(maxTotalNslip, maxNinstance), source=0.0_pReal)
allocate(v0PerSlipSystem(maxTotalNslip, maxNinstance), source=0.0_pReal)
allocate(Ndot0PerTwinSystem(maxTotalNtwin, maxNinstance), source=0.0_pReal)
allocate(Ndot0PerTransSystem(maxTotalNtrans, maxNinstance), source=0.0_pReal)
allocate(tau_r_twin(maxTotalNtwin, maxNinstance), source=0.0_pReal)
allocate(tau_r_trans(maxTotalNtrans, maxNinstance), source=0.0_pReal)
allocate(twinsizePerTwinSystem(maxTotalNtwin, maxNinstance), source=0.0_pReal)
allocate(CLambdaSlipPerSlipSystem(maxTotalNslip, maxNinstance),source=0.0_pReal)
allocate(lamellarsizePerTransSystem(maxTotalNtrans, maxNinstance),source=0.0_pReal)
allocate(interactionMatrix_SlipSlip(maxval(totalNslip),& ! slip resistance from slip activity
maxval(totalNslip),&
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_SlipTwin(maxval(totalNslip),& ! slip resistance from twin activity
maxval(totalNtwin),&
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_TwinSlip(maxval(totalNtwin),& ! twin resistance from slip activity
maxval(totalNslip),&
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_TwinTwin(maxval(totalNtwin),& ! twin resistance from twin activity
maxval(totalNtwin),&
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_SlipTrans(maxval(totalNslip),& ! slip resistance from trans activity
maxval(totalNtrans),&
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_TransSlip(maxval(totalNtrans),& ! trans resistance from slip activity
maxval(totalNslip),&
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(interactionMatrix_TransTrans(maxval(totalNtrans),& ! trans resistance from trans activity
maxval(totalNtrans),&
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
maxNinstance), source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(forestProjectionEdge(maxTotalNslip,maxTotalNslip,maxNinstance), &
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(projectionMatrix_Trans(maxTotalNtrans,maxTotalNslip,maxNinstance), &
Projection matrices for transformation
2014-09-24 18:01:16 +05:30
source=0.0_pReal)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
allocate(Ctwin66(6,6,maxTotalNtwin,maxNinstance), source=0.0_pReal)
allocate(Ctwin3333(3,3,3,3,maxTotalNtwin,maxNinstance), source=0.0_pReal)
allocate(Ctrans66(6,6,maxTotalNtrans,maxNinstance), source=0.0_pReal)
allocate(Ctrans3333(3,3,3,3,maxTotalNtrans,maxNinstance), source=0.0_pReal)
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
allocate(state(maxNinstance))
allocate(state0(maxNinstance))
allocate(dotState(maxNinstance))
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
initializeInstances: do phase = 1_pInt, size(phase_plasticity)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
myPhase2: if (phase_plasticity(phase) == PLASTICITY_dislotwin_ID) then
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
NofMyPhase=count(material_phase==phase)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
instance = phase_plasticityInstance(phase)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!--------------------------------------------------------------------------------------------------
! Determine size of postResults array
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
outputsLoop: do o = 1_pInt,plastic_dislotwin_Noutput(instance)
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
select case(param(instance)%outputID(o))
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +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 &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize = ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case(twin_fraction_ID, &
shear_rate_twin_ID, &
accumulated_shear_twin_ID, &
mfp_twin_ID, &
resolved_stress_twin_ID, &
threshold_stress_twin_ID &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize = nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case(resolved_stress_shearband_ID, &
shear_rate_shearband_ID &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize = 6_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case(sb_eigenvalues_ID)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize = 3_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case(sb_eigenvectors_ID)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize = 9_pInt
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
case(stress_trans_fraction_ID, &
strain_trans_fraction_ID, &
trans_fraction_ID &
)
mySize = nr
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
end select
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
if (mySize > 0_pInt) then ! any meaningful output found
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_sizePostResult(o,instance) = mySize
plastic_dislotwin_sizePostResults(instance) = plastic_dislotwin_sizePostResults(instance) + mySize
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
enddo outputsLoop
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
!--------------------------------------------------------------------------------------------------
! allocate state arrays
removing code fragments after introducing pointer state
2015-12-16 11:45:21 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
sizeDotState = int(size(['rho ','rhoDip ','accshearslip']),pInt) * ns &
removing code fragments after introducing pointer state
2015-12-16 11:45:21 +05:30
+ int(size(['twinFraction','accsheartwin']),pInt) * nt &
+ int(size(['stressTransFraction','strainTransFraction']),pInt) * nr
sizeDeltaState = 0_pInt
sizeState = sizeDotState &
+ int(size(['invLambdaSlip ','invLambdaSlipTwin ','invLambdaSlipTrans',&
'meanFreePathSlip ','tauSlipThreshold ']),pInt) * ns &
+ int(size(['invLambdaTwin ','meanFreePathTwin','tauTwinThreshold',&
'twinVolume ']),pInt) * nt &
+ int(size(['invLambdaTrans ','meanFreePathTrans','tauTransThreshold', &
'martensiteVolume ']),pInt) * nr
prepared new State for dislotwin
2014-06-11 17:41:14 +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
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plasticState(phase)%sizePostResults = plastic_dislotwin_sizePostResults(instance)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
plasticState(phase)%nSlip = totalNslip(instance)
plasticState(phase)%nTwin = totalNtwin(instance)
plasticState(phase)%nTrans= totalNtrans(instance)
prepared new State for dislotwin
2014-06-11 17:41:14 +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)
prepared new State for dislotwin
2014-06-11 17:41:14 +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)
Making use of extended plastic state with pointers, removed helper functions.
2015-01-05 00:56:33 +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)
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm%burgers_slip = math_expand(prm%burgers_slip,Nslip(:,instance))
prm%burgers_twin = math_expand(prm%burgers_twin,Ntwin(:,instance))
prm%burgers_trans = math_expand(prm%burgers_trans,Ntrans(:,instance))
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
!* Process slip related parameters ------------------------------------------------
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
slipFamiliesLoop: do f = 1_pInt,lattice_maxNslipFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_myFamily = sum(Nslip(1:f-1_pInt,instance)) ! index in truncated slip system list
slipSystemsLoop: do j = 1_pInt,Nslip(f,instance)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
!* Burgers vector,
! dislocation velocity prefactor,
! mean free path prefactor,
! and minimum dipole distance
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
QedgePerSlipSystem(index_myFamily+j,instance) = &
QedgePerSlipFamily(f,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(index_myFamily+j,instance) = &
v0PerSlipFamily(f,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
CLambdaSlipPerSlipSystem(index_myFamily+j,instance) = &
CLambdaSlipPerSlipFamily(f,instance)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Calculation of forest projections for edge dislocations
!* Interaction matrices
do o = 1_pInt,lattice_maxNslipFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Nslip(1:o-1_pInt,instance))
do k = 1_pInt,Nslip(o,instance) ! loop over (active) systems in other family (slip)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
forestProjectionEdge(index_myFamily+j,index_otherFamily+k,instance) = &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +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)))
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_SlipSlip(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_SlipSlip(lattice_interactionSlipSlip( &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
sum(lattice_NslipSystem(1:f-1,phase))+j, &
sum(lattice_NslipSystem(1:o-1,phase))+k, &
phase), instance )
enddo; enddo
do o = 1_pInt,lattice_maxNtwinFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Ntwin(1:o-1_pInt,instance))
do k = 1_pInt,Ntwin(o,instance) ! loop over (active) systems in other family (twin)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_SlipTwin(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_SlipTwin(lattice_interactionSlipTwin( &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
sum(lattice_NslipSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NtwinSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
do o = 1_pInt,lattice_maxNtransFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Ntrans(1:o-1_pInt,instance))
do k = 1_pInt,Ntrans(o,instance) ! loop over (active) systems in other family (trans)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_SlipTrans(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_SlipTrans(lattice_interactionSlipTrans( &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
sum(lattice_NslipSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NtransSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo slipSystemsLoop
enddo slipFamiliesLoop
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Process twin related parameters ------------------------------------------------
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
twinFamiliesLoop: do f = 1_pInt,lattice_maxNtwinFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_myFamily = sum(Ntwin(1:f-1_pInt,instance)) ! index in truncated twin system list
twinSystemsLoop: do j = 1_pInt,Ntwin(f,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
! nucleation rate prefactor,
! and twin size
renamed instance consistently to "instance" as a preparation for new structure / elastic matrix handling
2014-02-28 15:48:40 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0PerTwinSystem(index_myFamily+j,instance) = &
Ndot0PerTwinFamily(f,instance)
renamed instance consistently to "instance" as a preparation for new structure / elastic matrix handling
2014-02-28 15:48:40 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
twinsizePerTwinSystem(index_myFamily+j,instance) = &
twinsizePerTwinFamily(f,instance)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Rotate twin elasticity matrices
index_otherFamily = sum(lattice_NtwinSystem(1:f-1_pInt,phase)) ! index in full lattice twin list
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
do l = 1_pInt,3_pInt; do m = 1_pInt,3_pInt; do n = 1_pInt,3_pInt; do o = 1_pInt,3_pInt
do p = 1_pInt,3_pInt; do q = 1_pInt,3_pInt; do r = 1_pInt,3_pInt; do s = 1_pInt,3_pInt
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctwin3333(l,m,n,o,index_myFamily+j,instance) = &
Ctwin3333(l,m,n,o,index_myFamily+j,instance) + &
debug corrected index for stiffness tensor, phase not instance
2017-12-19 10:29:10 +05:30
lattice_C3333(p,q,r,s,phase) * &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
lattice_Qtwin(l,p,index_otherFamily+j,phase) * &
lattice_Qtwin(m,q,index_otherFamily+j,phase) * &
lattice_Qtwin(n,r,index_otherFamily+j,phase) * &
lattice_Qtwin(o,s,index_otherFamily+j,phase)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
enddo; enddo; enddo; enddo
enddo; enddo; enddo; enddo
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctwin66(1:6,1:6,index_myFamily+j,instance) = &
math_Mandel3333to66(Ctwin3333(1:3,1:3,1:3,1:3,index_myFamily+j,instance))
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Interaction matrices
do o = 1_pInt,lattice_maxNslipFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Nslip(1:o-1_pInt,instance))
do k = 1_pInt,Nslip(o,instance) ! loop over (active) systems in other family (slip)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_TwinSlip(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_TwinSlip(lattice_interactionTwinSlip( &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
sum(lattice_NtwinSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NslipSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
do o = 1_pInt,lattice_maxNtwinFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Ntwin(1:o-1_pInt,instance))
do k = 1_pInt,Ntwin(o,instance) ! loop over (active) systems in other family (twin)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_TwinTwin(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_TwinTwin(lattice_interactionTwinTwin( &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
sum(lattice_NtwinSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NtwinSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
enddo twinSystemsLoop
enddo twinFamiliesLoop
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
!* Process transformation related parameters ------------------------------------------------
transFamiliesLoop: do f = 1_pInt,lattice_maxNtransFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_myFamily = sum(Ntrans(1:f-1_pInt,instance)) ! index in truncated trans system list
transSystemsLoop: do j = 1_pInt,Ntrans(f,instance)
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
!* Burgers vector,
! nucleation rate prefactor,
! and martensite size
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0PerTransSystem(index_myFamily+j,instance) = &
Ndot0PerTransFamily(f,instance)
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
lamellarsizePerTransSystem(index_myFamily+j,instance) = &
lamellarsizePerTransFamily(f,instance)
TRIP input parameters for fcc to hex
2015-07-10 14:32:48 +05:30
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
!* Rotate trans elasticity matrices
index_otherFamily = sum(lattice_NtransSystem(1:f-1_pInt,phase)) ! index in full lattice trans list
do l = 1_pInt,3_pInt; do m = 1_pInt,3_pInt; do n = 1_pInt,3_pInt; do o = 1_pInt,3_pInt
do p = 1_pInt,3_pInt; do q = 1_pInt,3_pInt; do r = 1_pInt,3_pInt; do s = 1_pInt,3_pInt
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctrans3333(l,m,n,o,index_myFamily+j,instance) = &
Ctrans3333(l,m,n,o,index_myFamily+j,instance) + &
debug corrected index for stiffness tensor, phase not instance
2017-12-19 10:29:10 +05:30
lattice_trans_C3333(p,q,r,s,phase) * &
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
lattice_Qtrans(l,p,index_otherFamily+j,phase) * &
lattice_Qtrans(m,q,index_otherFamily+j,phase) * &
lattice_Qtrans(n,r,index_otherFamily+j,phase) * &
lattice_Qtrans(o,s,index_otherFamily+j,phase)
enddo; enddo; enddo; enddo
enddo; enddo; enddo; enddo
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctrans66(1:6,1:6,index_myFamily+j,instance) = &
math_Mandel3333to66(Ctrans3333(1:3,1:3,1:3,1:3,index_myFamily+j,instance))
Projection matrices for transformation
2014-09-24 18:01:16 +05:30
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
!* Interaction matrices
do o = 1_pInt,lattice_maxNslipFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Nslip(1:o-1_pInt,instance))
do k = 1_pInt,Nslip(o,instance) ! loop over (active) systems in other family (slip)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_TransSlip(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_TransSlip(lattice_interactionTransSlip( &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
sum(lattice_NtransSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NslipSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
do o = 1_pInt,lattice_maxNtransFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Ntrans(1:o-1_pInt,instance))
do k = 1_pInt,Ntrans(o,instance) ! loop over (active) systems in other family (trans)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_TransTrans(index_myFamily+j,index_otherFamily+k,instance) = &
interaction_TransTrans(lattice_interactionTransTrans( &
Added trans interaction matrices
2015-11-10 19:00:34 +05:30
sum(lattice_NtransSystem(1:f-1_pInt,phase))+j, &
sum(lattice_NtransSystem(1:o-1_pInt,phase))+k, &
phase), instance )
enddo; enddo
!* Projection matrices for shear from slip systems to fault-band (twin) systems for strain-induced martensite nucleation
Elasticity matrices for transformed phase
2015-07-08 17:28:52 +05:30
select case(trans_lattice_structure(phase))
case (LATTICE_bcc_ID)
do o = 1_pInt,lattice_maxNtransFamily
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
index_otherFamily = sum(Nslip(1:o-1_pInt,instance))
do k = 1_pInt,Nslip(o,instance) ! loop over (active) systems in other family (trans)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
projectionMatrix_Trans(index_myFamily+j,index_otherFamily+k,instance) = &
Elasticity matrices for transformed phase
2015-07-08 17:28:52 +05:30
lattice_projectionTrans( sum(lattice_NtransSystem(1:f-1,phase))+j, &
sum(lattice_NslipSystem(1:o-1,phase))+k, phase)
enddo; enddo
end select
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
enddo transSystemsLoop
enddo transFamiliesLoop
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=1_pInt
endIndex=ns
Typo
2015-11-09 14:21:05 +05:30
state(instance)%rhoEdge=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%rhoEdge=>plasticState(phase)%dotState(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
spread(math_expand(prm%rho0,Nslip(instance,:)),2,NofMyPhase)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolRho
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
Typo
2015-11-09 14:21:05 +05:30
state(instance)%rhoEdgeDip=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%rhoEdgeDip=>plasticState(phase)%dotState(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
spread(math_expand(prm%rhoDip0,Nslip(instance,:)),2,NofMyPhase)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolRho
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%accshear_slip=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%accshear_slip=>plasticState(phase)%dotState(startIndex:endIndex,:)
1e-6 seems to be a more reasoable absolute tolerance for accumulated shear
2018-05-24 03:55:29 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = 1e-6_pReal
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
Consistent variable names
2015-11-10 18:31:03 +05:30
state(instance)%twinFraction=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%twinFraction=>plasticState(phase)%dotState(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolTwinFrac
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
state(instance)%accshear_twin=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%accshear_twin=>plasticState(phase)%dotState(startIndex:endIndex,:)
1e-6 seems to be a more reasoable absolute tolerance for accumulated shear
2018-05-24 03:55:29 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = 1e-6_pReal
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
Consistent variable names
2015-11-10 18:31:03 +05:30
state(instance)%stressTransFraction=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%stressTransFraction=>plasticState(phase)%dotState(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolTransFrac
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
Consistent variable names
2015-11-10 18:31:03 +05:30
state(instance)%strainTransFraction=>plasticState(phase)%state(startIndex:endIndex,:)
dotState(instance)%strainTransFraction=>plasticState(phase)%dotState(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolTransFrac
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%invLambdaSlip=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
invLambdaSlip0 = spread(0.0_pReal,1,ns)
forall (i = 1_pInt:ns) &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
invLambdaSlip0(i) = sqrt(dot_product(math_expand(prm%rho0,Nslip(instance,:))+ &
math_expand(prm%rhoDip0,Nslip(instance,:)),forestProjectionEdge(1:ns,i,instance)))/ &
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
CLambdaSlipPerSlipSystem(i,instance)
plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(math_expand(invLambdaSlip0,Nslip(instance,:)),2, NofMyPhase)
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%invLambdaSlipTwin=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
state(instance)%invLambdaTwin=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%invLambdaSlipTrans=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
state(instance)%invLambdaTrans=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%mfp_slip=>plasticState(phase)%state(startIndex:endIndex,:)
state0(instance)%mfp_slip=>plasticState(phase)%state0(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
MeanFreePathSlip0 = param(instance)%GrainSize/(1.0_pReal+invLambdaSlip0*param(instance)%GrainSize)
plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(math_expand(MeanFreePathSlip0,Nslip(instance,:)),2, NofMyPhase)
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
state(instance)%mfp_twin=>plasticState(phase)%state(startIndex:endIndex,:)
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
MeanFreePathTwin0 = spread(param(instance)%GrainSize,1,nt)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
spread(math_expand(MeanFreePathTwin0,Ntwin(instance,:)),2, NofMyPhase)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
state(instance)%mfp_trans=>plasticState(phase)%state(startIndex:endIndex,:)
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
MeanFreePathTrans0 = spread(param(instance)%GrainSize,1,nr)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
spread(math_expand(MeanFreePathTrans0,Ntrans(instance,:)),2, NofMyPhase)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+ns
state(instance)%threshold_stress_slip=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
tauSlipThreshold0 = spread(0.0_pReal,1,ns)
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
forall (i = 1_pInt:ns) tauSlipThreshold0(i) = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
lattice_mu(phase)*prm%burgers_slip(i) * &
sqrt(dot_product(math_expand(prm%rho0 + prm%rhoDip0,Nslip(instance,:)),&
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
interactionMatrix_SlipSlip(i,1:ns,instance)))
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(math_expand(tauSlipThreshold0,Nslip(instance,:)),2, NofMyPhase)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
state(instance)%threshold_stress_twin=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
state(instance)%threshold_stress_trans=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
startIndex=endIndex+1
endIndex=endIndex+nt
state(instance)%twinVolume=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
TwinVolume0= spread(0.0_pReal,1,nt)
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
forall (i = 1_pInt:nt) TwinVolume0(i) = &
(PI/4.0_pReal)*twinsizePerTwinSystem(i,instance)*MeanFreePathTwin0(i)**2.0_pReal
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(math_expand(TwinVolume0,Ntwin(instance,:)),2, NofMyPhase)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
startIndex=endIndex+1
endIndex=endIndex+nr
state(instance)%martensiteVolume=>plasticState(phase)%state(startIndex:endIndex,:)
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
MartensiteVolume0= spread(0.0_pReal,1,nr)
syntax errors detected by new GNU compiler
2018-05-22 23:29:05 +05:30
forall (i = 1_pInt:nr) MartensiteVolume0(i) = &
(PI/4.0_pReal)*lamellarsizePerTransSystem(i,instance)*MeanFreePathTrans0(i)**2.0_pReal
stateinit and atolState not needed
2018-05-17 23:02:41 +05:30
plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(math_expand(MartensiteVolume0,Ntrans(instance,:)),2, NofMyPhase)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
endif myPhase2
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo initializeInstances
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end subroutine plastic_dislotwin_init
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
updated to read in TRIP parameters
2014-07-22 13:13:03 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief returns the homogenized elasticity matrix
!--------------------------------------------------------------------------------------------------
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
function plastic_dislotwin_homogenizedC(ipc,ip,el)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use material, only: &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
phase_plasticityInstance, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
use lattice, only: &
lattice_C66
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
implicit none
real(pReal), dimension(6,6) :: &
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_homogenizedC
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
integer(pInt), intent(in) :: &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
integer(pInt) :: instance,ns,nt,nr,i, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
ph, &
of
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
real(pReal) :: sumf, sumftr
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance = phase_plasticityInstance(ph)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Total twin volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumf = sum(state(instance)%twinFraction(1_pInt:nt,of)) ! safe for nt == 0
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
!* Total transformed volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumftr = sum(state(instance)%stressTransFraction(1_pInt:nr,of)) + &
sum(state(instance)%strainTransFraction(1_pInt:nr,of))
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Homogenized elasticity matrix
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_homogenizedC = (1.0_pReal-sumf-sumftr)*lattice_C66(1:6,1:6,ph)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
do i=1_pInt,nt
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_homogenizedC = plastic_dislotwin_homogenizedC &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
+ state(instance)%twinFraction(i,of)*Ctwin66(1:6,1:6,i,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
do i=1_pInt,nr
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_homogenizedC = plastic_dislotwin_homogenizedC &
wrong state alias access
2016-02-01 16:11:39 +05:30
+ (state(instance)%stressTransFraction(i,of) + state(instance)%strainTransFraction(i,of))*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ctrans66(1:6,1:6,i,instance)
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
enddo
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end function plastic_dislotwin_homogenizedC
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state
!--------------------------------------------------------------------------------------------------
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use math, only: &
pi
use material, only: &
material_phase, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
phase_plasticityInstance, &
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
!plasticState, & !!!!delete
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
use lattice, only: &
lattice_mu, &
gfortran complaint about implicit casting,floating point comparison, and unused imported variables. additionally changed use of math_invert33 to math_inv33 if det is not needed
2015-04-11 00:39:26 +05:30
lattice_nu
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
integer(pInt) :: &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance, &
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
ns,nt,nr,s,t,r, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
ph, &
of
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
real(pReal) :: &
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
sumf,sfe,x0,sumftr
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: fOverStacksize
real(pReal), dimension(totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
ftransOverLamellarSize
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), pointer :: prm
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance = phase_plasticityInstance(ph)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm => param(instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Total twin volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumf = sum(state(instance)%twinFraction(1_pInt:nt,of)) ! safe for nt == 0
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
!* Total transformed volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumftr = sum(state(instance)%stressTransFraction(1_pInt:nr,of)) + &
sum(state(instance)%strainTransFraction(1_pInt:nr,of))
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Stacking fault energy
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
sfe = param(instance)%SFE_0K + &
param(instance)%dSFE_dT * Temperature
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* rescaled twin volume fraction for topology
forall (t = 1_pInt:nt) &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
fOverStacksize(t) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
state(instance)%twinFraction(t,of)/twinsizePerTwinSystem(t,instance)
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
!* rescaled trans volume fraction for topology
forall (r = 1_pInt:nr) &
ftransOverLamellarSize(r) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
(state(instance)%stressTransFraction(r,of)+state(instance)%strainTransFraction(r,of))/&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
lamellarsizePerTransSystem(r,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* 1/mean free distance between 2 forest dislocations seen by a moving dislocation
forall (s = 1_pInt:ns) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaSlip(s,of) = &
sqrt(dot_product((state(instance)%rhoEdge(1_pInt:ns,of)+state(instance)%rhoEdgeDip(1_pInt:ns,of)),&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
forestProjectionEdge(1:ns,s,instance)))/ &
CLambdaSlipPerSlipSystem(s,instance)
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* 1/mean free distance between 2 twin stacks from different systems seen by a moving dislocation
!$OMP CRITICAL (evilmatmul)
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaSlipTwin(1_pInt:ns,of) = 0.0_pReal
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
if (nt > 0_pInt .and. ns > 0_pInt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaSlipTwin(1_pInt:ns,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
matmul(interactionMatrix_SlipTwin(1:ns,1:nt,instance),fOverStacksize(1:nt))/(1.0_pReal-sumf)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!$OMP END CRITICAL (evilmatmul)
!* 1/mean free distance between 2 twin stacks from different systems seen by a growing twin
!$OMP CRITICAL (evilmatmul)
if (nt > 0_pInt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaTwin(1_pInt:nt,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
matmul(interactionMatrix_TwinTwin(1:nt,1:nt,instance),fOverStacksize(1:nt))/(1.0_pReal-sumf)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!$OMP END CRITICAL (evilmatmul)
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
!* 1/mean free distance between 2 martensite lamellar from different systems seen by a moving dislocation
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaSlipTrans(1_pInt:ns,of) = 0.0_pReal
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
if (nr > 0_pInt .and. ns > 0_pInt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaSlipTrans(1_pInt:ns,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
matmul(interactionMatrix_SlipTrans(1:ns,1:nr,instance),ftransOverLamellarSize(1:nr))/(1.0_pReal-sumftr)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
!* 1/mean free distance between 2 martensite stacks from different systems seen by a growing martensite (1/lambda_trans)
if (nr > 0_pInt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%invLambdaTrans(1_pInt:nr,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
matmul(interactionMatrix_TransTrans(1:nr,1:nr,instance),ftransOverLamellarSize(1:nr))/(1.0_pReal-sumftr)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* mean free path between 2 obstacles seen by a moving dislocation
do s = 1_pInt,ns
Added martensite lamellar term to mean free path of slip
2014-10-27 20:44:45 +05:30
if ((nt > 0_pInt) .or. (nr > 0_pInt)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_slip(s,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%GrainSize/(1.0_pReal+param(instance)%GrainSize*&
wrong state alias access
2016-02-01 16:11:39 +05:30
(state(instance)%invLambdaSlip(s,of) + &
state(instance)%invLambdaSlipTwin(s,of) + &
state(instance)%invLambdaSlipTrans(s,of)))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
else
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_slip(s,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%GrainSize/&
(1.0_pReal+param(instance)%GrainSize*(state(instance)%invLambdaSlip(s,of))) !!!!!! correct?
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
endif
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* mean free path between 2 obstacles seen by a growing twin
forall (t = 1_pInt:nt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_twin(t,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%Cmfptwin*param(instance)%GrainSize/&
(1.0_pReal+param(instance)%GrainSize*state(ph)%invLambdaTwin(t,of))
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
!* mean free path between 2 obstacles seen by a growing martensite
forall (r = 1_pInt:nr) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_trans(r,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%Cmfptrans*param(instance)%GrainSize/&
(1.0_pReal+param(instance)%GrainSize*state(instance)%invLambdaTrans(r,of))
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* threshold stress for dislocation motion
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
forall (s = 1_pInt:ns) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%threshold_stress_slip(s,of) = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
lattice_mu(ph)*prm%burgers_slip(s)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
sqrt(dot_product((state(instance)%rhoEdge(1_pInt:ns,of)+state(instance)%rhoEdgeDip(1_pInt:ns,of)),&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
interactionMatrix_SlipSlip(s,1:ns,instance)))
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* threshold stress for growing twin
forall (t = 1_pInt:nt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%threshold_stress_twin(t,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%Cthresholdtwin* &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(sfe/(3.0_pReal**prm%burgers_twin(t)) &
+ 3.0_pReal*prm%burgers_twin(t)*lattice_mu(ph)/&
(param(instance)%L0_twin*prm%burgers_slip(t)) &
div by zero in output
2016-01-07 17:18:30 +05:30
)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
!* threshold stress for growing martensite
forall (r = 1_pInt:nr) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%threshold_stress_trans(r,of) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%Cthresholdtrans* &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(sfe/(3.0_pReal*prm%burgers_trans(r)) &
+ 3.0_pReal*prm%burgers_trans(r)*lattice_mu(ph)/&
(param(instance)%L0_trans*prm%burgers_slip(r))&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
+ param(instance)%transStackHeight*param(instance)%deltaG/ &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(3.0_pReal*prm%burgers_trans(r)) &
div by zero in output
2016-01-07 17:18:30 +05:30
)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* final twin volume after growth
forall (t = 1_pInt:nt) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%twinVolume(t,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(pi/4.0_pReal)*twinsizePerTwinSystem(t,instance)*&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
state(instance)%mfp_twin(t,of)**2.0_pReal
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
!* final martensite volume after growth
forall (r = 1_pInt:nr) &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%martensiteVolume(r,of) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(pi/4.0_pReal)*lamellarsizePerTransSystem(r,instance)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_trans(r,of)**(2.0_pReal)
Added a few more trans dependent variables
2015-11-10 20:53:15 +05:30
Calculation of equilibrium separation of partials for twin and trans
2015-10-21 15:07:45 +05:30
!* equilibrium separation of partial dislocations (twin)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
do t = 1_pInt,nt
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
x0 = lattice_mu(ph)*prm%burgers_twin(t)**(2.0_pReal)/&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
(sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph))
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_r_twin(t,instance)= &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
lattice_mu(ph)*prm%burgers_twin(t)/(2.0_pReal*pi)*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1/(x0+param(instance)%xc_twin)+cos(pi/3.0_pReal)/x0)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Calculation of equilibrium separation of partials for twin and trans
2015-10-21 15:07:45 +05:30
!* equilibrium separation of partial dislocations (trans)
do r = 1_pInt,nr
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
x0 = lattice_mu(ph)*prm%burgers_trans(r)**(2.0_pReal)/&
Calculation of equilibrium separation of partials for twin and trans
2015-10-21 15:07:45 +05:30
(sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph))
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_r_trans(r,instance)= &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
lattice_mu(ph)*prm%burgers_trans(r)/(2.0_pReal*pi)*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1/(x0+param(instance)%xc_trans)+cos(pi/3.0_pReal)/x0)
Calculation of equilibrium separation of partials for twin and trans
2015-10-21 15:07:45 +05:30
enddo
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end subroutine plastic_dislotwin_microstructure
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature,ipc,ip,el)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use prec, only: &
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
tol_math_check, &
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
dNeq0
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use math, only: &
math_Plain3333to99, &
math_Mandel6to33, &
math_Mandel33to6, &
plasticity test (phenoplus) working again with changed polar decomposition
2016-02-26 20:06:24 +05:30
math_eigenValuesVectorsSym, &
removed norm functions from math in favor of intrinsic and simplified (mostly by using existing functions, merge intrinsic and array constructors)
2016-01-10 19:04:26 +05:30
math_tensorproduct33, &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
math_symmetric33, &
cleaned
2016-01-09 17:42:31 +05:30
math_mul33x3
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use material, only: &
material_phase, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
phase_plasticityInstance, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use lattice, only: &
lattice_Sslip, &
lattice_Sslip_v, &
lattice_Stwin, &
lattice_Stwin_v, &
Renamed some variables for consistency
2015-06-08 19:56:50 +05:30
lattice_Strans, &
lattice_Strans_v, &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
lattice_maxNslipFamily,&
lattice_maxNtwinFamily, &
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
lattice_maxNtransFamily, &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
lattice_NslipSystem, &
lattice_NtwinSystem, &
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
lattice_NtransSystem, &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
lattice_shearTwin, &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
lattice_structure, &
lattice_fcc_twinNucleationSlipPair, &
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
LATTICE_fcc_ID
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
real(pReal), intent(in) :: Temperature
real(pReal), dimension(6), intent(in) :: Tstar_v
real(pReal), dimension(3,3), intent(out) :: Lp
named 99 representation according to other constitutive laws
2014-11-06 17:19:37 +05:30
real(pReal), dimension(9,9), intent(out) :: dLp_dTstar99
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
integer(pInt) :: instance,ph,of,ns,nt,nr,f,i,j,k,l,m,n,index_myFamily,s1,s2
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
real(pReal) :: sumf,sumftr,StressRatio_p,StressRatio_pminus1,StressRatio_r,BoltzmannRatio,DotGamma0,Ndot0_twin,stressRatio, &
Ndot0_trans,StressRatio_s
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
real(pReal), dimension(3,3,3,3) :: dLp_dTstar3333
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
gdot_slip,dgdot_dtauslip,tau_slip
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
gdot_twin,dgdot_dtautwin,tau_twin
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
gdot_trans,dgdot_dtautrans,tau_trans
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
real(pReal), dimension(6) :: gdot_sb,dgdot_dtausb,tau_sb
real(pReal), dimension(3,3) :: eigVectors, sb_Smatrix
real(pReal), dimension(3) :: eigValues, sb_s, sb_m
analytical variant not stable enough (spectral decomposition of 0-Matrix)
2016-01-31 22:19:56 +05:30
logical :: error
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
real(pReal), dimension(3,6), parameter :: &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
sb_sComposition = &
reshape(real([&
1, 0, 1, &
1, 0,-1, &
1, 1, 0, &
1,-1, 0, &
0, 1, 1, &
0, 1,-1 &
],pReal),[ 3,6]), &
sb_mComposition = &
reshape(real([&
1, 0,-1, &
1, 0,+1, &
1,-1, 0, &
1, 1, 0, &
0, 1,-1, &
0, 1, 1 &
],pReal),[ 3,6])
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), pointer :: prm
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance = phase_plasticityInstance(ph)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Lp = 0.0_pReal
dLp_dTstar3333 = 0.0_pReal
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm => param(instance)
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
!--------------------------------------------------------------------------------------------------
! Dislocation glide part
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
gdot_slip = 0.0_pReal
dgdot_dtauslip = 0.0_pReal
j = 0_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
slipFamiliesLoop: do f = 1_pInt,lattice_maxNslipFamily
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
slipSystemsLoop: do i = 1_pInt,Nslip(f,instance)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
j = j+1_pInt
!* Calculation of Lp
!* Resolved shear stress on slip system
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
tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
wrong state alias access
2016-02-01 16:11:39 +05:30
if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance)))
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Boltzmann ratio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
BoltzmannRatio = QedgePerSlipSystem(j,instance)/(kB*Temperature)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Initial shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0 = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
state(instance)%rhoEdge(j,of)*prm%burgers_slip(j)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(j,instance)
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
!* Shear rates due to slip
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
gdot_slip(j) = DotGamma0 &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
* exp(-BoltzmannRatio*(1-StressRatio_p) ** qPerSlipFamily(f,instance)) &
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
* sign(1.0_pReal,tau_slip(j))
!* Derivatives of shear rates
dgdot_dtauslip(j) = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)&
*qPerSlipFamily(f,instance)/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance))*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal)
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
endif
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Plastic velocity gradient for dislocation glide
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Lp = Lp + gdot_slip(j)*lattice_Sslip(:,:,1,index_myFamily+i,ph)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* 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) &
dLp_dTstar3333(k,l,m,n) = &
dLp_dTstar3333(k,l,m,n) + dgdot_dtauslip(j)*&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
lattice_Sslip(k,l,1,index_myFamily+i,ph)*&
lattice_Sslip(m,n,1,index_myFamily+i,ph)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
enddo slipSystemsLoop
enddo slipFamiliesLoop
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
!--------------------------------------------------------------------------------------------------
! correct Lp and dLp_dTstar3333 for twinned and transformed fraction
!* Total twin volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumf = sum(state(instance)%twinFraction(1_pInt:nt,of)) ! safe for nt == 0
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
!* Total transformed volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumftr = sum(state(instance)%stressTransFraction(1_pInt:nr,of)) + &
sum(state(instance)%strainTransFraction(1_pInt:nr,of))
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
Lp = Lp * (1.0_pReal - sumf - sumftr)
dLp_dTstar3333 = dLp_dTstar3333 * (1.0_pReal - sumf - sumftr)
!--------------------------------------------------------------------------------------------------
! Shear banding (shearband) part
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
if(dNeq0(param(instance)%sbVelocity) .and. dNeq0(param(instance)%sbResistance)) then
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
gdot_sb = 0.0_pReal
dgdot_dtausb = 0.0_pReal
plasticity test (phenoplus) working again with changed polar decomposition
2016-02-26 20:06:24 +05:30
call math_eigenValuesVectorsSym(math_Mandel6to33(Tstar_v),eigValues,eigVectors,error)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
do j = 1_pInt,6_pInt
sb_s = 0.5_pReal*sqrt(2.0_pReal)*math_mul33x3(eigVectors,sb_sComposition(1:3,j))
sb_m = 0.5_pReal*sqrt(2.0_pReal)*math_mul33x3(eigVectors,sb_mComposition(1:3,j))
removed norm functions from math in favor of intrinsic and simplified (mostly by using existing functions, merge intrinsic and array constructors)
2016-01-10 19:04:26 +05:30
sb_Smatrix = math_tensorproduct33(sb_s,sb_m)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
sbSv(1:6,j,ipc,ip,el) = math_Mandel33to6(math_symmetric33(sb_Smatrix))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Calculation of Lp
!* Resolved shear stress on shear banding system
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_sb(j) = dot_product(Tstar_v,sbSv(1:6,j,ipc,ip,el))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Stress ratios
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if (abs(tau_sb(j)) < tol_math_check) then
StressRatio_p = 0.0_pReal
StressRatio_pminus1 = 0.0_pReal
else
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
StressRatio_p = (abs(tau_sb(j))/param(instance)%sbResistance)&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
**param(instance)%pShearBand
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
StressRatio_pminus1 = (abs(tau_sb(j))/param(instance)%sbResistance)&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
**(param(instance)%pShearBand-1.0_pReal)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
endif
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Boltzmann ratio
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
BoltzmannRatio = param(instance)%sbQedge/(kB*Temperature)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Initial shear rates
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
DotGamma0 = param(instance)%sbVelocity
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Shear rates due to shearband
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
gdot_sb(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%qShearBand)*sign(1.0_pReal,tau_sb(j))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Derivatives of shear rates
dgdot_dtausb(j) = &
((abs(gdot_sb(j))*BoltzmannRatio*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%pShearBand*param(instance)%qShearBand)/&
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
param(instance)%sbResistance)*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
StressRatio_pminus1*(1_pInt-StressRatio_p)**(param(instance)%qShearBand-1.0_pReal)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Plastic velocity gradient for shear banding
Lp = Lp + gdot_sb(j)*sb_Smatrix
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* 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) &
dLp_dTstar3333(k,l,m,n) = &
dLp_dTstar3333(k,l,m,n) + dgdot_dtausb(j)*&
sb_Smatrix(k,l)*&
sb_Smatrix(m,n)
enddo
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
end if
all constitutive modules now contain a new function "deltaState", which in the future allows to have an instantaneous and incremental change of the state (additional to the rate based evolution with dotState).
2012-05-16 20:13:26 +05:30
corrected substraction by sum of twinned and transformed value fraction of Lp and derivative. removed unused variables
2014-11-05 23:22:49 +05:30
!--------------------------------------------------------------------------------------------------
! Mechanical twinning part
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
gdot_twin = 0.0_pReal
dgdot_dtautwin = 0.0_pReal
j = 0_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
twinFamiliesLoop: do f = 1_pInt,lattice_maxNtwinFamily
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
index_myFamily = sum(lattice_NtwinSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
twinSystemsLoop: do i = 1_pInt,Ntwin(f,instance)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
j = j+1_pInt
!* Calculation of Lp
!* Resolved shear stress on twin system
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau_twin(j) = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph))
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Stress ratios
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if (tau_twin(j) > tol_math_check) then
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
StressRatio_r = (state(instance)%threshold_stress_twin(j,of)/tau_twin(j))**rPerTwinFamily(f,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Shear rates and their derivatives due to twin
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
select case(lattice_structure(ph))
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (LATTICE_fcc_ID)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
s1=lattice_fcc_twinNucleationSlipPair(1,index_myFamily+i)
s2=lattice_fcc_twinNucleationSlipPair(2,index_myFamily+i)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau_twin(j) < tau_r_twin(j,instance)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(ph)%rhoEdgeDip(s2,of))+& !!!!! correct?
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(param(instance)%L0_twin*prm%burgers_slip(j))*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(tau_r_twin(j,instance)-tau_twin(j))))
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
else
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
Ndot0_twin=0.0_pReal
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
end if
case default
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0_twin=Ndot0PerTwinSystem(j,instance)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
end select
gdot_twin(j) = &
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
(1.0_pReal-sumf-sumftr)*lattice_shearTwin(index_myFamily+i,ph)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
dgdot_dtautwin(j) = ((gdot_twin(j)*rPerTwinFamily(f,instance))/tau_twin(j))*StressRatio_r
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
endif
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* Plastic velocity gradient for mechanical twinning
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Lp = Lp + gdot_twin(j)*lattice_Stwin(:,:,index_myFamily+i,ph)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
!* 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) &
dLp_dTstar3333(k,l,m,n) = &
dLp_dTstar3333(k,l,m,n) + dgdot_dtautwin(j)*&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
lattice_Stwin(k,l,index_myFamily+i,ph)*&
lattice_Stwin(m,n,index_myFamily+i,ph)
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
enddo twinSystemsLoop
enddo twinFamiliesLoop
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
!* Phase transformation part
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
gdot_trans = 0.0_pReal
dgdot_dtautrans = 0.0_pReal
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
j = 0_pInt
transFamiliesLoop: do f = 1_pInt,lattice_maxNtransFamily
index_myFamily = sum(lattice_NtransSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
transSystemsLoop: do i = 1_pInt,Ntrans(f,instance)
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
j = j+1_pInt
!* Resolved shear stress on transformation system
Renamed some variables for consistency
2015-06-08 19:56:50 +05:30
tau_trans(j) = dot_product(Tstar_v,lattice_Strans_v(:,index_myFamily+i,ph))
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Stress ratios
if (tau_trans(j) > tol_math_check) then
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
StressRatio_s = (state(instance)%threshold_stress_trans(j,of)/tau_trans(j))**sPerTransFamily(f,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Shear rates and their derivatives due to transformation
select case(lattice_structure(ph))
case (LATTICE_fcc_ID)
s1=lattice_fcc_twinNucleationSlipPair(1,index_myFamily+i)
s2=lattice_fcc_twinNucleationSlipPair(2,index_myFamily+i)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau_trans(j) < tau_r_trans(j,instance)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& !!!!! correct?
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(param(instance)%L0_trans*prm%burgers_slip(j))*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(tau_r_trans(j,instance)-tau_trans(j))))
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
else
Ndot0_trans=0.0_pReal
end if
case default
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0_trans=Ndot0PerTransSystem(j,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
end select
gdot_trans(j) = &
(1.0_pReal-sumf-sumftr)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%martensiteVolume(j,of)*Ndot0_trans*exp(-StressRatio_s)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
dgdot_dtautrans(j) = ((gdot_trans(j)*sPerTransFamily(f,instance))/tau_trans(j))*StressRatio_s
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
endif
!* Plastic velocity gradient for phase transformation
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
Lp = Lp + gdot_trans(j)*lattice_Strans(:,:,index_myFamily+i,ph)
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
!* 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) &
dLp_dTstar3333(k,l,m,n) = &
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
dLp_dTstar3333(k,l,m,n) + dgdot_dtautrans(j)*&
Renamed some variables for consistency
2015-06-08 19:56:50 +05:30
lattice_Strans(k,l,index_myFamily+i,ph)*&
lattice_Strans(m,n,index_myFamily+i,ph)
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
enddo transSystemsLoop
enddo transFamiliesLoop
named 99 representation according to other constitutive laws
2014-11-06 17:19:37 +05:30
dLp_dTstar99 = math_Plain3333to99(dLp_dTstar3333)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end subroutine plastic_dislotwin_LpAndItsTangent
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
use prec, only: &
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
tol_math_check, &
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
dEq0
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
use math, only: &
pi
use material, only: &
material_phase, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
phase_plasticityInstance, &
plasticState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
use lattice, only: &
lattice_Sslip_v, &
lattice_Stwin_v, &
Renamed some variables for consistency
2015-06-08 19:56:50 +05:30
lattice_Strans_v, &
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
lattice_maxNslipFamily, &
lattice_maxNtwinFamily, &
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
lattice_maxNtransFamily, &
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
lattice_NslipSystem, &
lattice_NtwinSystem, &
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
lattice_NtransSystem, &
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
lattice_sheartwin, &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
lattice_mu, &
lattice_structure, &
lattice_fcc_twinNucleationSlipPair, &
Renamed variables to denote fcc to bcc transformation
2015-06-22 14:03:48 +05:30
lattice_fccTobcc_transNucleationTwinPair, &
lattice_fccTobcc_shearCritTrans, &
gfortran complaint about implicit casting,floating point comparison, and unused imported variables. additionally changed use of math_invert33 to math_inv33 if det is not needed
2015-04-11 00:39:26 +05:30
LATTICE_fcc_ID
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
implicit none
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
real(pReal), dimension(6), intent(in):: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Tstar_v !< 2nd Piola Kirchhoff stress tensor in Mandel notation
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
real(pReal), intent(in) :: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
temperature !< temperature at integration point
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
integer(pInt), intent(in) :: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
unused variables
2015-12-15 01:18:11 +05:30
integer(pInt) :: instance,ns,nt,nr,f,i,j,index_myFamily,s1,s2, &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
ph, &
of
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
real(pReal) :: sumf,sumftr,StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0,&
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
EdgeDipMinDistance,AtomicVolume,VacancyDiffusion,StressRatio_r,Ndot0_twin,stressRatio,&
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
Ndot0_trans,StressRatio_s,EdgeDipDistance, ClimbVelocity,DotRhoEdgeDipClimb,DotRhoEdgeDipAnnihilation, &
DotRhoDipFormation,DotRhoMultiplication,DotRhoEdgeEdgeAnnihilation
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
gdot_slip,tau_slip
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
tau_twin
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(pReal), dimension(totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
tau_trans
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), pointer :: prm
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance = phase_plasticityInstance(ph)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm => param(instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Total twin volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumf = sum(state(instance)%twinFraction(1_pInt:nt,of)) ! safe for nt == 0
wrong state handling
2016-02-22 20:15:18 +05:30
plasticState(ph)%dotState(:,of) = 0.0_pReal
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
!* Total transformed volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumftr = sum(state(instance)%stressTransFraction(1_pInt:nr,of)) + &
sum(state(instance)%strainTransFraction(1_pInt:nr,of))
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Dislocation density evolution
gdot_slip = 0.0_pReal
j = 0_pInt
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
j = j+1_pInt
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Resolved shear stress on slip system
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
tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
wrong state alias access
2016-02-01 16:11:39 +05:30
if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance)))
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Boltzmann ratio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
BoltzmannRatio = QedgePerSlipSystem(j,instance)/(kB*Temperature)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Initial shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0 = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
plasticState(ph)%state(j, of)*prm%burgers_slip(j)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(j,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Shear rates due to slip
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
gdot_slip(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)** &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
qPerSlipFamily(f,instance))*sign(1.0_pReal,tau_slip(j))
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
endif
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Multiplication
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoMultiplication = abs(gdot_slip(j))/&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(prm%burgers_slip(j)*state(instance)%mfp_slip(j,of))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Dipole formation
EdgeDipMinDistance = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
param(instance)%CEdgeDipMinDistance*prm%burgers_slip(j)
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
if (dEq0(tau_slip(j))) then
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoDipFormation = 0.0_pReal
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
else
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
EdgeDipDistance = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(3.0_pReal*lattice_mu(ph)*prm%burgers_slip(j))/&
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
(16.0_pReal*pi*abs(tau_slip(j)))
wrong state alias access
2016-02-01 16:11:39 +05:30
if (EdgeDipDistance>state(instance)%mfp_slip(j,of)) EdgeDipDistance=state(instance)%mfp_slip(j,of)
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
if (EdgeDipDistance<EdgeDipMinDistance) EdgeDipDistance=EdgeDipMinDistance
DotRhoDipFormation = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
((2.0_pReal*(EdgeDipDistance-EdgeDipMinDistance))/prm%burgers_slip(j))*&
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
state(instance)%rhoEdge(j,of)*abs(gdot_slip(j))*param(instance)%dipoleFormationFactor
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Spontaneous annihilation of 2 single edge dislocations
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoEdgeEdgeAnnihilation = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
((2.0_pReal*EdgeDipMinDistance)/prm%burgers_slip(j))*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%rhoEdge(j,of)*abs(gdot_slip(j))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Spontaneous annihilation of a single edge dislocation with a dipole constituent
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoEdgeDipAnnihilation = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
((2.0_pReal*EdgeDipMinDistance)/prm%burgers_slip(j))*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%rhoEdgeDip(j,of)*abs(gdot_slip(j))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Dislocation dipole climb
AtomicVolume = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
param(instance)%CAtomicVolume*prm%burgers_slip(j)**(3.0_pReal)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
VacancyDiffusion = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
param(instance)%D0*exp(-param(instance)%Qsd/(kB*Temperature))
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
if (dEq0(tau_slip(j))) then
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoEdgeDipClimb = 0.0_pReal
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
else
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
if (dEq0(EdgeDipDistance-EdgeDipMinDistance)) then
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoEdgeDipClimb = 0.0_pReal
else
div by zero in output
2016-01-07 17:18:30 +05:30
ClimbVelocity = 3.0_pReal*lattice_mu(ph)*VacancyDiffusion*AtomicVolume/ &
(2.0_pReal*pi*kB*Temperature*(EdgeDipDistance+EdgeDipMinDistance))
wrong state alias access
2016-02-01 16:11:39 +05:30
DotRhoEdgeDipClimb = 4.0_pReal*ClimbVelocity*state(instance)%rhoEdgeDip(j,of)/ &
div by zero in output
2016-01-07 17:18:30 +05:30
(EdgeDipDistance-EdgeDipMinDistance)
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
endif
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
!* Edge dislocation density rate of change
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%rhoEdge(j,of) = &
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoMultiplication-DotRhoDipFormation-DotRhoEdgeEdgeAnnihilation
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Edge dislocation dipole density rate of change
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%rhoEdgeDip(j,of) = &
bug in dot state, thx to Haiming for pointing out
2015-12-12 00:06:58 +05:30
DotRhoDipFormation-DotRhoEdgeDipAnnihilation-DotRhoEdgeDipClimb
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Dotstate for accumulated shear due to slip
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%accshear_slip(j,of) = abs(gdot_slip(j))
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
!* Twin volume fraction evolution
j = 0_pInt
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
do f = 1_pInt,lattice_maxNtwinFamily ! loop over all twin families
index_myFamily = sum(lattice_NtwinSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Ntwin(f,instance) ! process each (active) twin system in family
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
j = j+1_pInt
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Resolved shear stress on twin system
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau_twin(j) = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Stress ratios
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if (tau_twin(j) > tol_math_check) then
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_r = (state(instance)%threshold_stress_twin(j,of)/&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_twin(j))**rPerTwinFamily(f,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Shear rates and their derivatives due to twin
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
select case(lattice_structure(ph))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
case (LATTICE_fcc_ID)
s1=lattice_fcc_twinNucleationSlipPair(1,index_myFamily+i)
s2=lattice_fcc_twinNucleationSlipPair(2,index_myFamily+i)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau_twin(j) < tau_r_twin(j,instance)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(param(instance)%L0_twin*prm%burgers_slip(j))*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(tau_r_twin(j,instance)-tau_twin(j))))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
else
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
Ndot0_twin=0.0_pReal
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
end if
case default
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0_twin=Ndot0PerTwinSystem(j,instance)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
end select
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%twinFraction(j,of) = &
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
(1.0_pReal-sumf-sumftr)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Dotstate for accumulated shear due to twin
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%accshear_twin(j,of) = dotState(instance)%twinFraction(j,of) * &
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
lattice_sheartwin(index_myfamily+i,ph)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
endif
enddo
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
!* Transformation volume fraction evolution
j = 0_pInt
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
do f = 1_pInt,lattice_maxNtransFamily ! loop over all trans families
index_myFamily = sum(lattice_NtransSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Ntrans(f,instance) ! process each (active) trans system in family
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
j = j+1_pInt
!* Resolved shear stress on transformation system
Renamed some variables for consistency
2015-06-08 19:56:50 +05:30
tau_trans(j) = dot_product(Tstar_v,lattice_Strans_v(:,index_myFamily+i,ph))
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Stress ratios
if (tau_trans(j) > tol_math_check) then
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_s = (state(instance)%threshold_stress_trans(j,of)/&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_trans(j))**sPerTransFamily(f,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Shear rates and their derivatives due to transformation
select case(lattice_structure(ph))
case (LATTICE_fcc_ID)
s1=lattice_fcc_twinNucleationSlipPair(1,index_myFamily+i)
s2=lattice_fcc_twinNucleationSlipPair(2,index_myFamily+i)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau_trans(j) < tau_r_trans(j,instance)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(param(instance)%L0_trans*prm%burgers_slip(j))*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(tau_r_trans(j,instance)-tau_trans(j))))
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
else
Ndot0_trans=0.0_pReal
end if
case default
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0_trans=Ndot0PerTransSystem(j,instance)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
end select
wrong state alias access
2016-02-01 16:11:39 +05:30
dotState(instance)%strainTransFraction(j,of) = &
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
(1.0_pReal-sumf-sumftr)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%martensiteVolume(j,of)*Ndot0_trans*exp(-StressRatio_s)
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
!* Dotstate for accumulated shear due to transformation
wrong state alias access
2016-02-01 16:11:39 +05:30
!dotState(instance)%accshear_trans(j,of) = dotState(instance)%strainTransFraction(j,of) * &
Martensite volume fraction evolution
2015-11-17 22:00:06 +05:30
! lattice_sheartrans(index_myfamily+i,ph)
TRIP contribution to Lp and dotState
2014-10-01 13:41:39 +05:30
endif
enddo
enddo
Fix for 3881 because gfortran was complaining
2015-02-24 15:45:07 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end subroutine plastic_dislotwin_dotState
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
- added get slip rate helper function - added vacancy generation rate - cleaned up some bugs
2014-10-11 15:15:30 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief return array of constitutive results
!--------------------------------------------------------------------------------------------------
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use prec, only: &
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
tol_math_check, &
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
dEq0
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use math, only: &
pi, &
math_Mandel6to33, &
plasticity test (phenoplus) working again with changed polar decomposition
2016-02-26 20:06:24 +05:30
math_eigenValuesSym33, &
math_eigenValuesVectorsSym33
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
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
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
use lattice, only: &
lattice_Sslip_v, &
lattice_Stwin_v, &
lattice_maxNslipFamily, &
lattice_maxNtwinFamily, &
lattice_NslipSystem, &
lattice_NtwinSystem, &
lattice_shearTwin, &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
lattice_mu, &
lattice_structure, &
lattice_fcc_twinNucleationSlipPair, &
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
LATTICE_fcc_ID
sorry, last version did not compile. now with correct encoding.
2011-04-13 17:21:46 +05:30
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
implicit none
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
real(pReal), dimension(6), intent(in) :: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
Tstar_v !< 2nd Piola Kirchhoff stress tensor in Mandel notation
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
real(pReal), intent(in) :: &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
temperature !< temperature at integration point
changed state parsing for local models (and for delta_state) such that only the needed part of the state array (for the given material point) is used
2014-03-13 12:13:49 +05:30
integer(pInt), intent(in) :: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
real(pReal), dimension(plastic_dislotwin_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
plastic_dislotwin_postResults
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
integer(pInt) :: &
removed unused variables
2014-09-23 02:04:42 +05:30
instance,&
Modification of basic states for phase transformation
2014-08-14 18:48:33 +05:30
ns,nt,nr,&
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
f,o,i,c,j,index_myFamily,&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
s1,s2, &
ph, &
of
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
real(pReal) :: sumf,tau,StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0,StressRatio_r,Ndot0_twin,dgdot_dtauslip, &
stressRatio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
real(preal), dimension(totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
gdot_slip
real(pReal), dimension(3,3) :: eigVectors
real(pReal), dimension (3) :: eigValues
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
type(tParameters), pointer :: prm
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +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)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
instance = phase_plasticityInstance(ph)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
ns = totalNslip(instance)
nt = totalNtwin(instance)
nr = totalNtrans(instance)
prepared new State for dislotwin
2014-06-11 17:41:14 +05:30
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm => param(instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Total twin volume fraction
wrong state alias access
2016-02-01 16:11:39 +05:30
sumf = sum(state(instance)%twinFraction(1_pInt:nt,of)) ! safe for nt == 0
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
!* Required output
c = 0_pInt
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults = 0.0_pReal
do o = 1_pInt,plastic_dislotwin_Noutput(instance)
outputID is part of param(instance) array, reading in of output made consistent with kinematic hardeing law/outputtag not needed
2018-05-29 21:59:38 +05:30
select case(param(instance)%outputID(o))
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (edge_density_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+ns) = state(instance)%rhoEdge(1_pInt:ns,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (dipole_density_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+ns) = state(instance)%rhoEdgeDip(1_pInt:ns,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (shear_rate_slip_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
added some comments on possible code changes
2015-06-17 12:23:00 +05:30
j = j + 1_pInt ! could be taken from state by now!
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Resolved shear stress on slip system
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
!* Stress ratios
introduce pointer referencing of plastic state for better readability
2015-11-06 22:30:00 +05:30
stressRatio = ((abs(tau)-state(ph)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance)))
StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Boltzmann ratio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
BoltzmannRatio = QedgePerSlipSystem(j,instance)/(kB*Temperature)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Initial shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0 = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
state(instance)%rhoEdge(j,of)*prm%burgers_slip(j)* &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(j,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Shear rates due to slip
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = &
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
qPerSlipFamily(f,instance))*sign(1.0_pReal,tau)
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
else
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = 0.0_pReal
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
endif
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo ; enddo
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (accumulated_shear_slip_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+ns) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%accshear_slip(1_pInt:ns,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (mfp_slip_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+ns) =&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_slip(1_pInt:ns,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (resolved_stress_slip_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = j + 1_pInt
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) =&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo; enddo
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (threshold_stress_slip_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+ns) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%threshold_stress_slip(1_pInt:ns,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (edge_dipole_distance_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = j + 1_pInt
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
(3.0_pReal*lattice_mu(ph)*prm%burgers_slip(j))/&
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
(16.0_pReal*pi*abs(dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))))
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j)=min(plastic_dislotwin_postResults(c+j),&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%mfp_slip(j,of))
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
! plastic_dislotwin_postResults(c+j)=max(plastic_dislotwin_postResults(c+j),&
Added Ctrans to homogenizedC and strain-induced martensite part to basic states
2014-09-10 17:42:17 +05:30
! plasticState(ph)%state(4*ns+2*nt+2*nr+j, of))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo; enddo
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (resolved_stress_shearband_ID)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do j = 1_pInt,6_pInt ! loop over all shearband families
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = dot_product(Tstar_v, &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
sbSv(1:6,j,ipc,ip,el))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo
c = c + 6_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (shear_rate_shearband_ID)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do j = 1_pInt,6_pInt ! loop over all shearbands
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Resolved shear stress on shearband system
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau = dot_product(Tstar_v,sbSv(1:6,j,ipc,ip,el))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Stress ratios
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
if (abs(tau) < tol_math_check) then
StressRatio_p = 0.0_pReal
StressRatio_pminus1 = 0.0_pReal
else
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
StressRatio_p = (abs(tau)/param(instance)%sbResistance)**&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
param(instance)%pShearBand
Simplified storage of internal constitutive parameters
2018-05-03 20:55:56 +05:30
StressRatio_pminus1 = (abs(tau)/param(instance)%sbResistance)**&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%pShearBand-1.0_pReal)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
endif
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Boltzmann ratio
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
BoltzmannRatio = param(instance)%sbQedge/(kB*Temperature)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Initial shear rates
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
DotGamma0 = param(instance)%sbVelocity
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
! Shear rate due to shear band
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**param(instance)%qShearBand)*&
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
sign(1.0_pReal,tau)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo
c = c + 6_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (twin_fraction_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nt) = state(instance)%twinFraction(1_pInt:nt,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (shear_rate_twin_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
if (nt > 0_pInt) then
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = j + 1_pInt
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Resolved shear stress on slip system
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance)))&
**pPerSlipFamily(f,instance)
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance)))&
**(pPerSlipFamily(f,instance)-1.0_pReal)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Boltzmann ratio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
BoltzmannRatio = QedgePerSlipSystem(j,instance)/(kB*Temperature)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Initial shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0 = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
state(instance)%rhoEdge(j,of)*prm%burgers_slip(j)* &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(j,instance)
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Shear rates due to slip
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
gdot_slip(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
qPerSlipFamily(f,instance))*sign(1.0_pReal,tau)
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
else
gdot_slip(j) = 0.0_pReal
div by zero in output
2016-01-07 17:18:30 +05:30
endif
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo;enddo
div by zero in output
2016-01-07 17:18:30 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNtwinFamily ! loop over all twin families
index_myFamily = sum(lattice_NtwinSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1,Ntwin(f,instance) ! process each (active) twin system in family
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = j + 1_pInt
div by zero in output
2016-01-07 17:18:30 +05:30
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph))
div by zero in output
2016-01-07 17:18:30 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
!* Shear rates due to twin
if ( tau > 0.0_pReal ) then
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
select case(lattice_structure(ph))
change latticeName to latticeID
2013-11-27 21:50:27 +05:30
case (LATTICE_fcc_ID)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
s1=lattice_fcc_twinNucleationSlipPair(1,index_myFamily+i)
s2=lattice_fcc_twinNucleationSlipPair(2,index_myFamily+i)
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
if (tau < tau_r_twin(j,instance)) then
wrong state alias access
2016-02-01 16:11:39 +05:30
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%L0_twin*&
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
prm%burgers_slip(j))*&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
(tau_r_twin(j,instance)-tau)))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
else
Added Ndot0 for trans
2015-11-16 15:45:18 +05:30
Ndot0_twin=0.0_pReal
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
end if
case default
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
Ndot0_twin=Ndot0PerTwinSystem(j,instance)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
end select
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_r = (state(instance)%threshold_stress_twin(j,of)/tau) &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
**rPerTwinFamily(f,instance)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = &
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%MaxTwinFraction-sumf)*lattice_shearTwin(index_myFamily+i,ph)*&
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
endif
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo ; enddo
endif
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (accumulated_shear_twin_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nt) = state(instance)%accshear_twin(1_pInt:nt,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (mfp_twin_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nt) = state(instance)%mfp_twin(1_pInt:nt,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (resolved_stress_twin_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
if (nt > 0_pInt) then
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNtwinFamily ! loop over all slip families
index_myFamily = sum(lattice_NtwinSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Ntwin(f,instance) ! process each (active) slip system in family
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = j + 1_pInt
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+j) = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
enddo; enddo
endif
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (threshold_stress_twin_ID)
wrong state alias access
2016-02-01 16:11:39 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nt) = state(instance)%threshold_stress_twin(1_pInt:nt,of)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + nt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (stress_exponent_ID)
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
j = 0_pInt
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
do f = 1_pInt,lattice_maxNslipFamily ! loop over all slip families
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
Error caused by Ntslip,Ntwin and Ntrans removed by reverting it back to original form - a 2 D array and not in the blackbox(param)
2018-05-08 19:56:49 +05:30
do i = 1_pInt,Nslip(f,instance) ! process each (active) slip system in family
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
j = j + 1_pInt
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Resolved shear stress on slip system
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
tau = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,ph))
wrong state alias access
2016-02-01 16:11:39 +05:30
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
!* Stress ratios
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance)))&
**pPerSlipFamily(f,instance)
wrong state alias access
2016-02-01 16:11:39 +05:30
StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance)))&
**(pPerSlipFamily(f,instance)-1.0_pReal)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Boltzmann ratio
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
BoltzmannRatio = QedgePerSlipSystem(j,instance)/(kB*Temperature)
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Initial shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
DotGamma0 = &
Reading in of parameters made consistent
2018-06-25 23:37:35 +05:30
state(instance)%rhoEdge(j,of)*prm%burgers_slip(j)* &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
v0PerSlipSystem(j,instance)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Shear rates due to slip
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
gdot_slip(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
qPerSlipFamily(f,instance))*sign(1.0_pReal,tau)
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Derivatives of shear rates
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
dgdot_dtauslip = &
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)&
*qPerSlipFamily(f,instance)/&
simplified reading in and initialization of internal constitutive parameters
2018-05-03 17:13:19 +05:30
(param(instance)%SolidSolutionStrength+&
Simplified storage of parameters for CAtomicVolume, D0 and Qsd
2018-05-02 23:00:27 +05:30
tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal)
modified constitutive description in line with other dislocation density based models
2014-03-30 20:34:06 +05:30
else
gdot_slip(j) = 0.0_pReal
dgdot_dtauslip = 0.0_pReal
endif
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
!* Stress exponent
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
plastic_dislotwin_postResults(c+j) = &
using improved dEq0/dNeq instead of dEq/dNeq with 0.0 argument
2016-10-29 13:09:08 +05:30
merge(0.0_pReal,(tau/gdot_slip(j))*dgdot_dtauslip,dEq0(gdot_slip(j)))
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
enddo ; enddo
c = c + ns
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (sb_eigenvalues_ID)
re-introduced special eigenvalues routine for 3x3 matrices
2016-01-31 16:55:26 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+3_pInt) = math_eigenvaluesSym33(math_Mandel6to33(Tstar_v))
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + 3_pInt
added enum for dislotwin output, fixed bug when using recursive file input function
2013-12-12 05:12:33 +05:30
case (sb_eigenvectors_ID)
plasticity test (phenoplus) working again with changed polar decomposition
2016-02-26 20:06:24 +05:30
call math_eigenValuesVectorsSym33(math_Mandel6to33(Tstar_v),eigValues,eigVectors)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+9_pInt) = reshape(eigVectors,[9])
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
c = c + 9_pInt
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
case (stress_trans_fraction_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nr) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%stressTransFraction(1_pInt:nr,of)
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
c = c + nr
case (strain_trans_fraction_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nr) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%strainTransFraction(1_pInt:nr,of)
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
c = c + nr
case (trans_fraction_ID)
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
plastic_dislotwin_postResults(c+1_pInt:c+nr) = &
wrong state alias access
2016-02-01 16:11:39 +05:30
state(instance)%stressTransFraction(1_pInt:nr,of) + &
state(instance)%strainTransFraction(1_pInt:nr,of)
Outputs for TRIP volume fraction
2014-09-24 12:56:27 +05:30
c = c + nr
removed a bunch of dummy functions (delta state for all constitutive_XXX except nonlocal, microstructure for none, j2 and phenopowerla), additional simplifications for none, averageBurgers is only relevant for RGC
2013-10-14 16:24:45 +05:30
end select
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
enddo
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
end function plastic_dislotwin_postResults
added doxygen documentation and unified variable names and some common parts of the code
2013-10-08 21:57:26 +05:30
plasticity test (phenoplus) working again with changed polar decomposition
2016-02-26 20:06:24 +05:30
end module plastic_dislotwin