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

IO: Rewrite write_data().

Browse Source 
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
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/io.F90
View File

@ -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
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------