PERIOD_BDY_EM_D_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_D_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/PERIOD_BDY_EM_D_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
10 5, 1, RWORDSIZE, &
11 0, 0, IWORDSIZE, &
12 0, 0, DWORDSIZE, &
13 0, 0, LWORDSIZE, &
14 mytask, ntasks, ntasks_x, ntasks_y, &
15 ips, ipe, jps, jpe, kps, kpe )
16 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
17 mytask, ntasks, ntasks_x, ntasks_y, &
18 ids, ide, jds, jde, kds, kde, &
19 ims, ime, jms, jme, kms, kme, &
20 ips, ipe, jps, jpe, kps, kpe )
21 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
22 mytask, ntasks, ntasks_x, ntasks_y, &
23 ids, ide, jds, jde, kds, kde, &
24 ims, ime, jms, jme, kms, kme, &
25 ips, ipe, jps, jpe, kps, kpe )
26 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
27 mytask, ntasks, ntasks_x, ntasks_y, &
28 ids, ide, jds, jde, kds, kde, &
29 ims, ime, jms, jme, kms, kme, &
30 ips, ipe, jps, jpe, kps, kpe )
31 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
32 mytask, ntasks, ntasks_x, ntasks_y, &
33 ids, ide, jds, jde, kds, kde, &
34 ims, ime, jms, jme, kms, kme, &
35 ips, ipe, jps, jpe, kps, kpe )
36 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
37 mytask, ntasks, ntasks_x, ntasks_y, &
38 ids, ide, jds, jde, kds, kde, &
39 ims, ime, jms, jme, kms, kme, &
40 ips, ipe, jps, jpe, kps, kpe )
41 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
42 mytask, ntasks, ntasks_x, ntasks_y, &
43 ids, ide, jds, jde, 1 , 1 , &
44 ims, ime, jms, jme, 1 , 1 , &
45 ips, ipe, jps, jpe, 1 , 1 )
46 CALL RSL_LITE_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
47 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, 1 , 1 , &
75 ims, ime, jms, jme, 1 , 1 , &
76 ips, ipe, jps, jpe, 1 , 1 )
77 END IF
78 IF ( config_flags%periodic_y ) THEN
79 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
80 5, 1, RWORDSIZE, &
81 0, 0, IWORDSIZE, &
82 0, 0, DWORDSIZE, &
83 0, 0, LWORDSIZE, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ips, ipe, jps, jpe, kps, kpe )
86 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
87 mytask, ntasks, ntasks_x, ntasks_y, &
88 ids, ide, jds, jde, kds, kde, &
89 ims, ime, jms, jme, kms, kme, &
90 ips, ipe, jps, jpe, kps, kpe )
91 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
97 mytask, ntasks, ntasks_x, ntasks_y, &
98 ids, ide, jds, jde, kds, kde, &
99 ims, ime, jms, jme, kms, kme, &
100 ips, ipe, jps, jpe, kps, kpe )
101 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
102 mytask, ntasks, ntasks_x, ntasks_y, &
103 ids, ide, jds, jde, kds, kde, &
104 ims, ime, jms, jme, kms, kme, &
105 ips, ipe, jps, jpe, kps, kpe )
106 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
107 mytask, ntasks, ntasks_x, ntasks_y, &
108 ids, ide, jds, jde, kds, kde, &
109 ims, ime, jms, jme, kms, kme, &
110 ips, ipe, jps, jpe, kps, kpe )
111 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
112 mytask, ntasks, ntasks_x, ntasks_y, &
113 ids, ide, jds, jde, 1 , 1 , &
114 ims, ime, jms, jme, 1 , 1 , &
115 ips, ipe, jps, jpe, 1 , 1 )
116 CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
117 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 1, 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_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 1, 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_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
133 mytask, ntasks, ntasks_x, ntasks_y, &
134 ids, ide, jds, jde, kds, kde, &
135 ims, ime, jms, jme, kms, kme, &
136 ips, ipe, jps, jpe, kps, kpe )
137 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
138 mytask, ntasks, ntasks_x, ntasks_y, &
139 ids, ide, jds, jde, kds, kde, &
140 ims, ime, jms, jme, kms, kme, &
141 ips, ipe, jps, jpe, kps, kpe )
142 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 1, 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 END IF
148 !ENDOFREGISTRYGENERATEDINCLUDE