smod_equil_constant_current Submodule

  1. smod_equil_constant_current.f08
  2. smod_equil_constant_current

This submodule defines an equilibrium in cylindrical geometry with a constant axial current. The geometry can be overridden using the parfile.

This equilibrium is taken from Kerner, W. (1989). Large-scale complex eigenvalue problems. Journal of Computational Physics, 85(1), 1-85.


Uses


Contents

Functions

Module Procedures


Functions

function rho0()

Arguments

None

Return Value real(kind=dp)

function T0(r)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dT0(r)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function p0(r)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dp0(r)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function B02(r)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)

function dB02()

Arguments

None

Return Value real(kind=dp)

function B03()

Arguments

None

Return Value real(kind=dp)


Module Procedures

module procedure constant_current_eq module module subroutine constant_current_eq(settings, grid, background, physics)

Sets the equilibrium.

Arguments

TypeIntentOptionalAttributesName
type(settings_t), intent(inout) :: settings
type(grid_t), intent(inout) :: grid
type(background_t), intent(inout) :: background
type(physics_t), intent(inout) :: physics