HALO_EM_B_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_B_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/HALO_EM_B_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1, &
9 3, 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_ph_2, 1, 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_p, 1, 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_t_1, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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_mu_1, 1, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
33 mytask, ntasks, ntasks_x, ntasks_y, &
34 ids, ide, jds, jde, 1 , 1 , &
35 ims, ime, jms, jme, 1 , 1 , &
36 ips, ipe, jps, jpe, 1 , 1 )
37 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 1, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
38 mytask, ntasks, ntasks_x, ntasks_y, &
39 ids, ide, jds, jde, 1 , 1 , &
40 ims, ime, jms, jme, 1 , 1 , &
41 ips, ipe, jps, jpe, 1 , 1 )
42 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
43 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
44 mytask, ntasks, ntasks_x, ntasks_y, &
45 ids, ide, jds, jde, kds, kde, &
46 ims, ime, jms, jme, kms, kme, &
47 ips, ipe, jps, jpe, kps, kpe )
48 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
49 mytask, ntasks, ntasks_x, ntasks_y, &
50 ids, ide, jds, jde, kds, kde, &
51 ims, ime, jms, jme, kms, kme, &
52 ips, ipe, jps, jpe, kps, kpe )
53 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
54 mytask, ntasks, ntasks_x, ntasks_y, &
55 ids, ide, jds, jde, kds, kde, &
56 ims, ime, jms, jme, kms, kme, &
57 ips, ipe, jps, jpe, kps, kpe )
58 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 1, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
59 mytask, ntasks, ntasks_x, ntasks_y, &
60 ids, ide, jds, jde, 1 , 1 , &
61 ims, ime, jms, jme, 1 , 1 , &
62 ips, ipe, jps, jpe, 1 , 1 )
63 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 1, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
64 mytask, ntasks, ntasks_x, ntasks_y, &
65 ids, ide, jds, jde, 1 , 1 , &
66 ims, ime, jms, jme, 1 , 1 , &
67 ips, ipe, jps, jpe, 1 , 1 )
68 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1 , &
69 3, 2, RWORDSIZE, &
70 0, 0, IWORDSIZE, &
71 0, 0, DWORDSIZE, &
72 0, 0, LWORDSIZE, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ips, ipe, jps, jpe, kps, MAX(1,1&
75 ,kpe &
76 ))
77 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
83 mytask, ntasks, ntasks_x, ntasks_y, &
84 ids, ide, jds, jde, kds, kde, &
85 ims, ime, jms, jme, kms, kme, &
86 ips, ipe, jps, jpe, kps, kpe )
87 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
88 mytask, ntasks, ntasks_x, ntasks_y, &
89 ids, ide, jds, jde, kds, kde, &
90 ims, ime, jms, jme, kms, kme, &
91 ips, ipe, jps, jpe, kps, kpe )
92 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 1, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
93 mytask, ntasks, ntasks_x, ntasks_y, &
94 ids, ide, jds, jde, 1 , 1 , &
95 ims, ime, jms, jme, 1 , 1 , &
96 ips, ipe, jps, jpe, 1 , 1 )
97 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 1, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
98 mytask, ntasks, ntasks_x, ntasks_y, &
99 ids, ide, jds, jde, 1 , 1 , &
100 ims, ime, jms, jme, 1 , 1 , &
101 ips, ipe, jps, jpe, 1 , 1 )
102 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
103 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 1, RWORDSIZE, 1, 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_p, 1, RWORDSIZE, 1, 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_1, 1, RWORDSIZE, 1, 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_mu_1, 1, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
119 mytask, ntasks, ntasks_x, ntasks_y, &
120 ids, ide, jds, jde, 1 , 1 , &
121 ims, ime, jms, jme, 1 , 1 , &
122 ips, ipe, jps, jpe, 1 , 1 )
123 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 1, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
124 mytask, ntasks, ntasks_x, ntasks_y, &
125 ids, ide, jds, jde, 1 , 1 , &
126 ims, ime, jms, jme, 1 , 1 , &
127 ips, ipe, jps, jpe, 1 , 1 )
128 !ENDOFREGISTRYGENERATEDINCLUDE