Merge remote-tracking branch 'origin/separate-damage' into development
This commit is contained in:
Franz Roters
commit
6fe8077b81
|
|
@ -52,4 +52,5 @@
|
|||
#include "homogenization_mech_isostrain.f90"
|
||||
#include "homogenization_mech_RGC.f90"
|
||||
#include "homogenization_thermal.f90"
|
||||
#include "homogenization_damage.f90"
|
||||
#include "CPFEM.f90"
|
||||
|
|
|
|||
|
|
@ -188,6 +188,11 @@ module constitutive
|
|||
real(pReal), dimension(3,3) :: P
|
||||
end function constitutive_mech_getP
|
||||
|
||||
module function constitutive_damage_get_phi(co,ip,el) result(phi)
|
||||
integer, intent(in) :: co, ip, el
|
||||
real(pReal) :: phi
|
||||
end function constitutive_damage_get_phi
|
||||
|
||||
module function thermal_T(ph,me) result(T)
|
||||
integer, intent(in) :: ph,me
|
||||
real(pReal) :: T
|
||||
|
|
@ -204,6 +209,11 @@ module constitutive
|
|||
integer, intent(in) :: co, ce
|
||||
end subroutine constitutive_thermal_setT
|
||||
|
||||
module subroutine constitutive_damage_set_phi(phi,co,ce)
|
||||
real(pReal), intent(in) :: phi
|
||||
integer, intent(in) :: co, ce
|
||||
end subroutine constitutive_damage_set_phi
|
||||
|
||||
! == cleaned:end ===================================================================================
|
||||
|
||||
module function thermal_stress(Delta_t,ph,me) result(converged_)
|
||||
|
|
@ -229,39 +239,14 @@ module constitutive
|
|||
logical :: converged_
|
||||
end function crystallite_stress
|
||||
|
||||
module function constitutive_homogenizedC(co,ip,el) result(C)
|
||||
integer, intent(in) :: co, ip, el
|
||||
module function constitutive_homogenizedC(ph,me) result(C)
|
||||
integer, intent(in) :: ph, me
|
||||
real(pReal), dimension(6,6) :: C
|
||||
end function constitutive_homogenizedC
|
||||
|
||||
module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
S
|
||||
end subroutine source_damage_anisoBrittle_dotState
|
||||
|
||||
module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
end subroutine source_damage_anisoDuctile_dotState
|
||||
|
||||
module subroutine source_damage_isoDuctile_dotState(co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
end subroutine source_damage_isoDuctile_dotState
|
||||
|
||||
module subroutine source_thermal_externalheat_dotState(phase, of)
|
||||
integer, intent(in) :: &
|
||||
phase, &
|
||||
of
|
||||
end subroutine source_thermal_externalheat_dotState
|
||||
|
||||
module subroutine constitutive_damage_getRateAndItsTangents(phiDot, dPhiDot_dPhi, phi, ip, el)
|
||||
integer, intent(in) :: &
|
||||
|
|
@ -343,19 +328,6 @@ module constitutive
|
|||
dLi_dTstar !< derivative of Li with respect to Tstar (4th-order tensor defined to be zero)
|
||||
end subroutine kinematics_thermal_expansion_LiAndItsTangent
|
||||
|
||||
|
||||
module subroutine source_damage_isoBrittle_deltaState(C, Fe, co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
Fe
|
||||
real(pReal), intent(in), dimension(6,6) :: &
|
||||
C
|
||||
end subroutine source_damage_isoBrittle_deltaState
|
||||
|
||||
|
||||
module subroutine constitutive_plastic_dependentState(co,ip,el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
|
|
@ -391,6 +363,8 @@ module constitutive
|
|||
constitutive_restartRead, &
|
||||
integrateDamageState, &
|
||||
constitutive_thermal_setT, &
|
||||
constitutive_damage_set_phi, &
|
||||
constitutive_damage_get_phi, &
|
||||
constitutive_mech_getP, &
|
||||
constitutive_mech_setF, &
|
||||
constitutive_mech_getF, &
|
||||
|
|
|
|||
|
|
@ -10,9 +10,16 @@ submodule(constitutive) constitutive_damage
|
|||
DAMAGE_ANISODUCTILE_ID
|
||||
end enum
|
||||
|
||||
|
||||
type :: tDataContainer
|
||||
real(pReal), dimension(:), allocatable :: phi, d_phi_d_dot_phi
|
||||
end type tDataContainer
|
||||
|
||||
integer(kind(DAMAGE_UNDEFINED_ID)), dimension(:,:), allocatable :: &
|
||||
phase_source !< active sources mechanisms of each phase
|
||||
|
||||
type(tDataContainer), dimension(:), allocatable :: current
|
||||
|
||||
interface
|
||||
|
||||
module function source_damage_anisoBrittle_init(source_length) result(mySources)
|
||||
|
|
@ -45,6 +52,38 @@ submodule(constitutive) constitutive_damage
|
|||
logical, dimension(:,:), allocatable :: myKinematics
|
||||
end function kinematics_slipplane_opening_init
|
||||
|
||||
module subroutine source_damage_isoBrittle_deltaState(C, Fe, ph, me)
|
||||
integer, intent(in) :: ph,me
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
Fe
|
||||
real(pReal), intent(in), dimension(6,6) :: &
|
||||
C
|
||||
end subroutine source_damage_isoBrittle_deltaState
|
||||
|
||||
|
||||
module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
S
|
||||
end subroutine source_damage_anisoBrittle_dotState
|
||||
|
||||
module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
end subroutine source_damage_anisoDuctile_dotState
|
||||
|
||||
module subroutine source_damage_isoDuctile_dotState(co, ip, el)
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
end subroutine source_damage_isoDuctile_dotState
|
||||
|
||||
|
||||
module subroutine source_damage_anisobrittle_getRateAndItsTangent(localphiDot, dLocalphiDot_dPhi, phi, phase, constituent)
|
||||
integer, intent(in) :: &
|
||||
|
|
@ -120,7 +159,8 @@ contains
|
|||
module subroutine damage_init
|
||||
|
||||
integer :: &
|
||||
ph !< counter in phase loop
|
||||
ph, & !< counter in phase loop
|
||||
Nconstituents
|
||||
class(tNode), pointer :: &
|
||||
phases, &
|
||||
phase, &
|
||||
|
|
@ -129,10 +169,18 @@ module subroutine damage_init
|
|||
|
||||
phases => config_material%get('phase')
|
||||
|
||||
allocate(current(phases%length))
|
||||
|
||||
allocate(damageState (phases%length))
|
||||
allocate(phase_Nsources(phases%length),source = 0) ! same for kinematics
|
||||
|
||||
do ph = 1,phases%length
|
||||
|
||||
Nconstituents = count(material_phaseAt == ph) * discretization_nIPs
|
||||
|
||||
allocate(current(ph)%phi(Nconstituents),source=1.0_pReal)
|
||||
allocate(current(ph)%d_phi_d_dot_phi(Nconstituents),source=0.0_pReal)
|
||||
|
||||
phase => phases%get(ph)
|
||||
sources => phase%get('source',defaultVal=emptyList)
|
||||
phase_Nsources(ph) = sources%length
|
||||
|
|
@ -295,7 +343,7 @@ module function integrateDamageState(dt,co,ip,el) result(broken)
|
|||
enddo
|
||||
|
||||
if(converged_) then
|
||||
broken = constitutive_damage_deltaState(mech_F_e(ph,me),co,ip,el,ph,me)
|
||||
broken = constitutive_damage_deltaState(mech_F_e(ph,me),ph,me)
|
||||
exit iteration
|
||||
endif
|
||||
|
||||
|
|
@ -368,14 +416,14 @@ end subroutine damage_results
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief contains the constitutive equation for calculating the rate of change of microstructure
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
function constitutive_damage_collectDotState(co,ip,el,ph,of) result(broken)
|
||||
function constitutive_damage_collectDotState(co,ip,el,ph,me) result(broken)
|
||||
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
co, & !< component-ID me integration point
|
||||
ip, & !< integration point
|
||||
el, & !< element
|
||||
ph, &
|
||||
of
|
||||
me
|
||||
integer :: &
|
||||
so !< counter in source loop
|
||||
logical :: broken
|
||||
|
|
@ -394,12 +442,11 @@ function constitutive_damage_collectDotState(co,ip,el,ph,of) result(broken)
|
|||
call source_damage_anisoDuctile_dotState(co, ip, el)
|
||||
|
||||
case (DAMAGE_ANISOBRITTLE_ID) sourceType
|
||||
call source_damage_anisoBrittle_dotState(mech_S(material_phaseAt(co,el),material_phaseMemberAt(co,ip,el)),&
|
||||
co, ip, el) ! correct stress?
|
||||
call source_damage_anisoBrittle_dotState(mech_S(ph,me),co, ip, el) ! correct stress?
|
||||
|
||||
end select sourceType
|
||||
|
||||
broken = broken .or. any(IEEE_is_NaN(damageState(ph)%p(so)%dotState(:,of)))
|
||||
broken = broken .or. any(IEEE_is_NaN(damageState(ph)%p(so)%dotState(:,me)))
|
||||
|
||||
enddo SourceLoop
|
||||
|
||||
|
|
@ -411,14 +458,11 @@ end function constitutive_damage_collectDotState
|
|||
!> @brief for constitutive models having an instantaneous change of state
|
||||
!> will return false if delta state is not needed/supported by the constitutive model
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
function constitutive_damage_deltaState(Fe, co, ip, el, ph, of) result(broken)
|
||||
function constitutive_damage_deltaState(Fe, ph, me) result(broken)
|
||||
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el, & !< element
|
||||
ph, &
|
||||
of
|
||||
me
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
Fe !< elastic deformation gradient
|
||||
integer :: &
|
||||
|
|
@ -436,14 +480,13 @@ function constitutive_damage_deltaState(Fe, co, ip, el, ph, of) result(broken)
|
|||
sourceType: select case (phase_source(so,ph))
|
||||
|
||||
case (DAMAGE_ISOBRITTLE_ID) sourceType
|
||||
call source_damage_isoBrittle_deltaState (constitutive_homogenizedC(co,ip,el), Fe, &
|
||||
co, ip, el)
|
||||
broken = any(IEEE_is_NaN(damageState(ph)%p(so)%deltaState(:,of)))
|
||||
call source_damage_isoBrittle_deltaState(constitutive_homogenizedC(ph,me), Fe, ph,me)
|
||||
broken = any(IEEE_is_NaN(damageState(ph)%p(so)%deltaState(:,me)))
|
||||
if(.not. broken) then
|
||||
myOffset = damageState(ph)%p(so)%offsetDeltaState
|
||||
mySize = damageState(ph)%p(so)%sizeDeltaState
|
||||
damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,of) = &
|
||||
damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,of) + damageState(ph)%p(so)%deltaState(1:mySize,of)
|
||||
damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,me) = &
|
||||
damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,me) + damageState(ph)%p(so)%deltaState(1:mySize,me)
|
||||
endif
|
||||
|
||||
end select sourceType
|
||||
|
|
@ -484,4 +527,28 @@ function source_active(source_label,src_length) result(active_source)
|
|||
end function source_active
|
||||
|
||||
|
||||
!----------------------------------------------------------------------------------------------
|
||||
!< @brief Set damage parameter
|
||||
!----------------------------------------------------------------------------------------------
|
||||
module subroutine constitutive_damage_set_phi(phi,co,ce)
|
||||
|
||||
real(pReal), intent(in) :: phi
|
||||
integer, intent(in) :: ce, co
|
||||
|
||||
|
||||
current(material_phaseAt2(co,ce))%phi(material_phaseMemberAt2(co,ce)) = phi
|
||||
|
||||
end subroutine constitutive_damage_set_phi
|
||||
|
||||
|
||||
module function constitutive_damage_get_phi(co,ip,el) result(phi)
|
||||
|
||||
integer, intent(in) :: co, ip, el
|
||||
real(pReal) :: phi
|
||||
|
||||
phi = current(material_phaseAt(co,el))%phi(material_phaseMemberAt(co,ip,el))
|
||||
|
||||
end function constitutive_damage_get_phi
|
||||
|
||||
|
||||
end submodule constitutive_damage
|
||||
|
|
|
|||
|
|
@ -307,13 +307,9 @@ submodule(constitutive) constitutive_mech
|
|||
character(len=*), intent(in) :: group
|
||||
end subroutine plastic_nonlocal_results
|
||||
|
||||
module function plastic_dislotwin_homogenizedC(co,ip,el) result(homogenizedC)
|
||||
real(pReal), dimension(6,6) :: &
|
||||
homogenizedC
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
module function plastic_dislotwin_homogenizedC(ph,me) result(homogenizedC)
|
||||
real(pReal), dimension(6,6) :: homogenizedC
|
||||
integer, intent(in) :: ph,me
|
||||
end function plastic_dislotwin_homogenizedC
|
||||
|
||||
|
||||
|
|
@ -559,16 +555,16 @@ subroutine constitutive_hooke_SandItsTangents(S, dS_dFe, dS_dFi, &
|
|||
real(pReal), intent(out), dimension(3,3,3,3) :: &
|
||||
dS_dFe, & !< derivative of 2nd P-K stress with respect to elastic deformation gradient
|
||||
dS_dFi !< derivative of 2nd P-K stress with respect to intermediate deformation gradient
|
||||
|
||||
real(pReal), dimension(3,3) :: E
|
||||
real(pReal), dimension(3,3,3,3) :: C
|
||||
integer :: &
|
||||
ho, & !< homogenization
|
||||
d !< counter in degradation loop
|
||||
integer :: &
|
||||
i, j
|
||||
d, & !< counter in degradation loop
|
||||
i, j, ph, me
|
||||
|
||||
ho = material_homogenizationAt(el)
|
||||
C = math_66toSym3333(constitutive_homogenizedC(co,ip,el))
|
||||
C = math_66toSym3333(constitutive_homogenizedC(material_phaseAt(co,el),material_phaseMemberAt(co,ip,el)))
|
||||
|
||||
DegradationLoop: do d = 1, phase_NstiffnessDegradations(material_phaseAt(co,el))
|
||||
degradationType: select case(phase_stiffnessDegradation(d,material_phaseAt(co,el)))
|
||||
|
|
@ -1535,19 +1531,16 @@ end subroutine mech_forward
|
|||
!> @brief returns the homogenize elasticity matrix
|
||||
!> ToDo: homogenizedC66 would be more consistent
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module function constitutive_homogenizedC(co,ip,el) result(C)
|
||||
module function constitutive_homogenizedC(ph,me) result(C)
|
||||
|
||||
real(pReal), dimension(6,6) :: C
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
integer, intent(in) :: ph, me
|
||||
|
||||
plasticityType: select case (phase_plasticity(material_phaseAt(co,el)))
|
||||
plasticityType: select case (phase_plasticity(ph))
|
||||
case (PLASTICITY_DISLOTWIN_ID) plasticityType
|
||||
C = plastic_dislotwin_homogenizedC(co,ip,el)
|
||||
C = plastic_dislotwin_homogenizedC(ph,me)
|
||||
case default plasticityType
|
||||
C = lattice_C66(1:6,1:6,material_phaseAt(co,el))
|
||||
C = lattice_C66(1:6,1:6,ph)
|
||||
end select plasticityType
|
||||
|
||||
end function constitutive_homogenizedC
|
||||
|
|
|
|||
|
|
@ -485,35 +485,32 @@ end function plastic_dislotwin_init
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief Return the homogenized elasticity matrix.
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module function plastic_dislotwin_homogenizedC(co,ip,el) result(homogenizedC)
|
||||
module function plastic_dislotwin_homogenizedC(ph,me) result(homogenizedC)
|
||||
|
||||
integer, intent(in) :: &
|
||||
ph, me
|
||||
real(pReal), dimension(6,6) :: &
|
||||
homogenizedC
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
|
||||
integer :: i, &
|
||||
of
|
||||
integer :: i
|
||||
real(pReal) :: f_unrotated
|
||||
|
||||
of = material_phasememberAt(co,ip,el)
|
||||
associate(prm => param(phase_plasticityInstance(material_phaseAt(co,el))),&
|
||||
stt => state(phase_plasticityInstance(material_phaseAT(co,el))))
|
||||
|
||||
associate(prm => param(phase_plasticityInstance(ph)),&
|
||||
stt => state(phase_plasticityInstance(ph)))
|
||||
|
||||
f_unrotated = 1.0_pReal &
|
||||
- sum(stt%f_tw(1:prm%sum_N_tw,of)) &
|
||||
- sum(stt%f_tr(1:prm%sum_N_tr,of))
|
||||
- sum(stt%f_tw(1:prm%sum_N_tw,me)) &
|
||||
- sum(stt%f_tr(1:prm%sum_N_tr,me))
|
||||
|
||||
homogenizedC = f_unrotated * prm%C66
|
||||
do i=1,prm%sum_N_tw
|
||||
homogenizedC = homogenizedC &
|
||||
+ stt%f_tw(i,of)*prm%C66_tw(1:6,1:6,i)
|
||||
+ stt%f_tw(i,me)*prm%C66_tw(1:6,1:6,i)
|
||||
enddo
|
||||
do i=1,prm%sum_N_tr
|
||||
homogenizedC = homogenizedC &
|
||||
+ stt%f_tr(i,of)*prm%C66_tr(1:6,1:6,i)
|
||||
+ stt%f_tr(i,me)*prm%C66_tr(1:6,1:6,i)
|
||||
enddo
|
||||
|
||||
end associate
|
||||
|
|
|
|||
|
|
@ -36,6 +36,13 @@ submodule(constitutive) constitutive_thermal
|
|||
end function kinematics_thermal_expansion_init
|
||||
|
||||
|
||||
module subroutine source_thermal_externalheat_dotState(ph, me)
|
||||
integer, intent(in) :: &
|
||||
ph, &
|
||||
me
|
||||
end subroutine source_thermal_externalheat_dotState
|
||||
|
||||
|
||||
module subroutine thermal_dissipation_getRate(TDot, Tstar,Lp,phase)
|
||||
integer, intent(in) :: &
|
||||
phase !< phase ID of element
|
||||
|
|
@ -47,10 +54,10 @@ submodule(constitutive) constitutive_thermal
|
|||
TDot
|
||||
end subroutine thermal_dissipation_getRate
|
||||
|
||||
module subroutine thermal_externalheat_getRate(TDot, phase,of)
|
||||
module subroutine thermal_externalheat_getRate(TDot, ph,me)
|
||||
integer, intent(in) :: &
|
||||
phase, &
|
||||
of
|
||||
ph, &
|
||||
me
|
||||
real(pReal), intent(out) :: &
|
||||
TDot
|
||||
end subroutine thermal_externalheat_getRate
|
||||
|
|
|
|||
|
|
@ -85,18 +85,18 @@ end function source_thermal_externalheat_init
|
|||
!> @brief rate of change of state
|
||||
!> @details state only contains current time to linearly interpolate given heat powers
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module subroutine source_thermal_externalheat_dotState(phase, of)
|
||||
module subroutine source_thermal_externalheat_dotState(ph, me)
|
||||
|
||||
integer, intent(in) :: &
|
||||
phase, &
|
||||
of
|
||||
ph, &
|
||||
me
|
||||
|
||||
integer :: &
|
||||
sourceOffset
|
||||
|
||||
sourceOffset = source_thermal_externalheat_offset(phase)
|
||||
sourceOffset = source_thermal_externalheat_offset(ph)
|
||||
|
||||
thermalState(phase)%p(sourceOffset)%dotState(1,of) = 1.0_pReal ! state is current time
|
||||
thermalState(ph)%p(sourceOffset)%dotState(1,me) = 1.0_pReal ! state is current time
|
||||
|
||||
end subroutine source_thermal_externalheat_dotState
|
||||
|
||||
|
|
@ -104,11 +104,11 @@ end subroutine source_thermal_externalheat_dotState
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief returns local heat generation rate
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module subroutine thermal_externalheat_getRate(TDot, phase, of)
|
||||
module subroutine thermal_externalheat_getRate(TDot, ph, me)
|
||||
|
||||
integer, intent(in) :: &
|
||||
phase, &
|
||||
of
|
||||
ph, &
|
||||
me
|
||||
real(pReal), intent(out) :: &
|
||||
TDot
|
||||
|
||||
|
|
@ -117,18 +117,18 @@ module subroutine thermal_externalheat_getRate(TDot, phase, of)
|
|||
real(pReal) :: &
|
||||
frac_time
|
||||
|
||||
sourceOffset = source_thermal_externalheat_offset(phase)
|
||||
sourceOffset = source_thermal_externalheat_offset(ph)
|
||||
|
||||
associate(prm => param(source_thermal_externalheat_instance(phase)))
|
||||
associate(prm => param(source_thermal_externalheat_instance(ph)))
|
||||
do interval = 1, prm%nIntervals ! scan through all rate segments
|
||||
frac_time = (thermalState(phase)%p(sourceOffset)%state(1,of) - prm%t_n(interval)) &
|
||||
frac_time = (thermalState(ph)%p(sourceOffset)%state(1,me) - prm%t_n(interval)) &
|
||||
/ (prm%t_n(interval+1) - prm%t_n(interval)) ! fractional time within segment
|
||||
if ( (frac_time < 0.0_pReal .and. interval == 1) &
|
||||
.or. (frac_time >= 1.0_pReal .and. interval == prm%nIntervals) &
|
||||
.or. (frac_time >= 0.0_pReal .and. frac_time < 1.0_pReal) ) &
|
||||
TDot = prm%f_T(interval ) * (1.0_pReal - frac_time) + &
|
||||
prm%f_T(interval+1) * frac_time ! interpolate heat rate between segment boundaries...
|
||||
! ...or extrapolate if outside of bounds
|
||||
! ...or extrapolate if outside me bounds
|
||||
enddo
|
||||
end associate
|
||||
|
||||
|
|
|
|||
|
|
@ -17,6 +17,7 @@ module grid_damage_spectral
|
|||
use discretization_grid
|
||||
use damage_nonlocal
|
||||
use YAML_types
|
||||
use homogenization
|
||||
use config
|
||||
|
||||
implicit none
|
||||
|
|
@ -197,6 +198,7 @@ function grid_damage_spectral_solution(timeinc) result(solution)
|
|||
do k = 1, grid3; do j = 1, grid(2); do i = 1,grid(1)
|
||||
cell = cell + 1
|
||||
call damage_nonlocal_putNonLocalDamage(phi_current(i,j,k),1,cell)
|
||||
homogenization_phi(cell) = phi_current(i,j,k)
|
||||
enddo; enddo; enddo
|
||||
|
||||
call VecMin(solution_vec,devNull,phi_min,ierr); CHKERRQ(ierr)
|
||||
|
|
@ -234,6 +236,7 @@ subroutine grid_damage_spectral_forward(cutBack)
|
|||
do k = 1, grid3; do j = 1, grid(2); do i = 1,grid(1)
|
||||
cell = cell + 1
|
||||
call damage_nonlocal_putNonLocalDamage(phi_current(i,j,k),1,cell)
|
||||
homogenization_phi(cell) = phi_current(i,j,k)
|
||||
enddo; enddo; enddo
|
||||
else
|
||||
phi_lastInc = phi_current
|
||||
|
|
|
|||
|
|
@ -29,7 +29,9 @@ module homogenization
|
|||
! General variables for the homogenization at a material point
|
||||
real(pReal), dimension(:), allocatable, public :: &
|
||||
homogenization_T, &
|
||||
homogenization_dot_T
|
||||
homogenization_dot_T, &
|
||||
homogenization_phi, &
|
||||
homogenization_dot_phi
|
||||
real(pReal), dimension(:,:,:), allocatable, public :: &
|
||||
homogenization_F0, & !< def grad of IP at start of FE increment
|
||||
homogenization_F !< def grad of IP to be reached at end of FE increment
|
||||
|
|
@ -62,6 +64,9 @@ module homogenization
|
|||
module subroutine thermal_init
|
||||
end subroutine thermal_init
|
||||
|
||||
module subroutine damage_init
|
||||
end subroutine damage_init
|
||||
|
||||
module subroutine mech_partition(subF,ip,el)
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
subF
|
||||
|
|
@ -75,6 +80,11 @@ module homogenization
|
|||
integer, intent(in) :: ce
|
||||
end subroutine thermal_partition
|
||||
|
||||
module subroutine damage_partition(phi,ce)
|
||||
real(pReal), intent(in) :: phi
|
||||
integer, intent(in) :: ce
|
||||
end subroutine damage_partition
|
||||
|
||||
module subroutine thermal_homogenize(ip,el)
|
||||
integer, intent(in) :: ip,el
|
||||
end subroutine thermal_homogenize
|
||||
|
|
@ -118,7 +128,7 @@ contains
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief module initialization
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine homogenization_init
|
||||
subroutine homogenization_init()
|
||||
|
||||
class (tNode) , pointer :: &
|
||||
num_homog, &
|
||||
|
|
@ -142,6 +152,7 @@ subroutine homogenization_init
|
|||
|
||||
call mech_init(num_homog)
|
||||
call thermal_init()
|
||||
call damage_init()
|
||||
|
||||
if (any(thermal_type == THERMAL_isothermal_ID)) call thermal_isothermal_init(homogenization_T)
|
||||
if (any(thermal_type == THERMAL_conduction_ID)) call thermal_conduction_init(homogenization_T)
|
||||
|
|
|
|||
|
|
@ -0,0 +1,40 @@
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @author Martin Diehl, KU Leuven
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
submodule(homogenization) homogenization_damage
|
||||
|
||||
|
||||
contains
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief Allocate variables and set parameters.
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module subroutine damage_init()
|
||||
|
||||
|
||||
print'(/,a)', ' <<<+- homogenization_damage init -+>>>'
|
||||
|
||||
allocate(homogenization_phi(discretization_nIPs*discretization_Nelems))
|
||||
allocate(homogenization_dot_phi(discretization_nIPs*discretization_Nelems))
|
||||
|
||||
end subroutine damage_init
|
||||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief Partition temperature onto the individual constituents.
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module subroutine damage_partition(phi,ce)
|
||||
|
||||
real(pReal), intent(in) :: phi
|
||||
integer, intent(in) :: ce
|
||||
|
||||
integer :: co
|
||||
|
||||
do co = 1, homogenization_Nconstituents(material_homogenizationAt2(ce))
|
||||
call constitutive_damage_set_phi(phi,co,ce)
|
||||
enddo
|
||||
|
||||
end subroutine damage_partition
|
||||
|
||||
|
||||
end submodule homogenization_damage
|
||||
|
|
@ -656,8 +656,11 @@ module function mech_RGC_updateState(P,F,avgF,dt,dPdF,ip,el) result(doneAndHappy
|
|||
ip, & !< integration point number
|
||||
el !< element number
|
||||
|
||||
real(pReal), dimension(6,6) :: C
|
||||
|
||||
equivalentMu = lattice_equivalent_mu(constitutive_homogenizedC(grainID,ip,el),'voigt')
|
||||
|
||||
C = constitutive_homogenizedC(material_phaseAt(grainID,el),material_phaseMemberAt(grainID,ip,el))
|
||||
equivalentMu = lattice_equivalent_mu(C,'voigt')
|
||||
|
||||
end function equivalentMu
|
||||
|
||||
|
|
|
|||
|
|
@ -130,8 +130,8 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
|
|||
S
|
||||
|
||||
integer :: &
|
||||
phase, &
|
||||
constituent, &
|
||||
ph, &
|
||||
me, &
|
||||
sourceOffset, &
|
||||
damageOffset, &
|
||||
homog, &
|
||||
|
|
@ -139,14 +139,14 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
|
|||
real(pReal) :: &
|
||||
traction_d, traction_t, traction_n, traction_crit
|
||||
|
||||
phase = material_phaseAt(co,el)
|
||||
constituent = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_anisoBrittle_offset(phase)
|
||||
ph = material_phaseAt(co,el)
|
||||
me = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_anisoBrittle_offset(ph)
|
||||
homog = material_homogenizationAt(el)
|
||||
damageOffset = material_homogenizationMemberAt(ip,el)
|
||||
|
||||
associate(prm => param(source_damage_anisoBrittle_instance(phase)))
|
||||
damageState(phase)%p(sourceOffset)%dotState(1,constituent) = 0.0_pReal
|
||||
associate(prm => param(source_damage_anisoBrittle_instance(ph)))
|
||||
damageState(ph)%p(sourceOffset)%dotState(1,me) = 0.0_pReal
|
||||
do i = 1, prm%sum_N_cl
|
||||
traction_d = math_tensordot(S,prm%cleavage_systems(1:3,1:3,1,i))
|
||||
traction_t = math_tensordot(S,prm%cleavage_systems(1:3,1:3,2,i))
|
||||
|
|
@ -154,8 +154,8 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
|
|||
|
||||
traction_crit = prm%g_crit(i)*damage(homog)%p(damageOffset)**2.0_pReal
|
||||
|
||||
damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
|
||||
= damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
|
||||
damageState(ph)%p(sourceOffset)%dotState(1,me) &
|
||||
= damageState(ph)%p(sourceOffset)%dotState(1,me) &
|
||||
+ prm%dot_o / prm%s_crit(i) &
|
||||
* ((max(0.0_pReal, abs(traction_d) - traction_crit)/traction_crit)**prm%q + &
|
||||
(max(0.0_pReal, abs(traction_t) - traction_crit)/traction_crit)**prm%q + &
|
||||
|
|
|
|||
|
|
@ -115,21 +115,21 @@ module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
|
|||
el !< element
|
||||
|
||||
integer :: &
|
||||
phase, &
|
||||
constituent, &
|
||||
ph, &
|
||||
me, &
|
||||
sourceOffset, &
|
||||
damageOffset, &
|
||||
homog
|
||||
|
||||
phase = material_phaseAt(co,el)
|
||||
constituent = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_anisoDuctile_offset(phase)
|
||||
ph = material_phaseAt(co,el)
|
||||
me = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_anisoDuctile_offset(ph)
|
||||
homog = material_homogenizationAt(el)
|
||||
damageOffset = material_homogenizationMemberAt(ip,el)
|
||||
|
||||
associate(prm => param(source_damage_anisoDuctile_instance(phase)))
|
||||
damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
|
||||
= sum(plasticState(phase)%slipRate(:,constituent)/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit)
|
||||
associate(prm => param(source_damage_anisoDuctile_instance(ph)))
|
||||
damageState(ph)%p(sourceOffset)%dotState(1,me) &
|
||||
= sum(plasticState(ph)%slipRate(:,me)/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit)
|
||||
end associate
|
||||
|
||||
end subroutine source_damage_anisoDuctile_dotState
|
||||
|
|
|
|||
|
|
@ -94,43 +94,36 @@ end function source_damage_isoBrittle_init
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief calculates derived quantities from state
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
module subroutine source_damage_isoBrittle_deltaState(C, Fe, co, ip, el)
|
||||
module subroutine source_damage_isoBrittle_deltaState(C, Fe, ph,me)
|
||||
|
||||
integer, intent(in) :: &
|
||||
co, & !< component-ID of integration point
|
||||
ip, & !< integration point
|
||||
el !< element
|
||||
integer, intent(in) :: ph,me
|
||||
real(pReal), intent(in), dimension(3,3) :: &
|
||||
Fe
|
||||
real(pReal), intent(in), dimension(6,6) :: &
|
||||
C
|
||||
|
||||
integer :: &
|
||||
phase, &
|
||||
constituent, &
|
||||
sourceOffset
|
||||
real(pReal), dimension(6) :: &
|
||||
strain
|
||||
real(pReal) :: &
|
||||
strainenergy
|
||||
|
||||
phase = material_phaseAt(co,el) !< phase ID at co,ip,el
|
||||
constituent = material_phasememberAt(co,ip,el) !< state array offset for phase ID at co,ip,el
|
||||
sourceOffset = source_damage_isoBrittle_offset(phase)
|
||||
sourceOffset = source_damage_isoBrittle_offset(ph)
|
||||
|
||||
strain = 0.5_pReal*math_sym33to6(matmul(transpose(Fe),Fe)-math_I3)
|
||||
|
||||
associate(prm => param(source_damage_isoBrittle_instance(phase)))
|
||||
associate(prm => param(source_damage_isoBrittle_instance(ph)))
|
||||
strainenergy = 2.0_pReal*sum(strain*matmul(C,strain))/prm%W_crit
|
||||
! ToDo: check strainenergy = 2.0_pReal*dot_product(strain,matmul(C,strain))/prm%W_crit
|
||||
|
||||
if (strainenergy > damageState(phase)%p(sourceOffset)%subState0(1,constituent)) then
|
||||
damageState(phase)%p(sourceOffset)%deltaState(1,constituent) = &
|
||||
strainenergy - damageState(phase)%p(sourceOffset)%state(1,constituent)
|
||||
if (strainenergy > damageState(ph)%p(sourceOffset)%subState0(1,me)) then
|
||||
damageState(ph)%p(sourceOffset)%deltaState(1,me) = &
|
||||
strainenergy - damageState(ph)%p(sourceOffset)%state(1,me)
|
||||
else
|
||||
damageState(phase)%p(sourceOffset)%deltaState(1,constituent) = &
|
||||
damageState(phase)%p(sourceOffset)%subState0(1,constituent) - &
|
||||
damageState(phase)%p(sourceOffset)%state(1,constituent)
|
||||
damageState(ph)%p(sourceOffset)%deltaState(1,me) = &
|
||||
damageState(ph)%p(sourceOffset)%subState0(1,me) - &
|
||||
damageState(ph)%p(sourceOffset)%state(1,me)
|
||||
endif
|
||||
end associate
|
||||
|
||||
|
|
|
|||
|
|
@ -106,21 +106,21 @@ module subroutine source_damage_isoDuctile_dotState(co, ip, el)
|
|||
el !< element
|
||||
|
||||
integer :: &
|
||||
phase, &
|
||||
constituent, &
|
||||
ph, &
|
||||
me, &
|
||||
sourceOffset, &
|
||||
damageOffset, &
|
||||
homog
|
||||
|
||||
phase = material_phaseAt(co,el)
|
||||
constituent = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_isoDuctile_offset(phase)
|
||||
ph = material_phaseAt(co,el)
|
||||
me = material_phasememberAt(co,ip,el)
|
||||
sourceOffset = source_damage_isoDuctile_offset(ph)
|
||||
homog = material_homogenizationAt(el)
|
||||
damageOffset = material_homogenizationMemberAt(ip,el)
|
||||
|
||||
associate(prm => param(source_damage_isoDuctile_instance(phase)))
|
||||
damageState(phase)%p(sourceOffset)%dotState(1,constituent) = &
|
||||
sum(plasticState(phase)%slipRate(:,constituent))/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit
|
||||
associate(prm => param(source_damage_isoDuctile_instance(ph)))
|
||||
damageState(ph)%p(sourceOffset)%dotState(1,me) = &
|
||||
sum(plasticState(ph)%slipRate(:,me))/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit
|
||||
end associate
|
||||
|
||||
end subroutine source_damage_isoDuctile_dotState
|
||||
|
|
|
|||
Loading…
Reference in New Issue