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