IO: Rewrite write_data().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2013-12-27 18:13:12 -02:00
parent f435a44065
commit d5c819057c

View File

@ -30,16 +30,13 @@
!
module io
#ifdef PROFILE
! import external subroutines
!
use blocks, only : pointer_meta
#ifdef PROFILE
use timers, only : set_timer, start_timer, stop_timer
#endif /* PROFILE */
! include external procedures
!
use blocks, only : pointer_meta
! module variables are not implicit by default
!
implicit none
@ -56,7 +53,7 @@ module io
! the interval of the snapshots storing
!
real , save :: dtout = 1.0d+0
real , save :: dtout = 1.0d+00
! all module parameters
!
@ -93,6 +90,8 @@ module io
!!
!===============================================================================
!
!===============================================================================
!
! subroutine INITIALIZE_IO:
! ------------------------
!
@ -103,7 +102,7 @@ module io
!
subroutine initialize_io()
! include external procedures
! import external procedures
!
use parameters , only : get_parameter_integer, get_parameter_real &
, get_parameter_string
@ -165,18 +164,24 @@ module io
!
!===============================================================================
!
! write_data: wrapper subroutine for storing data
! subroutine WRITE_DATA:
! ---------------------
!
! Subroutine stores block data in snapshots. Block variables are grouped
! todether and stored in big 4D arrays separately. This is a wrapper for
! specific format storing.
!
! info: subroutine selects the writing subroutine from the supported output
! formats depending on the compilation time options, and stores a data
! file; at this moment only the HDF5 format is supported;
!
!===============================================================================
!
subroutine write_data()
! import external variables
!
use evolution , only : t
! local variables are not implicit by default
!
implicit none
!
!-------------------------------------------------------------------------------