geogrid/src/wrf_debug.F

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