var/da/da_reporting/da_warning.inc

   1 subroutine da_warning(file_str, line, warnings)
   2
   3    !--------------------------------------------------------------------
   4    ! Purpose: Standard interface for warning messages
   5    !--------------------------------------------------------------------
   6
   7    implicit none
   8
   9    character(len=*), intent(in) :: file_str
  10    integer,          intent(in) :: line
  11    character(len=*), intent(in) :: warnings(:)
  12    character*256 :: line_str
  13    character*256 :: html_file
  14 #if defined(DM_PARALLEL) && ! defined(STUBMPI)
  15    integer :: i
  16 #endif
  17
  18    if (warnings_are_fatal) then
  19       call da_error(file_str, line, warnings)
  20    else
  21       write(line_str,'(i6)') line
  22
  23       html_file=file_str(1:LEN_trim(file_str)-4)//'.html'
  24
  25 #if defined(DM_PARALLEL) && ! defined(STUBMPI)
  26       call wrf_message( &
  27          '--------------------------- WARNING ---------------------------')
  28       ! only print file and line if line is positive
  29       if (line > 0) then
  30          if (use_html) then
  31             call wrf_message('WARNING FROM FILE: <A HREF="'// &
  32                trim(documentation_url)//'/'//trim(html_file)//'">'// &
  33                trim(file_str)// &
  34                   '</a>  LINE:  '//trim(line_str))
  35          else
  36             call wrf_message('WARNING FROM FILE:  '//trim(file_str)// &
  37                '  LINE:  '//trim(line_str))
  38          end if
  39       end if
  40       do i=1,size(warnings)
  41          call wrf_message(warnings(i))
  42       end do
  43       call wrf_message( &
  44          '---------------------------------------------------------------')
  45 #else
  46       call wrf_message2( &
  47          '---------------------------- WARNING --------------------------')
  48       ! only print file and line if line is positive
  49       if (line > 0) then
  50          if (use_html) then
  51             call wrf_message2('WARNING FROM FILE: <A HREF="'// &
  52                trim(documentation_url)//'/'//trim(html_file)//'">'// &
  53                   trim(file_str)//'</a>  LINE:  '//trim(line_str))
  54          else
  55             call wrf_message2('WARNING FROM FILE:  '//trim(file_str)// &
  56                '  LINE:  '//trim(line_str))
  57          end if
  58       end if
  59       call da_message(warnings)
  60       call wrf_message2( &
  61          '---------------------------------------------------------------')
  62 #endif
  63    end if
  64
  65 end subroutine da_warning
  66
  67