HALO_EM_A_inline.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_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/HALO_EM_A_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1, &
9      1, 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_p, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
23 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 1, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
24 mytask, ntasks, ntasks_x, ntasks_y,       &
25 ids, ide, jds, jde, kds, kde,             &
26 ims, ime, jms, jme, kms, kme,             &
27 ips, ipe, jps, jpe, kps, kpe              )
28 CALL RSL_LITE_INIT_EXCH ( local_communicator, 1 , &
29      1, 0, RWORDSIZE, &
30      0, 0, IWORDSIZE, &
31      0, 0, DWORDSIZE, &
32       0,  0, LWORDSIZE, &
33       mytask, ntasks, ntasks_x, ntasks_y,   &
34       ips, ipe, jps, jpe, kps, MAX(1,1&
35 ,kpe &
36 ))
37 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 1, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
38 mytask, ntasks, ntasks_x, ntasks_y,       &
39 ids, ide, jds, jde, kds, kde,             &
40 ims, ime, jms, jme, kms, kme,             &
41 ips, ipe, jps, jpe, kps, kpe              )
42    CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
43 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 1, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
44 mytask, ntasks, ntasks_x, ntasks_y,       &
45 ids, ide, jds, jde, kds, kde,             &
46 ims, ime, jms, jme, kms, kme,             &
47 ips, ipe, jps, jpe, kps, kpe              )
48 !ENDOFREGISTRYGENERATEDINCLUDE