Processing math: 100%

KORC_1D_FIELDS_INTERPOLANT Derived Type

  1. korc_interp.f90
  2. korc_interp
  3. KORC_1D_FIELDS_INTERPOLANT

type, private :: KORC_1D_FIELDS_INTERPOLANT


Inherits

type~~korc_1d_fields_interpolant~~InheritsGraph type~korc_1d_fields_interpolant KORC_1D_FIELDS_INTERPOLANT EZspline1 EZspline1 type~korc_1d_fields_interpolant->EZspline1 A, R, PHI, Z

Contents

Variables

Source Code

KORC_1D_FIELDS_INTERPOLANT

Components

TypeVisibility AttributesNameInitial
type(EZspline1), public :: A

Interpolant of a scalar field A(R,Z).
type(EZspline1), public :: R

Interpolant of FR(R,Z).
type(EZspline1), public :: PHI

Interpolant of Fϕ(R,Z).
type(EZspline1), public :: Z

Interpolant of FZ(R,Z).
integer, public :: Nrm

Size of mesh containing the field data along the R-axis.
integer, public, DIMENSION(2):: BCSrm =(/0, 0/)

Not-a-knot boundary condition for the interpolants at both ends of the R direction.
integer, public :: NPSIP

Size of mesh containing the field data along the R-axis.
integer, public, DIMENSION(2):: BCSPSIP =(/0, 0/)

Not-a-knot boundary condition for the interpolants at both ends of the R direction.

Source Code

  TYPE, PRIVATE :: KORC_1D_FIELDS_INTERPOLANT
     !! @note Derived type containing 2-D PSPLINE interpolants for
     !! cylindrical components of vector fields \(\mathbf{F}(R,Z) =
     !! F_R\hat{e}_R + F_\phi\hat{e}_phi+ F_Z\hat{e}_Z\).
     !! Real precision of 8 bytes. @endnote
     TYPE(EZspline1)    :: A
     !! Interpolant of a scalar field \(A(R,Z)\).
     TYPE(EZspline1)    :: R
     !! Interpolant of \(F_R(R,Z)\).
     TYPE(EZspline1)    :: PHI
     !! Interpolant of \(F_\phi(R,Z)\).
     TYPE(EZspline1)    :: Z
     !! Interpolant of \(F_Z(R,Z)\).
     
     INTEGER               :: Nrm
     !! Size of mesh containing the field data along the \(R\)-axis.
     INTEGER, DIMENSION(2) :: BCSrm = (/ 0, 0 /)
     !! Not-a-knot boundary condition for the interpolants at both
     !! ends of the \(R\) direction.
     INTEGER               :: NPSIP
     !! Size of mesh containing the field data along the \(R\)-axis.
     INTEGER, DIMENSION(2) :: BCSPSIP = (/ 0, 0 /)
     !! Not-a-knot boundary condition for the interpolants at both
     !! ends of the \(R\) direction.
  END TYPE KORC_1D_FIELDS_INTERPOLANT