From 6e3515982d6fe4c727731297577d4aafe1930665 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 13 Feb 2021 07:55:32 +0100 Subject: [PATCH] not needed outside of thermal --- src/phase.f90 | 2 +- src/phase_thermal.f90 | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/phase.f90 b/src/phase.f90 index 82b82d71d..1d08f680d 100644 --- a/src/phase.f90 +++ b/src/phase.f90 @@ -71,7 +71,7 @@ module phase type(tPlasticState), allocatable, dimension(:), public :: & plasticState type(tSourceState), allocatable, dimension(:), public :: & - damageState, thermalState + damageState integer, public, protected :: & diff --git a/src/phase_thermal.f90 b/src/phase_thermal.f90 index 85ca2f7a5..5d3d89ccb 100644 --- a/src/phase_thermal.f90 +++ b/src/phase_thermal.f90 @@ -3,6 +3,9 @@ !---------------------------------------------------------------------------------------------------- submodule(phase) thermal + type(tSourceState), allocatable, dimension(:) :: & + thermalState + enum, bind(c); enumerator :: & THERMAL_UNDEFINED_ID ,& THERMAL_DISSIPATION_ID, &