miller_geometry_overrides_type
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(miller_geometry_overrides_type), | intent(inout) | :: | self |
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