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
|
module io
|
||||||
|
|
||||||
#ifdef PROFILE
|
|
||||||
! import external subroutines
|
! import external subroutines
|
||||||
!
|
!
|
||||||
|
use blocks, only : pointer_meta
|
||||||
|
#ifdef PROFILE
|
||||||
use timers, only : set_timer, start_timer, stop_timer
|
use timers, only : set_timer, start_timer, stop_timer
|
||||||
#endif /* PROFILE */
|
#endif /* PROFILE */
|
||||||
|
|
||||||
! include external procedures
|
|
||||||
!
|
|
||||||
use blocks, only : pointer_meta
|
|
||||||
|
|
||||||
! module variables are not implicit by default
|
! module variables are not implicit by default
|
||||||
!
|
!
|
||||||
implicit none
|
implicit none
|
||||||
@ -56,7 +53,7 @@ module io
|
|||||||
|
|
||||||
! the interval of the snapshots storing
|
! the interval of the snapshots storing
|
||||||
!
|
!
|
||||||
real , save :: dtout = 1.0d+0
|
real , save :: dtout = 1.0d+00
|
||||||
|
|
||||||
! all module parameters
|
! all module parameters
|
||||||
!
|
!
|
||||||
@ -93,6 +90,8 @@ module io
|
|||||||
!!
|
!!
|
||||||
!===============================================================================
|
!===============================================================================
|
||||||
!
|
!
|
||||||
|
!===============================================================================
|
||||||
|
!
|
||||||
! subroutine INITIALIZE_IO:
|
! subroutine INITIALIZE_IO:
|
||||||
! ------------------------
|
! ------------------------
|
||||||
!
|
!
|
||||||
@ -103,9 +102,9 @@ module io
|
|||||||
!
|
!
|
||||||
subroutine initialize_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
|
, get_parameter_string
|
||||||
|
|
||||||
! local variables are not implicit by default
|
! 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()
|
subroutine write_data()
|
||||||
|
|
||||||
use evolution, only : t
|
! import external variables
|
||||||
|
!
|
||||||
|
use evolution , only : t
|
||||||
|
|
||||||
|
! local variables are not implicit by default
|
||||||
|
!
|
||||||
implicit none
|
implicit none
|
||||||
!
|
!
|
||||||
!-------------------------------------------------------------------------------
|
!-------------------------------------------------------------------------------
|
||||||
|
Loading…
x
Reference in New Issue
Block a user