From fd86ae565f261924aaf54ea838a79462b96cac38 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 9 Mar 2020 18:12:55 -0300 Subject: [PATCH] USER_PROBLEM: Fix text alignment. Signed-off-by: Grzegorz Kowal --- sources/user_problem.F90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/sources/user_problem.F90 b/sources/user_problem.F90 index b0bf0b3..56d3062 100644 --- a/sources/user_problem.F90 +++ b/sources/user_problem.F90 @@ -66,7 +66,7 @@ module user_problem integer , save :: pert = 0 integer , save :: nper = 10 real(kind=8), save :: bper = 0.00d+00 - real(kind=8), save :: vper = 1.00d-02 + real(kind=8), save :: vper = 0.00d+00 real(kind=8), save :: kper = 1.00d+00 real(kind=8), save :: kvec = 1.00d+00 real(kind=8), save :: xcut = 1.00d+99 @@ -202,7 +202,7 @@ module user_problem end if status = 1 end if - call get_parameter("dens" , dens) + call get_parameter("dens", dens) if (dens <= 0.0d+00) then if (verbose) then write(*,*) @@ -212,8 +212,8 @@ module user_problem end if status = 1 end if - call get_parameter("bamp" , bamp) - call get_parameter("bgui" , bgui) + call get_parameter("bamp", bamp) + call get_parameter("bgui", bgui) ! calculate the maximum magnetic pressure, thermal pressure from the plasma-β ! parameters, and the sound speed in the case of isothermal equations of state @@ -228,7 +228,7 @@ module user_problem ! get the geometry parameters ! - call get_parameter("delta" , dlta) + call get_parameter("delta", dlta) if (dlta < 0.0d+00) then if (verbose) then write(*,*)