From 15517c4d4f45ed52e87cf7d4eaeb7932b1ede9bb Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 7 Mar 2021 23:52:40 +0100 Subject: [PATCH] default name and output of optional physics only if active --- src/homogenization.f90 | 8 ++++---- src/homogenization_mechanical.f90 | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 90654ee99..7cff91203 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -370,17 +370,17 @@ subroutine homogenization_results call mechanical_results(group_base,ho) - group = trim(group_base)//'/damage' - call results_closeGroup(results_addGroup(group)) select case(damage_type(ho)) case(DAMAGE_NONLOCAL_ID) + group = trim(group_base)//'/damage' + call results_closeGroup(results_addGroup(group)) call damage_nonlocal_results(ho,group) end select - group = trim(group_base)//'/thermal' - call results_closeGroup(results_addGroup(group)) select case(thermal_type(ho)) case(THERMAL_CONDUCTION_ID) + group = trim(group_base)//'/thermal' + call results_closeGroup(results_addGroup(group)) call thermal_conduction_results(ho,group) end select diff --git a/src/homogenization_mechanical.f90 b/src/homogenization_mechanical.f90 index f14ddf4db..f7074bc40 100644 --- a/src/homogenization_mechanical.f90 +++ b/src/homogenization_mechanical.f90 @@ -224,7 +224,7 @@ module subroutine mechanical_results(group_base,ho) character(len=:), allocatable :: group - group = trim(group_base)//'/mech' + group = trim(group_base)//'/mechanical' call results_closeGroup(results_addGroup(group)) select case(homogenization_type(ho))