geogrid/src/wrf_debug.F

   1 subroutine wrf_debug(i, msg)
   2
   3    use gridinfo_module
   4
   5    implicit none
   6
   7    ! Arguments
   8    integer, intent(in) :: i
   9    character (len=*), intent(in) :: msg
  10
  11    if (debug_level > 0) then
  12       write(6,*) 'WRF_DEBUG:'//msg
  13    end if
  14
  15 end subroutine wrf_debug
  16
  17
  18 subroutine wrf_message(msg)
  19
  20    implicit none
  21
  22    ! Arguments
  23    character (len=*), intent(in) :: msg
  24
  25    write(6,*) 'WRF_MESSAGE:'//msg
  26
  27 end subroutine wrf_message
  28
  29
  30 subroutine wrf_error_fatal(msg)
  31
  32    implicit none
  33
  34    ! Arguments
  35    character (len=*), intent(in) :: msg
  36
  37    write(6,*) 'WRF_ERROR_FATAL:'//msg
  38
  39    stop
  40
  41 end subroutine wrf_error_fatal
  42
  43
  44 subroutine wrf_error_fatal3(msg)
  45
  46    implicit none
  47
  48    ! Arguments
  49    character (len=*), intent(in) :: msg
  50
  51    write(6,*) 'WRF_ERROR_FATAL:'//msg
  52
  53    stop
  54
  55 end subroutine wrf_error_fatal3