diff --git a/src/source_thermal_dissipation.f90 b/src/source_thermal_dissipation.f90
index 9b18efef5..0d16a9171 100644
--- a/src/source_thermal_dissipation.f90
+++ b/src/source_thermal_dissipation.f90
@@ -18,12 +18,6 @@ module source_thermal_dissipation
     source_thermal_dissipation_offset, &                                                            !< which source is my current thermal dissipation mechanism?
     source_thermal_dissipation_instance                                                             !< instance of thermal dissipation source mechanism
  
-  integer,           dimension(:,:), allocatable, target, public :: &
-    source_thermal_dissipation_sizePostResult                                                       !< size of each post result output
- 
-  character(len=64), dimension(:,:), allocatable, target, public :: &
-    source_thermal_dissipation_output                                                               !< name of each post result output
- 
   type :: tParameters                                                                               !< container type for internal constitutive parameters
     real(pReal) :: &
       kappa
@@ -68,10 +62,6 @@ subroutine source_thermal_dissipation_init
     enddo    
   enddo
     
-  allocate(source_thermal_dissipation_sizePostResult(maxval(phase_Noutput),Ninstance),source=0)
-  allocate(source_thermal_dissipation_output  (maxval(phase_Noutput),Ninstance))
-           source_thermal_dissipation_output = ''
- 
   do p=1, size(config_phase)
     if (all(phase_source(:,p) /= SOURCE_THERMAL_DISSIPATION_ID)) cycle
     instance = source_thermal_dissipation_instance(p)
diff --git a/src/source_thermal_externalheat.f90 b/src/source_thermal_externalheat.f90
index 1b9d03529..00e6da6bf 100644
--- a/src/source_thermal_externalheat.f90
+++ b/src/source_thermal_externalheat.f90
@@ -15,17 +15,8 @@ module source_thermal_externalheat
   private
 
   integer,           dimension(:),   allocatable,         public, protected :: &
-    source_thermal_externalheat_offset, &                                                                 !< which source is my current thermal dissipation mechanism?
-    source_thermal_externalheat_instance                                                                  !< instance of thermal dissipation source mechanism
-
-  integer,           dimension(:,:), allocatable, target, public :: &
-    source_thermal_externalheat_sizePostResult                                                            !< size of each post result output
-
-  character(len=64), dimension(:,:), allocatable, target, public :: &
-    source_thermal_externalheat_output                                                                    !< name of each post result output
-   
-  integer,                       dimension(:),   allocatable, target, public :: &
-    source_thermal_externalheat_Noutput                                                                   !< number of outputs per instance of this source 
+    source_thermal_externalheat_offset, &                                                           !< which source is my current thermal dissipation mechanism?
+    source_thermal_externalheat_instance                                                            !< instance of thermal dissipation source mechanism
 
   type  :: tParameters                                                                              !< container type for internal constitutive parameters
     real(pReal), dimension(:), allocatable :: &
@@ -73,11 +64,6 @@ subroutine source_thermal_externalheat_init
     enddo    
   enddo
     
-  allocate(source_thermal_externalheat_sizePostResult(maxval(phase_Noutput),maxNinstance),source=0)
-  allocate(source_thermal_externalheat_output  (maxval(phase_Noutput),maxNinstance))
-           source_thermal_externalheat_output = ''
-  allocate(source_thermal_externalheat_Noutput(maxNinstance),                             source=0) 
- 
   allocate(param(maxNinstance))
  
   do p=1, size(config_phase)
@@ -117,6 +103,7 @@ subroutine source_thermal_externalheat_dotState(phase, of)
 
 end subroutine source_thermal_externalheat_dotState
 
+
 !--------------------------------------------------------------------------------------------------
 !> @brief returns local heat generation rate 
 !--------------------------------------------------------------------------------------------------