From 572ef0f503171fa11b0f1827dd5ad8d227e6a78b Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 28 Jan 2019 21:21:17 -0200 Subject: [PATCH] COORDINATES: Replace explicit calls to get_parameter_*() with unified one. Signed-off-by: Grzegorz Kowal --- sources/coordinates.F90 | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/sources/coordinates.F90 b/sources/coordinates.F90 index 49ddacb..f6bea72 100644 --- a/sources/coordinates.F90 +++ b/sources/coordinates.F90 @@ -161,7 +161,7 @@ module coordinates ! include external procedures ! - use parameters, only : get_parameter_integer, get_parameter_real + use parameters, only : get_parameter ! local variables are not implicit by default ! @@ -188,11 +188,11 @@ module coordinates ! ! obtain the number of cells along each block dimension ! - call get_parameter_integer("ncells" , nc ) + call get_parameter("ncells" , nc) ! obtain the number of ghost zones ! - call get_parameter_integer("nghosts", ng ) + call get_parameter("nghosts", ng) ! set the block dimensions ! @@ -251,8 +251,8 @@ module coordinates ! obtain the refinement level bounds ! - call get_parameter_integer("minlev", minlev) - call get_parameter_integer("maxlev", maxlev) + call get_parameter("minlev", minlev) + call get_parameter("maxlev", maxlev) ! set the top level ! @@ -260,21 +260,21 @@ module coordinates ! obtain the domain base division ! - call get_parameter_integer("xblocks", ir ) - call get_parameter_integer("yblocks", jr ) + call get_parameter("xblocks", ir ) + call get_parameter("yblocks", jr ) #if NDIMS == 3 - call get_parameter_integer("zblocks", kr ) + call get_parameter("zblocks", kr ) #endif /* NDIMS == 3 */ ! obtain the domain bounds ! - call get_parameter_real ("xmin" , xmin ) - call get_parameter_real ("xmax" , xmax ) - call get_parameter_real ("ymin" , ymin ) - call get_parameter_real ("ymax" , ymax ) + call get_parameter("xmin" , xmin ) + call get_parameter("xmax" , xmax ) + call get_parameter("ymin" , ymin ) + call get_parameter("ymax" , ymax ) #if NDIMS == 3 - call get_parameter_real ("zmin" , zmin ) - call get_parameter_real ("zmax" , zmax ) + call get_parameter("zmin" , zmin ) + call get_parameter("zmax" , zmax ) #endif /* NDIMS == 3 */ ! calculate the domain sizes