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 ! include external procedures
! !
use parameters, only : get_parameter_integer, get_parameter_real use parameters, only : get_parameter
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -188,11 +188,11 @@ module coordinates
! !
! obtain the number of cells along each block dimension ! 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 ! obtain the number of ghost zones
! !
call get_parameter_integer("nghosts", ng ) call get_parameter("nghosts", ng)
! set the block dimensions ! set the block dimensions
! !
@ -251,8 +251,8 @@ module coordinates
! obtain the refinement level bounds ! obtain the refinement level bounds
! !
call get_parameter_integer("minlev", minlev) call get_parameter("minlev", minlev)
call get_parameter_integer("maxlev", maxlev) call get_parameter("maxlev", maxlev)
! set the top level ! set the top level
! !
@ -260,21 +260,21 @@ module coordinates
! obtain the domain base division ! obtain the domain base division
! !
call get_parameter_integer("xblocks", ir ) call get_parameter("xblocks", ir )
call get_parameter_integer("yblocks", jr ) call get_parameter("yblocks", jr )
#if NDIMS == 3 #if NDIMS == 3
call get_parameter_integer("zblocks", kr ) call get_parameter("zblocks", kr )
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! obtain the domain bounds ! obtain the domain bounds
! !
call get_parameter_real ("xmin" , xmin ) call get_parameter("xmin" , xmin )
call get_parameter_real ("xmax" , xmax ) call get_parameter("xmax" , xmax )
call get_parameter_real ("ymin" , ymin ) call get_parameter("ymin" , ymin )
call get_parameter_real ("ymax" , ymax ) call get_parameter("ymax" , ymax )
#if NDIMS == 3 #if NDIMS == 3
call get_parameter_real ("zmin" , zmin ) call get_parameter("zmin" , zmin )
call get_parameter_real ("zmax" , zmax ) call get_parameter("zmax" , zmax )
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! calculate the domain sizes ! calculate the domain sizes