REGISTRY_COMM_DM_subs.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.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 SUBROUTINE HALO_EM_INIT_1_sub ( grid, &
8 local_communicator, &
9 mytask, ntasks, ntasks_x, ntasks_y, &
10 ids, ide, jds, jde, kds, kde, &
11 ims, ime, jms, jme, kms, kme, &
12 ips, ipe, jps, jpe, kps, kpe )
13 TYPE(domain) , INTENT(IN) :: grid
14 INTEGER , INTENT(IN) :: local_communicator
15 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
16 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
17 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
18 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
19 INTEGER :: itrace
20
21 #ifdef DM_PARALLEL
22 #include "HALO_EM_INIT_1_inline.inc"
23 #endif
24
25 END SUBROUTINE HALO_EM_INIT_1_sub
26 !ENDOFREGISTRYGENERATEDINCLUDE
27 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
28 !
29 ! WARNING This file is generated automatically by use_registry
30 ! using the data base in the file named Registry.
31 ! Do not edit. Your changes to this file will be lost.
32 !
33 SUBROUTINE HALO_EM_INIT_2_sub ( grid, &
34 local_communicator, &
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 TYPE(domain) , INTENT(IN) :: grid
40 INTEGER , INTENT(IN) :: local_communicator
41 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
42 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
43 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
44 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
45 INTEGER :: itrace
46
47 #ifdef DM_PARALLEL
48 #include "HALO_EM_INIT_2_inline.inc"
49 #endif
50
51 END SUBROUTINE HALO_EM_INIT_2_sub
52 !ENDOFREGISTRYGENERATEDINCLUDE
53 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
54 !
55 ! WARNING This file is generated automatically by use_registry
56 ! using the data base in the file named Registry.
57 ! Do not edit. Your changes to this file will be lost.
58 !
59 SUBROUTINE HALO_EM_INIT_3_sub ( grid, &
60 local_communicator, &
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 TYPE(domain) , INTENT(IN) :: grid
66 INTEGER , INTENT(IN) :: local_communicator
67 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
68 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
69 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
70 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
71 INTEGER :: itrace
72
73 #ifdef DM_PARALLEL
74 #include "HALO_EM_INIT_3_inline.inc"
75 #endif
76
77 END SUBROUTINE HALO_EM_INIT_3_sub
78 !ENDOFREGISTRYGENERATEDINCLUDE
79 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
80 !
81 ! WARNING This file is generated automatically by use_registry
82 ! using the data base in the file named Registry.
83 ! Do not edit. Your changes to this file will be lost.
84 !
85 SUBROUTINE HALO_EM_INIT_4_sub ( grid, &
86 local_communicator, &
87 mytask, ntasks, ntasks_x, ntasks_y, &
88 ids, ide, jds, jde, kds, kde, &
89 ims, ime, jms, jme, kms, kme, &
90 ips, ipe, jps, jpe, kps, kpe )
91 TYPE(domain) , INTENT(IN) :: grid
92 INTEGER , INTENT(IN) :: local_communicator
93 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
94 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
95 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
96 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
97 INTEGER :: itrace
98
99 #ifdef DM_PARALLEL
100 #include "HALO_EM_INIT_4_inline.inc"
101 #endif
102
103 END SUBROUTINE HALO_EM_INIT_4_sub
104 !ENDOFREGISTRYGENERATEDINCLUDE
105 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
106 !
107 ! WARNING This file is generated automatically by use_registry
108 ! using the data base in the file named Registry.
109 ! Do not edit. Your changes to this file will be lost.
110 !
111 SUBROUTINE HALO_EM_INIT_5_sub ( grid, &
112 num_moist, &
113 moist, &
114 num_scalar, &
115 scalar, &
116 local_communicator, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ids, ide, jds, jde, kds, kde, &
119 ims, ime, jms, jme, kms, kme, &
120 ips, ipe, jps, jpe, kps, kpe )
121 TYPE(domain) , INTENT(IN) :: grid
122 INTEGER, INTENT(IN) :: num_moist
123 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
124 INTEGER, INTENT(IN) :: num_scalar
125 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
126 INTEGER , INTENT(IN) :: local_communicator
127 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
128 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
129 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
130 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
131 INTEGER :: itrace
132
133 #ifdef DM_PARALLEL
134 #include "HALO_EM_INIT_5_inline.inc"
135 #endif
136
137 END SUBROUTINE HALO_EM_INIT_5_sub
138 !ENDOFREGISTRYGENERATEDINCLUDE
139 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
140 !
141 ! WARNING This file is generated automatically by use_registry
142 ! using the data base in the file named Registry.
143 ! Do not edit. Your changes to this file will be lost.
144 !
145 SUBROUTINE HALO_EM_A_sub ( grid, &
146 local_communicator, &
147 mytask, ntasks, ntasks_x, ntasks_y, &
148 ids, ide, jds, jde, kds, kde, &
149 ims, ime, jms, jme, kms, kme, &
150 ips, ipe, jps, jpe, kps, kpe )
151 TYPE(domain) , INTENT(IN) :: grid
152 INTEGER , INTENT(IN) :: local_communicator
153 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
154 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
155 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
156 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
157 INTEGER :: itrace
158
159 #ifdef DM_PARALLEL
160 #include "HALO_EM_A_inline.inc"
161 #endif
162
163 END SUBROUTINE HALO_EM_A_sub
164 !ENDOFREGISTRYGENERATEDINCLUDE
165 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
166 !
167 ! WARNING This file is generated automatically by use_registry
168 ! using the data base in the file named Registry.
169 ! Do not edit. Your changes to this file will be lost.
170 !
171 SUBROUTINE HALO_EM_PHYS_A_sub ( grid, &
172 local_communicator, &
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 TYPE(domain) , INTENT(IN) :: grid
178 INTEGER , INTENT(IN) :: local_communicator
179 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
180 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
181 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
182 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
183 INTEGER :: itrace
184
185 #ifdef DM_PARALLEL
186 #include "HALO_EM_PHYS_A_inline.inc"
187 #endif
188
189 END SUBROUTINE HALO_EM_PHYS_A_sub
190 !ENDOFREGISTRYGENERATEDINCLUDE
191 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
192 !
193 ! WARNING This file is generated automatically by use_registry
194 ! using the data base in the file named Registry.
195 ! Do not edit. Your changes to this file will be lost.
196 !
197 SUBROUTINE HALO_EM_PHYS_DIFFUSION_sub ( grid, &
198 local_communicator, &
199 mytask, ntasks, ntasks_x, ntasks_y, &
200 ids, ide, jds, jde, kds, kde, &
201 ims, ime, jms, jme, kms, kme, &
202 ips, ipe, jps, jpe, kps, kpe )
203 TYPE(domain) , INTENT(IN) :: grid
204 INTEGER , INTENT(IN) :: local_communicator
205 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
206 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
207 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
208 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
209 INTEGER :: itrace
210
211 #ifdef DM_PARALLEL
212 #include "HALO_EM_PHYS_DIFFUSION_inline.inc"
213 #endif
214
215 END SUBROUTINE HALO_EM_PHYS_DIFFUSION_sub
216 !ENDOFREGISTRYGENERATEDINCLUDE
217 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
218 !
219 ! WARNING This file is generated automatically by use_registry
220 ! using the data base in the file named Registry.
221 ! Do not edit. Your changes to this file will be lost.
222 !
223 SUBROUTINE HALO_EM_TKE_A_sub ( grid, &
224 local_communicator, &
225 mytask, ntasks, ntasks_x, ntasks_y, &
226 ids, ide, jds, jde, kds, kde, &
227 ims, ime, jms, jme, kms, kme, &
228 ips, ipe, jps, jpe, kps, kpe )
229 TYPE(domain) , INTENT(IN) :: grid
230 INTEGER , INTENT(IN) :: local_communicator
231 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
232 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
233 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
234 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
235 INTEGER :: itrace
236
237 #ifdef DM_PARALLEL
238 #include "HALO_EM_TKE_A_inline.inc"
239 #endif
240
241 END SUBROUTINE HALO_EM_TKE_A_sub
242 !ENDOFREGISTRYGENERATEDINCLUDE
243 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
244 !
245 ! WARNING This file is generated automatically by use_registry
246 ! using the data base in the file named Registry.
247 ! Do not edit. Your changes to this file will be lost.
248 !
249 SUBROUTINE HALO_EM_TKE_E_sub ( grid, &
250 num_moist, &
251 moist, &
252 local_communicator, &
253 mytask, ntasks, ntasks_x, ntasks_y, &
254 ids, ide, jds, jde, kds, kde, &
255 ims, ime, jms, jme, kms, kme, &
256 ips, ipe, jps, jpe, kps, kpe )
257 TYPE(domain) , INTENT(IN) :: grid
258 INTEGER, INTENT(IN) :: num_moist
259 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
260 INTEGER , INTENT(IN) :: local_communicator
261 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
262 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
263 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
264 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
265 INTEGER :: itrace
266
267 #ifdef DM_PARALLEL
268 #include "HALO_EM_TKE_E_inline.inc"
269 #endif
270
271 END SUBROUTINE HALO_EM_TKE_E_sub
272 !ENDOFREGISTRYGENERATEDINCLUDE
273 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
274 !
275 ! WARNING This file is generated automatically by use_registry
276 ! using the data base in the file named Registry.
277 ! Do not edit. Your changes to this file will be lost.
278 !
279 SUBROUTINE HALO_EM_B_sub ( grid, &
280 local_communicator, &
281 mytask, ntasks, ntasks_x, ntasks_y, &
282 ids, ide, jds, jde, kds, kde, &
283 ims, ime, jms, jme, kms, kme, &
284 ips, ipe, jps, jpe, kps, kpe )
285 TYPE(domain) , INTENT(IN) :: grid
286 INTEGER , INTENT(IN) :: local_communicator
287 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
288 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
289 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
290 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
291 INTEGER :: itrace
292
293 #ifdef DM_PARALLEL
294 #include "HALO_EM_B_inline.inc"
295 #endif
296
297 END SUBROUTINE HALO_EM_B_sub
298 !ENDOFREGISTRYGENERATEDINCLUDE
299 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
300 !
301 ! WARNING This file is generated automatically by use_registry
302 ! using the data base in the file named Registry.
303 ! Do not edit. Your changes to this file will be lost.
304 !
305 SUBROUTINE HALO_EM_C_sub ( grid, &
306 local_communicator, &
307 mytask, ntasks, ntasks_x, ntasks_y, &
308 ids, ide, jds, jde, kds, kde, &
309 ims, ime, jms, jme, kms, kme, &
310 ips, ipe, jps, jpe, kps, kpe )
311 TYPE(domain) , INTENT(IN) :: grid
312 INTEGER , INTENT(IN) :: local_communicator
313 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
314 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
315 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
316 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
317 INTEGER :: itrace
318
319 #ifdef DM_PARALLEL
320 #include "HALO_EM_C_inline.inc"
321 #endif
322
323 END SUBROUTINE HALO_EM_C_sub
324 !ENDOFREGISTRYGENERATEDINCLUDE
325 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
326 !
327 ! WARNING This file is generated automatically by use_registry
328 ! using the data base in the file named Registry.
329 ! Do not edit. Your changes to this file will be lost.
330 !
331 SUBROUTINE HALO_EM_C2_sub ( grid, &
332 local_communicator, &
333 mytask, ntasks, ntasks_x, ntasks_y, &
334 ids, ide, jds, jde, kds, kde, &
335 ims, ime, jms, jme, kms, kme, &
336 ips, ipe, jps, jpe, kps, kpe )
337 TYPE(domain) , INTENT(IN) :: grid
338 INTEGER , INTENT(IN) :: local_communicator
339 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
340 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
341 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
342 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
343 INTEGER :: itrace
344
345 #ifdef DM_PARALLEL
346 #include "HALO_EM_C2_inline.inc"
347 #endif
348
349 END SUBROUTINE HALO_EM_C2_sub
350 !ENDOFREGISTRYGENERATEDINCLUDE
351 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
352 !
353 ! WARNING This file is generated automatically by use_registry
354 ! using the data base in the file named Registry.
355 ! Do not edit. Your changes to this file will be lost.
356 !
357 SUBROUTINE HALO_EM_D2_3_sub ( grid, &
358 num_moist, &
359 moist, &
360 num_scalar, &
361 scalar, &
362 local_communicator, &
363 mytask, ntasks, ntasks_x, ntasks_y, &
364 ids, ide, jds, jde, kds, kde, &
365 ims, ime, jms, jme, kms, kme, &
366 ips, ipe, jps, jpe, kps, kpe )
367 TYPE(domain) , INTENT(IN) :: grid
368 INTEGER, INTENT(IN) :: num_moist
369 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
370 INTEGER, INTENT(IN) :: num_scalar
371 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
372 INTEGER , INTENT(IN) :: local_communicator
373 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
374 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
375 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
376 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
377 INTEGER :: itrace
378
379 #ifdef DM_PARALLEL
380 #include "HALO_EM_D2_3_inline.inc"
381 #endif
382
383 END SUBROUTINE HALO_EM_D2_3_sub
384 !ENDOFREGISTRYGENERATEDINCLUDE
385 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
386 !
387 ! WARNING This file is generated automatically by use_registry
388 ! using the data base in the file named Registry.
389 ! Do not edit. Your changes to this file will be lost.
390 !
391 SUBROUTINE HALO_EM_D2_5_sub ( grid, &
392 num_moist, &
393 moist, &
394 num_scalar, &
395 scalar, &
396 local_communicator, &
397 mytask, ntasks, ntasks_x, ntasks_y, &
398 ids, ide, jds, jde, kds, kde, &
399 ims, ime, jms, jme, kms, kme, &
400 ips, ipe, jps, jpe, kps, kpe )
401 TYPE(domain) , INTENT(IN) :: grid
402 INTEGER, INTENT(IN) :: num_moist
403 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
404 INTEGER, INTENT(IN) :: num_scalar
405 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
406 INTEGER , INTENT(IN) :: local_communicator
407 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
408 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
409 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
410 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
411 INTEGER :: itrace
412
413 #ifdef DM_PARALLEL
414 #include "HALO_EM_D2_5_inline.inc"
415 #endif
416
417 END SUBROUTINE HALO_EM_D2_5_sub
418 !ENDOFREGISTRYGENERATEDINCLUDE
419 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
420 !
421 ! WARNING This file is generated automatically by use_registry
422 ! using the data base in the file named Registry.
423 ! Do not edit. Your changes to this file will be lost.
424 !
425 SUBROUTINE HALO_EM_D3_3_sub ( grid, &
426 num_moist, &
427 moist, &
428 num_scalar, &
429 scalar, &
430 local_communicator, &
431 mytask, ntasks, ntasks_x, ntasks_y, &
432 ids, ide, jds, jde, kds, kde, &
433 ims, ime, jms, jme, kms, kme, &
434 ips, ipe, jps, jpe, kps, kpe )
435 TYPE(domain) , INTENT(IN) :: grid
436 INTEGER, INTENT(IN) :: num_moist
437 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
438 INTEGER, INTENT(IN) :: num_scalar
439 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
440 INTEGER , INTENT(IN) :: local_communicator
441 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
442 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
443 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
444 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
445 INTEGER :: itrace
446
447 #ifdef DM_PARALLEL
448 #include "HALO_EM_D3_3_inline.inc"
449 #endif
450
451 END SUBROUTINE HALO_EM_D3_3_sub
452 !ENDOFREGISTRYGENERATEDINCLUDE
453 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
454 !
455 ! WARNING This file is generated automatically by use_registry
456 ! using the data base in the file named Registry.
457 ! Do not edit. Your changes to this file will be lost.
458 !
459 SUBROUTINE HALO_EM_D3_5_sub ( grid, &
460 num_moist, &
461 moist, &
462 num_scalar, &
463 scalar, &
464 local_communicator, &
465 mytask, ntasks, ntasks_x, ntasks_y, &
466 ids, ide, jds, jde, kds, kde, &
467 ims, ime, jms, jme, kms, kme, &
468 ips, ipe, jps, jpe, kps, kpe )
469 TYPE(domain) , INTENT(IN) :: grid
470 INTEGER, INTENT(IN) :: num_moist
471 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
472 INTEGER, INTENT(IN) :: num_scalar
473 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
474 INTEGER , INTENT(IN) :: local_communicator
475 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
476 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
477 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
478 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
479 INTEGER :: itrace
480
481 #ifdef DM_PARALLEL
482 #include "HALO_EM_D3_5_inline.inc"
483 #endif
484
485 END SUBROUTINE HALO_EM_D3_5_sub
486 !ENDOFREGISTRYGENERATEDINCLUDE
487 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
488 !
489 ! WARNING This file is generated automatically by use_registry
490 ! using the data base in the file named Registry.
491 ! Do not edit. Your changes to this file will be lost.
492 !
493 SUBROUTINE HALO_EM_E_3_sub ( grid, &
494 local_communicator, &
495 mytask, ntasks, ntasks_x, ntasks_y, &
496 ids, ide, jds, jde, kds, kde, &
497 ims, ime, jms, jme, kms, kme, &
498 ips, ipe, jps, jpe, kps, kpe )
499 TYPE(domain) , INTENT(IN) :: grid
500 INTEGER , INTENT(IN) :: local_communicator
501 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
502 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
503 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
504 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
505 INTEGER :: itrace
506
507 #ifdef DM_PARALLEL
508 #include "HALO_EM_E_3_inline.inc"
509 #endif
510
511 END SUBROUTINE HALO_EM_E_3_sub
512 !ENDOFREGISTRYGENERATEDINCLUDE
513 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
514 !
515 ! WARNING This file is generated automatically by use_registry
516 ! using the data base in the file named Registry.
517 ! Do not edit. Your changes to this file will be lost.
518 !
519 SUBROUTINE HALO_EM_E_5_sub ( grid, &
520 local_communicator, &
521 mytask, ntasks, ntasks_x, ntasks_y, &
522 ids, ide, jds, jde, kds, kde, &
523 ims, ime, jms, jme, kms, kme, &
524 ips, ipe, jps, jpe, kps, kpe )
525 TYPE(domain) , INTENT(IN) :: grid
526 INTEGER , INTENT(IN) :: local_communicator
527 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
528 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
529 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
530 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
531 INTEGER :: itrace
532
533 #ifdef DM_PARALLEL
534 #include "HALO_EM_E_5_inline.inc"
535 #endif
536
537 END SUBROUTINE HALO_EM_E_5_sub
538 !ENDOFREGISTRYGENERATEDINCLUDE
539 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
540 !
541 ! WARNING This file is generated automatically by use_registry
542 ! using the data base in the file named Registry.
543 ! Do not edit. Your changes to this file will be lost.
544 !
545 SUBROUTINE HALO_EM_MOIST_E_3_sub ( grid, &
546 num_moist, &
547 moist, &
548 local_communicator, &
549 mytask, ntasks, ntasks_x, ntasks_y, &
550 ids, ide, jds, jde, kds, kde, &
551 ims, ime, jms, jme, kms, kme, &
552 ips, ipe, jps, jpe, kps, kpe )
553 TYPE(domain) , INTENT(IN) :: grid
554 INTEGER, INTENT(IN) :: num_moist
555 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
556 INTEGER , INTENT(IN) :: local_communicator
557 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
558 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
559 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
560 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
561 INTEGER :: itrace
562
563 #ifdef DM_PARALLEL
564 #include "HALO_EM_MOIST_E_3_inline.inc"
565 #endif
566
567 END SUBROUTINE HALO_EM_MOIST_E_3_sub
568 !ENDOFREGISTRYGENERATEDINCLUDE
569 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
570 !
571 ! WARNING This file is generated automatically by use_registry
572 ! using the data base in the file named Registry.
573 ! Do not edit. Your changes to this file will be lost.
574 !
575 SUBROUTINE HALO_EM_MOIST_E_5_sub ( grid, &
576 num_moist, &
577 moist, &
578 local_communicator, &
579 mytask, ntasks, ntasks_x, ntasks_y, &
580 ids, ide, jds, jde, kds, kde, &
581 ims, ime, jms, jme, kms, kme, &
582 ips, ipe, jps, jpe, kps, kpe )
583 TYPE(domain) , INTENT(IN) :: grid
584 INTEGER, INTENT(IN) :: num_moist
585 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
586 INTEGER , INTENT(IN) :: local_communicator
587 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
588 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
589 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
590 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
591 INTEGER :: itrace
592
593 #ifdef DM_PARALLEL
594 #include "HALO_EM_MOIST_E_5_inline.inc"
595 #endif
596
597 END SUBROUTINE HALO_EM_MOIST_E_5_sub
598 !ENDOFREGISTRYGENERATEDINCLUDE
599 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
600 !
601 ! WARNING This file is generated automatically by use_registry
602 ! using the data base in the file named Registry.
603 ! Do not edit. Your changes to this file will be lost.
604 !
605 SUBROUTINE HALO_EM_SCALAR_E_3_sub ( grid, &
606 num_scalar, &
607 scalar, &
608 local_communicator, &
609 mytask, ntasks, ntasks_x, ntasks_y, &
610 ids, ide, jds, jde, kds, kde, &
611 ims, ime, jms, jme, kms, kme, &
612 ips, ipe, jps, jpe, kps, kpe )
613 TYPE(domain) , INTENT(IN) :: grid
614 INTEGER, INTENT(IN) :: num_scalar
615 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
616 INTEGER , INTENT(IN) :: local_communicator
617 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
618 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
619 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
620 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
621 INTEGER :: itrace
622
623 #ifdef DM_PARALLEL
624 #include "HALO_EM_SCALAR_E_3_inline.inc"
625 #endif
626
627 END SUBROUTINE HALO_EM_SCALAR_E_3_sub
628 !ENDOFREGISTRYGENERATEDINCLUDE
629 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
630 !
631 ! WARNING This file is generated automatically by use_registry
632 ! using the data base in the file named Registry.
633 ! Do not edit. Your changes to this file will be lost.
634 !
635 SUBROUTINE HALO_EM_SCALAR_E_5_sub ( grid, &
636 num_scalar, &
637 scalar, &
638 local_communicator, &
639 mytask, ntasks, ntasks_x, ntasks_y, &
640 ids, ide, jds, jde, kds, kde, &
641 ims, ime, jms, jme, kms, kme, &
642 ips, ipe, jps, jpe, kps, kpe )
643 TYPE(domain) , INTENT(IN) :: grid
644 INTEGER, INTENT(IN) :: num_scalar
645 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
646 INTEGER , INTENT(IN) :: local_communicator
647 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
648 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
649 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
650 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
651 INTEGER :: itrace
652
653 #ifdef DM_PARALLEL
654 #include "HALO_EM_SCALAR_E_5_inline.inc"
655 #endif
656
657 END SUBROUTINE HALO_EM_SCALAR_E_5_sub
658 !ENDOFREGISTRYGENERATEDINCLUDE
659 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
660 !
661 ! WARNING This file is generated automatically by use_registry
662 ! using the data base in the file named Registry.
663 ! Do not edit. Your changes to this file will be lost.
664 !
665 SUBROUTINE HALO_EM_FEEDBACK_sub ( grid, &
666 local_communicator, &
667 mytask, ntasks, ntasks_x, ntasks_y, &
668 ids, ide, jds, jde, kds, kde, &
669 ims, ime, jms, jme, kms, kme, &
670 ips, ipe, jps, jpe, kps, kpe )
671 TYPE(domain) , INTENT(IN) :: grid
672 INTEGER , INTENT(IN) :: local_communicator
673 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
674 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
675 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
676 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
677 INTEGER :: itrace
678
679 #ifdef DM_PARALLEL
680 #include "HALO_EM_FEEDBACK_inline.inc"
681 #endif
682
683 END SUBROUTINE HALO_EM_FEEDBACK_sub
684 !ENDOFREGISTRYGENERATEDINCLUDE
685 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
686 !
687 ! WARNING This file is generated automatically by use_registry
688 ! using the data base in the file named Registry.
689 ! Do not edit. Your changes to this file will be lost.
690 !
691 SUBROUTINE HALO_EM_COUPLE_A_sub ( grid, &
692 local_communicator, &
693 mytask, ntasks, ntasks_x, ntasks_y, &
694 ids, ide, jds, jde, kds, kde, &
695 ims, ime, jms, jme, kms, kme, &
696 ips, ipe, jps, jpe, kps, kpe )
697 TYPE(domain) , INTENT(IN) :: grid
698 INTEGER , INTENT(IN) :: local_communicator
699 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
700 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
701 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
702 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
703 INTEGER :: itrace
704
705 #ifdef DM_PARALLEL
706 #include "HALO_EM_COUPLE_A_inline.inc"
707 #endif
708
709 END SUBROUTINE HALO_EM_COUPLE_A_sub
710 !ENDOFREGISTRYGENERATEDINCLUDE
711 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
712 !
713 ! WARNING This file is generated automatically by use_registry
714 ! using the data base in the file named Registry.
715 ! Do not edit. Your changes to this file will be lost.
716 !
717 SUBROUTINE HALO_EM_COUPLE_B_sub ( grid, &
718 num_moist, &
719 moist, &
720 num_scalar, &
721 scalar, &
722 local_communicator, &
723 mytask, ntasks, ntasks_x, ntasks_y, &
724 ids, ide, jds, jde, kds, kde, &
725 ims, ime, jms, jme, kms, kme, &
726 ips, ipe, jps, jpe, kps, kpe )
727 TYPE(domain) , INTENT(IN) :: grid
728 INTEGER, INTENT(IN) :: num_moist
729 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
730 INTEGER, INTENT(IN) :: num_scalar
731 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
732 INTEGER , INTENT(IN) :: local_communicator
733 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
734 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
735 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
736 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
737 INTEGER :: itrace
738
739 #ifdef DM_PARALLEL
740 #include "HALO_EM_COUPLE_B_inline.inc"
741 #endif
742
743 END SUBROUTINE HALO_EM_COUPLE_B_sub
744 !ENDOFREGISTRYGENERATEDINCLUDE
745 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
746 !
747 ! WARNING This file is generated automatically by use_registry
748 ! using the data base in the file named Registry.
749 ! Do not edit. Your changes to this file will be lost.
750 !
751 SUBROUTINE EM_SHIFT_HALO_Y_sub ( grid, &
752 local_communicator, &
753 mytask, ntasks, ntasks_x, ntasks_y, &
754 ids, ide, jds, jde, kds, kde, &
755 ims, ime, jms, jme, kms, kme, &
756 ips, ipe, jps, jpe, kps, kpe )
757 TYPE(domain) , INTENT(IN) :: grid
758 INTEGER , INTENT(IN) :: local_communicator
759 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
760 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
761 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
762 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
763 INTEGER :: itrace
764
765 #ifdef DM_PARALLEL
766 #include "EM_SHIFT_HALO_Y_inline.inc"
767 #endif
768
769 END SUBROUTINE EM_SHIFT_HALO_Y_sub
770 !ENDOFREGISTRYGENERATEDINCLUDE
771 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
772 !
773 ! WARNING This file is generated automatically by use_registry
774 ! using the data base in the file named Registry.
775 ! Do not edit. Your changes to this file will be lost.
776 !
777 SUBROUTINE EM_SHIFT_HALO_X_sub ( grid, &
778 local_communicator, &
779 mytask, ntasks, ntasks_x, ntasks_y, &
780 ids, ide, jds, jde, kds, kde, &
781 ims, ime, jms, jme, kms, kme, &
782 ips, ipe, jps, jpe, kps, kpe )
783 TYPE(domain) , INTENT(IN) :: grid
784 INTEGER , INTENT(IN) :: local_communicator
785 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
786 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
787 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
788 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
789 INTEGER :: itrace
790
791 #ifdef DM_PARALLEL
792 #include "EM_SHIFT_HALO_X_inline.inc"
793 #endif
794
795 END SUBROUTINE EM_SHIFT_HALO_X_sub
796 !ENDOFREGISTRYGENERATEDINCLUDE
797 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
798 !
799 ! WARNING This file is generated automatically by use_registry
800 ! using the data base in the file named Registry.
801 ! Do not edit. Your changes to this file will be lost.
802 !
803 SUBROUTINE HALO_INIT_sub ( grid, &
804 local_communicator, &
805 mytask, ntasks, ntasks_x, ntasks_y, &
806 ids, ide, jds, jde, kds, kde, &
807 ims, ime, jms, jme, kms, kme, &
808 ips, ipe, jps, jpe, kps, kpe )
809 TYPE(domain) , INTENT(IN) :: grid
810 INTEGER , INTENT(IN) :: local_communicator
811 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
812 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
813 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
814 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
815 INTEGER :: itrace
816
817 #ifdef DM_PARALLEL
818 #include "HALO_INIT_inline.inc"
819 #endif
820
821 END SUBROUTINE HALO_INIT_sub
822 !ENDOFREGISTRYGENERATEDINCLUDE
823 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
824 !
825 ! WARNING This file is generated automatically by use_registry
826 ! using the data base in the file named Registry.
827 ! Do not edit. Your changes to this file will be lost.
828 !
829 SUBROUTINE HALO_PSICHI_UV_sub ( grid, &
830 local_communicator, &
831 mytask, ntasks, ntasks_x, ntasks_y, &
832 ids, ide, jds, jde, kds, kde, &
833 ims, ime, jms, jme, kms, kme, &
834 ips, ipe, jps, jpe, kps, kpe )
835 TYPE(domain) , INTENT(IN) :: grid
836 INTEGER , INTENT(IN) :: local_communicator
837 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
838 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
839 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
840 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
841 INTEGER :: itrace
842
843 #ifdef DM_PARALLEL
844 #include "HALO_PSICHI_UV_inline.inc"
845 #endif
846
847 END SUBROUTINE HALO_PSICHI_UV_sub
848 !ENDOFREGISTRYGENERATEDINCLUDE
849 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
850 !
851 ! WARNING This file is generated automatically by use_registry
852 ! using the data base in the file named Registry.
853 ! Do not edit. Your changes to this file will be lost.
854 !
855 SUBROUTINE HALO_BAL_EQN_ADJ_sub ( grid, &
856 local_communicator, &
857 mytask, ntasks, ntasks_x, ntasks_y, &
858 ids, ide, jds, jde, kds, kde, &
859 ims, ime, jms, jme, kms, kme, &
860 ips, ipe, jps, jpe, kps, kpe )
861 TYPE(domain) , INTENT(IN) :: grid
862 INTEGER , INTENT(IN) :: local_communicator
863 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
864 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
865 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
866 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
867 INTEGER :: itrace
868
869 #ifdef DM_PARALLEL
870 #include "HALO_BAL_EQN_ADJ_inline.inc"
871 #endif
872
873 END SUBROUTINE HALO_BAL_EQN_ADJ_sub
874 !ENDOFREGISTRYGENERATEDINCLUDE
875 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
876 !
877 ! WARNING This file is generated automatically by use_registry
878 ! using the data base in the file named Registry.
879 ! Do not edit. Your changes to this file will be lost.
880 !
881 SUBROUTINE HALO_PSICHI_UV_ADJ_sub ( grid, &
882 local_communicator, &
883 mytask, ntasks, ntasks_x, ntasks_y, &
884 ids, ide, jds, jde, kds, kde, &
885 ims, ime, jms, jme, kms, kme, &
886 ips, ipe, jps, jpe, kps, kpe )
887 TYPE(domain) , INTENT(IN) :: grid
888 INTEGER , INTENT(IN) :: local_communicator
889 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
890 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
891 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
892 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
893 INTEGER :: itrace
894
895 #ifdef DM_PARALLEL
896 #include "HALO_PSICHI_UV_ADJ_inline.inc"
897 #endif
898
899 END SUBROUTINE HALO_PSICHI_UV_ADJ_sub
900 !ENDOFREGISTRYGENERATEDINCLUDE
901 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
902 !
903 ! WARNING This file is generated automatically by use_registry
904 ! using the data base in the file named Registry.
905 ! Do not edit. Your changes to this file will be lost.
906 !
907 SUBROUTINE HALO_XA_sub ( grid, &
908 local_communicator, &
909 mytask, ntasks, ntasks_x, ntasks_y, &
910 ids, ide, jds, jde, kds, kde, &
911 ims, ime, jms, jme, kms, kme, &
912 ips, ipe, jps, jpe, kps, kpe )
913 TYPE(domain) , INTENT(IN) :: grid
914 INTEGER , INTENT(IN) :: local_communicator
915 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
916 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
917 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
918 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
919 INTEGER :: itrace
920
921 #ifdef DM_PARALLEL
922 #include "HALO_XA_inline.inc"
923 #endif
924
925 END SUBROUTINE HALO_XA_sub
926 !ENDOFREGISTRYGENERATEDINCLUDE
927 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
928 !
929 ! WARNING This file is generated automatically by use_registry
930 ! using the data base in the file named Registry.
931 ! Do not edit. Your changes to this file will be lost.
932 !
933 SUBROUTINE HALO_SFC_XA_sub ( grid, &
934 local_communicator, &
935 mytask, ntasks, ntasks_x, ntasks_y, &
936 ids, ide, jds, jde, kds, kde, &
937 ims, ime, jms, jme, kms, kme, &
938 ips, ipe, jps, jpe, kps, kpe )
939 TYPE(domain) , INTENT(IN) :: grid
940 INTEGER , INTENT(IN) :: local_communicator
941 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
942 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
943 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
944 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
945 INTEGER :: itrace
946
947 #ifdef DM_PARALLEL
948 #include "HALO_SFC_XA_inline.inc"
949 #endif
950
951 END SUBROUTINE HALO_SFC_XA_sub
952 !ENDOFREGISTRYGENERATEDINCLUDE
953 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
954 !
955 ! WARNING This file is generated automatically by use_registry
956 ! using the data base in the file named Registry.
957 ! Do not edit. Your changes to this file will be lost.
958 !
959 SUBROUTINE HALO_SSMI_XA_sub ( grid, &
960 local_communicator, &
961 mytask, ntasks, ntasks_x, ntasks_y, &
962 ids, ide, jds, jde, kds, kde, &
963 ims, ime, jms, jme, kms, kme, &
964 ips, ipe, jps, jpe, kps, kpe )
965 TYPE(domain) , INTENT(IN) :: grid
966 INTEGER , INTENT(IN) :: local_communicator
967 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
968 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
969 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
970 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
971 INTEGER :: itrace
972
973 #ifdef DM_PARALLEL
974 #include "HALO_SSMI_XA_inline.inc"
975 #endif
976
977 END SUBROUTINE HALO_SSMI_XA_sub
978 !ENDOFREGISTRYGENERATEDINCLUDE
979 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
980 !
981 ! WARNING This file is generated automatically by use_registry
982 ! using the data base in the file named Registry.
983 ! Do not edit. Your changes to this file will be lost.
984 !
985 SUBROUTINE HALO_2D_WORK_sub ( grid, &
986 local_communicator, &
987 mytask, ntasks, ntasks_x, ntasks_y, &
988 ids, ide, jds, jde, kds, kde, &
989 ims, ime, jms, jme, kms, kme, &
990 ips, ipe, jps, jpe, kps, kpe )
991 TYPE(domain) , INTENT(IN) :: grid
992 INTEGER , INTENT(IN) :: local_communicator
993 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
994 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
995 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
996 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
997 INTEGER :: itrace
998
999 #ifdef DM_PARALLEL
1000 #include "HALO_2D_WORK_inline.inc"
1001 #endif
1002
1003 END SUBROUTINE HALO_2D_WORK_sub
1004 !ENDOFREGISTRYGENERATEDINCLUDE
1005 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1006 !
1007 ! WARNING This file is generated automatically by use_registry
1008 ! using the data base in the file named Registry.
1009 ! Do not edit. Your changes to this file will be lost.
1010 !
1011 SUBROUTINE HALO_RADAR_XA_W_sub ( grid, &
1012 local_communicator, &
1013 mytask, ntasks, ntasks_x, ntasks_y, &
1014 ids, ide, jds, jde, kds, kde, &
1015 ims, ime, jms, jme, kms, kme, &
1016 ips, ipe, jps, jpe, kps, kpe )
1017 TYPE(domain) , INTENT(IN) :: grid
1018 INTEGER , INTENT(IN) :: local_communicator
1019 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1020 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1021 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1022 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1023 INTEGER :: itrace
1024
1025 #ifdef DM_PARALLEL
1026 #include "HALO_RADAR_XA_W_inline.inc"
1027 #endif
1028
1029 END SUBROUTINE HALO_RADAR_XA_W_sub
1030 !ENDOFREGISTRYGENERATEDINCLUDE
1031 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1032 !
1033 ! WARNING This file is generated automatically by use_registry
1034 ! using the data base in the file named Registry.
1035 ! Do not edit. Your changes to this file will be lost.
1036 !
1037 SUBROUTINE HALO_EM_FORCE_DOWN_sub ( grid, &
1038 num_moist, &
1039 moist, &
1040 num_a_moist, &
1041 a_moist, &
1042 num_g_moist, &
1043 g_moist, &
1044 num_scalar, &
1045 scalar, &
1046 local_communicator, &
1047 mytask, ntasks, ntasks_x, ntasks_y, &
1048 ids, ide, jds, jde, kds, kde, &
1049 ims, ime, jms, jme, kms, kme, &
1050 ips, ipe, jps, jpe, kps, kpe )
1051 TYPE(domain) , INTENT(IN) :: grid
1052 INTEGER, INTENT(IN) :: num_moist
1053 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1054 INTEGER, INTENT(IN) :: num_a_moist
1055 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1056 INTEGER, INTENT(IN) :: num_g_moist
1057 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1058 INTEGER, INTENT(IN) :: num_scalar
1059 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1060 INTEGER , INTENT(IN) :: local_communicator
1061 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1062 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1063 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1064 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1065 INTEGER :: itrace
1066
1067 #ifdef DM_PARALLEL
1068 #include "HALO_EM_FORCE_DOWN_inline.inc"
1069 #endif
1070
1071 END SUBROUTINE HALO_EM_FORCE_DOWN_sub
1072 !ENDOFREGISTRYGENERATEDINCLUDE
1073 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1074 !
1075 ! WARNING This file is generated automatically by use_registry
1076 ! using the data base in the file named Registry.
1077 ! Do not edit. Your changes to this file will be lost.
1078 !
1079 SUBROUTINE HALO_NODYN_FORCE_DOWN_sub ( grid, &
1080 num_moist, &
1081 moist, &
1082 num_a_moist, &
1083 a_moist, &
1084 num_g_moist, &
1085 g_moist, &
1086 num_scalar, &
1087 scalar, &
1088 local_communicator, &
1089 mytask, ntasks, ntasks_x, ntasks_y, &
1090 ids, ide, jds, jde, kds, kde, &
1091 ims, ime, jms, jme, kms, kme, &
1092 ips, ipe, jps, jpe, kps, kpe )
1093 TYPE(domain) , INTENT(IN) :: grid
1094 INTEGER, INTENT(IN) :: num_moist
1095 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1096 INTEGER, INTENT(IN) :: num_a_moist
1097 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1098 INTEGER, INTENT(IN) :: num_g_moist
1099 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1100 INTEGER, INTENT(IN) :: num_scalar
1101 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1102 INTEGER , INTENT(IN) :: local_communicator
1103 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1104 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1105 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1106 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1107 INTEGER :: itrace
1108
1109 #ifdef DM_PARALLEL
1110 #include "HALO_NODYN_FORCE_DOWN_inline.inc"
1111 #endif
1112
1113 END SUBROUTINE HALO_NODYN_FORCE_DOWN_sub
1114 !ENDOFREGISTRYGENERATEDINCLUDE
1115 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1116 !
1117 ! WARNING This file is generated automatically by use_registry
1118 ! using the data base in the file named Registry.
1119 ! Do not edit. Your changes to this file will be lost.
1120 !
1121 SUBROUTINE HALO_EM_INTERP_DOWN_sub ( grid, &
1122 config_flags, &
1123 num_moist, &
1124 moist, &
1125 num_a_moist, &
1126 a_moist, &
1127 num_g_moist, &
1128 g_moist, &
1129 num_scalar, &
1130 scalar, &
1131 local_communicator, &
1132 mytask, ntasks, ntasks_x, ntasks_y, &
1133 ids, ide, jds, jde, kds, kde, &
1134 ims, ime, jms, jme, kms, kme, &
1135 ips, ipe, jps, jpe, kps, kpe )
1136 TYPE(domain) , INTENT(IN) :: grid
1137 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1138 INTEGER, INTENT(IN) :: num_moist
1139 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1140 INTEGER, INTENT(IN) :: num_a_moist
1141 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1142 INTEGER, INTENT(IN) :: num_g_moist
1143 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1144 INTEGER, INTENT(IN) :: num_scalar
1145 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1146 INTEGER , INTENT(IN) :: local_communicator
1147 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1148 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1149 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1150 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1151 INTEGER :: itrace
1152
1153 #ifdef DM_PARALLEL
1154 #include "HALO_EM_INTERP_DOWN_inline.inc"
1155 #endif
1156
1157 END SUBROUTINE HALO_EM_INTERP_DOWN_sub
1158 !ENDOFREGISTRYGENERATEDINCLUDE
1159 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1160 !
1161 ! WARNING This file is generated automatically by use_registry
1162 ! using the data base in the file named Registry.
1163 ! Do not edit. Your changes to this file will be lost.
1164 !
1165 SUBROUTINE HALO_NODYN_INTERP_DOWN_sub ( grid, &
1166 config_flags, &
1167 num_moist, &
1168 moist, &
1169 num_a_moist, &
1170 a_moist, &
1171 num_g_moist, &
1172 g_moist, &
1173 num_scalar, &
1174 scalar, &
1175 local_communicator, &
1176 mytask, ntasks, ntasks_x, ntasks_y, &
1177 ids, ide, jds, jde, kds, kde, &
1178 ims, ime, jms, jme, kms, kme, &
1179 ips, ipe, jps, jpe, kps, kpe )
1180 TYPE(domain) , INTENT(IN) :: grid
1181 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1182 INTEGER, INTENT(IN) :: num_moist
1183 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1184 INTEGER, INTENT(IN) :: num_a_moist
1185 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1186 INTEGER, INTENT(IN) :: num_g_moist
1187 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1188 INTEGER, INTENT(IN) :: num_scalar
1189 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1190 INTEGER , INTENT(IN) :: local_communicator
1191 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1192 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1193 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1194 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1195 INTEGER :: itrace
1196
1197 #ifdef DM_PARALLEL
1198 #include "HALO_NODYN_INTERP_DOWN_inline.inc"
1199 #endif
1200
1201 END SUBROUTINE HALO_NODYN_INTERP_DOWN_sub
1202 !ENDOFREGISTRYGENERATEDINCLUDE
1203 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1204 !
1205 ! WARNING This file is generated automatically by use_registry
1206 ! using the data base in the file named Registry.
1207 ! Do not edit. Your changes to this file will be lost.
1208 !
1209 SUBROUTINE HALO_EM_INTERP_UP_sub ( grid, &
1210 config_flags, &
1211 num_moist, &
1212 moist, &
1213 num_a_moist, &
1214 a_moist, &
1215 num_g_moist, &
1216 g_moist, &
1217 num_scalar, &
1218 scalar, &
1219 local_communicator, &
1220 mytask, ntasks, ntasks_x, ntasks_y, &
1221 ids, ide, jds, jde, kds, kde, &
1222 ims, ime, jms, jme, kms, kme, &
1223 ips, ipe, jps, jpe, kps, kpe )
1224 TYPE(domain) , INTENT(IN) :: grid
1225 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1226 INTEGER, INTENT(IN) :: num_moist
1227 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1228 INTEGER, INTENT(IN) :: num_a_moist
1229 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1230 INTEGER, INTENT(IN) :: num_g_moist
1231 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1232 INTEGER, INTENT(IN) :: num_scalar
1233 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1234 INTEGER , INTENT(IN) :: local_communicator
1235 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1236 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1237 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1238 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1239 INTEGER :: itrace
1240
1241 #ifdef DM_PARALLEL
1242 #include "HALO_EM_INTERP_UP_inline.inc"
1243 #endif
1244
1245 END SUBROUTINE HALO_EM_INTERP_UP_sub
1246 !ENDOFREGISTRYGENERATEDINCLUDE
1247 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1248 !
1249 ! WARNING This file is generated automatically by use_registry
1250 ! using the data base in the file named Registry.
1251 ! Do not edit. Your changes to this file will be lost.
1252 !
1253 SUBROUTINE HALO_NODYN_INTERP_UP_sub ( grid, &
1254 config_flags, &
1255 num_moist, &
1256 moist, &
1257 num_a_moist, &
1258 a_moist, &
1259 num_g_moist, &
1260 g_moist, &
1261 num_scalar, &
1262 scalar, &
1263 local_communicator, &
1264 mytask, ntasks, ntasks_x, ntasks_y, &
1265 ids, ide, jds, jde, kds, kde, &
1266 ims, ime, jms, jme, kms, kme, &
1267 ips, ipe, jps, jpe, kps, kpe )
1268 TYPE(domain) , INTENT(IN) :: grid
1269 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1270 INTEGER, INTENT(IN) :: num_moist
1271 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1272 INTEGER, INTENT(IN) :: num_a_moist
1273 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1274 INTEGER, INTENT(IN) :: num_g_moist
1275 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1276 INTEGER, INTENT(IN) :: num_scalar
1277 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1278 INTEGER , INTENT(IN) :: local_communicator
1279 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1280 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1281 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1282 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1283 INTEGER :: itrace
1284
1285 #ifdef DM_PARALLEL
1286 #include "HALO_NODYN_INTERP_UP_inline.inc"
1287 #endif
1288
1289 END SUBROUTINE HALO_NODYN_INTERP_UP_sub
1290 !ENDOFREGISTRYGENERATEDINCLUDE
1291 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1292 !
1293 ! WARNING This file is generated automatically by use_registry
1294 ! using the data base in the file named Registry.
1295 ! Do not edit. Your changes to this file will be lost.
1296 !
1297 SUBROUTINE HALO_EM_INTERP_SMOOTH_sub ( grid, &
1298 num_moist, &
1299 moist, &
1300 num_a_moist, &
1301 a_moist, &
1302 num_g_moist, &
1303 g_moist, &
1304 num_scalar, &
1305 scalar, &
1306 local_communicator, &
1307 mytask, ntasks, ntasks_x, ntasks_y, &
1308 ids, ide, jds, jde, kds, kde, &
1309 ims, ime, jms, jme, kms, kme, &
1310 ips, ipe, jps, jpe, kps, kpe )
1311 TYPE(domain) , INTENT(IN) :: grid
1312 INTEGER, INTENT(IN) :: num_moist
1313 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1314 INTEGER, INTENT(IN) :: num_a_moist
1315 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1316 INTEGER, INTENT(IN) :: num_g_moist
1317 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1318 INTEGER, INTENT(IN) :: num_scalar
1319 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1320 INTEGER , INTENT(IN) :: local_communicator
1321 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1322 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1323 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1324 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1325 INTEGER :: itrace
1326
1327 #ifdef DM_PARALLEL
1328 #include "HALO_EM_INTERP_SMOOTH_inline.inc"
1329 #endif
1330
1331 END SUBROUTINE HALO_EM_INTERP_SMOOTH_sub
1332 !ENDOFREGISTRYGENERATEDINCLUDE
1333 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1334 !
1335 ! WARNING This file is generated automatically by use_registry
1336 ! using the data base in the file named Registry.
1337 ! Do not edit. Your changes to this file will be lost.
1338 !
1339 SUBROUTINE HALO_NODYN_INTERP_SMOOTH_sub ( grid, &
1340 num_moist, &
1341 moist, &
1342 num_a_moist, &
1343 a_moist, &
1344 num_g_moist, &
1345 g_moist, &
1346 num_scalar, &
1347 scalar, &
1348 local_communicator, &
1349 mytask, ntasks, ntasks_x, ntasks_y, &
1350 ids, ide, jds, jde, kds, kde, &
1351 ims, ime, jms, jme, kms, kme, &
1352 ips, ipe, jps, jpe, kps, kpe )
1353 TYPE(domain) , INTENT(IN) :: grid
1354 INTEGER, INTENT(IN) :: num_moist
1355 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1356 INTEGER, INTENT(IN) :: num_a_moist
1357 real, INTENT(INOUT) :: a_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_a_moist)
1358 INTEGER, INTENT(IN) :: num_g_moist
1359 real, INTENT(INOUT) :: g_moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_g_moist)
1360 INTEGER, INTENT(IN) :: num_scalar
1361 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1362 INTEGER , INTENT(IN) :: local_communicator
1363 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1364 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1365 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1366 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1367 INTEGER :: itrace
1368
1369 #ifdef DM_PARALLEL
1370 #include "HALO_NODYN_INTERP_SMOOTH_inline.inc"
1371 #endif
1372
1373 END SUBROUTINE HALO_NODYN_INTERP_SMOOTH_sub
1374 !ENDOFREGISTRYGENERATEDINCLUDE
1375 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1376 !
1377 ! WARNING This file is generated automatically by use_registry
1378 ! using the data base in the file named Registry.
1379 ! Do not edit. Your changes to this file will be lost.
1380 !
1381 SUBROUTINE PERIOD_EM_COUPLE_A_sub ( grid, &
1382 config_flags, &
1383 local_communicator_periodic, &
1384 mytask, ntasks, ntasks_x, ntasks_y, &
1385 ids, ide, jds, jde, kds, kde, &
1386 ims, ime, jms, jme, kms, kme, &
1387 ips, ipe, jps, jpe, kps, kpe )
1388 TYPE(domain) , INTENT(IN) :: grid
1389 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1390 INTEGER , INTENT(IN) :: local_communicator_periodic
1391 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1392 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1393 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1394 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1395 INTEGER :: itrace
1396
1397 #ifdef DM_PARALLEL
1398 #include "PERIOD_EM_COUPLE_A_inline.inc"
1399 #endif
1400
1401 END SUBROUTINE PERIOD_EM_COUPLE_A_sub
1402 !ENDOFREGISTRYGENERATEDINCLUDE
1403 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1404 !
1405 ! WARNING This file is generated automatically by use_registry
1406 ! using the data base in the file named Registry.
1407 ! Do not edit. Your changes to this file will be lost.
1408 !
1409 SUBROUTINE PERIOD_EM_COUPLE_B_sub ( grid, &
1410 config_flags, &
1411 num_moist, &
1412 moist, &
1413 num_scalar, &
1414 scalar, &
1415 local_communicator_periodic, &
1416 mytask, ntasks, ntasks_x, ntasks_y, &
1417 ids, ide, jds, jde, kds, kde, &
1418 ims, ime, jms, jme, kms, kme, &
1419 ips, ipe, jps, jpe, kps, kpe )
1420 TYPE(domain) , INTENT(IN) :: grid
1421 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1422 INTEGER, INTENT(IN) :: num_moist
1423 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1424 INTEGER, INTENT(IN) :: num_scalar
1425 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1426 INTEGER , INTENT(IN) :: local_communicator_periodic
1427 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1428 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1429 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1430 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1431 INTEGER :: itrace
1432
1433 #ifdef DM_PARALLEL
1434 #include "PERIOD_EM_COUPLE_B_inline.inc"
1435 #endif
1436
1437 END SUBROUTINE PERIOD_EM_COUPLE_B_sub
1438 !ENDOFREGISTRYGENERATEDINCLUDE
1439 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1440 !
1441 ! WARNING This file is generated automatically by use_registry
1442 ! using the data base in the file named Registry.
1443 ! Do not edit. Your changes to this file will be lost.
1444 !
1445 SUBROUTINE PERIOD_BDY_EM_INIT_sub ( grid, &
1446 config_flags, &
1447 local_communicator_periodic, &
1448 mytask, ntasks, ntasks_x, ntasks_y, &
1449 ids, ide, jds, jde, kds, kde, &
1450 ims, ime, jms, jme, kms, kme, &
1451 ips, ipe, jps, jpe, kps, kpe )
1452 TYPE(domain) , INTENT(IN) :: grid
1453 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1454 INTEGER , INTENT(IN) :: local_communicator_periodic
1455 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1456 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1457 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1458 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1459 INTEGER :: itrace
1460
1461 #ifdef DM_PARALLEL
1462 #include "PERIOD_BDY_EM_INIT_inline.inc"
1463 #endif
1464
1465 END SUBROUTINE PERIOD_BDY_EM_INIT_sub
1466 !ENDOFREGISTRYGENERATEDINCLUDE
1467 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1468 !
1469 ! WARNING This file is generated automatically by use_registry
1470 ! using the data base in the file named Registry.
1471 ! Do not edit. Your changes to this file will be lost.
1472 !
1473 SUBROUTINE PERIOD_BDY_EM_MOIST_sub ( grid, &
1474 config_flags, &
1475 num_moist, &
1476 moist, &
1477 local_communicator_periodic, &
1478 mytask, ntasks, ntasks_x, ntasks_y, &
1479 ids, ide, jds, jde, kds, kde, &
1480 ims, ime, jms, jme, kms, kme, &
1481 ips, ipe, jps, jpe, kps, kpe )
1482 TYPE(domain) , INTENT(IN) :: grid
1483 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1484 INTEGER, INTENT(IN) :: num_moist
1485 real, INTENT(INOUT) :: moist ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_moist)
1486 INTEGER , INTENT(IN) :: local_communicator_periodic
1487 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1488 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1489 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1490 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1491 INTEGER :: itrace
1492
1493 #ifdef DM_PARALLEL
1494 #include "PERIOD_BDY_EM_MOIST_inline.inc"
1495 #endif
1496
1497 END SUBROUTINE PERIOD_BDY_EM_MOIST_sub
1498 !ENDOFREGISTRYGENERATEDINCLUDE
1499 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1500 !
1501 ! WARNING This file is generated automatically by use_registry
1502 ! using the data base in the file named Registry.
1503 ! Do not edit. Your changes to this file will be lost.
1504 !
1505 SUBROUTINE PERIOD_BDY_EM_SCALAR_sub ( grid, &
1506 config_flags, &
1507 num_scalar, &
1508 scalar, &
1509 local_communicator_periodic, &
1510 mytask, ntasks, ntasks_x, ntasks_y, &
1511 ids, ide, jds, jde, kds, kde, &
1512 ims, ime, jms, jme, kms, kme, &
1513 ips, ipe, jps, jpe, kps, kpe )
1514 TYPE(domain) , INTENT(IN) :: grid
1515 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1516 INTEGER, INTENT(IN) :: num_scalar
1517 real, INTENT(INOUT) :: scalar ( grid%sm31:grid%em31,grid%sm32:grid%em32,grid%sm33:grid%em33,num_scalar)
1518 INTEGER , INTENT(IN) :: local_communicator_periodic
1519 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1520 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1521 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1522 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1523 INTEGER :: itrace
1524
1525 #ifdef DM_PARALLEL
1526 #include "PERIOD_BDY_EM_SCALAR_inline.inc"
1527 #endif
1528
1529 END SUBROUTINE PERIOD_BDY_EM_SCALAR_sub
1530 !ENDOFREGISTRYGENERATEDINCLUDE
1531 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1532 !
1533 ! WARNING This file is generated automatically by use_registry
1534 ! using the data base in the file named Registry.
1535 ! Do not edit. Your changes to this file will be lost.
1536 !
1537 SUBROUTINE PERIOD_BDY_EM_A_sub ( grid, &
1538 config_flags, &
1539 local_communicator_periodic, &
1540 mytask, ntasks, ntasks_x, ntasks_y, &
1541 ids, ide, jds, jde, kds, kde, &
1542 ims, ime, jms, jme, kms, kme, &
1543 ips, ipe, jps, jpe, kps, kpe )
1544 TYPE(domain) , INTENT(IN) :: grid
1545 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1546 INTEGER , INTENT(IN) :: local_communicator_periodic
1547 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1548 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1549 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1550 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1551 INTEGER :: itrace
1552
1553 #ifdef DM_PARALLEL
1554 #include "PERIOD_BDY_EM_A_inline.inc"
1555 #endif
1556
1557 END SUBROUTINE PERIOD_BDY_EM_A_sub
1558 !ENDOFREGISTRYGENERATEDINCLUDE
1559 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1560 !
1561 ! WARNING This file is generated automatically by use_registry
1562 ! using the data base in the file named Registry.
1563 ! Do not edit. Your changes to this file will be lost.
1564 !
1565 SUBROUTINE PERIOD_BDY_EM_B_sub ( grid, &
1566 config_flags, &
1567 local_communicator_periodic, &
1568 mytask, ntasks, ntasks_x, ntasks_y, &
1569 ids, ide, jds, jde, kds, kde, &
1570 ims, ime, jms, jme, kms, kme, &
1571 ips, ipe, jps, jpe, kps, kpe )
1572 TYPE(domain) , INTENT(IN) :: grid
1573 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1574 INTEGER , INTENT(IN) :: local_communicator_periodic
1575 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1576 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1577 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1578 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1579 INTEGER :: itrace
1580
1581 #ifdef DM_PARALLEL
1582 #include "PERIOD_BDY_EM_B_inline.inc"
1583 #endif
1584
1585 END SUBROUTINE PERIOD_BDY_EM_B_sub
1586 !ENDOFREGISTRYGENERATEDINCLUDE
1587 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1588 !
1589 ! WARNING This file is generated automatically by use_registry
1590 ! using the data base in the file named Registry.
1591 ! Do not edit. Your changes to this file will be lost.
1592 !
1593 SUBROUTINE PERIOD_BDY_EM_B3_sub ( grid, &
1594 config_flags, &
1595 local_communicator_periodic, &
1596 mytask, ntasks, ntasks_x, ntasks_y, &
1597 ids, ide, jds, jde, kds, kde, &
1598 ims, ime, jms, jme, kms, kme, &
1599 ips, ipe, jps, jpe, kps, kpe )
1600 TYPE(domain) , INTENT(IN) :: grid
1601 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1602 INTEGER , INTENT(IN) :: local_communicator_periodic
1603 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1604 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1605 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1606 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1607 INTEGER :: itrace
1608
1609 #ifdef DM_PARALLEL
1610 #include "PERIOD_BDY_EM_B3_inline.inc"
1611 #endif
1612
1613 END SUBROUTINE PERIOD_BDY_EM_B3_sub
1614 !ENDOFREGISTRYGENERATEDINCLUDE
1615 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1616 !
1617 ! WARNING This file is generated automatically by use_registry
1618 ! using the data base in the file named Registry.
1619 ! Do not edit. Your changes to this file will be lost.
1620 !
1621 SUBROUTINE PERIOD_BDY_EM_C_sub ( grid, &
1622 config_flags, &
1623 local_communicator_periodic, &
1624 mytask, ntasks, ntasks_x, ntasks_y, &
1625 ids, ide, jds, jde, kds, kde, &
1626 ims, ime, jms, jme, kms, kme, &
1627 ips, ipe, jps, jpe, kps, kpe )
1628 TYPE(domain) , INTENT(IN) :: grid
1629 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1630 INTEGER , INTENT(IN) :: local_communicator_periodic
1631 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1632 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1633 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1634 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1635 INTEGER :: itrace
1636
1637 #ifdef DM_PARALLEL
1638 #include "PERIOD_BDY_EM_C_inline.inc"
1639 #endif
1640
1641 END SUBROUTINE PERIOD_BDY_EM_C_sub
1642 !ENDOFREGISTRYGENERATEDINCLUDE
1643 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1644 !
1645 ! WARNING This file is generated automatically by use_registry
1646 ! using the data base in the file named Registry.
1647 ! Do not edit. Your changes to this file will be lost.
1648 !
1649 SUBROUTINE PERIOD_BDY_EM_D_sub ( grid, &
1650 config_flags, &
1651 local_communicator_periodic, &
1652 mytask, ntasks, ntasks_x, ntasks_y, &
1653 ids, ide, jds, jde, kds, kde, &
1654 ims, ime, jms, jme, kms, kme, &
1655 ips, ipe, jps, jpe, kps, kpe )
1656 TYPE(domain) , INTENT(IN) :: grid
1657 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1658 INTEGER , INTENT(IN) :: local_communicator_periodic
1659 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1660 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1661 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1662 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1663 INTEGER :: itrace
1664
1665 #ifdef DM_PARALLEL
1666 #include "PERIOD_BDY_EM_D_inline.inc"
1667 #endif
1668
1669 END SUBROUTINE PERIOD_BDY_EM_D_sub
1670 !ENDOFREGISTRYGENERATEDINCLUDE
1671 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/REGISTRY_COMM_DM_subs.inc'
1672 !
1673 ! WARNING This file is generated automatically by use_registry
1674 ! using the data base in the file named Registry.
1675 ! Do not edit. Your changes to this file will be lost.
1676 !
1677 SUBROUTINE PERIOD_BDY_EM_D3_sub ( grid, &
1678 config_flags, &
1679 local_communicator_periodic, &
1680 mytask, ntasks, ntasks_x, ntasks_y, &
1681 ids, ide, jds, jde, kds, kde, &
1682 ims, ime, jms, jme, kms, kme, &
1683 ips, ipe, jps, jpe, kps, kpe )
1684 TYPE(domain) , INTENT(IN) :: grid
1685 TYPE(grid_config_rec_type) , INTENT(IN) :: config_flags
1686 INTEGER , INTENT(IN) :: local_communicator_periodic
1687 INTEGER , INTENT(IN) :: mytask, ntasks, ntasks_x, ntasks_y
1688 INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde
1689 INTEGER , INTENT(IN) :: ims, ime, jms, jme, kms, kme
1690 INTEGER , INTENT(IN) :: ips, ipe, jps, jpe, kps, kpe
1691 INTEGER :: itrace
1692
1693 #ifdef DM_PARALLEL
1694 #include "PERIOD_BDY_EM_D3_inline.inc"
1695 #endif
1696
1697 END SUBROUTINE PERIOD_BDY_EM_D3_sub
1698 !ENDOFREGISTRYGENERATEDINCLUDE