debug_message Subroutine

public subroutine debug_message(verbosity_level, message)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: verbosity_level
character(len=*), intent(in) :: message

Contents

Source Code


Source Code

  subroutine debug_message(verbosity_level, message)
    use mp, only: iproc, mp_initialized
    integer, intent(in) :: verbosity_level
    character(*), intent(in) :: message
    if (mp_initialized) then 
      if (should_print(verbosity_level)) write (*,"(A,A5,I6,A7,I6)") message, " jid=", job_id, &
        " iproc=", iproc
    else
      if (should_print(verbosity_level)) write (*,"(A,A5,I6,A7,I6)") message, " jid=", job_id
    end if
  end subroutine debug_message