smod_equil_photospheric_flux_tube Submodule

This submodule defines a magnetic flux tube embedded in a uniform magnetic environment. In this case the flux tube is under photospheric conditions $c_{Ae} < c_s < c_{se} < c_A$ where the subscript e denotes the outer region. More specifically the equilibrium is defined as $c_{Ae} = c_s/2, c_{se} = 3c_s/2, c_A = 2c_s$. The geometry can be overridden in the parfile, and is cylindrical by default for $r \in [0, 10]$.

This equilibrium is taken from chapter 6, fig. 6.5 in Roberts, Bernard (2019). MHD Waves in the Solar Atmosphere. Cambridge University Press. DOI.

Contents

Variables

rho_e p_e B_0 B_e

Functions

rho0 T0 B03

Module Procedures

photospheric_flux_tube_eq

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	private		::	rho_e
real(kind=dp),	private		::	p_e
real(kind=dp),	private		::	B_0
real(kind=dp),	private		::	B_e

Functions

function rho0(r)

Arguments

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

Return Value real(kind=dp)

function T0(r)

Arguments

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

Return Value real(kind=dp)

function B03(r)

Arguments

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

Return Value real(kind=dp)

Module Procedures

module procedure photospheric_flux_tube_eq module module subroutine photospheric_flux_tube_eq(settings, grid, background, physics) Interface →

Arguments

Type	Intent	Optional	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