31-Oct_1
This commit is contained in:
achalhp
parent
fc32844744
commit
acdfaf608e
|
|
@ -0,0 +1 @@
|
||||||
|
{}
|
||||||
|
|
@ -512,10 +512,10 @@ end function phenopowerlaw_dotState
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief calculates instantaneous incremental change of kinematics and associated jump state
|
!> @brief calculates instantaneous incremental change of kinematics and associated jump state
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
! module subroutine plastic_kinematic_deltaFp(twin)
|
module subroutine plastic_kinematic_deltaFp(twinJump,deltaFp,ipc, ip, el)
|
||||||
! use prec, only: &
|
use prec, only: &
|
||||||
! dNeq, &
|
dNeq, &
|
||||||
! dEq0
|
dEq0
|
||||||
! #ifdef DEBUG
|
! #ifdef DEBUG
|
||||||
! use debug, only: &
|
! use debug, only: &
|
||||||
! debug_level, &
|
! debug_level, &
|
||||||
|
|
@ -523,58 +523,68 @@ end function phenopowerlaw_dotState
|
||||||
! debug_levelExtensive, &
|
! debug_levelExtensive, &
|
||||||
! debug_levelSelective
|
! debug_levelSelective
|
||||||
! #endif
|
! #endif
|
||||||
|
|
||||||
|
use geometry_plastic_nonlocal, only: &
|
||||||
|
nIPneighbors => geometry_plastic_nonlocal_nIPneighbors, &
|
||||||
|
IPneighborhood => geometry_plastic_nonlocal_IPneighborhood, &
|
||||||
|
IPvolume => geometry_plastic_nonlocal_IPvolume0, &
|
||||||
|
IParea => geometry_plastic_nonlocal_IParea0, &
|
||||||
|
IPareaNormal => geometry_plastic_nonlocal_IPareaNormal0
|
||||||
|
|
||||||
|
|
||||||
! use mesh, only: &
|
!use mesh, only: &
|
||||||
! mesh_element, &
|
! mesh_element, & !name changed
|
||||||
! mesh_ipNeighborhood, &
|
! mesh_ipNeighborhood, &
|
||||||
! mesh_ipCoordinates, &
|
! mesh_ipCoordinates, &
|
||||||
! mesh_ipVolume, &
|
! mesh_ipVolume, &
|
||||||
! mesh_ipAreaNormal, &
|
! mesh_ipAreaNormal, &
|
||||||
! mesh_ipArea, &
|
! mesh_ipArea, &
|
||||||
! FE_NipNeighbors, &
|
! FE_NipNeighbors, &
|
||||||
! mesh_maxNipNeighbors, &
|
! mesh_maxNipNeighbors, &
|
||||||
! FE_geomtype, &
|
! FE_geomtype, &
|
||||||
! FE_celltype
|
! FE_celltype
|
||||||
|
|
||||||
! use lattice
|
use lattice
|
||||||
! use math, only: &
|
use math, only: &
|
||||||
! math_I3
|
math_I3
|
||||||
|
|
||||||
! use material, only: &
|
! use material, only: &
|
||||||
! phaseAt, phasememberAt, &
|
! phaseAt, phasememberAt, & !name changed
|
||||||
! phase_plasticityInstance
|
! phase_plasticityInstance
|
||||||
|
|
||||||
! implicit none
|
implicit none
|
||||||
! integer(pInt) :: &
|
integer :: &
|
||||||
! ph, of, instance, &
|
ph, of, instance, &
|
||||||
! neighbor_el, & !< element number of neighboring material point
|
neighbor_el, & !< element number of neighboring material point
|
||||||
! neighbor_ip, & !< integration point of neighboring material point
|
neighbor_ip, & !< integration point of neighboring material point
|
||||||
! np, & !< neighbor phase
|
np, & !< neighbor phase
|
||||||
! no, n !< nieghbor offset and index for loop at neighbor
|
no, n !< nieghbor offset and index for loop at neighbor
|
||||||
|
|
||||||
! integer(pInt), intent(in) :: &
|
logical , intent(out) :: &
|
||||||
! el, & !< element index
|
twinJump
|
||||||
! ip, & !< integration point index
|
|
||||||
! ipc !< grain index
|
real(pReal), dimension(3,3), intent(out) :: &
|
||||||
! real(pReal), dimension(3,3), intent(out) :: &
|
deltaFp
|
||||||
! deltaFp
|
|
||||||
! logical , intent(out) :: &
|
integer, intent(in) :: &
|
||||||
! twinJump
|
ipc, & !< element index
|
||||||
|
ip, & !< integration point index
|
||||||
|
el !< grain index
|
||||||
! ! real(pReal), dimension(3,3,param(instance)%totalNslip) :: &
|
! ! real(pReal), dimension(3,3,param(instance)%totalNslip) :: &
|
||||||
! ! CorrespondanceMatrix
|
! ! CorrespondanceMatrix
|
||||||
! integer(pInt), dimension(52) :: &
|
integer, dimension(52) :: &
|
||||||
! twin_el_incl
|
twin_el_incl
|
||||||
! real(pReal), dimension(6) :: &
|
real(pReal), dimension(6) :: &
|
||||||
! neighbor_stt
|
neighbor_stt
|
||||||
! real(pReal) :: &
|
real(pReal) :: &
|
||||||
! random, random1
|
random, random1
|
||||||
! integer(pInt) :: &
|
integer :: &
|
||||||
! i,j,var_growth,var_nucl
|
i,j,var_growth,var_nucl
|
||||||
! var_growth = 0_pInt
|
var_growth = 0
|
||||||
! var_nucl = 0_pInt
|
var_nucl = 0
|
||||||
! ph = phaseAt(ipc, ip, el)
|
!ph = phaseAt(ipc, ip, el)
|
||||||
! of = phasememberAt(ipc, ip, el)
|
!of = phasememberAt(ipc, ip, el)
|
||||||
! instance = phase_plasticityInstance(ph)
|
!instance = phase_plasticityInstance(ph)
|
||||||
|
|
||||||
! associate(prm => param(instance), stt => state(instance), dlt => deltaState(instance))
|
! associate(prm => param(instance), stt => state(instance), dlt => deltaState(instance))
|
||||||
|
|
||||||
|
|
@ -661,7 +671,7 @@ end function phenopowerlaw_dotState
|
||||||
! ! endif Sampling
|
! ! endif Sampling
|
||||||
! end associate
|
! end associate
|
||||||
|
|
||||||
! end subroutine plastic_kinematic_deltaFp
|
end subroutine plastic_kinematic_deltaFp
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief calculates (instantaneous) incremental change of microstructure
|
!> @brief calculates (instantaneous) incremental change of microstructure
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue