From a853f0b7001a01f96f9f44b3a67048b498e8284e Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 28 Jan 2019 21:24:53 -0200 Subject: [PATCH] EVOLUTION: Replace explicit calls to get_parameter_*() with unified one. Signed-off-by: Grzegorz Kowal --- sources/evolution.F90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 6c2f38a..4102df1 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -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