box_set_overrides Subroutine

public subroutine box_set_overrides(grids_ov)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(kt_grids_overrides_type), intent(in) :: grids_ov

Contents

Source Code


Source Code

  subroutine box_set_overrides(grids_ov)
    use overrides, only: kt_grids_overrides_type
    type(kt_grids_overrides_type), intent(in) :: grids_ov
    if (grids_ov%override_naky) naky = grids_ov%naky
    if (grids_ov%override_ny) ny = grids_ov%ny
    if (grids_ov%override_ntheta0) ntheta0 = grids_ov%ntheta0
    if (grids_ov%override_nx) nx = grids_ov%nx
    if (grids_ov%override_x0) x0 = grids_ov%x0
    if (grids_ov%override_y0) y0 = grids_ov%y0
  end subroutine box_set_overrides