SUBROUTINE wrf_message( str )
  IMPLICIT NONE
  CHARACTER*(*) str
  write(6,*) str
END SUBROUTINE wrf_message