EM_SHIFT_HALO_X_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/EM_SHIFT_HALO_X_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/EM_SHIFT_HALO_X_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 3, 0, RWORDSIZE, &
10 0, 4, 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%imask_nostag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ids, ide, jds, jde, 1 , 1 , &
20 ims, ime, jms, jme, 1 , 1 , &
21 ips, ipe, jps, jpe, 1 , 1 )
22 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
23 mytask, ntasks, ntasks_x, ntasks_y, &
24 ids, ide, jds, jde, 1 , 1 , &
25 ims, ime, jms, jme, 1 , 1 , &
26 ips, ipe, jps, jpe, 1 , 1 )
27 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
28 mytask, ntasks, ntasks_x, ntasks_y, &
29 ids, ide, jds, jde, 1 , 1 , &
30 ims, ime, jms, jme, 1 , 1 , &
31 ips, ipe, jps, jpe, 1 , 1 )
32 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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_u_2, 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_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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_2, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
53 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
54 mytask, ntasks, ntasks_x, ntasks_y, &
55 ids, ide, jds, jde, 1 , 1 , &
56 ims, ime, jms, jme, 1 , 1 , &
57 ips, ipe, jps, jpe, 1 , 1 )
58 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 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%imask_ystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
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_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
69 mytask, ntasks, ntasks_x, ntasks_y, &
70 ids, ide, jds, jde, 1 , 1 , &
71 ims, ime, jms, jme, 1 , 1 , &
72 ips, ipe, jps, jpe, 1 , 1 )
73 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
74 mytask, ntasks, ntasks_x, ntasks_y, &
75 ids, ide, jds, jde, kds, kde, &
76 ims, ime, jms, jme, kms, kme, &
77 ips, ipe, jps, jpe, kps, kpe )
78 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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_t_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_INIT_EXCH ( local_communicator, 3 , &
89 3, 0, RWORDSIZE, &
90 0, 4, IWORDSIZE, &
91 0, 0, DWORDSIZE, &
92 0, 0, LWORDSIZE, &
93 mytask, ntasks, ntasks_x, ntasks_y, &
94 ips, ipe, jps, jpe, kps, MAX(1,1&
95 ,kpe &
96 ))
97 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 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_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
103 mytask, ntasks, ntasks_x, ntasks_y, &
104 ids, ide, jds, jde, 1 , 1 , &
105 ims, ime, jms, jme, 1 , 1 , &
106 ips, ipe, jps, jpe, 1 , 1 )
107 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
108 mytask, ntasks, ntasks_x, ntasks_y, &
109 ids, ide, jds, jde, 1 , 1 , &
110 ims, ime, jms, jme, 1 , 1 , &
111 ips, ipe, jps, jpe, 1 , 1 )
112 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
113 mytask, ntasks, ntasks_x, ntasks_y, &
114 ids, ide, jds, jde, 1 , 1 , &
115 ims, ime, jms, jme, 1 , 1 , &
116 ips, ipe, jps, jpe, 1 , 1 )
117 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
118 mytask, ntasks, ntasks_x, ntasks_y, &
119 ids, ide, jds, jde, kds, kde, &
120 ims, ime, jms, jme, kms, kme, &
121 ips, ipe, jps, jpe, kps, kpe )
122 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
123 mytask, ntasks, ntasks_x, ntasks_y, &
124 ids, ide, jds, jde, kds, kde, &
125 ims, ime, jms, jme, kms, kme, &
126 ips, ipe, jps, jpe, kps, kpe )
127 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
128 mytask, ntasks, ntasks_x, ntasks_y, &
129 ids, ide, jds, jde, kds, kde, &
130 ims, ime, jms, jme, kms, kme, &
131 ips, ipe, jps, jpe, kps, kpe )
132 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
133 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 1, 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_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
139 mytask, ntasks, ntasks_x, ntasks_y, &
140 ids, ide, jds, jde, 1 , 1 , &
141 ims, ime, jms, jme, 1 , 1 , &
142 ips, ipe, jps, jpe, 1 , 1 )
143 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
144 mytask, ntasks, ntasks_x, ntasks_y, &
145 ids, ide, jds, jde, 1 , 1 , &
146 ims, ime, jms, jme, 1 , 1 , &
147 ips, ipe, jps, jpe, 1 , 1 )
148 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
149 mytask, ntasks, ntasks_x, ntasks_y, &
150 ids, ide, jds, jde, 1 , 1 , &
151 ims, ime, jms, jme, 1 , 1 , &
152 ips, ipe, jps, jpe, 1 , 1 )
153 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
154 mytask, ntasks, ntasks_x, ntasks_y, &
155 ids, ide, jds, jde, kds, kde, &
156 ims, ime, jms, jme, kms, kme, &
157 ips, ipe, jps, jpe, kps, kpe )
158 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
159 mytask, ntasks, ntasks_x, ntasks_y, &
160 ids, ide, jds, jde, kds, kde, &
161 ims, ime, jms, jme, kms, kme, &
162 ips, ipe, jps, jpe, kps, kpe )
163 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
164 mytask, ntasks, ntasks_x, ntasks_y, &
165 ids, ide, jds, jde, kds, kde, &
166 ims, ime, jms, jme, kms, kme, &
167 ips, ipe, jps, jpe, kps, kpe )
168 !ENDOFREGISTRYGENERATEDINCLUDE