source: lmdz_wrf/trunk/WRFV3/share/module_io_wrf.F @ 1419

Last change on this file since 1419 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.1 KB
Line 
1!WRF:PACKAGE:IO
2!
3
4MODULE module_io_wrf
5
6  USE module_wrf_error
7  USE module_date_time
8  USE module_streams
9
10CONTAINS
11  SUBROUTINE init_module_io_wrf
12  END SUBROUTINE init_module_io_wrf
13
14END 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
Note: See TracBrowser for help on using the repository browser.