profiles_module Module

  1. plasma_profiles.f90
  2. profiles_module

Density and temperature profiles author: P J Knight, CCFE, Culham Science Centre N/A This module contains routines that give the density and temperature profile quantities T&M/PKNIGHT/LOGBOOK24, pp.4-7


Uses


Contents

Functions

Subroutines


Functions

public function tcore(rhopedt, tped, tsep, tav, alphat, tbeta)

Central temperature for a pedestal profile author: R Kemp, CCFE, Culham Science Centre author: H Lux, CCFE, Culham Science Centre author: P J Knight, CCFE, Culham Science Centre rhopedt : input real : normalised minor radius pedestal position tped : input real : pedestal temperature (keV) tsep : input real : separatrix temperature (keV) tav : input real : volume average temperature (keV) alphat : input real : temperature peaking parameter tbeta : input real : second temperature exponent This routine calculates the core temperature (keV) of a pedestalised profile. J.Johner, Fusion Science and Technology 59 (2011), pp 308-349

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: rhopedt
real(kind=dp), intent(in) :: tped
real(kind=dp), intent(in) :: tsep
real(kind=dp), intent(in) :: tav
real(kind=dp), intent(in) :: alphat
real(kind=dp), intent(in) :: tbeta

Return Value real(kind=dp)

public function tprofile(rho, rhopedt, t0, tped, tsep, alphat, tbeta)

Implementation of HELIOS-type temperature pedestal profile author: R Kemp, CCFE, Culham Science Centre author: H Lux, CCFE, Culham Science Centre author: P J Knight, CCFE, Culham Science Centre rho : input real : normalised minor radius rhopedt : input real : normalised minor radius pedestal position t0 : input real : central temperature (keV) tped : input real : pedestal temperature (keV) tsep : input real : separatrix temperature (keV) alphat : input real : temperature peaking parameter tbeta : input real : second temperature exponent trho : output real : T(rho) (keV) This routine calculates the temperature at a normalised minor radius position rho for a pedestalised profile.

If ipedestal = 0 the original parabolic profile form is used instead. J.Johner, Fusion Science and Technology 59 (2011), pp 308-349

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: rho
real(kind=dp), intent(in) :: rhopedt
real(kind=dp), intent(in) :: t0
real(kind=dp), intent(in) :: tped
real(kind=dp), intent(in) :: tsep
real(kind=dp), intent(in) :: alphat
real(kind=dp), intent(in) :: tbeta

Return Value real(kind=dp)

public function ncore(rhopedn, nped, nsep, nav, alphan)

Central density of a pedestal profile author: R Kemp, CCFE, Culham Science Centre author: H Lux, CCFE, Culham Science Centre author: P J Knight, CCFE, Culham Science Centre rhopedn : input real : normalised minor radius pedestal position nped : input real : pedestal density (/m3) nsep : input real : separatrix density (/m3) nav : input real : volume average density (/m3) alphan : input real : density peaking parameter This routine calculates the central density of a pedestalised profile. J.Johner, Fusion Science and Technology 59 (2011), pp 308-349

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: rhopedn
real(kind=dp), intent(in) :: nped
real(kind=dp), intent(in) :: nsep
real(kind=dp), intent(in) :: nav
real(kind=dp), intent(in) :: alphan

Return Value real(kind=dp)

public function nprofile(rho, rhopedn, n0, nped, nsep, alphan)

Implementation of HELIOS-type density pedestal profile author: R Kemp, CCFE, Culham Science Centre author: H Lux, CCFE, Culham Science Centre author: P J Knight, CCFE, Culham Science Centre rho : input real : normalised minor radius rhopedn : input real : normalised minor radius pedestal position n0 : input real : central density (/m3) nped : input real : pedestal density (/m3) nsep : input real : separatrix density (/m3) alphan : input real : density peaking parameter This routine calculates the density at a normalised minor radius position rho for a pedestalised profile.

If ipedestal = 0 the original parabolic profile form is used instead. J.Johner, Fusion Science and Technology 59 (2011), pp 308-349

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: rho
real(kind=dp), intent(in) :: rhopedn
real(kind=dp), intent(in) :: n0
real(kind=dp), intent(in) :: nped
real(kind=dp), intent(in) :: nsep
real(kind=dp), intent(in) :: alphan

Return Value real(kind=dp)


Subroutines

public subroutine plasma_profiles()

Calculates density and temperature profile quantities author: P J Knight, CCFE, Culham Science Centre None This subroutine initialises the density and temperature profile averages and peak values, given the main parameters describing these profiles. T&M/PKNIGHT/LOGBOOK24, pp.4-7

Arguments

None