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

EVOLUTION: 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:24:53 -02:00
parent 927642bf3e
commit a853f0b700
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
sources/evolution.F90
View File

@ -116,8 +116,7 @@ module evolution
! include external procedures
!
use parameters, only : get_parameter_string, get_parameter_real &
, get_parameter_integer
use parameters, only : get_parameter
! local variables are not implicit by default
!
@ -153,10 +152,10 @@ module evolution
! get the integration method and the value of the CFL coefficient
!
call get_parameter_string ("time_advance", integration)
call get_parameter_integer("stages" , stages )
call get_parameter_real ("cfl" , cfl )
call get_parameter_real ("alpha" , alpha )
call get_parameter("time_advance", integration)
call get_parameter("stages" , stages )
call get_parameter("cfl" , cfl )
call get_parameter("alpha" , alpha )
! select the integration method, check the correctness of the integration
! parameters and adjust the CFL coefficient if necessary