PERIOD_BDY_EM_A_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_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_BDY_EM_A_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 2 , &
10 2, 0, 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_p, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
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_ph_2, 2, 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_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
27 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_p, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
28 mytask, ntasks, ntasks_x, ntasks_y, &
29 ids, ide, jds, jde, kds, kde, &
30 ims, ime, jms, jme, kms, kme, &
31 ips, ipe, jps, jpe, kps, kpe )
32 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
33 mytask, ntasks, ntasks_x, ntasks_y, &
34 ids, ide, jds, jde, kds, kde, &
35 ims, ime, jms, jme, kms, kme, &
36 ips, ipe, jps, jpe, kps, kpe )
37 END IF
38 IF ( config_flags%periodic_y ) THEN
39 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 2 , &
40 2, 0, RWORDSIZE, &
41 0, 0, IWORDSIZE, &
42 0, 0, DWORDSIZE, &
43 0, 0, LWORDSIZE, &
44 mytask, ntasks, ntasks_x, ntasks_y, &
45 ips, ipe, jps, jpe, kps, kpe )
46 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_p, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
47 mytask, ntasks, ntasks_x, ntasks_y, &
48 ids, ide, jds, jde, kds, kde, &
49 ims, ime, jms, jme, kms, kme, &
50 ips, ipe, jps, jpe, kps, kpe )
51 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
52 mytask, ntasks, ntasks_x, ntasks_y, &
53 ids, ide, jds, jde, kds, kde, &
54 ims, ime, jms, jme, kms, kme, &
55 ips, ipe, jps, jpe, kps, kpe )
56 CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
57 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_p, 2, 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_PERIOD ( local_communicator_periodic, grid%em_ph_2, 2, 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 END IF
68 !ENDOFREGISTRYGENERATEDINCLUDE