ensure_redist_persist_consistency Subroutine

  1. gs2_layouts.fpp
  2. gs2_layouts
  3. ensure_redist_persist_consistency

private subroutine ensure_redist_persist_consistency(opt_redist_nbk, opt_redist_persist, opt_redist_persist_overlap)

Disable opt_redist_persist and opt_redist_persist_overlap if dependent settings not set

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: opt_redist_nbk
logical, intent(inout) :: opt_redist_persist
logical, intent(inout) :: opt_redist_persist_overlap

Contents

Source Code

ensure_redist_persist_consistency

Source Code

  subroutine ensure_redist_persist_consistency(opt_redist_nbk, opt_redist_persist, opt_redist_persist_overlap)

    implicit none
    logical, intent(in) :: opt_redist_nbk
    logical, intent(inout) :: opt_redist_persist
    logical, intent(inout) :: opt_redist_persist_overlap

    opt_redist_persist = opt_redist_persist .and. opt_redist_nbk
    opt_redist_persist_overlap = opt_redist_persist_overlap .and. opt_redist_persist
    
  end subroutine ensure_redist_persist_consistency