From da51fa5fdce1a499d9b0b51255fc9a209a6bed24 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 21 Jun 2023 09:37:00 +0000 Subject: [PATCH] Reporting language polishing --- src/grid/grid_damage_spectral.f90 | 2 +- src/grid/grid_mech_FEM.f90 | 2 +- src/grid/grid_mech_spectral_basic.f90 | 2 +- src/grid/grid_mech_spectral_polarisation.f90 | 2 +- src/grid/grid_thermal_spectral.f90 | 2 +- src/materialpoint.f90 | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/grid/grid_damage_spectral.f90 b/src/grid/grid_damage_spectral.f90 index 9fce4a2f3..c6bb8a5b0 100644 --- a/src/grid/grid_damage_spectral.f90 +++ b/src/grid/grid_damage_spectral.f90 @@ -319,7 +319,7 @@ subroutine grid_damage_spectral_restartWrite call DMDAVecGetArrayF90(dm_local,solution_vec,phi,err_PETSc); CHKERRQ(err_PETSc) - print'(1x,a)', 'writing damage solver data required for restart to file'; flush(IO_STDOUT) + print'(1x,a)', 'saving damage solver data required for restart'; flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','a') groupHandle = HDF5_openGroup(fileHandle,'solver') diff --git a/src/grid/grid_mech_FEM.f90 b/src/grid/grid_mech_FEM.f90 index 1f2aec682..3f37f6d2e 100644 --- a/src/grid/grid_mech_FEM.f90 +++ b/src/grid/grid_mech_FEM.f90 @@ -447,7 +447,7 @@ subroutine grid_mechanical_FEM_restartWrite call DMDAVecGetArrayF90(mechanical_grid,solution_lastInc,u_lastInc,err_PETSc) CHKERRQ(err_PETSc) - print'(1x,a)', 'writing solver data required for restart to file'; flush(IO_STDOUT) + print'(1x,a)', 'saving solver data required for restart'; flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') diff --git a/src/grid/grid_mech_spectral_basic.f90 b/src/grid/grid_mech_spectral_basic.f90 index 71ca438ac..d2455c4cc 100644 --- a/src/grid/grid_mech_spectral_basic.f90 +++ b/src/grid/grid_mech_spectral_basic.f90 @@ -405,7 +405,7 @@ subroutine grid_mechanical_spectral_basic_restartWrite if (num%update_gamma) C_minMaxAvgRestart = C_minMaxAvg - print'(1x,a)', 'writing solver data required for restart to file'; flush(IO_STDOUT) + print'(1x,a)', 'saving solver data required for restart'; flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') diff --git a/src/grid/grid_mech_spectral_polarisation.f90 b/src/grid/grid_mech_spectral_polarisation.f90 index 0210d1036..91f0cffc7 100644 --- a/src/grid/grid_mech_spectral_polarisation.f90 +++ b/src/grid/grid_mech_spectral_polarisation.f90 @@ -464,7 +464,7 @@ subroutine grid_mechanical_spectral_polarisation_restartWrite if (num%update_gamma) C_minMaxAvgRestart = C_minMaxAvg - print'(1x,a)', 'writing solver data required for restart to file'; flush(IO_STDOUT) + print'(1x,a)', 'saving solver data required for restart'; flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','w') groupHandle = HDF5_addGroup(fileHandle,'solver') diff --git a/src/grid/grid_thermal_spectral.f90 b/src/grid/grid_thermal_spectral.f90 index a0acbf822..a096d9e5e 100644 --- a/src/grid/grid_thermal_spectral.f90 +++ b/src/grid/grid_thermal_spectral.f90 @@ -297,7 +297,7 @@ subroutine grid_thermal_spectral_restartWrite call DMDAVecGetArrayF90(dm_local,solution_vec,T,err_PETSc); CHKERRQ(err_PETSc) - print'(1x,a)', 'writing thermal solver data required for restart to file'; flush(IO_STDOUT) + print'(1x,a)', 'saving thermal solver data required for restart'; flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','a') groupHandle = HDF5_openGroup(fileHandle,'solver') diff --git a/src/materialpoint.f90 b/src/materialpoint.f90 index f624a4db3..f015f8805 100644 --- a/src/materialpoint.f90 +++ b/src/materialpoint.f90 @@ -112,7 +112,7 @@ subroutine materialpoint_restartWrite() integer(HID_T) :: fileHandle - print*, ' writing field and constitutive data required for restart to file';flush(IO_STDOUT) + print'(1x,a)', 'saving field and constitutive data required for restart';flush(IO_STDOUT) fileHandle = HDF5_openFile(getSolverJobName()//'_restart.hdf5','a')