some corrections to the damage models
This commit is contained in:
parent
bbb5ff6ae9
commit
35f9e91e73
|
@ -390,7 +390,9 @@ subroutine damage_anisoBrittle_microstructure(Tstar_v, subdt, ipc, ip, el)
|
|||
localDamage = max(residualStiffness,1.0_pReal/damageState(phase)%state(2,constituent))
|
||||
|
||||
damageState(phase)%state(1,constituent) = &
|
||||
localDamage
|
||||
localDamage + &
|
||||
(damageState(phase)%subState0(1,constituent) - localDamage)* &
|
||||
exp(-subdt/lattice_DamageMobility(phase))
|
||||
|
||||
end subroutine damage_anisoBrittle_microstructure
|
||||
|
||||
|
|
|
@ -331,7 +331,7 @@ subroutine damage_phaseField_microstructure(C, Fe, Cv, subdt, ipc, ip, el)
|
|||
(Cv*damage_phaseField_specificVacancyFormationEnergy(instance) + &
|
||||
sum(abs(stress*strain)))/damage_phaseField_surfaceEnergy(instance)
|
||||
damageState(phase)%state(2,constituent) = &
|
||||
(1.0_pReal - Cv)*(1.0_pReal - Cv)/drivingForce
|
||||
max(residualStiffness,(1.0_pReal - Cv)*(1.0_pReal - Cv)/drivingForce)
|
||||
|
||||
damageState(phase)%state(1,constituent) = &
|
||||
damageState(phase)%state(2,constituent) + &
|
||||
|
|
Loading…
Reference in New Issue