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, &