finish_miller_geometry_overrides Subroutine

public subroutine finish_miller_geometry_overrides(self)

Uses

Type Bound

miller_geometry_overrides_type

Arguments

Type IntentOptional Attributes Name
class(miller_geometry_overrides_type), intent(inout) :: self

Contents


Source Code

subroutine finish_miller_geometry_overrides(self)
  use file_utils, only: error_unit
  class(miller_geometry_overrides_type), intent(in out) :: self
  if (.not. self%init) then
    write (error_unit(), *) "ERROR: Called finish_miller_geometry_overrides on an uninitialized object."
    return
  end if
self%override_rhoc = .false.
self%override_qinp = .false.
self%override_shat = .false.
self%override_rgeo_lcfs = .false.
self%override_rgeo_local = .false.
self%override_geoType = .false.
self%override_aSurf = .false.
self%override_shift = .false.
self%override_shiftVert = .false.
self%override_mMode = .false.
self%override_nMode = .false.
self%override_deltam = .false.
self%override_deltan = .false.
self%override_deltampri = .false.
self%override_deltanpri = .false.
self%override_thetam = .false.
self%override_thetan = .false.
self%override_betaprim = .false.
self%override_akappa = .false.
self%override_akappri = .false.
self%override_tri = .false.
self%override_tripri = .false.
end subroutine finish_miller_geometry_overrides