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

USER_PROBLEM: Fix text alignment.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-03-09 18:12:55 -03:00
parent cd87b1fb12
commit fd86ae565f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/user_problem.F90
View File

@ -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(*,*)