HALO_SFC_XA_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_SFC_XA_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_SFC_XA_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2, &
9 0, 4, 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 ))
16 CALL RSL_LITE_PACK ( local_communicator, grid%xa%u10, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
17 mytask, ntasks, ntasks_x, ntasks_y, &
18 ids, ide, jds, jde, 1 , 1 , &
19 ims, ime, jms, jme, 1 , 1 , &
20 ips, ipe, jps, jpe, 1 , 1 )
21 CALL RSL_LITE_PACK ( local_communicator, grid%xa%v10, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
22 mytask, ntasks, ntasks_x, ntasks_y, &
23 ids, ide, jds, jde, 1 , 1 , &
24 ims, ime, jms, jme, 1 , 1 , &
25 ips, ipe, jps, jpe, 1 , 1 )
26 CALL RSL_LITE_PACK ( local_communicator, grid%xa%t2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
27 mytask, ntasks, ntasks_x, ntasks_y, &
28 ids, ide, jds, jde, 1 , 1 , &
29 ims, ime, jms, jme, 1 , 1 , &
30 ips, ipe, jps, jpe, 1 , 1 )
31 CALL RSL_LITE_PACK ( local_communicator, grid%xa%q2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
32 mytask, ntasks, ntasks_x, ntasks_y, &
33 ids, ide, jds, jde, 1 , 1 , &
34 ims, ime, jms, jme, 1 , 1 , &
35 ips, ipe, jps, jpe, 1 , 1 )
36 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
37 CALL RSL_LITE_PACK ( local_communicator, grid%xa%u10, 2, RWORDSIZE, 0, 1, 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%xa%v10, 2, RWORDSIZE, 0, 1, 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%xa%t2, 2, RWORDSIZE, 0, 1, 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%xa%q2, 2, RWORDSIZE, 0, 1, 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_INIT_EXCH ( local_communicator, 2 , &
58 0, 4, RWORDSIZE, &
59 0, 0, IWORDSIZE, &
60 0, 0, DWORDSIZE, &
61 0, 0, LWORDSIZE, &
62 mytask, ntasks, ntasks_x, ntasks_y, &
63 ips, ipe, jps, jpe, kps, MAX(1,1&
64 ))
65 CALL RSL_LITE_PACK ( local_communicator, grid%xa%u10, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
66 mytask, ntasks, ntasks_x, ntasks_y, &
67 ids, ide, jds, jde, 1 , 1 , &
68 ims, ime, jms, jme, 1 , 1 , &
69 ips, ipe, jps, jpe, 1 , 1 )
70 CALL RSL_LITE_PACK ( local_communicator, grid%xa%v10, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
71 mytask, ntasks, ntasks_x, ntasks_y, &
72 ids, ide, jds, jde, 1 , 1 , &
73 ims, ime, jms, jme, 1 , 1 , &
74 ips, ipe, jps, jpe, 1 , 1 )
75 CALL RSL_LITE_PACK ( local_communicator, grid%xa%t2, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
76 mytask, ntasks, ntasks_x, ntasks_y, &
77 ids, ide, jds, jde, 1 , 1 , &
78 ims, ime, jms, jme, 1 , 1 , &
79 ips, ipe, jps, jpe, 1 , 1 )
80 CALL RSL_LITE_PACK ( local_communicator, grid%xa%q2, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
81 mytask, ntasks, ntasks_x, ntasks_y, &
82 ids, ide, jds, jde, 1 , 1 , &
83 ims, ime, jms, jme, 1 , 1 , &
84 ips, ipe, jps, jpe, 1 , 1 )
85 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
86 CALL RSL_LITE_PACK ( local_communicator, grid%xa%u10, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
87 mytask, ntasks, ntasks_x, ntasks_y, &
88 ids, ide, jds, jde, 1 , 1 , &
89 ims, ime, jms, jme, 1 , 1 , &
90 ips, ipe, jps, jpe, 1 , 1 )
91 CALL RSL_LITE_PACK ( local_communicator, grid%xa%v10, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
92 mytask, ntasks, ntasks_x, ntasks_y, &
93 ids, ide, jds, jde, 1 , 1 , &
94 ims, ime, jms, jme, 1 , 1 , &
95 ips, ipe, jps, jpe, 1 , 1 )
96 CALL RSL_LITE_PACK ( local_communicator, grid%xa%t2, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
97 mytask, ntasks, ntasks_x, ntasks_y, &
98 ids, ide, jds, jde, 1 , 1 , &
99 ims, ime, jms, jme, 1 , 1 , &
100 ips, ipe, jps, jpe, 1 , 1 )
101 CALL RSL_LITE_PACK ( local_communicator, grid%xa%q2, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
102 mytask, ntasks, ntasks_x, ntasks_y, &
103 ids, ide, jds, jde, 1 , 1 , &
104 ims, ime, jms, jme, 1 , 1 , &
105 ips, ipe, jps, jpe, 1 , 1 )
106 !ENDOFREGISTRYGENERATEDINCLUDE