1 module da_reporting 2 3 use da_control, only : stdout, use_html, documentation_url, & 4 warnings_are_fatal 5 6 use da_wrf_interfaces, only : wrf_message, wrf_abort 7 8 implicit none 9 10 character(len=10000) :: message(50) 11 12 contains 13 14 #include "da_error.inc" 15 #include "da_warning.inc" 16 #include "da_message.inc" 17 #include "da_message2.inc" 18 19 end module da_reporting