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

COORDINATES: 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:21:17 -02:00
parent e634ef1583
commit 572ef0f503
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
sources/coordinates.F90
View File

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