From 305ed8ed13916fb1fda5e452e8e714cacbcee313 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 28 Jan 2019 21:17:10 -0200 Subject: [PATCH] IO: Replace explicit calls to get_parameter_*() with unified one. Signed-off-by: Grzegorz Kowal --- sources/io.F90 | 37 ++++++++++++++++++------------------- 1 file changed, 18 insertions(+), 19 deletions(-) diff --git a/sources/io.F90 b/sources/io.F90 index cafc270..a9d59d2 100644 --- a/sources/io.F90 +++ b/sources/io.F90 @@ -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 !