HALO_EM_C_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_C_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_C_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1, &
9 2, 0, 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 ,kpe &
16 ))
17 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ids, ide, jds, jde, kds, kde, &
20 ims, ime, jms, jme, kms, kme, &
21 ips, ipe, jps, jpe, kps, kpe )
22 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 1, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
23 mytask, ntasks, ntasks_x, ntasks_y, &
24 ids, ide, jds, jde, kds, kde, &
25 ims, ime, jms, jme, kms, kme, &
26 ips, ipe, jps, jpe, kps, kpe )
27 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
28 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
29 mytask, ntasks, ntasks_x, ntasks_y, &
30 ids, ide, jds, jde, kds, kde, &
31 ims, ime, jms, jme, kms, kme, &
32 ips, ipe, jps, jpe, kps, kpe )
33 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
34 mytask, ntasks, ntasks_x, ntasks_y, &
35 ids, ide, jds, jde, kds, kde, &
36 ims, ime, jms, jme, kms, kme, &
37 ips, ipe, jps, jpe, kps, kpe )
38 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1 , &
39 2, 0, RWORDSIZE, &
40 0, 0, IWORDSIZE, &
41 0, 0, DWORDSIZE, &
42 0, 0, LWORDSIZE, &
43 mytask, ntasks, ntasks_x, ntasks_y, &
44 ips, ipe, jps, jpe, kps, MAX(1,1&
45 ,kpe &
46 ))
47 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 1, RWORDSIZE, 1, 0, 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 ( local_communicator, grid%em_v_2, 1, RWORDSIZE, 1, 0, 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_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
58 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
59 mytask, ntasks, ntasks_x, ntasks_y, &
60 ids, ide, jds, jde, kds, kde, &
61 ims, ime, jms, jme, kms, kme, &
62 ips, ipe, jps, jpe, kps, kpe )
63 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
64 mytask, ntasks, ntasks_x, ntasks_y, &
65 ids, ide, jds, jde, kds, kde, &
66 ims, ime, jms, jme, kms, kme, &
67 ips, ipe, jps, jpe, kps, kpe )
68 !ENDOFREGISTRYGENERATEDINCLUDE