gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IO: Change public subroutines order.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-08 11:41:48 -02:00
parent 5de70229d5
commit 63c789e174
1 changed files with 90 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

180
src/io.F90
View File

@ -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: ! subroutine WRITE_DATA:
! --------------------- ! ---------------------
! !
@ -228,96 +318,6 @@ module io
end subroutine write_data 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 **************************************************** !!*** PRIVATE SUBROUTINES ****************************************************
!! !!