Derived type containing 3-D PSPLINE interpolants for cylindrical components of the density , temperature , and effective charge number profiles. Real precision of 8 bytes.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
type(EZspline3), | public | :: | ne | Interpolant of background electron density . |
|||
type(EZspline3), | public | :: | Te | Interpolant of background electron temperature . |
|||
type(EZspline3), | public | :: | Zeff | Interpolant of effective charge number . |
|||
integer, | public | :: | NR | Size of mesh containing the field data along the -axis. |
|||
integer, | public | :: | NPHI | Size of mesh containing the field data along the -axis. |
|||
integer, | public | :: | NZ | Size of mesh containing the field data along the -axis. |
|||
integer, | public, | DIMENSION(2) | :: | BCSR | = | (/0, 0/) | Not-a-knot boundary condition for the interpolants at both ends of the direction. |
integer, | public, | DIMENSION(2) | :: | BCSPHI | = | (/-1, -1/) | Periodic boundary condition for the interpolants at both ends of the direction. |
integer, | public, | DIMENSION(2) | :: | BCSZ | = | (/0, 0/) | Not-a-knot boundary condition for the interpolants at both ends of the direction. |
TYPE, PRIVATE :: KORC_3D_PROFILES_INTERPOLANT
!! @note Derived type containing 3-D PSPLINE interpolants for cylindrical
!! components of the density \(n_e(R,\phi,Z)\),
!! temperature \(T_e(R,\phi,Z)\), and effective charge number
!! \(Z_{eff}(R,\phi,Z)\) profiles. Real precision of 8 bytes. @endnote
TYPE(EZspline3) :: ne
!! Interpolant of background electron density \(n_e(R,\phi,Z)\).
TYPE(EZspline3) :: Te
!! Interpolant of background electron temperature \(T_e(R,\phi,Z)\).
TYPE(EZspline3) :: Zeff
!! Interpolant of effective charge number \(Z_{eff}(R,\phi,Z)\).
INTEGER :: NR
!! Size of mesh containing the field data along the \(R\)-axis.
INTEGER :: NPHI
!! Size of mesh containing the field data along the \(\phi\)-axis.
INTEGER :: NZ
!! Size of mesh containing the field data along the \(Z\)-axis.
INTEGER, DIMENSION(2) :: BCSR = (/ 0, 0 /)
!! Not-a-knot boundary condition for the interpolants at both ends
!! of the \(R\) direction.
INTEGER, DIMENSION(2) :: BCSPHI = (/ -1, -1 /)
!! Periodic boundary condition for the interpolants at both ends of
!! the \(\phi\) direction.
INTEGER, DIMENSION(2) :: BCSZ = (/ 0, 0 /)
!! Not-a-knot boundary condition for the interpolants at both ends
!! of the \(Z\) direction.
END TYPE KORC_3D_PROFILES_INTERPOLANT