polished tests, consistent variable name
This commit is contained in:
parent
6fa87b4038
commit
1b5194288b
2
PRIVATE
2
PRIVATE
|
@ -1 +1 @@
|
||||||
Subproject commit 073819b26248e2915bd5f3b6de7d4e0d27a3d423
|
Subproject commit 226d7b627e44247b800bce0d9eb7bef1aac6f537
|
|
@ -2,6 +2,6 @@ type: isobrittle
|
||||||
|
|
||||||
output: [f_phi]
|
output: [f_phi]
|
||||||
|
|
||||||
G: 1400000.0
|
G_crit: 1400000.0
|
||||||
l_c: 1.0
|
l_c: 1.0
|
||||||
mu: 0.001
|
mu: 0.001
|
||||||
|
|
|
@ -166,6 +166,7 @@ module subroutine damage_results(ho,group)
|
||||||
|
|
||||||
integer :: o
|
integer :: o
|
||||||
|
|
||||||
|
|
||||||
associate(prm => param(ho))
|
associate(prm => param(ho))
|
||||||
outputsLoop: do o = 1,size(prm%output)
|
outputsLoop: do o = 1,size(prm%output)
|
||||||
select case(prm%output(o))
|
select case(prm%output(o))
|
||||||
|
|
|
@ -157,7 +157,7 @@ module subroutine anisobrittle_results(phase,group)
|
||||||
outputsLoop: do o = 1,size(prm%output)
|
outputsLoop: do o = 1,size(prm%output)
|
||||||
select case(trim(prm%output(o)))
|
select case(trim(prm%output(o)))
|
||||||
case ('f_phi')
|
case ('f_phi')
|
||||||
call results_writeDataset(stt,group,trim(prm%output(o)),'driving force','J/m³')
|
call results_writeDataset(stt,group,trim(prm%output(o)),'driving force','-')
|
||||||
end select
|
end select
|
||||||
end do outputsLoop
|
end do outputsLoop
|
||||||
end associate
|
end associate
|
||||||
|
|
|
@ -63,7 +63,7 @@ module function isobrittle_init() result(mySources)
|
||||||
associate(prm => param(ph), dlt => deltaState(ph), stt => state(ph))
|
associate(prm => param(ph), dlt => deltaState(ph), stt => state(ph))
|
||||||
src => sources%get(1)
|
src => sources%get(1)
|
||||||
|
|
||||||
prm%W_crit = src%get_asFloat('G')/src%get_asFloat('l_c')
|
prm%W_crit = src%get_asFloat('G_crit')/src%get_asFloat('l_c')
|
||||||
|
|
||||||
#if defined (__GFORTRAN__)
|
#if defined (__GFORTRAN__)
|
||||||
prm%output = output_as1dString(src)
|
prm%output = output_as1dString(src)
|
||||||
|
@ -139,7 +139,7 @@ module subroutine isobrittle_results(phase,group)
|
||||||
outputsLoop: do o = 1,size(prm%output)
|
outputsLoop: do o = 1,size(prm%output)
|
||||||
select case(trim(prm%output(o)))
|
select case(trim(prm%output(o)))
|
||||||
case ('f_phi')
|
case ('f_phi')
|
||||||
call results_writeDataset(stt,group,trim(prm%output(o)),'driving force','J/m³') ! Wrong, this is dimensionless
|
call results_writeDataset(stt,group,trim(prm%output(o)),'driving force','-')
|
||||||
end select
|
end select
|
||||||
end do outputsLoop
|
end do outputsLoop
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue