polished tests, consistent variable name

This commit is contained in:
Martin Diehl 2022-05-27 21:08:00 +02:00
parent 6fa87b4038
commit 1b5194288b
5 changed files with 6 additions and 5 deletions

@ -1 +1 @@
Subproject commit 073819b26248e2915bd5f3b6de7d4e0d27a3d423 Subproject commit 226d7b627e44247b800bce0d9eb7bef1aac6f537

View File

@ -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

View File

@ -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))

View File

@ -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

View File

@ -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