share/module_io_wrf.F

   1 !WRF:PACKAGE:IO
   2 !
   3
   4 MODULE module_io_wrf
   5
   6   USE module_wrf_error
   7   USE module_date_time
   8   USE module_streams
   9
  10 CONTAINS
  11   SUBROUTINE init_module_io_wrf
  12   END SUBROUTINE init_module_io_wrf
  13
  14 END MODULE module_io_wrf
  15
  16
  17   SUBROUTINE debug_io_wrf ( msg , date, ds , de , ps , pe , ms , me )
  18     USE module_wrf_error
  19     IMPLICIT NONE
  20     CHARACTER*(*)  :: msg , date
  21     INTEGER , DIMENSION(3) , INTENT(IN) :: ds , de , ps , pe , ms , me
  22     IF ( wrf_at_debug_level(300) ) THEN
  23       CALL wrf_message ( msg )
  24       WRITE(wrf_err_message,*)'date ',date  ; CALL wrf_message ( TRIM(wrf_err_message) )
  25       WRITE(wrf_err_message,*)'ds ',ds  ; CALL wrf_message ( TRIM(wrf_err_message) )
  26       WRITE(wrf_err_message,*)'de ',de  ; CALL wrf_message ( TRIM(wrf_err_message) )
  27       WRITE(wrf_err_message,*)'ps ',ps  ; CALL wrf_message ( TRIM(wrf_err_message) )
  28       WRITE(wrf_err_message,*)'pe ',pe  ; CALL wrf_message ( TRIM(wrf_err_message) )
  29       WRITE(wrf_err_message,*)'ms ',ms  ; CALL wrf_message ( TRIM(wrf_err_message) )
  30       WRITE(wrf_err_message,*)'me ',me  ; CALL wrf_message ( TRIM(wrf_err_message) )
  31     ENDIF
  32     RETURN
  33   END SUBROUTINE debug_io_wrf
  34