HALO_EM_TKE_E_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_TKE_E_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_TKE_E_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1, &
9 5 &
10 + num_moist &
11 , 0, RWORDSIZE, &
12 0, 0, IWORDSIZE, &
13 0, 0, DWORDSIZE, &
14 0, 0, LWORDSIZE, &
15 mytask, ntasks, ntasks_x, ntasks_y, &
16 ips, ipe, jps, jpe, kps, MAX(1,1&
17 ,kpe &
18 ))
19 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
20 mytask, ntasks, ntasks_x, ntasks_y, &
21 ids, ide, jds, jde, kds, kde, &
22 ims, ime, jms, jme, kms, kme, &
23 ips, ipe, jps, jpe, kps, kpe )
24 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
25 mytask, ntasks, ntasks_x, ntasks_y, &
26 ids, ide, jds, jde, kds, kde, &
27 ims, ime, jms, jme, kms, kme, &
28 ips, ipe, jps, jpe, kps, kpe )
29 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
30 mytask, ntasks, ntasks_x, ntasks_y, &
31 ids, ide, jds, jde, kds, kde, &
32 ims, ime, jms, jme, kms, kme, &
33 ips, ipe, jps, jpe, kps, kpe )
34 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
40 mytask, ntasks, ntasks_x, ntasks_y, &
41 ids, ide, jds, jde, kds, kde, &
42 ims, ime, jms, jme, kms, kme, &
43 ips, ipe, jps, jpe, kps, kpe )
44 DO itrace = PARAM_FIRST_SCALAR, num_moist
45 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
46 mytask, ntasks, ntasks_x, ntasks_y, &
47 ids, ide, jds, jde, kds, kde, &
48 ims, ime, jms, jme, kms, kme, &
49 ips, ipe, jps, jpe, kps, kpe )
50 ENDDO
51 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
52 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ids, ide, jds, jde, kds, kde, &
55 ims, ime, jms, jme, kms, kme, &
56 ips, ipe, jps, jpe, kps, kpe )
57 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, kds, kde, &
60 ims, ime, jms, jme, kms, kme, &
61 ips, ipe, jps, jpe, kps, kpe )
62 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, kds, kde, &
65 ims, ime, jms, jme, kms, kme, &
66 ips, ipe, jps, jpe, kps, kpe )
67 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
68 mytask, ntasks, ntasks_x, ntasks_y, &
69 ids, ide, jds, jde, kds, kde, &
70 ims, ime, jms, jme, kms, kme, &
71 ips, ipe, jps, jpe, kps, kpe )
72 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, kds, kde, &
75 ims, ime, jms, jme, kms, kme, &
76 ips, ipe, jps, jpe, kps, kpe )
77 DO itrace = PARAM_FIRST_SCALAR, num_moist
78 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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 ENDDO
84 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1 , &
85 5 &
86 + num_moist &
87 , 0, RWORDSIZE, &
88 0, 0, IWORDSIZE, &
89 0, 0, DWORDSIZE, &
90 0, 0, LWORDSIZE, &
91 mytask, ntasks, ntasks_x, ntasks_y, &
92 ips, ipe, jps, jpe, kps, MAX(1,1&
93 ,kpe &
94 ))
95 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
96 mytask, ntasks, ntasks_x, ntasks_y, &
97 ids, ide, jds, jde, kds, kde, &
98 ims, ime, jms, jme, kms, kme, &
99 ips, ipe, jps, jpe, kps, kpe )
100 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
101 mytask, ntasks, ntasks_x, ntasks_y, &
102 ids, ide, jds, jde, kds, kde, &
103 ims, ime, jms, jme, kms, kme, &
104 ips, ipe, jps, jpe, kps, kpe )
105 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
106 mytask, ntasks, ntasks_x, ntasks_y, &
107 ids, ide, jds, jde, kds, kde, &
108 ims, ime, jms, jme, kms, kme, &
109 ips, ipe, jps, jpe, kps, kpe )
110 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
111 mytask, ntasks, ntasks_x, ntasks_y, &
112 ids, ide, jds, jde, kds, kde, &
113 ims, ime, jms, jme, kms, kme, &
114 ips, ipe, jps, jpe, kps, kpe )
115 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
116 mytask, ntasks, ntasks_x, ntasks_y, &
117 ids, ide, jds, jde, kds, kde, &
118 ims, ime, jms, jme, kms, kme, &
119 ips, ipe, jps, jpe, kps, kpe )
120 DO itrace = PARAM_FIRST_SCALAR, num_moist
121 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
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 ENDDO
127 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
128 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
129 mytask, ntasks, ntasks_x, ntasks_y, &
130 ids, ide, jds, jde, kds, kde, &
131 ims, ime, jms, jme, kms, kme, &
132 ips, ipe, jps, jpe, kps, kpe )
133 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
134 mytask, ntasks, ntasks_x, ntasks_y, &
135 ids, ide, jds, jde, kds, kde, &
136 ims, ime, jms, jme, kms, kme, &
137 ips, ipe, jps, jpe, kps, kpe )
138 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
139 mytask, ntasks, ntasks_x, ntasks_y, &
140 ids, ide, jds, jde, kds, kde, &
141 ims, ime, jms, jme, kms, kme, &
142 ips, ipe, jps, jpe, kps, kpe )
143 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
144 mytask, ntasks, ntasks_x, ntasks_y, &
145 ids, ide, jds, jde, kds, kde, &
146 ims, ime, jms, jme, kms, kme, &
147 ips, ipe, jps, jpe, kps, kpe )
148 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
149 mytask, ntasks, ntasks_x, ntasks_y, &
150 ids, ide, jds, jde, kds, kde, &
151 ims, ime, jms, jme, kms, kme, &
152 ips, ipe, jps, jpe, kps, kpe )
153 DO itrace = PARAM_FIRST_SCALAR, num_moist
154 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 1, RWORDSIZE, 1, 1, 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 !ENDOFREGISTRYGENERATEDINCLUDE