diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 7232608b3..76b93b163 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -28,7 +28,8 @@ module homogenization
 !--------------------------------------------------------------------------------------------------
 ! General variables for the homogenization at a  material point
   real(pReal),   dimension(:),         allocatable, public :: &
-    homogenization_T
+    homogenization_T, &
+    homogenization_dot_T
   real(pReal),   dimension(:,:,:),     allocatable, public :: &
     homogenization_F0, &                                                                            !< def grad of IP at start of FE increment
     homogenization_F                                                                                !< def grad of IP to be reached at end of FE increment
diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90
index f181d97fa..4dbece13f 100644
--- a/src/homogenization_thermal.f90
+++ b/src/homogenization_thermal.f90
@@ -15,7 +15,7 @@ module subroutine thermal_init()
   print'(/,a)',   ' <<<+-  homogenization_thermal init  -+>>>'
 
   allocate(homogenization_T(discretization_nIPs*discretization_Nelems))
-
+  allocate(homogenization_dot_T(discretization_nIPs*discretization_Nelems))
 
 end subroutine thermal_init