smod_equil_discrete_alfven Submodule

This submodule defines an equilibrium in cylindrical geometry with an axial current profile (), modelling a solar coronal loop in which discrete Alfvén waves are present. The geometry can be overridden in the parfile.

This equilibrium is taken from Keppens, Rony, Ronald AM Van Der Linden, and Marcel Goossens. "Non-adiabatic discrete Alfven waves in coronal loops and prominences.", Solar physics 144.2 (1993): 267-281.

Note

Default values are given by

  • k2 = 1
  • k3 = 0.05
  • j0 = 0.125 : used to set the current.
  • delta = 0.2 : used in the density profile.
  • cooling_curve = 'rosner'
  • parallel thermal conduction, no perpendicular conduction

and normalisations given by

  • unit_density = 1.5e-15 gcm-3
  • unit_magneticfield = 50 Gauss
  • unit_length = 1e10 cm

and can all be changed in the parfile.


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=dp), private :: x_end

Functions

function rho0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function drho0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function T0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dT0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function B02(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dB02(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function B03()

Arguments

None

Return Value real(kind=dp)

function p0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dp0(r)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)


Module Procedures

module procedure /home/runner/work/legolas/legolas/docs/ford/module/smod_equil_discrete_alfven.html discrete_alfven_eq module subroutine discrete_alfven_eq(settings, grid, background, physics)

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(inout) :: settings
type(grid_t), intent(inout) :: grid
type(background_t), intent(inout) :: background
type(physics_t), intent(inout) :: physics