HALO_EM_COUPLE_B_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_COUPLE_B_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/HALO_EM_COUPLE_B_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 10 &
10 + num_moist &
11 + num_scalar &
12 , 0, RWORDSIZE, &
13 0, 0, IWORDSIZE, &
14 0, 0, DWORDSIZE, &
15 0, 0, LWORDSIZE, &
16 mytask, ntasks, ntasks_x, ntasks_y, &
17 ips, ipe, jps, jpe, kps, MAX(1,1&
18 ,kpe &
19 ))
20 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
21 mytask, ntasks, ntasks_x, ntasks_y, &
22 ids, ide, jds, jde, kds, kde, &
23 ims, ime, jms, jme, kms, kme, &
24 ips, ipe, jps, jpe, kps, kpe )
25 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
26 mytask, ntasks, ntasks_x, ntasks_y, &
27 ids, ide, jds, jde, kds, kde, &
28 ims, ime, jms, jme, kms, kme, &
29 ips, ipe, jps, jpe, kps, kpe )
30 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
31 mytask, ntasks, ntasks_x, ntasks_y, &
32 ids, ide, jds, jde, kds, kde, &
33 ims, ime, jms, jme, kms, kme, &
34 ips, ipe, jps, jpe, kps, kpe )
35 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
36 mytask, ntasks, ntasks_x, ntasks_y, &
37 ids, ide, jds, jde, kds, kde, &
38 ims, ime, jms, jme, kms, kme, &
39 ips, ipe, jps, jpe, kps, kpe )
40 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
41 mytask, ntasks, ntasks_x, ntasks_y, &
42 ids, ide, jds, jde, kds, kde, &
43 ims, ime, jms, jme, kms, kme, &
44 ips, ipe, jps, jpe, kps, kpe )
45 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
46 mytask, ntasks, ntasks_x, ntasks_y, &
47 ids, ide, jds, jde, kds, kde, &
48 ims, ime, jms, jme, kms, kme, &
49 ips, ipe, jps, jpe, kps, kpe )
50 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
51 mytask, ntasks, ntasks_x, ntasks_y, &
52 ids, ide, jds, jde, kds, kde, &
53 ims, ime, jms, jme, kms, kme, &
54 ips, ipe, jps, jpe, kps, kpe )
55 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
56 mytask, ntasks, ntasks_x, ntasks_y, &
57 ids, ide, jds, jde, kds, kde, &
58 ims, ime, jms, jme, kms, kme, &
59 ips, ipe, jps, jpe, kps, kpe )
60 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
61 mytask, ntasks, ntasks_x, ntasks_y, &
62 ids, ide, jds, jde, kds, kde, &
63 ims, ime, jms, jme, kms, kme, &
64 ips, ipe, jps, jpe, kps, kpe )
65 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
66 mytask, ntasks, ntasks_x, ntasks_y, &
67 ids, ide, jds, jde, kds, kde, &
68 ims, ime, jms, jme, kms, kme, &
69 ips, ipe, jps, jpe, kps, kpe )
70 DO itrace = PARAM_FIRST_SCALAR, num_moist
71 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
72 mytask, ntasks, ntasks_x, ntasks_y, &
73 ids, ide, jds, jde, kds, kde, &
74 ims, ime, jms, jme, kms, kme, &
75 ips, ipe, jps, jpe, kps, kpe )
76 ENDDO
77 DO itrace = PARAM_FIRST_SCALAR, num_scalar
78 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, kds, kde, &
81 ims, ime, jms, jme, kms, kme, &
82 ips, ipe, jps, jpe, kps, kpe )
83 ENDDO
84 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
85 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
86 mytask, ntasks, ntasks_x, ntasks_y, &
87 ids, ide, jds, jde, kds, kde, &
88 ims, ime, jms, jme, kms, kme, &
89 ips, ipe, jps, jpe, kps, kpe )
90 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
91 mytask, ntasks, ntasks_x, ntasks_y, &
92 ids, ide, jds, jde, kds, kde, &
93 ims, ime, jms, jme, kms, kme, &
94 ips, ipe, jps, jpe, kps, kpe )
95 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
96 mytask, ntasks, ntasks_x, ntasks_y, &
97 ids, ide, jds, jde, kds, kde, &
98 ims, ime, jms, jme, kms, kme, &
99 ips, ipe, jps, jpe, kps, kpe )
100 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
101 mytask, ntasks, ntasks_x, ntasks_y, &
102 ids, ide, jds, jde, kds, kde, &
103 ims, ime, jms, jme, kms, kme, &
104 ips, ipe, jps, jpe, kps, kpe )
105 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
106 mytask, ntasks, ntasks_x, ntasks_y, &
107 ids, ide, jds, jde, kds, kde, &
108 ims, ime, jms, jme, kms, kme, &
109 ips, ipe, jps, jpe, kps, kpe )
110 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
111 mytask, ntasks, ntasks_x, ntasks_y, &
112 ids, ide, jds, jde, kds, kde, &
113 ims, ime, jms, jme, kms, kme, &
114 ips, ipe, jps, jpe, kps, kpe )
115 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
116 mytask, ntasks, ntasks_x, ntasks_y, &
117 ids, ide, jds, jde, kds, kde, &
118 ims, ime, jms, jme, kms, kme, &
119 ips, ipe, jps, jpe, kps, kpe )
120 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
121 mytask, ntasks, ntasks_x, ntasks_y, &
122 ids, ide, jds, jde, kds, kde, &
123 ims, ime, jms, jme, kms, kme, &
124 ips, ipe, jps, jpe, kps, kpe )
125 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
126 mytask, ntasks, ntasks_x, ntasks_y, &
127 ids, ide, jds, jde, kds, kde, &
128 ims, ime, jms, jme, kms, kme, &
129 ips, ipe, jps, jpe, kps, kpe )
130 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
131 mytask, ntasks, ntasks_x, ntasks_y, &
132 ids, ide, jds, jde, kds, kde, &
133 ims, ime, jms, jme, kms, kme, &
134 ips, ipe, jps, jpe, kps, kpe )
135 DO itrace = PARAM_FIRST_SCALAR, num_moist
136 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, kds, kde, &
139 ims, ime, jms, jme, kms, kme, &
140 ips, ipe, jps, jpe, kps, kpe )
141 ENDDO
142 DO itrace = PARAM_FIRST_SCALAR, num_scalar
143 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
144 mytask, ntasks, ntasks_x, ntasks_y, &
145 ids, ide, jds, jde, kds, kde, &
146 ims, ime, jms, jme, kms, kme, &
147 ips, ipe, jps, jpe, kps, kpe )
148 ENDDO
149 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
150 10 &
151 + num_moist &
152 + num_scalar &
153 , 0, RWORDSIZE, &
154 0, 0, IWORDSIZE, &
155 0, 0, DWORDSIZE, &
156 0, 0, LWORDSIZE, &
157 mytask, ntasks, ntasks_x, ntasks_y, &
158 ips, ipe, jps, jpe, kps, MAX(1,1&
159 ,kpe &
160 ))
161 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
162 mytask, ntasks, ntasks_x, ntasks_y, &
163 ids, ide, jds, jde, kds, kde, &
164 ims, ime, jms, jme, kms, kme, &
165 ips, ipe, jps, jpe, kps, kpe )
166 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, kds, kde, &
169 ims, ime, jms, jme, kms, kme, &
170 ips, ipe, jps, jpe, kps, kpe )
171 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, kds, kde, &
174 ims, ime, jms, jme, kms, kme, &
175 ips, ipe, jps, jpe, kps, kpe )
176 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, kds, kde, &
179 ims, ime, jms, jme, kms, kme, &
180 ips, ipe, jps, jpe, kps, kpe )
181 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
182 mytask, ntasks, ntasks_x, ntasks_y, &
183 ids, ide, jds, jde, kds, kde, &
184 ims, ime, jms, jme, kms, kme, &
185 ips, ipe, jps, jpe, kps, kpe )
186 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
187 mytask, ntasks, ntasks_x, ntasks_y, &
188 ids, ide, jds, jde, kds, kde, &
189 ims, ime, jms, jme, kms, kme, &
190 ips, ipe, jps, jpe, kps, kpe )
191 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
192 mytask, ntasks, ntasks_x, ntasks_y, &
193 ids, ide, jds, jde, kds, kde, &
194 ims, ime, jms, jme, kms, kme, &
195 ips, ipe, jps, jpe, kps, kpe )
196 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
197 mytask, ntasks, ntasks_x, ntasks_y, &
198 ids, ide, jds, jde, kds, kde, &
199 ims, ime, jms, jme, kms, kme, &
200 ips, ipe, jps, jpe, kps, kpe )
201 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
202 mytask, ntasks, ntasks_x, ntasks_y, &
203 ids, ide, jds, jde, kds, kde, &
204 ims, ime, jms, jme, kms, kme, &
205 ips, ipe, jps, jpe, kps, kpe )
206 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
207 mytask, ntasks, ntasks_x, ntasks_y, &
208 ids, ide, jds, jde, kds, kde, &
209 ims, ime, jms, jme, kms, kme, &
210 ips, ipe, jps, jpe, kps, kpe )
211 DO itrace = PARAM_FIRST_SCALAR, num_moist
212 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
213 mytask, ntasks, ntasks_x, ntasks_y, &
214 ids, ide, jds, jde, kds, kde, &
215 ims, ime, jms, jme, kms, kme, &
216 ips, ipe, jps, jpe, kps, kpe )
217 ENDDO
218 DO itrace = PARAM_FIRST_SCALAR, num_scalar
219 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
220 mytask, ntasks, ntasks_x, ntasks_y, &
221 ids, ide, jds, jde, kds, kde, &
222 ims, ime, jms, jme, kms, kme, &
223 ips, ipe, jps, jpe, kps, kpe )
224 ENDDO
225 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
226 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
227 mytask, ntasks, ntasks_x, ntasks_y, &
228 ids, ide, jds, jde, kds, kde, &
229 ims, ime, jms, jme, kms, kme, &
230 ips, ipe, jps, jpe, kps, kpe )
231 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
232 mytask, ntasks, ntasks_x, ntasks_y, &
233 ids, ide, jds, jde, kds, kde, &
234 ims, ime, jms, jme, kms, kme, &
235 ips, ipe, jps, jpe, kps, kpe )
236 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
237 mytask, ntasks, ntasks_x, ntasks_y, &
238 ids, ide, jds, jde, kds, kde, &
239 ims, ime, jms, jme, kms, kme, &
240 ips, ipe, jps, jpe, kps, kpe )
241 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
242 mytask, ntasks, ntasks_x, ntasks_y, &
243 ids, ide, jds, jde, kds, kde, &
244 ims, ime, jms, jme, kms, kme, &
245 ips, ipe, jps, jpe, kps, kpe )
246 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
247 mytask, ntasks, ntasks_x, ntasks_y, &
248 ids, ide, jds, jde, kds, kde, &
249 ims, ime, jms, jme, kms, kme, &
250 ips, ipe, jps, jpe, kps, kpe )
251 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
252 mytask, ntasks, ntasks_x, ntasks_y, &
253 ids, ide, jds, jde, kds, kde, &
254 ims, ime, jms, jme, kms, kme, &
255 ips, ipe, jps, jpe, kps, kpe )
256 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
257 mytask, ntasks, ntasks_x, ntasks_y, &
258 ids, ide, jds, jde, kds, kde, &
259 ims, ime, jms, jme, kms, kme, &
260 ips, ipe, jps, jpe, kps, kpe )
261 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
262 mytask, ntasks, ntasks_x, ntasks_y, &
263 ids, ide, jds, jde, kds, kde, &
264 ims, ime, jms, jme, kms, kme, &
265 ips, ipe, jps, jpe, kps, kpe )
266 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
267 mytask, ntasks, ntasks_x, ntasks_y, &
268 ids, ide, jds, jde, kds, kde, &
269 ims, ime, jms, jme, kms, kme, &
270 ips, ipe, jps, jpe, kps, kpe )
271 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
272 mytask, ntasks, ntasks_x, ntasks_y, &
273 ids, ide, jds, jde, kds, kde, &
274 ims, ime, jms, jme, kms, kme, &
275 ips, ipe, jps, jpe, kps, kpe )
276 DO itrace = PARAM_FIRST_SCALAR, num_moist
277 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
278 mytask, ntasks, ntasks_x, ntasks_y, &
279 ids, ide, jds, jde, kds, kde, &
280 ims, ime, jms, jme, kms, kme, &
281 ips, ipe, jps, jpe, kps, kpe )
282 ENDDO
283 DO itrace = PARAM_FIRST_SCALAR, num_scalar
284 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
285 mytask, ntasks, ntasks_x, ntasks_y, &
286 ids, ide, jds, jde, kds, kde, &
287 ims, ime, jms, jme, kms, kme, &
288 ips, ipe, jps, jpe, kps, kpe )
289 ENDDO
290 !ENDOFREGISTRYGENERATEDINCLUDE