finish_kt_grids_overrides Subroutine

public subroutine finish_kt_grids_overrides(self)

Uses

Type Bound

kt_grids_overrides_type

Arguments

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

Contents


Source Code

subroutine finish_kt_grids_overrides(self)
  use file_utils, only: error_unit
  class(kt_grids_overrides_type), intent(in out) :: self
  if (.not. self%init) then
    write (error_unit(), *) "ERROR: Called finish_kt_grids_overrides on an uninitialized object."
    return
  end if
self%override_ny = .false.
self%override_naky = .false.
self%override_nx = .false.
self%override_ntheta0 = .false.
self%override_y0 = .false.
self%override_x0 = .false.
self%override_jtwist = .false.
end subroutine finish_kt_grids_overrides