HALO_EM_D2_5_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_D2_5_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/HALO_EM_D2_5_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 5 &
10 + num_moist &
11 + num_scalar &
12 , 1, RWORDSIZE, &
13 0, 0, IWORDSIZE, &
14 0, 0, DWORDSIZE, &
15 0, 0, LWORDSIZE, &
16 mytask, ntasks, ntasks_x, ntasks_y, &
17 ips, ipe, jps, jpe, kps, MAX(1,1&
18 ,kpe &
19 ))
20 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
21 mytask, ntasks, ntasks_x, ntasks_y, &
22 ids, ide, jds, jde, kds, kde, &
23 ims, ime, jms, jme, kms, kme, &
24 ips, ipe, jps, jpe, kps, kpe )
25 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
26 mytask, ntasks, ntasks_x, ntasks_y, &
27 ids, ide, jds, jde, kds, kde, &
28 ims, ime, jms, jme, kms, kme, &
29 ips, ipe, jps, jpe, kps, kpe )
30 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
31 mytask, ntasks, ntasks_x, ntasks_y, &
32 ids, ide, jds, jde, kds, kde, &
33 ims, ime, jms, jme, kms, kme, &
34 ips, ipe, jps, jpe, kps, kpe )
35 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
36 mytask, ntasks, ntasks_x, ntasks_y, &
37 ids, ide, jds, jde, kds, kde, &
38 ims, ime, jms, jme, kms, kme, &
39 ips, ipe, jps, jpe, kps, kpe )
40 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
41 mytask, ntasks, ntasks_x, ntasks_y, &
42 ids, ide, jds, jde, kds, kde, &
43 ims, ime, jms, jme, kms, kme, &
44 ips, ipe, jps, jpe, kps, kpe )
45 DO itrace = PARAM_FIRST_SCALAR, num_moist
46 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
47 mytask, ntasks, ntasks_x, ntasks_y, &
48 ids, ide, jds, jde, kds, kde, &
49 ims, ime, jms, jme, kms, kme, &
50 ips, ipe, jps, jpe, kps, kpe )
51 ENDDO
52 DO itrace = PARAM_FIRST_SCALAR, num_scalar
53 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, 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 ENDDO
59 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
60 mytask, ntasks, ntasks_x, ntasks_y, &
61 ids, ide, jds, jde, 1 , 1 , &
62 ims, ime, jms, jme, 1 , 1 , &
63 ips, ipe, jps, jpe, 1 , 1 )
64 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
65 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
66 mytask, ntasks, ntasks_x, ntasks_y, &
67 ids, ide, jds, jde, kds, kde, &
68 ims, ime, jms, jme, kms, kme, &
69 ips, ipe, jps, jpe, kps, kpe )
70 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
76 mytask, ntasks, ntasks_x, ntasks_y, &
77 ids, ide, jds, jde, kds, kde, &
78 ims, ime, jms, jme, kms, kme, &
79 ips, ipe, jps, jpe, kps, kpe )
80 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
81 mytask, ntasks, ntasks_x, ntasks_y, &
82 ids, ide, jds, jde, kds, kde, &
83 ims, ime, jms, jme, kms, kme, &
84 ips, ipe, jps, jpe, kps, kpe )
85 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
86 mytask, ntasks, ntasks_x, ntasks_y, &
87 ids, ide, jds, jde, kds, kde, &
88 ims, ime, jms, jme, kms, kme, &
89 ips, ipe, jps, jpe, kps, kpe )
90 DO itrace = PARAM_FIRST_SCALAR, num_moist
91 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
92 mytask, ntasks, ntasks_x, ntasks_y, &
93 ids, ide, jds, jde, kds, kde, &
94 ims, ime, jms, jme, kms, kme, &
95 ips, ipe, jps, jpe, kps, kpe )
96 ENDDO
97 DO itrace = PARAM_FIRST_SCALAR, num_scalar
98 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
99 mytask, ntasks, ntasks_x, ntasks_y, &
100 ids, ide, jds, jde, kds, kde, &
101 ims, ime, jms, jme, kms, kme, &
102 ips, ipe, jps, jpe, kps, kpe )
103 ENDDO
104 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
105 mytask, ntasks, ntasks_x, ntasks_y, &
106 ids, ide, jds, jde, 1 , 1 , &
107 ims, ime, jms, jme, 1 , 1 , &
108 ips, ipe, jps, jpe, 1 , 1 )
109 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
110 5 &
111 + num_moist &
112 + num_scalar &
113 , 1, RWORDSIZE, &
114 0, 0, IWORDSIZE, &
115 0, 0, DWORDSIZE, &
116 0, 0, LWORDSIZE, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ips, ipe, jps, jpe, kps, MAX(1,1&
119 ,kpe &
120 ))
121 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
122 mytask, ntasks, ntasks_x, ntasks_y, &
123 ids, ide, jds, jde, kds, kde, &
124 ims, ime, jms, jme, kms, kme, &
125 ips, ipe, jps, jpe, kps, kpe )
126 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, kds, kde, &
129 ims, ime, jms, jme, kms, kme, &
130 ips, ipe, jps, jpe, kps, kpe )
131 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
132 mytask, ntasks, ntasks_x, ntasks_y, &
133 ids, ide, jds, jde, kds, kde, &
134 ims, ime, jms, jme, kms, kme, &
135 ips, ipe, jps, jpe, kps, kpe )
136 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, kds, kde, &
139 ims, ime, jms, jme, kms, kme, &
140 ips, ipe, jps, jpe, kps, kpe )
141 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
142 mytask, ntasks, ntasks_x, ntasks_y, &
143 ids, ide, jds, jde, kds, kde, &
144 ims, ime, jms, jme, kms, kme, &
145 ips, ipe, jps, jpe, kps, kpe )
146 DO itrace = PARAM_FIRST_SCALAR, num_moist
147 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
148 mytask, ntasks, ntasks_x, ntasks_y, &
149 ids, ide, jds, jde, kds, kde, &
150 ims, ime, jms, jme, kms, kme, &
151 ips, ipe, jps, jpe, kps, kpe )
152 ENDDO
153 DO itrace = PARAM_FIRST_SCALAR, num_scalar
154 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
155 mytask, ntasks, ntasks_x, ntasks_y, &
156 ids, ide, jds, jde, kds, kde, &
157 ims, ime, jms, jme, kms, kme, &
158 ips, ipe, jps, jpe, kps, kpe )
159 ENDDO
160 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
161 mytask, ntasks, ntasks_x, ntasks_y, &
162 ids, ide, jds, jde, 1 , 1 , &
163 ims, ime, jms, jme, 1 , 1 , &
164 ips, ipe, jps, jpe, 1 , 1 )
165 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
166 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, kds, kde, &
169 ims, ime, jms, jme, kms, kme, &
170 ips, ipe, jps, jpe, kps, kpe )
171 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, kds, kde, &
174 ims, ime, jms, jme, kms, kme, &
175 ips, ipe, jps, jpe, kps, kpe )
176 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, kds, kde, &
179 ims, ime, jms, jme, kms, kme, &
180 ips, ipe, jps, jpe, kps, kpe )
181 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
182 mytask, ntasks, ntasks_x, ntasks_y, &
183 ids, ide, jds, jde, kds, kde, &
184 ims, ime, jms, jme, kms, kme, &
185 ips, ipe, jps, jpe, kps, kpe )
186 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
187 mytask, ntasks, ntasks_x, ntasks_y, &
188 ids, ide, jds, jde, kds, kde, &
189 ims, ime, jms, jme, kms, kme, &
190 ips, ipe, jps, jpe, kps, kpe )
191 DO itrace = PARAM_FIRST_SCALAR, num_moist
192 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
193 mytask, ntasks, ntasks_x, ntasks_y, &
194 ids, ide, jds, jde, kds, kde, &
195 ims, ime, jms, jme, kms, kme, &
196 ips, ipe, jps, jpe, kps, kpe )
197 ENDDO
198 DO itrace = PARAM_FIRST_SCALAR, num_scalar
199 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
200 mytask, ntasks, ntasks_x, ntasks_y, &
201 ids, ide, jds, jde, kds, kde, &
202 ims, ime, jms, jme, kms, kme, &
203 ips, ipe, jps, jpe, kps, kpe )
204 ENDDO
205 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
206 mytask, ntasks, ntasks_x, ntasks_y, &
207 ids, ide, jds, jde, 1 , 1 , &
208 ims, ime, jms, jme, 1 , 1 , &
209 ips, ipe, jps, jpe, 1 , 1 )
210 !ENDOFREGISTRYGENERATEDINCLUDE