FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(kt_grids_overrides_type), | intent(in) | :: | grids_ov |
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