diff --git a/Solver/src/libs/mesh/HexMesh.f90 b/Solver/src/libs/mesh/HexMesh.f90 index cbe36f14b..d9c2ae1c6 100644 --- a/Solver/src/libs/mesh/HexMesh.f90 +++ b/Solver/src/libs/mesh/HexMesh.f90 @@ -3078,7 +3078,7 @@ subroutine HexMesh_SaveStatistics(self, iter, time, name, saveGradients) fID = putSolutionFileInWriteDataMode(trim(name)) do eID = 1, self % no_of_elements associate( e => self % elements(eID) ) - pos = POS_INIT_DATA + (e % globID-1)*5_AddrInt*SIZEOF_INT + no_of_stats_variables*e % offsetIO*SIZEOF_RP + pos = POS_INIT_DATA + (e % globID-1)*5_AddrInt*SIZEOF_INT + 1_AddrInt*no_of_stats_variables*e % offsetIO*SIZEOF_RP no_stat_s = 9 call writeArray(fid, e % storage % stats % data(1:no_stat_s,:,:,:), position=pos) allocate(Q(NCONS, 0:e % Nxyz(1), 0:e % Nxyz(2), 0:e % Nxyz(3))) @@ -3374,7 +3374,7 @@ subroutine HexMesh_LoadSolution( self, fileName, initial_iteration, initial_time fID = putSolutionFileInReadDataMode(trim(fileName)) do eID = 1, size(self % elements) associate( e => self % elements(eID) ) - pos = POS_INIT_DATA + (e % globID-1)*5*SIZEOF_INT + padding*e % offsetIO*SIZEOF_RP + pos = POS_INIT_DATA + (e % globID-1)*5*SIZEOF_INT + 1_AddrInt*padding*e % offsetIO*SIZEOF_RP if (has_sensor) pos = pos + (e % globID - 1) * SIZEOF_RP read(fID, pos=pos) array_rank read(fID) no_of_eqs, Nxp1, Nyp1, Nzp1