PERIOD_EM_COUPLE_A_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_EM_COUPLE_A_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_EM_COUPLE_A_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 2 , &
10 0, 3, 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_mub, 2, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_mu_1, 2, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_mu_2, 2, RWORDSIZE, 1, 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_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
32 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
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_PERIOD ( local_communicator_periodic, grid%em_mu_1, 2, RWORDSIZE, 1, 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_PERIOD ( local_communicator_periodic, grid%em_mu_2, 2, RWORDSIZE, 1, 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 END IF
48 IF ( config_flags%periodic_y ) THEN
49 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 2 , &
50 0, 3, RWORDSIZE, &
51 0, 0, IWORDSIZE, &
52 0, 0, DWORDSIZE, &
53 0, 0, LWORDSIZE, &
54 mytask, ntasks, ntasks_x, ntasks_y, &
55 ips, ipe, jps, jpe, kps, kpe )
56 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
57 mytask, ntasks, ntasks_x, ntasks_y, &
58 ids, ide, jds, jde, 1 , 1 , &
59 ims, ime, jms, jme, 1 , 1 , &
60 ips, ipe, jps, jpe, 1 , 1 )
61 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
62 mytask, ntasks, ntasks_x, ntasks_y, &
63 ids, ide, jds, jde, 1 , 1 , &
64 ims, ime, jms, jme, 1 , 1 , &
65 ips, ipe, jps, jpe, 1 , 1 )
66 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
67 mytask, ntasks, ntasks_x, ntasks_y, &
68 ids, ide, jds, jde, 1 , 1 , &
69 ims, ime, jms, jme, 1 , 1 , &
70 ips, ipe, jps, jpe, 1 , 1 )
71 CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
72 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 2, RWORDSIZE, 0, 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 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
78 mytask, ntasks, ntasks_x, ntasks_y, &
79 ids, ide, jds, jde, 1 , 1 , &
80 ims, ime, jms, jme, 1 , 1 , &
81 ips, ipe, jps, jpe, 1 , 1 )
82 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
83 mytask, ntasks, ntasks_x, ntasks_y, &
84 ids, ide, jds, jde, 1 , 1 , &
85 ims, ime, jms, jme, 1 , 1 , &
86 ips, ipe, jps, jpe, 1 , 1 )
87 END IF
88 !ENDOFREGISTRYGENERATEDINCLUDE