no clutter
This commit is contained in:
parent
402502d6cd
commit
a3304db1ce
|
@ -7,6 +7,15 @@
|
||||||
module plastic_nonlocal
|
module plastic_nonlocal
|
||||||
use prec
|
use prec
|
||||||
use future
|
use future
|
||||||
|
use IO
|
||||||
|
use math
|
||||||
|
use debug
|
||||||
|
use mesh
|
||||||
|
use material
|
||||||
|
use lattice
|
||||||
|
use rotations
|
||||||
|
use config
|
||||||
|
use lattice
|
||||||
use geometry_plastic_nonlocal, only: &
|
use geometry_plastic_nonlocal, only: &
|
||||||
IPneighborhood => geometry_plastic_nonlocal_IPneighborhood, &
|
IPneighborhood => geometry_plastic_nonlocal_IPneighborhood, &
|
||||||
IPvolume => geometry_plastic_nonlocal_IPvolume, &
|
IPvolume => geometry_plastic_nonlocal_IPvolume, &
|
||||||
|
@ -240,21 +249,6 @@ contains
|
||||||
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_init
|
subroutine plastic_nonlocal_init
|
||||||
use prec, only: &
|
|
||||||
dEq0, dNeq0, dEq
|
|
||||||
use math, only: &
|
|
||||||
math_expand, math_cross
|
|
||||||
use IO, only: &
|
|
||||||
IO_error
|
|
||||||
use debug, only: &
|
|
||||||
debug_level, &
|
|
||||||
debug_constitutive, &
|
|
||||||
debug_levelBasic
|
|
||||||
use mesh, only: &
|
|
||||||
theMesh
|
|
||||||
use material
|
|
||||||
use config
|
|
||||||
use lattice
|
|
||||||
|
|
||||||
character(len=65536), dimension(0), parameter :: emptyStringArray = [character(len=65536)::]
|
character(len=65536), dimension(0), parameter :: emptyStringArray = [character(len=65536)::]
|
||||||
integer, dimension(0), parameter :: emptyIntArray = [integer::]
|
integer, dimension(0), parameter :: emptyIntArray = [integer::]
|
||||||
|
@ -737,15 +731,6 @@ subroutine plastic_nonlocal_init
|
||||||
!> @brief populates the initial dislocation density
|
!> @brief populates the initial dislocation density
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine stateInit(phase,NofMyPhase)
|
subroutine stateInit(phase,NofMyPhase)
|
||||||
use math, only: &
|
|
||||||
math_sampleGaussVar
|
|
||||||
use mesh, only: &
|
|
||||||
theMesh, &
|
|
||||||
mesh_ipVolume
|
|
||||||
use material, only: &
|
|
||||||
material_phase, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phasememberAt
|
|
||||||
|
|
||||||
integer,intent(in) ::&
|
integer,intent(in) ::&
|
||||||
phase, &
|
phase, &
|
||||||
|
@ -827,39 +812,6 @@ end subroutine plastic_nonlocal_init
|
||||||
!> @brief calculates quantities characterizing the microstructure
|
!> @brief calculates quantities characterizing the microstructure
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_dependentState(Fe, Fp, ip, el)
|
subroutine plastic_nonlocal_dependentState(Fe, Fp, ip, el)
|
||||||
use prec, only: &
|
|
||||||
dEq0
|
|
||||||
use IO, only: &
|
|
||||||
IO_error
|
|
||||||
use math, only: &
|
|
||||||
PI, &
|
|
||||||
math_inner, &
|
|
||||||
math_inv33
|
|
||||||
#ifdef DEBUG
|
|
||||||
use debug, only: &
|
|
||||||
debug_level, &
|
|
||||||
debug_constitutive, &
|
|
||||||
debug_levelExtensive, &
|
|
||||||
debug_levelSelective, &
|
|
||||||
debug_i, &
|
|
||||||
debug_e
|
|
||||||
#endif
|
|
||||||
use mesh, only: &
|
|
||||||
theMesh, &
|
|
||||||
mesh_ipNeighborhood, &
|
|
||||||
mesh_ipCoordinates, &
|
|
||||||
mesh_ipVolume, &
|
|
||||||
mesh_ipAreaNormal, &
|
|
||||||
mesh_ipArea
|
|
||||||
use material, only: &
|
|
||||||
material_phase, &
|
|
||||||
phase_localPlasticity, &
|
|
||||||
phaseAt, phasememberAt, &
|
|
||||||
phase_plasticityInstance
|
|
||||||
use lattice, only: &
|
|
||||||
LATTICE_bcc_ID, &
|
|
||||||
LATTICE_fcc_ID, &
|
|
||||||
lattice_structure
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
ip, &
|
ip, &
|
||||||
|
@ -1223,13 +1175,6 @@ end subroutine plastic_nonlocal_kinetics
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_LpAndItsTangent(Lp, dLp_dMp, &
|
subroutine plastic_nonlocal_LpAndItsTangent(Lp, dLp_dMp, &
|
||||||
Mp, Temperature, volume, ip, el)
|
Mp, Temperature, volume, ip, el)
|
||||||
use math, only: &
|
|
||||||
math_mul33xx33
|
|
||||||
use material, only: &
|
|
||||||
material_phase, &
|
|
||||||
plasticState, &
|
|
||||||
phaseAt, phasememberAt, &
|
|
||||||
phase_plasticityInstance
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
ip, & !< current integration point
|
ip, & !< current integration point
|
||||||
|
@ -1362,26 +1307,6 @@ end subroutine plastic_nonlocal_LpAndItsTangent
|
||||||
!> @brief (instantaneous) incremental change of microstructure
|
!> @brief (instantaneous) incremental change of microstructure
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_deltaState(Mp,ip,el)
|
subroutine plastic_nonlocal_deltaState(Mp,ip,el)
|
||||||
use prec, only: &
|
|
||||||
dNeq0
|
|
||||||
#ifdef DEBUG
|
|
||||||
use debug, only: &
|
|
||||||
debug_level, &
|
|
||||||
debug_constitutive, &
|
|
||||||
debug_levelBasic, &
|
|
||||||
debug_levelExtensive, &
|
|
||||||
debug_levelSelective, &
|
|
||||||
debug_i, &
|
|
||||||
debug_e
|
|
||||||
#endif
|
|
||||||
use math, only: &
|
|
||||||
PI, &
|
|
||||||
math_mul33xx33
|
|
||||||
use material, only: &
|
|
||||||
material_phase, &
|
|
||||||
plasticState, &
|
|
||||||
phaseAt, phasememberAt, &
|
|
||||||
phase_plasticityInstance
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
ip, &
|
ip, &
|
||||||
|
@ -1499,49 +1424,6 @@ end subroutine plastic_nonlocal_deltaState
|
||||||
!---------------------------------------------------------------------------------------------------
|
!---------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
|
subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
|
||||||
timestep,ip,el)
|
timestep,ip,el)
|
||||||
use, intrinsic :: &
|
|
||||||
IEEE_arithmetic
|
|
||||||
use prec, only: &
|
|
||||||
dNeq0, &
|
|
||||||
dNeq, &
|
|
||||||
dEq0
|
|
||||||
use IO, only: &
|
|
||||||
IO_error
|
|
||||||
#ifdef DEBUG
|
|
||||||
use debug, only: &
|
|
||||||
debug_level, &
|
|
||||||
debug_constitutive, &
|
|
||||||
debug_levelBasic, &
|
|
||||||
debug_levelExtensive, &
|
|
||||||
debug_levelSelective, &
|
|
||||||
debug_i, &
|
|
||||||
debug_e
|
|
||||||
#endif
|
|
||||||
use math, only: &
|
|
||||||
math_inner, &
|
|
||||||
math_mul33xx33, &
|
|
||||||
math_inv33, &
|
|
||||||
math_det33, &
|
|
||||||
PI
|
|
||||||
use mesh, only: &
|
|
||||||
theMesh, &
|
|
||||||
mesh_ipNeighborhood, &
|
|
||||||
mesh_ipVolume, &
|
|
||||||
mesh_ipArea, &
|
|
||||||
mesh_ipAreaNormal
|
|
||||||
use material, only: &
|
|
||||||
homogenization_maxNgrains, &
|
|
||||||
material_phase, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_localPlasticity, &
|
|
||||||
plasticState, &
|
|
||||||
phaseAt, phasememberAt, &
|
|
||||||
phase_plasticity ,&
|
|
||||||
PLASTICITY_NONLOCAL_ID
|
|
||||||
use lattice, only: &
|
|
||||||
lattice_structure, &
|
|
||||||
LATTICE_bcc_ID, &
|
|
||||||
LATTICE_fcc_ID
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
ip, & !< current integration point
|
ip, & !< current integration point
|
||||||
|
@ -2000,21 +1882,6 @@ end subroutine plastic_nonlocal_dotState
|
||||||
! that sum up to a total of 1 are considered, all others are set to zero.
|
! that sum up to a total of 1 are considered, all others are set to zero.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_updateCompatibility(orientation,i,e)
|
subroutine plastic_nonlocal_updateCompatibility(orientation,i,e)
|
||||||
use math, only: &
|
|
||||||
math_inner, &
|
|
||||||
math_qRot
|
|
||||||
use rotations, only: &
|
|
||||||
rotation
|
|
||||||
use material, only: &
|
|
||||||
material_phase, &
|
|
||||||
material_texture, &
|
|
||||||
phase_localPlasticity, &
|
|
||||||
phase_plasticityInstance
|
|
||||||
use mesh, only: &
|
|
||||||
mesh_ipNeighborhood, &
|
|
||||||
theMesh
|
|
||||||
use lattice, only: &
|
|
||||||
lattice_qDisorientation
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
i, &
|
i, &
|
||||||
|
@ -2158,10 +2025,6 @@ end subroutine plastic_nonlocal_updateCompatibility
|
||||||
!> @brief return array of constitutive results
|
!> @brief return array of constitutive results
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
function plastic_nonlocal_postResults(ph,instance,of) result(postResults)
|
function plastic_nonlocal_postResults(ph,instance,of) result(postResults)
|
||||||
use prec, only: &
|
|
||||||
dNeq0
|
|
||||||
use material, only: &
|
|
||||||
plasticState
|
|
||||||
|
|
||||||
integer, intent(in) :: &
|
integer, intent(in) :: &
|
||||||
ph, &
|
ph, &
|
||||||
|
@ -2363,7 +2226,6 @@ end function plastic_nonlocal_postResults
|
||||||
!> @details raw values is rectified
|
!> @details raw values is rectified
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
function getRho(instance,of,ip,el)
|
function getRho(instance,of,ip,el)
|
||||||
use mesh
|
|
||||||
|
|
||||||
integer, intent(in) :: instance, of,ip,el
|
integer, intent(in) :: instance, of,ip,el
|
||||||
real(pReal), dimension(param(instance)%totalNslip,10) :: getRho
|
real(pReal), dimension(param(instance)%totalNslip,10) :: getRho
|
||||||
|
|
Loading…
Reference in New Issue