following paper
This commit is contained in:
parent
4f646f03ee
commit
fb633798af
2
PRIVATE
2
PRIVATE
|
@ -1 +1 @@
|
|||
Subproject commit 459326e9840c843ade72b04cf28e50889c9779f1
|
||||
Subproject commit dd7f4efd64ebadac74cab84f713a738c71d8b737
|
|
@ -9,5 +9,5 @@ s_crit: [0.006666]
|
|||
dot_o: 1.e-3
|
||||
q: 20
|
||||
|
||||
D_11: 1.0
|
||||
l_c: 1.0
|
||||
mu: 0.001
|
||||
|
|
|
@ -2,6 +2,6 @@ type: isobrittle
|
|||
|
||||
output: [f_phi]
|
||||
|
||||
W_crit: 1400000.0
|
||||
D_11: 1.0
|
||||
G: 1400000.0
|
||||
l_c: 1.0
|
||||
mu: 0.001
|
||||
|
|
|
@ -105,9 +105,7 @@ module subroutine damage_init
|
|||
damage_active = .true.
|
||||
source => sources%get(1)
|
||||
param(ph)%mu = source%get_asFloat('mu')
|
||||
param(ph)%D(1,1) = source%get_asFloat('D_11')
|
||||
if (any(phase_lattice(ph) == ['hP','tI'])) param(ph)%D(3,3) = source%get_asFloat('D_33')
|
||||
param(ph)%D = lattice_symmetrize_33(param(ph)%D,phase_lattice(ph))
|
||||
param(ph)%D = math_I3 * source%get_asFloat('l_c')**2
|
||||
end if
|
||||
|
||||
end do
|
||||
|
|
|
@ -63,7 +63,7 @@ module function isobrittle_init() result(mySources)
|
|||
associate(prm => param(ph), dlt => deltaState(ph), stt => state(ph))
|
||||
src => sources%get(1)
|
||||
|
||||
prm%W_crit = src%get_asFloat('W_crit')
|
||||
prm%W_crit = src%get_asFloat('G')/src%get_asFloat('l_c')
|
||||
|
||||
#if defined (__GFORTRAN__)
|
||||
prm%output = output_as1dString(src)
|
||||
|
|
Loading…
Reference in New Issue