default name
and output of optional physics only if active
This commit is contained in:
parent
6a191a7338
commit
15517c4d4f
|
@ -370,17 +370,17 @@ subroutine homogenization_results
|
||||||
|
|
||||||
call mechanical_results(group_base,ho)
|
call mechanical_results(group_base,ho)
|
||||||
|
|
||||||
group = trim(group_base)//'/damage'
|
|
||||||
call results_closeGroup(results_addGroup(group))
|
|
||||||
select case(damage_type(ho))
|
select case(damage_type(ho))
|
||||||
case(DAMAGE_NONLOCAL_ID)
|
case(DAMAGE_NONLOCAL_ID)
|
||||||
|
group = trim(group_base)//'/damage'
|
||||||
|
call results_closeGroup(results_addGroup(group))
|
||||||
call damage_nonlocal_results(ho,group)
|
call damage_nonlocal_results(ho,group)
|
||||||
end select
|
end select
|
||||||
|
|
||||||
group = trim(group_base)//'/thermal'
|
|
||||||
call results_closeGroup(results_addGroup(group))
|
|
||||||
select case(thermal_type(ho))
|
select case(thermal_type(ho))
|
||||||
case(THERMAL_CONDUCTION_ID)
|
case(THERMAL_CONDUCTION_ID)
|
||||||
|
group = trim(group_base)//'/thermal'
|
||||||
|
call results_closeGroup(results_addGroup(group))
|
||||||
call thermal_conduction_results(ho,group)
|
call thermal_conduction_results(ho,group)
|
||||||
end select
|
end select
|
||||||
|
|
||||||
|
|
|
@ -224,7 +224,7 @@ module subroutine mechanical_results(group_base,ho)
|
||||||
|
|
||||||
character(len=:), allocatable :: group
|
character(len=:), allocatable :: group
|
||||||
|
|
||||||
group = trim(group_base)//'/mech'
|
group = trim(group_base)//'/mechanical'
|
||||||
call results_closeGroup(results_addGroup(group))
|
call results_closeGroup(results_addGroup(group))
|
||||||
|
|
||||||
select case(homogenization_type(ho))
|
select case(homogenization_type(ho))
|
||||||
|
|
Loading…
Reference in New Issue