da_reporting.f90

1 module da_reporting
2 
3    use da_control, only : stdout, use_html, documentation_url, &
4       warnings_are_fatal
5    ! Do not include the wrf_interfaces as it generates a cascade of
6    ! code required for gen_be
7    ! use da_wrf_interfaces, only : wrf_message, wrf_abort
8 
9    implicit none
10 
11    interface
12       subroutine wrf_message(str)
13          character(len=*), intent(in) :: str
14       end subroutine wrf_message
15    end interface
16 
17    interface
18       subroutine wrf_abort
19       end subroutine wrf_abort
20    end interface 
21 
22    character(len=10000) :: message(50)
23 
24 contains
25 
26 #include "da_error.inc"
27 #include "da_warning.inc"
28 #include "da_message.inc"
29 #include "da_message2.inc"
30 
31 end module da_reporting