wrf svn trunk commit r4103
[wrffire.git] / wrfv2_fire / share / module_io_wrf.F
bloba017b5dbb4fdeab82880a81c83e89e5ff18bcbe5
1 !WRF:PACKAGE:IO
4 MODULE module_io_wrf
6   USE module_wrf_error
7   USE module_date_time
8   USE module_streams
10 CONTAINS
11   SUBROUTINE init_module_io_wrf
12   END SUBROUTINE init_module_io_wrf
14 END MODULE module_io_wrf
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