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

31-Oct_1

This commit is contained in:
achalhp 2023-10-31 09:27:07 +05:30
parent fc32844744
commit acdfaf608e
2 changed files with 59 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/.vscode/settings.json vendored Normal file
View File

@ -0,0 +1 @@
{}

80
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -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, &
@ -524,8 +524,16 @@ end function phenopowerlaw_dotState
! 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, &
@ -536,42 +544,44 @@ end function phenopowerlaw_dotState
! 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)
@ -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