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

USER_PROBLEM: Calculate Alfvén speed using bamp only.

Browse Source 
This is the Alfvén speed along the X direction defining the velocity
scale, time scale, and the Lundquist number.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-11-27 18:16:24 -03:00
parent 20492048aa
commit 5793fe7810
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/user_problem.F90
View File

@ -145,7 +145,7 @@ module user_problem
csnd2 = pres / dens
end if
csnd = sqrt(csnd2)
valf = sqrt(2.0d+00 * pmag / dens)
valf = bamp / sqrt(dens)
lund = valf / max(tiny(eta), eta)
! determine if to append or create another file