From 2cb3b2cc4540853ec1f0d9f8f9c1f2b8ec201692 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 3 Feb 2022 07:58:51 +0100 Subject: [PATCH] not needed --- src/phase_thermal.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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