warn_about_deprecated_option Subroutine

public subroutine warn_about_deprecated_option(old_switch, old_name, new_switch, new_name)

Uses

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: old_switch

Deprecated diagnostic switch
character(len=*), intent(in) :: old_name

Deprecated name of the switch
logical, intent(inout) :: new_switch

New diagnostic switch
character(len=*), intent(in) :: new_name

New name of the switch

Contents

Source Code

warn_about_deprecated_option

Source Code

  subroutine warn_about_deprecated_option(old_switch, old_name, new_switch, new_name)
    use mp, only: proc0
    !> Deprecated diagnostic switch
    logical, intent(in) :: old_switch
    !> Deprecated name of the switch
    character(len=*), intent(in) :: old_name
    !> New diagnostic switch
    logical, intent(in out) :: new_switch
    !> New name of the switch
    character(len=*), intent(in) :: new_name

    if (old_switch .and. proc0) then
      write(*, '(8(a), l)') "WARNING: diagnostic '", old_name, &
           "' is deprecated. Please use '", new_name, "' instead.",  &
           " Using ", new_name, " = ", new_switch
    end if
  end subroutine warn_about_deprecated_option