HALO_EM_INIT_4_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INIT_4_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_INIT_4_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 1, 8, 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%h_diabatic, 3, 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%msft, 3, RWORDSIZE, 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%msfu, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
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%msfv, 3, RWORDSIZE, 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%f, 3, 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_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
43 mytask, ntasks, ntasks_x, ntasks_y, &
44 ids, ide, jds, jde, 1 , 1 , &
45 ims, ime, jms, jme, 1 , 1 , &
46 ips, ipe, jps, jpe, 1 , 1 )
47 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
48 mytask, ntasks, ntasks_x, ntasks_y, &
49 ids, ide, jds, jde, 1 , 1 , &
50 ims, ime, jms, jme, 1 , 1 , &
51 ips, ipe, jps, jpe, 1 , 1 )
52 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ids, ide, jds, jde, 1 , 1 , &
55 ims, ime, jms, jme, 1 , 1 , &
56 ips, ipe, jps, jpe, 1 , 1 )
57 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, 1 , 1 , &
60 ims, ime, jms, jme, 1 , 1 , &
61 ips, ipe, jps, jpe, 1 , 1 )
62 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
63 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
64 mytask, ntasks, ntasks_x, ntasks_y, &
65 ids, ide, jds, jde, kds, kde, &
66 ims, ime, jms, jme, kms, kme, &
67 ips, ipe, jps, jpe, kps, kpe )
68 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
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%msfu, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
74 mytask, ntasks, ntasks_x, ntasks_y, &
75 ids, ide, jds, jde, 1 , 1 , &
76 ims, ime, jms, jme, 1 , 1 , &
77 ips, ipe, jps, jpe, 1 , 1 )
78 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, 1 , 1 , &
81 ims, ime, jms, jme, 1 , 1 , &
82 ips, ipe, jps, jpe, 1 , 1 )
83 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, 1 , 1 , &
86 ims, ime, jms, jme, 1 , 1 , &
87 ips, ipe, jps, jpe, 1 , 1 )
88 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
89 mytask, ntasks, ntasks_x, ntasks_y, &
90 ids, ide, jds, jde, 1 , 1 , &
91 ims, ime, jms, jme, 1 , 1 , &
92 ips, ipe, jps, jpe, 1 , 1 )
93 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
94 mytask, ntasks, ntasks_x, ntasks_y, &
95 ids, ide, jds, jde, 1 , 1 , &
96 ims, ime, jms, jme, 1 , 1 , &
97 ips, ipe, jps, jpe, 1 , 1 )
98 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
99 mytask, ntasks, ntasks_x, ntasks_y, &
100 ids, ide, jds, jde, 1 , 1 , &
101 ims, ime, jms, jme, 1 , 1 , &
102 ips, ipe, jps, jpe, 1 , 1 )
103 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
104 mytask, ntasks, ntasks_x, ntasks_y, &
105 ids, ide, jds, jde, 1 , 1 , &
106 ims, ime, jms, jme, 1 , 1 , &
107 ips, ipe, jps, jpe, 1 , 1 )
108 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
109 1, 8, RWORDSIZE, &
110 0, 0, IWORDSIZE, &
111 0, 0, DWORDSIZE, &
112 0, 0, LWORDSIZE, &
113 mytask, ntasks, ntasks_x, ntasks_y, &
114 ips, ipe, jps, jpe, kps, MAX(1,1&
115 ,kpe &
116 ))
117 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
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%msft, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
123 mytask, ntasks, ntasks_x, ntasks_y, &
124 ids, ide, jds, jde, 1 , 1 , &
125 ims, ime, jms, jme, 1 , 1 , &
126 ips, ipe, jps, jpe, 1 , 1 )
127 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
128 mytask, ntasks, ntasks_x, ntasks_y, &
129 ids, ide, jds, jde, 1 , 1 , &
130 ims, ime, jms, jme, 1 , 1 , &
131 ips, ipe, jps, jpe, 1 , 1 )
132 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
133 mytask, ntasks, ntasks_x, ntasks_y, &
134 ids, ide, jds, jde, 1 , 1 , &
135 ims, ime, jms, jme, 1 , 1 , &
136 ips, ipe, jps, jpe, 1 , 1 )
137 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
138 mytask, ntasks, ntasks_x, ntasks_y, &
139 ids, ide, jds, jde, 1 , 1 , &
140 ims, ime, jms, jme, 1 , 1 , &
141 ips, ipe, jps, jpe, 1 , 1 )
142 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
143 mytask, ntasks, ntasks_x, ntasks_y, &
144 ids, ide, jds, jde, 1 , 1 , &
145 ims, ime, jms, jme, 1 , 1 , &
146 ips, ipe, jps, jpe, 1 , 1 )
147 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
148 mytask, ntasks, ntasks_x, ntasks_y, &
149 ids, ide, jds, jde, 1 , 1 , &
150 ims, ime, jms, jme, 1 , 1 , &
151 ips, ipe, jps, jpe, 1 , 1 )
152 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
153 mytask, ntasks, ntasks_x, ntasks_y, &
154 ids, ide, jds, jde, 1 , 1 , &
155 ims, ime, jms, jme, 1 , 1 , &
156 ips, ipe, jps, jpe, 1 , 1 )
157 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
158 mytask, ntasks, ntasks_x, ntasks_y, &
159 ids, ide, jds, jde, 1 , 1 , &
160 ims, ime, jms, jme, 1 , 1 , &
161 ips, ipe, jps, jpe, 1 , 1 )
162 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
163 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 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 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
169 mytask, ntasks, ntasks_x, ntasks_y, &
170 ids, ide, jds, jde, 1 , 1 , &
171 ims, ime, jms, jme, 1 , 1 , &
172 ips, ipe, jps, jpe, 1 , 1 )
173 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
174 mytask, ntasks, ntasks_x, ntasks_y, &
175 ids, ide, jds, jde, 1 , 1 , &
176 ims, ime, jms, jme, 1 , 1 , &
177 ips, ipe, jps, jpe, 1 , 1 )
178 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
179 mytask, ntasks, ntasks_x, ntasks_y, &
180 ids, ide, jds, jde, 1 , 1 , &
181 ims, ime, jms, jme, 1 , 1 , &
182 ips, ipe, jps, jpe, 1 , 1 )
183 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
184 mytask, ntasks, ntasks_x, ntasks_y, &
185 ids, ide, jds, jde, 1 , 1 , &
186 ims, ime, jms, jme, 1 , 1 , &
187 ips, ipe, jps, jpe, 1 , 1 )
188 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
189 mytask, ntasks, ntasks_x, ntasks_y, &
190 ids, ide, jds, jde, 1 , 1 , &
191 ims, ime, jms, jme, 1 , 1 , &
192 ips, ipe, jps, jpe, 1 , 1 )
193 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
194 mytask, ntasks, ntasks_x, ntasks_y, &
195 ids, ide, jds, jde, 1 , 1 , &
196 ims, ime, jms, jme, 1 , 1 , &
197 ips, ipe, jps, jpe, 1 , 1 )
198 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
199 mytask, ntasks, ntasks_x, ntasks_y, &
200 ids, ide, jds, jde, 1 , 1 , &
201 ims, ime, jms, jme, 1 , 1 , &
202 ips, ipe, jps, jpe, 1 , 1 )
203 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
204 mytask, ntasks, ntasks_x, ntasks_y, &
205 ids, ide, jds, jde, 1 , 1 , &
206 ims, ime, jms, jme, 1 , 1 , &
207 ips, ipe, jps, jpe, 1 , 1 )
208 !ENDOFREGISTRYGENERATEDINCLUDE