da_wrf_interfaces.f90
References to this file elsewhere.
1 module da_wrf_interfaces
2
3 interface
4 subroutine disable_quilting
5 end subroutine disable_quilting
6 end interface
7
8 interface
9 subroutine wrf_dm_bcast_real (buf, n1)
10 integer, intent(in) :: n1
11 real, intent(inout) :: buf(:)
12 end subroutine wrf_dm_bcast_real
13 end interface
14
15 interface
16 subroutine wrf_dm_sum_reals (inval, retval)
17 real, intent(in) :: inval(:)
18 real, intent(out) :: retval(:)
19 end subroutine wrf_dm_sum_reals
20 end interface
21
22 interface
23 real function wrf_dm_sum_real (inval)
24 real, intent(in) :: inval
25 end function wrf_dm_sum_real
26 end interface
27
28 interface
29 integer function wrf_dm_sum_integer (inval)
30 integer, intent(in) :: inval
31 end function wrf_dm_sum_integer
32 end interface
33
34 interface
35 subroutine wrf_patch_to_global_real (buf,globbuf,domdesc,stagger, &
36 ordering,&
37 ds1,de1,ds2,de2,ds3,de3,&
38 ms1,me1,ms2,me2,ms3,me3,&
39 ps1,pe1,ps2,pe2,ps3,pe3 )
40
41 integer, intent(in) :: ds1,de1,ds2,de2,ds3,de3,&
42 ms1,me1,ms2,me2,ms3,me3,&
43 ps1,pe1,ps2,pe2,ps3,pe3
44 character *(*), intent(in) :: stagger,ordering
45 integer, intent(in) :: domdesc
46 real, intent(inout) :: globbuf(*)
47 real, intent(in) :: buf(*)
48 end subroutine wrf_patch_to_global_real
49 end interface
50
51 interface
52 subroutine wrf_dm_xpose_z2y (domdesc , comms , xpose_id)
53 integer, intent(inout) :: domdesc
54 integer, intent(inout) :: comms(*)
55 integer, intent(in) :: xpose_id
56 end subroutine wrf_dm_xpose_z2y
57 end interface
58
59 interface
60 subroutine wrf_dm_xpose_y2z (domdesc , comms , xpose_id)
61 integer, intent(inout) :: domdesc
62 integer, intent(inout) :: comms(*)
63 integer, intent(in) :: xpose_id
64 end subroutine wrf_dm_xpose_y2z
65 end interface
66
67 interface
68 subroutine wrf_dm_xpose_y2x (domdesc , comms , xpose_id)
69 integer, intent(inout) :: domdesc
70 integer, intent(inout) :: comms(*)
71 integer, intent(in) :: xpose_id
72 end subroutine wrf_dm_xpose_y2x
73 end interface
74
75 interface
76 subroutine wrf_dm_xpose_x2y (domdesc , comms , xpose_id)
77 integer, intent(inout) :: domdesc
78 integer, intent(inout) :: comms(*)
79 integer, intent(in) :: xpose_id
80 end subroutine wrf_dm_xpose_x2y
81 end interface
82
83 interface
84 subroutine wrf_dm_xpose_x2z (domdesc , comms , xpose_id)
85 integer, intent(inout) :: domdesc
86 integer, intent(inout) :: comms(*)
87 integer, intent(in) :: xpose_id
88 end subroutine wrf_dm_xpose_x2z
89 end interface
90
91 interface
92 subroutine wrf_dm_xpose_z2x (domdesc , comms , xpose_id)
93 integer, intent(inout) :: domdesc
94 integer, intent(inout) :: comms(*)
95 integer, intent(in) :: xpose_id
96 end subroutine wrf_dm_xpose_z2x
97 end interface
98
99 interface
100 subroutine set_scalar_indices_from_config (idomain, dummy2, dummy1)
101 integer, intent(in) :: idomain
102 integer, intent(in) :: dummy1
103 integer, intent(in) :: dummy2
104 end subroutine set_scalar_indices_from_config
105 end interface
106
107 interface
108 subroutine init_modules(phase)
109 integer, intent(in) :: phase
110 end subroutine init_modules
111 end interface
112
113 interface
114 subroutine init_wrfio
115 end subroutine init_wrfio
116 end interface
117
118 interface
119 subroutine wrf_get_dm_communicator (communicator)
120 integer , intent(out) :: communicator
121 end subroutine wrf_get_dm_communicator
122 end interface
123
124 interface
125 subroutine wrf_debug(level , str)
126 character*(*), intent(in) :: str
127 integer, intent(in) :: level
128 end subroutine wrf_debug
129 end interface
130
131 interface
132 subroutine wrf_dm_bcast_integer(buf, n1)
133 implicit none
134 integer, intent(in) :: n1
135 integer, intent(inout) :: buf(:)
136 end subroutine wrf_dm_bcast_integer
137 end interface
138
139 interface
140 subroutine setup_timekeeping(grid)
141 use module_domain, only : domain
142 type(domain), pointer :: grid
143 end subroutine setup_timekeeping
144 end interface
145
146 interface
147 subroutine wrf_message(str)
148 character(len=*), intent(in) :: str
149 end subroutine wrf_message
150 end interface
151
152 interface
153 subroutine wrf_error_fatal (str)
154 character*(*), intent(in) :: str
155 end subroutine wrf_error_fatal
156 end interface
157
158 interface
159 subroutine wrf_error_fatal3 (file_str, line, str)
160 character(len=*), intent(in) :: file_str
161 integer, intent(in) :: line
162 character(len=*), intent(in) :: str(:)
163 end subroutine wrf_error_fatal3
164 end interface
165
166 interface
167 subroutine wrf_check_error(expected, actual, str, file_str, line)
168 integer, intent(in) :: expected
169 integer, intent(in) :: actual
170 character(len=*), intent(in) :: str(:)
171 character(len=*), intent(in) :: file_str(:)
172 integer, intent(in) :: line
173 end subroutine wrf_check_error
174 end interface
175
176 interface
177 subroutine wrf_abort
178 end subroutine wrf_abort
179 end interface
180
181 interface
182 subroutine wrf_shutdown
183 end subroutine wrf_shutdown
184 end interface
185
186 interface
187 subroutine med_shutdown_io (grid , config_flags)
188 use module_domain, only : domain
189 use module_configure, only : grid_config_rec_type
190 type (domain), intent(in) :: grid
191 type (grid_config_rec_type), intent(in) :: config_flags
192 end subroutine med_shutdown_io
193 end interface
194
195 end module da_wrf_interfaces