var/da/da_reporting/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