diff --git a/src/phase_thermal.f90 b/src/phase_thermal.f90
index c7a9ea75a..bc464d35a 100644
--- a/src/phase_thermal.f90
+++ b/src/phase_thermal.f90
@@ -259,9 +259,9 @@ module subroutine thermal_restartWrite(groupHandle,ph)
   integer(HID_T), intent(in) :: groupHandle
   integer, intent(in) :: ph
 
-  integer(HID_T) :: new_group
   integer :: so
 
+
   do so = 1,thermal_Nsources(ph)
     call HDF5_write(thermalState(ph)%p(so)%state,groupHandle,'omega_thermal')
   enddo
@@ -274,9 +274,9 @@ module subroutine thermal_restartRead(groupHandle,ph)
   integer(HID_T), intent(in) :: groupHandle
   integer, intent(in) :: ph
 
-  integer(HID_T) :: new_group
   integer :: so
 
+
   do so = 1,thermal_Nsources(ph)
     call HDF5_read(thermalState(ph)%p(so)%state0,groupHandle,'omega_thermal')
   enddo