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

IO: Rename public subroutines *_data() to *_snapshot().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-09 09:29:22 -02:00
parent c01e0760fe
commit 578ddbf7ea
2 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/driver.F90
View File

@ -43,8 +43,9 @@ program amun
use evolution , only : step, time, dt
use integrals , only : init_integrals, clear_integrals, store_integrals
use interpolations, only : initialize_interpolations, finalize_interpolations
use io , only : initialize_io, write_data, write_restart_data &
, read_restart_data, next_tout
use io , only : initialize_io
use io , only : read_restart_snapshot, write_restart_snapshot
use io , only : write_snapshot, next_tout
use mesh , only : initialize_mesh, finalize_mesh
use mesh , only : generate_mesh, store_mesh_stats
use mpitools , only : initialize_mpitools, finalize_mpitools
@ -432,7 +433,7 @@ program amun
! reconstruct the meta and data block structures from a given restart file
!
call read_restart_data()
call read_restart_snapshot()
! initialize the integrals module
!
@ -455,7 +456,7 @@ program amun
if (nres < 0) then
call store_integrals()
call write_data()
call write_snapshot()
#ifdef MPI
! reduce termination flag over all processors
@ -544,7 +545,7 @@ program amun
! store data
!
call write_data()
call write_snapshot()
! get current time in seconds
!
@ -610,7 +611,7 @@ program amun
! write down the restart dump
!
call write_restart_data()
call write_restart_snapshot()
! a label to go to if there are any problems, but since all modules have been
! initialized, we have to finalize them first

34
src/io.F90
View File

@ -90,7 +90,7 @@ module io
! declare public subroutines
!
public :: initialize_io
public :: read_restart_data, write_restart_data, write_data
public :: read_restart_snapshot, write_restart_snapshot, write_snapshot
public :: next_tout
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@ -177,16 +177,16 @@ module io
!
!===============================================================================
!
! subroutine READ_RESTART_DATA:
! ----------------------------
! subroutine READ_RESTART_SNAPSHOT:
! --------------------------------
!
! Subroutine reads restart files in order to resume the job. This is
! a wrapper for specific format storing.
! Subroutine reads restart snapshot files in order to resume the job.
! This is a wrapper calling specific format subroutine.
!
!
!===============================================================================
!
subroutine read_restart_data()
subroutine read_restart_snapshot()
! import external variables
!
@ -226,20 +226,20 @@ module io
!-------------------------------------------------------------------------------
!
end subroutine read_restart_data
end subroutine read_restart_snapshot
!
!===============================================================================
!
! subroutine WRITE_RESTART_DATA:
! -----------------------------
! subroutine WRITE_RESTART_SNAPSHOTS:
! ----------------------------------
!
! Subroutine stores block data in restart files. This is a wrapper for
! specific format storing.
! Subroutine stores current snapshot in restart files.
! This is a wrapper calling specific format subroutine.
!
!
!===============================================================================
!
subroutine write_restart_data()
subroutine write_restart_snapshot()
! local variables are not implicit by default
!
@ -271,12 +271,12 @@ module io
!-------------------------------------------------------------------------------
!
end subroutine write_restart_data
end subroutine write_restart_snapshot
!
!===============================================================================
!
! subroutine WRITE_DATA:
! ---------------------
! subroutine WRITE_SNAPSHOT:
! -------------------------
!
! Subroutine stores block data in snapshots. Block variables are grouped
! todether and stored in big 4D arrays separately. This is a wrapper for
@ -285,7 +285,7 @@ module io
!
!===============================================================================
!
subroutine write_data()
subroutine write_snapshot()
! import external variables
!
@ -325,7 +325,7 @@ module io
!-------------------------------------------------------------------------------
!
end subroutine write_data
end subroutine write_snapshot
!
!===============================================================================
!