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

IO: Replace explicit calls to get_parameter_*() with unified one.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-28 21:17:10 -02:00
parent e884804f8c
commit 305ed8ed13
1 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
sources/io.F90
View File

@ -205,8 +205,7 @@ module io
use hdf5 , only : h5pset_deflate_f, h5pset_filter_f
#endif /* HDF5 */
use iso_fortran_env, only : error_unit
use parameters , only : get_parameter_integer, get_parameter_real &
, get_parameter_string
use parameters , only : get_parameter
! local variables are not implicit by default
!
@ -258,22 +257,22 @@ module io
! get restart parameters
!
call get_parameter_string ("restart_path" , respath)
call get_parameter_integer("restart_number" , nrest )
call get_parameter_real ("restart_interval" , hrest )
call get_parameter("restart_path" , respath)
call get_parameter("restart_number" , nrest )
call get_parameter("restart_interval" , hrest )
! get the interval between snapshots
!
call get_parameter_string ("snapshot_type" , ftype )
call get_parameter_real ("snapshot_interval", hsnap )
call get_parameter("snapshot_type" , ftype )
call get_parameter("snapshot_interval", hsnap )
! get the flag determining if the ghost cells are stored
!
call get_parameter_string ("include_ghosts" , ghosts )
call get_parameter("include_ghosts" , ghosts )
! get the flag determining if the XDMF files should be generated
!
call get_parameter_string ("generate_xdmf" , xdmf )
call get_parameter("generate_xdmf" , xdmf )
! check ghost cell storing flag
!
@ -332,7 +331,7 @@ module io
! get compression_level
!
call get_parameter_integer("compression_level", clevel)
call get_parameter("compression_level", clevel)
! initialize proper compressor
!
@ -786,7 +785,7 @@ module io
use hdf5 , only : h5aopen_by_name_f, h5aread_f, h5aclose_f
use iso_fortran_env, only : error_unit
use mpitools , only : nproc
use parameters , only : get_parameter_string, get_parameter_integer
use parameters , only : get_parameter
! local variables are not implicit by default
!
@ -822,8 +821,8 @@ module io
! get the path and the number of the restart snapshot
!
call get_parameter_string ("restart_path" , rpath)
call get_parameter_integer("restart_number", nrest)
call get_parameter("restart_path" , rpath)
call get_parameter("restart_number", nrest)
! generate the filename of the restart snapshot
!
@ -901,7 +900,7 @@ module io
use hdf5 , only : h5aopen_by_name_f, h5aread_f, h5aclose_f
use iso_fortran_env, only : error_unit
use mpitools , only : nproc
use parameters , only : get_parameter_string, get_parameter_integer
use parameters , only : get_parameter
! local variables are not implicit by default
!
@ -937,8 +936,8 @@ module io
! get the path and the number of the restart snapshot
!
call get_parameter_string ("restart_path" , rpath)
call get_parameter_integer("restart_number", nrest)
call get_parameter("restart_path" , rpath)
call get_parameter("restart_number", nrest)
! generate the filename of the restart snapshot
!
@ -1014,7 +1013,7 @@ module io
use hdf5 , only : h5aopen_by_name_f, h5aread_f, h5aclose_f
use iso_fortran_env, only : error_unit
use mpitools , only : nproc
use parameters , only : get_parameter_string, get_parameter_integer
use parameters , only : get_parameter
! local variables are not implicit by default
!
@ -1050,8 +1049,8 @@ module io
! get the path and the number of the restart snapshot
!
call get_parameter_string ("restart_path" , rpath)
call get_parameter_integer("restart_number", nrest)
call get_parameter("restart_path" , rpath)
call get_parameter("restart_number", nrest)
! generate the filename of the restart snapshot
!