miller_geometry_overrides_type Derived Type

type, public :: miller_geometry_overrides_type

An object for overriding all or selected Miller geometry parameters.


Contents


Components

Type Visibility Attributes Name Initial
logical, private :: init = .false.
logical, public :: override_rhoc = .false.
real, public :: rhoc
logical, public :: override_qinp = .false.
real, public :: qinp
logical, public :: override_shat = .false.
real, public :: shat
logical, public :: override_rgeo_lcfs = .false.
real, public :: rgeo_lcfs
logical, public :: override_rgeo_local = .false.
real, public :: rgeo_local
logical, public :: override_geoType = .false.
integer, public :: geoType
logical, public :: override_aSurf = .false.
real, public :: aSurf
logical, public :: override_shift = .false.
real, public :: shift
logical, public :: override_shiftVert = .false.
real, public :: shiftVert
logical, public :: override_mMode = .false.
integer, public :: mMode
logical, public :: override_nMode = .false.
integer, public :: nMode
logical, public :: override_deltam = .false.
real, public :: deltam
logical, public :: override_deltan = .false.
real, public :: deltan
logical, public :: override_deltampri = .false.
real, public :: deltampri
logical, public :: override_deltanpri = .false.
real, public :: deltanpri
logical, public :: override_thetam = .false.
real, public :: thetam
logical, public :: override_thetan = .false.
real, public :: thetan
logical, public :: override_betaprim = .false.
real, public :: betaprim
logical, public :: override_akappa = .false.
real, public :: akappa
logical, public :: override_akappri = .false.
real, public :: akappri
logical, public :: override_tri = .false.
real, public :: tri
logical, public :: override_tripri = .false.
real, public :: tripri

Type-Bound Procedures

procedure, public, :: initialise => init_miller_geometry_overrides

procedure, public, :: finish => finish_miller_geometry_overrides

procedure, public, :: is_initialised => is_initialised_miller_geometry_overrides

Source Code

type miller_geometry_overrides_type
  logical, private :: init = .false.
logical :: override_rhoc = .false.
real :: rhoc
logical :: override_qinp = .false.
real :: qinp
logical :: override_shat = .false.
real :: shat
logical :: override_rgeo_lcfs = .false.
real :: rgeo_lcfs
logical :: override_rgeo_local = .false.
real :: rgeo_local
logical :: override_geoType = .false.
integer :: geoType
logical :: override_aSurf = .false.
real :: aSurf
logical :: override_shift = .false.
real :: shift
logical :: override_shiftVert = .false.
real :: shiftVert
logical :: override_mMode = .false.
integer :: mMode
logical :: override_nMode = .false.
integer :: nMode
logical :: override_deltam = .false.
real :: deltam
logical :: override_deltan = .false.
real :: deltan
logical :: override_deltampri = .false.
real :: deltampri
logical :: override_deltanpri = .false.
real :: deltanpri
logical :: override_thetam = .false.
real :: thetam
logical :: override_thetan = .false.
real :: thetan
logical :: override_betaprim = .false.
real :: betaprim
logical :: override_akappa = .false.
real :: akappa
logical :: override_akappri = .false.
real :: akappri
logical :: override_tri = .false.
real :: tri
logical :: override_tripri = .false.
real :: tripri
 contains
  procedure :: initialise => init_miller_geometry_overrides
  procedure :: finish => finish_miller_geometry_overrides
  procedure :: is_initialised => is_initialised_miller_geometry_overrides
end type miller_geometry_overrides_type