WRF_STUBS.f

integer function wrf_sizeof_integer()
  implicit none
  integer i
  wrf_sizeof_integer=storage_size(i)
end function wrf_sizeof_integer
 
real function wrf_sizeof_real()
  implicit none
  real i
  wrf_sizeof_real=storage_size(i)
end function wrf_sizeof_real
 
subroutine wrf_debug(n,s)
  implicit none
  integer :: n
  character*(*) :: s
  if(n<2) print '(A)',trim(s)
end subroutine wrf_debug
 
subroutine wrf_message(s)
  implicit none
  character*(*) :: s
  print '(A)',trim(s)
end subroutine wrf_message
 
subroutine wrf_error_fatal(s)
  implicit none
  use mpi
  character*(*) :: s
  integer :: i
  write(0,'(A)') 'FATAL ERROR IN WRF DURING POST'
  write(0,'(A)') 'wrf_error_fatal called with mesage:'
  write(0,'(A)') trim(s)
  call mpi_abort(mpi_comm_world,1,i)
  stop 1
end subroutine wrf_error_fatal