diff --git a/src/grid/grid_mech_FEM.f90 b/src/grid/grid_mech_FEM.f90 index 609561c80..4bf2c6658 100644 --- a/src/grid/grid_mech_FEM.f90 +++ b/src/grid/grid_mech_FEM.f90 @@ -431,17 +431,17 @@ subroutine grid_mechanical_FEM_restartWrite fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') - call HDF5_write(groupHandle,P_aim, 'P_aim') - call HDF5_write(groupHandle,F_aim, 'F_aim') - call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc') - call HDF5_write(groupHandle,F_aimDot, 'F_aimDot') + call HDF5_write(groupHandle,P_aim, 'P_aim',.false.) + call HDF5_write(groupHandle,F_aim, 'F_aim',.false.) + call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc',.false.) + call HDF5_write(groupHandle,F_aimDot, 'F_aimDot',.false.) call HDF5_write(groupHandle,F, 'F') call HDF5_write(groupHandle,F_lastInc, 'F_lastInc') call HDF5_write(groupHandle,u_current, 'u') call HDF5_write(groupHandle,u_lastInc, 'u_lastInc') - call HDF5_write(groupHandle,C_volAvg, 'C_volAvg') - call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc') + call HDF5_write(groupHandle,C_volAvg, 'C_volAvg',.false.) + call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc',.false.) call HDF5_closeGroup(groupHandle) call HDF5_closeFile(fileHandle) diff --git a/src/grid/grid_mech_spectral_basic.f90 b/src/grid/grid_mech_spectral_basic.f90 index faf58c85e..8249a2503 100644 --- a/src/grid/grid_mech_spectral_basic.f90 +++ b/src/grid/grid_mech_spectral_basic.f90 @@ -370,16 +370,16 @@ subroutine grid_mechanical_spectral_basic_restartWrite fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') - call HDF5_write(groupHandle,P_aim, 'P_aim') - call HDF5_write(groupHandle,F_aim, 'F_aim') - call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc') - call HDF5_write(groupHandle,F_aimDot, 'F_aimDot') + call HDF5_write(groupHandle,P_aim, 'P_aim',.false.) + call HDF5_write(groupHandle,F_aim, 'F_aim',.false.) + call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc',.false.) + call HDF5_write(groupHandle,F_aimDot, 'F_aimDot',.false.) call HDF5_write(groupHandle,F, 'F') call HDF5_write(groupHandle,F_lastInc, 'F_lastInc') - call HDF5_write(groupHandle,C_volAvg, 'C_volAvg') - call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc') - call HDF5_write(groupHandle,C_minMaxAvg, 'C_minMaxAvg') + call HDF5_write(groupHandle,C_volAvg, 'C_volAvg',.false.) + call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc',.false.) + call HDF5_write(groupHandle,C_minMaxAvg, 'C_minMaxAvg',.false.) call HDF5_closeGroup(groupHandle) call HDF5_closeFile(fileHandle) diff --git a/src/grid/grid_mech_spectral_polarisation.f90 b/src/grid/grid_mech_spectral_polarisation.f90 index 31f69b4c5..676252e6d 100644 --- a/src/grid/grid_mech_spectral_polarisation.f90 +++ b/src/grid/grid_mech_spectral_polarisation.f90 @@ -426,17 +426,17 @@ subroutine grid_mechanical_spectral_polarisation_restartWrite fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') - call HDF5_write(groupHandle,F_aim, 'P_aim') - call HDF5_write(groupHandle,F_aim, 'F_aim') - call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc') - call HDF5_write(groupHandle,F_aimDot, 'F_aimDot') + call HDF5_write(groupHandle,F_aim, 'P_aim',.false.) + call HDF5_write(groupHandle,F_aim, 'F_aim',.false.) + call HDF5_write(groupHandle,F_aim_lastInc,'F_aim_lastInc',.false.) + call HDF5_write(groupHandle,F_aimDot, 'F_aimDot',.false.) call HDF5_write(groupHandle,F, 'F') call HDF5_write(groupHandle,F_lastInc, 'F_lastInc') call HDF5_write(groupHandle,F_tau, 'F_tau') call HDF5_write(groupHandle,F_tau_lastInc,'F_tau_lastInc') - call HDF5_write(groupHandle,C_volAvg, 'C_volAvg') - call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc') + call HDF5_write(groupHandle,C_volAvg, 'C_volAvg',.false.) + call HDF5_write(groupHandle,C_volAvgLastInc,'C_volAvgLastInc',.false.) call HDF5_closeGroup(groupHandle) call HDF5_closeFile(fileHandle)