Derived type containing 2-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(EZspline2_r4), | public | :: | ne | Interpolant of background electron density . |
|||
| type(EZspline2_r4), | public | :: | Te | Interpolant of background electron temperature . |
|||
| type(EZspline2_r4), | public | :: | Zeff | Interpolant of effective charge number . |
|||
| integer, | public | :: | NR | 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) | :: | BCSZ | = | (/0, 0/) | Not-a-knot boundary condition for the interpolants at both ends of the direction. |
TYPE, PRIVATE :: KORC_2D_PROFILES_INTERPOLANT
!! @note Derived type containing 2-D PSPLINE interpolants for cylindrical
!! components of the density \(n_e(R,Z)\), temperature \(T_e(R,Z)\), and
!! effective charge number \(Z_{eff}(R,Z)\) profiles.
!! Real precision of 8 bytes. @endnote
TYPE(EZspline2) :: ne
!! Interpolant of background electron density \(n_e(R,Z)\).
TYPE(EZspline2) :: Te
!! Interpolant of background electron temperature \(T_e(R,Z)\).
TYPE(EZspline2) :: Zeff
!! Interpolant of effective charge number \(Z_{eff}(R,Z)\)
TYPE(EZspline2) :: RHON
TYPE(EZspline2) :: nRE
TYPE(EZspline2) :: nAr0
TYPE(EZspline2) :: nAr1
TYPE(EZspline2) :: nAr2
TYPE(EZspline2) :: nAr3
TYPE(EZspline2) :: nD
TYPE(EZspline2) :: nD1
INTEGER :: NR
!! Size of mesh containing the field data along the \(R\)-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) :: BCSZ = (/ 0, 0 /)
!! Not-a-knot boundary condition for the interpolants at both
!! ends of the \(Z\) direction.
END TYPE KORC_2D_PROFILES_INTERPOLANT