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 
9 ! switch parameters
10   INTEGER, PARAMETER :: history_only=1
11   INTEGER, PARAMETER :: aux_hist1_only=2
12   INTEGER, PARAMETER :: aux_hist2_only=3
13   INTEGER, PARAMETER :: aux_hist3_only=4
14   INTEGER, PARAMETER :: aux_hist4_only=5
15   INTEGER, PARAMETER :: aux_hist5_only=6
16   INTEGER, PARAMETER :: aux_hist6_only=7
17   INTEGER, PARAMETER :: aux_hist7_only=8
18   INTEGER, PARAMETER :: aux_hist8_only=9
19   INTEGER, PARAMETER :: aux_hist9_only=10
20   INTEGER, PARAMETER :: aux_hist10_only=11
21   INTEGER, PARAMETER :: aux_hist11_only=12
22   INTEGER, PARAMETER :: model_input_only=13
23   INTEGER, PARAMETER :: aux_model_input1_only=14
24   INTEGER, PARAMETER :: aux_model_input2_only=15
25   INTEGER, PARAMETER :: aux_model_input3_only=16
26   INTEGER, PARAMETER :: aux_model_input4_only=17
27   INTEGER, PARAMETER :: aux_model_input5_only=18
28   INTEGER, PARAMETER :: aux_model_input6_only=19
29   INTEGER, PARAMETER :: aux_model_input7_only=20
30   INTEGER, PARAMETER :: aux_model_input8_only=21
31   INTEGER, PARAMETER :: aux_model_input9_only=22
32   INTEGER, PARAMETER :: aux_model_input10_only=23
33   INTEGER, PARAMETER :: aux_model_input11_only=24
34   INTEGER, PARAMETER :: restart_only=25
35   INTEGER, PARAMETER :: boundary_only=26
36 
37 CONTAINS
38   SUBROUTINE init_module_io_wrf
39   END SUBROUTINE init_module_io_wrf
40 
41 END MODULE module_io_wrf
42 
43 
44   SUBROUTINE debug_io_wrf ( msg , date, ds , de , ps , pe , ms , me )
45     USE module_wrf_error
46     IMPLICIT NONE
47     CHARACTER*(*)  :: msg , date
48     INTEGER , DIMENSION(3) , INTENT(IN) :: ds , de , ps , pe , ms , me
49     IF ( wrf_at_debug_level(300) ) THEN
50       CALL wrf_message ( msg )
51       WRITE(wrf_err_message,*)'date ',date  ; CALL wrf_message ( TRIM(wrf_err_message) )
52       WRITE(wrf_err_message,*)'ds ',ds  ; CALL wrf_message ( TRIM(wrf_err_message) )
53       WRITE(wrf_err_message,*)'de ',de  ; CALL wrf_message ( TRIM(wrf_err_message) )
54       WRITE(wrf_err_message,*)'ps ',ps  ; CALL wrf_message ( TRIM(wrf_err_message) )
55       WRITE(wrf_err_message,*)'pe ',pe  ; CALL wrf_message ( TRIM(wrf_err_message) )
56       WRITE(wrf_err_message,*)'ms ',ms  ; CALL wrf_message ( TRIM(wrf_err_message) )
57       WRITE(wrf_err_message,*)'me ',me  ; CALL wrf_message ( TRIM(wrf_err_message) )
58     ENDIF
59     RETURN
60   END SUBROUTINE debug_io_wrf
61