From 2f08624c18c00b395bbf3da886a9c8cf37b17a85 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 19 Feb 2022 21:42:38 +0100 Subject: [PATCH] Use centrally defined room temperature --- src/homogenization.f90 | 3 ++- src/homogenization_thermal.f90 | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index ff31447d5..107a6ba8b 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -6,9 +6,10 @@ !-------------------------------------------------------------------------------------------------- module homogenization use prec + use math + use constants use IO use config - use math use material use phase use discretization diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90 index db15a355e..b7110a6f9 100644 --- a/src/homogenization_thermal.f90 +++ b/src/homogenization_thermal.f90 @@ -52,7 +52,7 @@ module subroutine thermal_init() allocate(current(configHomogenizations%length)) do ho = 1, configHomogenizations%length - allocate(current(ho)%T(count(material_homogenizationID==ho)), source=300.0_pReal) + allocate(current(ho)%T(count(material_homogenizationID==ho)), source=T_ROOM) allocate(current(ho)%dot_T(count(material_homogenizationID==ho)), source=0.0_pReal) configHomogenization => configHomogenizations%get(ho) associate(prm => param(ho))