HALO_EM_E_5_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_E_5_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_E_5_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 10, 2, RWORDSIZE, &
10 0, 0, IWORDSIZE, &
11 0, 0, DWORDSIZE, &
12 0, 0, LWORDSIZE, &
13 mytask, ntasks, ntasks_x, ntasks_y, &
14 ips, ipe, jps, jpe, kps, MAX(1,1&
15 ,kpe &
16 ))
17 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ids, ide, jds, jde, kds, kde, &
20 ims, ime, jms, jme, kms, kme, &
21 ips, ipe, jps, jpe, kps, kpe )
22 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
23 mytask, ntasks, ntasks_x, ntasks_y, &
24 ids, ide, jds, jde, kds, kde, &
25 ims, ime, jms, jme, kms, kme, &
26 ips, ipe, jps, jpe, kps, kpe )
27 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
28 mytask, ntasks, ntasks_x, ntasks_y, &
29 ids, ide, jds, jde, kds, kde, &
30 ims, ime, jms, jme, kms, kme, &
31 ips, ipe, jps, jpe, kps, kpe )
32 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
33 mytask, ntasks, ntasks_x, ntasks_y, &
34 ids, ide, jds, jde, kds, kde, &
35 ims, ime, jms, jme, kms, kme, &
36 ips, ipe, jps, jpe, kps, kpe )
37 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
38 mytask, ntasks, ntasks_x, ntasks_y, &
39 ids, ide, jds, jde, kds, kde, &
40 ims, ime, jms, jme, kms, kme, &
41 ips, ipe, jps, jpe, kps, kpe )
42 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
43 mytask, ntasks, ntasks_x, ntasks_y, &
44 ids, ide, jds, jde, kds, kde, &
45 ims, ime, jms, jme, kms, kme, &
46 ips, ipe, jps, jpe, kps, kpe )
47 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
48 mytask, ntasks, ntasks_x, ntasks_y, &
49 ids, ide, jds, jde, kds, kde, &
50 ims, ime, jms, jme, kms, kme, &
51 ips, ipe, jps, jpe, kps, kpe )
52 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ids, ide, jds, jde, kds, kde, &
55 ims, ime, jms, jme, kms, kme, &
56 ips, ipe, jps, jpe, kps, kpe )
57 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, kds, kde, &
60 ims, ime, jms, jme, kms, kme, &
61 ips, ipe, jps, jpe, kps, kpe )
62 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, kds, kde, &
65 ims, ime, jms, jme, kms, kme, &
66 ips, ipe, jps, jpe, kps, kpe )
67 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
68 mytask, ntasks, ntasks_x, ntasks_y, &
69 ids, ide, jds, jde, 1 , 1 , &
70 ims, ime, jms, jme, 1 , 1 , &
71 ips, ipe, jps, jpe, 1 , 1 )
72 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, 1 , 1 , &
75 ims, ime, jms, jme, 1 , 1 , &
76 ips, ipe, jps, jpe, 1 , 1 )
77 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
78 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, kds, kde, &
86 ims, ime, jms, jme, kms, kme, &
87 ips, ipe, jps, jpe, kps, kpe )
88 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
89 mytask, ntasks, ntasks_x, ntasks_y, &
90 ids, ide, jds, jde, kds, kde, &
91 ims, ime, jms, jme, kms, kme, &
92 ips, ipe, jps, jpe, kps, kpe )
93 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
94 mytask, ntasks, ntasks_x, ntasks_y, &
95 ids, ide, jds, jde, kds, kde, &
96 ims, ime, jms, jme, kms, kme, &
97 ips, ipe, jps, jpe, kps, kpe )
98 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
99 mytask, ntasks, ntasks_x, ntasks_y, &
100 ids, ide, jds, jde, kds, kde, &
101 ims, ime, jms, jme, kms, kme, &
102 ips, ipe, jps, jpe, kps, kpe )
103 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
104 mytask, ntasks, ntasks_x, ntasks_y, &
105 ids, ide, jds, jde, kds, kde, &
106 ims, ime, jms, jme, kms, kme, &
107 ips, ipe, jps, jpe, kps, kpe )
108 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
109 mytask, ntasks, ntasks_x, ntasks_y, &
110 ids, ide, jds, jde, kds, kde, &
111 ims, ime, jms, jme, kms, kme, &
112 ips, ipe, jps, jpe, kps, kpe )
113 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
114 mytask, ntasks, ntasks_x, ntasks_y, &
115 ids, ide, jds, jde, kds, kde, &
116 ims, ime, jms, jme, kms, kme, &
117 ips, ipe, jps, jpe, kps, kpe )
118 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
119 mytask, ntasks, ntasks_x, ntasks_y, &
120 ids, ide, jds, jde, kds, kde, &
121 ims, ime, jms, jme, kms, kme, &
122 ips, ipe, jps, jpe, kps, kpe )
123 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
124 mytask, ntasks, ntasks_x, ntasks_y, &
125 ids, ide, jds, jde, kds, kde, &
126 ims, ime, jms, jme, kms, kme, &
127 ips, ipe, jps, jpe, kps, kpe )
128 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
129 mytask, ntasks, ntasks_x, ntasks_y, &
130 ids, ide, jds, jde, 1 , 1 , &
131 ims, ime, jms, jme, 1 , 1 , &
132 ips, ipe, jps, jpe, 1 , 1 )
133 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
134 mytask, ntasks, ntasks_x, ntasks_y, &
135 ids, ide, jds, jde, 1 , 1 , &
136 ims, ime, jms, jme, 1 , 1 , &
137 ips, ipe, jps, jpe, 1 , 1 )
138 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
139 10, 2, RWORDSIZE, &
140 0, 0, IWORDSIZE, &
141 0, 0, DWORDSIZE, &
142 0, 0, LWORDSIZE, &
143 mytask, ntasks, ntasks_x, ntasks_y, &
144 ips, ipe, jps, jpe, kps, MAX(1,1&
145 ,kpe &
146 ))
147 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
148 mytask, ntasks, ntasks_x, ntasks_y, &
149 ids, ide, jds, jde, kds, kde, &
150 ims, ime, jms, jme, kms, kme, &
151 ips, ipe, jps, jpe, kps, kpe )
152 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
153 mytask, ntasks, ntasks_x, ntasks_y, &
154 ids, ide, jds, jde, kds, kde, &
155 ims, ime, jms, jme, kms, kme, &
156 ips, ipe, jps, jpe, kps, kpe )
157 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
158 mytask, ntasks, ntasks_x, ntasks_y, &
159 ids, ide, jds, jde, kds, kde, &
160 ims, ime, jms, jme, kms, kme, &
161 ips, ipe, jps, jpe, kps, kpe )
162 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
163 mytask, ntasks, ntasks_x, ntasks_y, &
164 ids, ide, jds, jde, kds, kde, &
165 ims, ime, jms, jme, kms, kme, &
166 ips, ipe, jps, jpe, kps, kpe )
167 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
168 mytask, ntasks, ntasks_x, ntasks_y, &
169 ids, ide, jds, jde, kds, kde, &
170 ims, ime, jms, jme, kms, kme, &
171 ips, ipe, jps, jpe, kps, kpe )
172 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
173 mytask, ntasks, ntasks_x, ntasks_y, &
174 ids, ide, jds, jde, kds, kde, &
175 ims, ime, jms, jme, kms, kme, &
176 ips, ipe, jps, jpe, kps, kpe )
177 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
178 mytask, ntasks, ntasks_x, ntasks_y, &
179 ids, ide, jds, jde, kds, kde, &
180 ims, ime, jms, jme, kms, kme, &
181 ips, ipe, jps, jpe, kps, kpe )
182 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
183 mytask, ntasks, ntasks_x, ntasks_y, &
184 ids, ide, jds, jde, kds, kde, &
185 ims, ime, jms, jme, kms, kme, &
186 ips, ipe, jps, jpe, kps, kpe )
187 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
188 mytask, ntasks, ntasks_x, ntasks_y, &
189 ids, ide, jds, jde, kds, kde, &
190 ims, ime, jms, jme, kms, kme, &
191 ips, ipe, jps, jpe, kps, kpe )
192 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
193 mytask, ntasks, ntasks_x, ntasks_y, &
194 ids, ide, jds, jde, kds, kde, &
195 ims, ime, jms, jme, kms, kme, &
196 ips, ipe, jps, jpe, kps, kpe )
197 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
198 mytask, ntasks, ntasks_x, ntasks_y, &
199 ids, ide, jds, jde, 1 , 1 , &
200 ims, ime, jms, jme, 1 , 1 , &
201 ips, ipe, jps, jpe, 1 , 1 )
202 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
203 mytask, ntasks, ntasks_x, ntasks_y, &
204 ids, ide, jds, jde, 1 , 1 , &
205 ims, ime, jms, jme, 1 , 1 , &
206 ips, ipe, jps, jpe, 1 , 1 )
207 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
208 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
209 mytask, ntasks, ntasks_x, ntasks_y, &
210 ids, ide, jds, jde, kds, kde, &
211 ims, ime, jms, jme, kms, kme, &
212 ips, ipe, jps, jpe, kps, kpe )
213 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
214 mytask, ntasks, ntasks_x, ntasks_y, &
215 ids, ide, jds, jde, kds, kde, &
216 ims, ime, jms, jme, kms, kme, &
217 ips, ipe, jps, jpe, kps, kpe )
218 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
219 mytask, ntasks, ntasks_x, ntasks_y, &
220 ids, ide, jds, jde, kds, kde, &
221 ims, ime, jms, jme, kms, kme, &
222 ips, ipe, jps, jpe, kps, kpe )
223 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
224 mytask, ntasks, ntasks_x, ntasks_y, &
225 ids, ide, jds, jde, kds, kde, &
226 ims, ime, jms, jme, kms, kme, &
227 ips, ipe, jps, jpe, kps, kpe )
228 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
229 mytask, ntasks, ntasks_x, ntasks_y, &
230 ids, ide, jds, jde, kds, kde, &
231 ims, ime, jms, jme, kms, kme, &
232 ips, ipe, jps, jpe, kps, kpe )
233 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
234 mytask, ntasks, ntasks_x, ntasks_y, &
235 ids, ide, jds, jde, kds, kde, &
236 ims, ime, jms, jme, kms, kme, &
237 ips, ipe, jps, jpe, kps, kpe )
238 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
239 mytask, ntasks, ntasks_x, ntasks_y, &
240 ids, ide, jds, jde, kds, kde, &
241 ims, ime, jms, jme, kms, kme, &
242 ips, ipe, jps, jpe, kps, kpe )
243 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
244 mytask, ntasks, ntasks_x, ntasks_y, &
245 ids, ide, jds, jde, kds, kde, &
246 ims, ime, jms, jme, kms, kme, &
247 ips, ipe, jps, jpe, kps, kpe )
248 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
249 mytask, ntasks, ntasks_x, ntasks_y, &
250 ids, ide, jds, jde, kds, kde, &
251 ims, ime, jms, jme, kms, kme, &
252 ips, ipe, jps, jpe, kps, kpe )
253 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
254 mytask, ntasks, ntasks_x, ntasks_y, &
255 ids, ide, jds, jde, kds, kde, &
256 ims, ime, jms, jme, kms, kme, &
257 ips, ipe, jps, jpe, kps, kpe )
258 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
259 mytask, ntasks, ntasks_x, ntasks_y, &
260 ids, ide, jds, jde, 1 , 1 , &
261 ims, ime, jms, jme, 1 , 1 , &
262 ips, ipe, jps, jpe, 1 , 1 )
263 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
264 mytask, ntasks, ntasks_x, ntasks_y, &
265 ids, ide, jds, jde, 1 , 1 , &
266 ims, ime, jms, jme, 1 , 1 , &
267 ips, ipe, jps, jpe, 1 , 1 )
268 !ENDOFREGISTRYGENERATEDINCLUDE