IO: Change public subroutines order.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
5de70229d5
commit
63c789e174
180
src/io.F90
180
src/io.F90
@ -175,6 +175,96 @@ module io
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
! subroutine READ_RESTART_DATA:
|
||||
! ----------------------------
|
||||
!
|
||||
! Subroutine reads restart files in order to resume the job. This is
|
||||
! a wrapper for specific format storing.
|
||||
!
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
subroutine read_restart_data()
|
||||
|
||||
! local variables are not implicit by default
|
||||
!
|
||||
implicit none
|
||||
!
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
#ifdef PROFILE
|
||||
! start accounting time for the data reading
|
||||
!
|
||||
call start_timer(ios)
|
||||
#endif /* PROFILE */
|
||||
|
||||
! set restart file number
|
||||
!
|
||||
nrest = nres
|
||||
|
||||
#ifdef HDF5
|
||||
! read HDF5 restart file and rebuild the meta and data block structures
|
||||
!
|
||||
call read_data_h5()
|
||||
#endif /* HDF5 */
|
||||
|
||||
#ifdef PROFILE
|
||||
! stop accounting time for the data reading
|
||||
!
|
||||
call stop_timer(ios)
|
||||
#endif /* PROFILE */
|
||||
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
end subroutine read_restart_data
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
! subroutine WRITE_RESTART_DATA:
|
||||
! -----------------------------
|
||||
!
|
||||
! Subroutine stores block data in restart files. This is a wrapper for
|
||||
! specific format storing.
|
||||
!
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
subroutine write_restart_data()
|
||||
|
||||
! local variables are not implicit by default
|
||||
!
|
||||
implicit none
|
||||
!
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
#ifdef PROFILE
|
||||
! start accounting time for the data writing
|
||||
!
|
||||
call start_timer(iow)
|
||||
#endif /* PROFILE */
|
||||
|
||||
! increase the file counter
|
||||
!
|
||||
nrest = nrest + 1
|
||||
|
||||
#ifdef HDF5
|
||||
! store restart file
|
||||
!
|
||||
call write_data_h5('r')
|
||||
#endif /* HDF5 */
|
||||
|
||||
#ifdef PROFILE
|
||||
! stop accounting time for the data writing
|
||||
!
|
||||
call stop_timer(iow)
|
||||
#endif /* PROFILE */
|
||||
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
end subroutine write_restart_data
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
! subroutine WRITE_DATA:
|
||||
! ---------------------
|
||||
!
|
||||
@ -228,96 +318,6 @@ module io
|
||||
end subroutine write_data
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
! subroutine WRITE_RESTART_DATA:
|
||||
! -----------------------------
|
||||
!
|
||||
! Subroutine stores block data in restart files. This is a wrapper for
|
||||
! specific format storing.
|
||||
!
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
subroutine write_restart_data()
|
||||
|
||||
! local variables are not implicit by default
|
||||
!
|
||||
implicit none
|
||||
!
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
#ifdef PROFILE
|
||||
! start accounting time for the data writing
|
||||
!
|
||||
call start_timer(iow)
|
||||
#endif /* PROFILE */
|
||||
|
||||
! increase the file counter
|
||||
!
|
||||
nrest = nrest + 1
|
||||
|
||||
#ifdef HDF5
|
||||
! store restart file
|
||||
!
|
||||
call write_data_h5('r')
|
||||
#endif /* HDF5 */
|
||||
|
||||
#ifdef PROFILE
|
||||
! stop accounting time for the data writing
|
||||
!
|
||||
call stop_timer(iow)
|
||||
#endif /* PROFILE */
|
||||
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
end subroutine write_restart_data
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
! subroutine READ_RESTART_DATA:
|
||||
! ----------------------------
|
||||
!
|
||||
! Subroutine reads restart files in order to resume the job. This is
|
||||
! a wrapper for specific format storing.
|
||||
!
|
||||
!
|
||||
!===============================================================================
|
||||
!
|
||||
subroutine read_restart_data()
|
||||
|
||||
! local variables are not implicit by default
|
||||
!
|
||||
implicit none
|
||||
!
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
#ifdef PROFILE
|
||||
! start accounting time for the data reading
|
||||
!
|
||||
call start_timer(ios)
|
||||
#endif /* PROFILE */
|
||||
|
||||
! set restart file number
|
||||
!
|
||||
nrest = nres
|
||||
|
||||
#ifdef HDF5
|
||||
! read HDF5 restart file and rebuild the meta and data block structures
|
||||
!
|
||||
call read_data_h5()
|
||||
#endif /* HDF5 */
|
||||
|
||||
#ifdef PROFILE
|
||||
! stop accounting time for the data reading
|
||||
!
|
||||
call stop_timer(ios)
|
||||
#endif /* PROFILE */
|
||||
|
||||
!-------------------------------------------------------------------------------
|
||||
!
|
||||
end subroutine read_restart_data
|
||||
!
|
||||
!===============================================================================
|
||||
!!
|
||||
!!*** PRIVATE SUBROUTINES ****************************************************
|
||||
!!
|
||||
|
Loading…
x
Reference in New Issue
Block a user