IO: Rewrite write_data().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
f435a44065
commit
d5c819057c
31
src/io.F90
31
src/io.F90
@ -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,9 +102,9 @@ module io
|
||||
!
|
||||
subroutine initialize_io()
|
||||
|
||||
! include external procedures
|
||||
! import external procedures
|
||||
!
|
||||
use parameters, only : get_parameter_integer, get_parameter_real &
|
||||
use parameters , only : get_parameter_integer, get_parameter_real &
|
||||
, get_parameter_string
|
||||
|
||||
! local variables are not implicit by default
|
||||
@ -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()
|
||||
|
||||
use evolution, only : t
|
||||
! import external variables
|
||||
!
|
||||
use evolution , only : t
|
||||
|
||||
! local variables are not implicit by default
|
||||
!
|
||||
implicit none
|
||||
!
|
||||
!-------------------------------------------------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user