Derived type containing 3-D PSPLINE interpolants for cylindrical components of vector fields . Real precision of 4 bytes.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(EZspline3_r4), | public | :: | R | Interpolant of . |
|||
| type(EZspline3_r4), | public | :: | T | Interpolant of . |
|||
| type(EZspline3_r4), | public | :: | Z | Interpolant of . |
|||
| integer, | public | :: | NR | Size of mesh containing the field data along the -axis. |
|||
| integer, | public | :: | NT | 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) | :: | BCST | = | (/0, 0/) | 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_2X1T_FIELDS_INTERPOLANT
!! @note Derived type containing 3-D PSPLINE interpolants for
!! cylindrical components of vector fields
!! \(\mathbf{F}(R,\phi,Z) = F_R\hat{e}_R + F_\phi\hat{e}_phi +
!! F_Z\hat{e}_Z\). Real precision of 8 bytes. @endnote
TYPE(EZspline3) :: A
!! Interpolant of a scalar field \(A(R,Z)\).
TYPE(EZspline3) :: R
!! Interpolant of \(F_R(R,\phi,Z)\).
TYPE(EZspline3) :: T
!! Interpolant of \(F_\phi(R,\phi,Z)\).
TYPE(EZspline3) :: Z
!! Interpolant of \(F_Z(R,\phi,Z)\).
INTEGER :: NR
!! Size of mesh containing the field data along the \(R\)-axis.
INTEGER :: NT
!! 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) :: BCST = (/ 0, 0 /)
!! 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_2X1T_FIELDS_INTERPOLANT