223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

correct unit

This commit is contained in:
Martin Diehl 2023-03-21 22:41:52 +01:00
parent 69e4d17be2
commit 043d48d4d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_damage_anisobrittle.f90
View File

@ -72,7 +72,7 @@ module function anisobrittle_init() result(mySources)
prm%sum_N_cl = sum(abs(N_cl))
prm%p = src%get_asFloat('p')
prm%dot_o_0 = src%get_asFloat('dot_o_0')
prm%dot_o_0 = src%get_asFloat('dot_o_0')
prm%s_crit = src%get_as1dFloat('s_crit', requiredSize=size(N_cl))
prm%g_crit = src%get_as1dFloat('g_crit', requiredSize=size(N_cl))
@ -158,7 +158,7 @@ module subroutine anisobrittle_result(phase,group)
outputsLoop: do o = 1,size(prm%output)
select case(trim(prm%output(o)))
case ('Psi_D')
call result_writeDataset(stt,group,trim(prm%output(o)),'damage energy density','-')
call result_writeDataset(stt,group,trim(prm%output(o)),'damage energy density','J/m³')
end select
end do outputsLoop
end associate