FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(optimisations_overrides_type), | intent(in) | :: | opt_ov |
subroutine set_overrides(opt_ov)
use overrides, only: optimisations_overrides_type
use redistribute, only: opt_redist_nbk, opt_redist_persist, opt_redist_persist_overlap
type(optimisations_overrides_type), intent(in) :: opt_ov
if (opt_ov%override_layout) layout = opt_ov%layout
if (opt_ov%override_opt_redist_nbk) &
opt_redist_nbk = opt_ov%opt_redist_nbk
if (opt_ov%override_opt_redist_persist) &
opt_redist_persist = opt_ov%opt_redist_persist
if (opt_ov%override_intmom_sub) &
intmom_sub = opt_ov%intmom_sub
if (opt_ov%override_intspec_sub) &
intspec_sub = opt_ov%intspec_sub
call ensure_redist_persist_consistency(opt_redist_nbk, opt_redist_persist, opt_redist_persist_overlap)
end subroutine set_overrides