HALO_2D_WORK_inline.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_2D_WORK_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_2D_WORK_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2, &
9      0, 1, 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 ))
16 CALL RSL_LITE_PACK ( local_communicator, grid%xp%vxy, 2, RWORDSIZE, 0, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
22 CALL RSL_LITE_PACK ( local_communicator, grid%xp%vxy, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
23 mytask, ntasks, ntasks_x, ntasks_y,       &
24 ids, ide, jds, jde, 1  , 1  ,             &
25 ims, ime, jms, jme, 1  , 1  ,             &
26 ips, ipe, jps, jpe, 1  , 1                )
27 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2 , &
28      0, 1, RWORDSIZE, &
29      0, 0, IWORDSIZE, &
30      0, 0, DWORDSIZE, &
31       0,  0, LWORDSIZE, &
32       mytask, ntasks, ntasks_x, ntasks_y,   &
33       ips, ipe, jps, jpe, kps, MAX(1,1&
34 ))
35 CALL RSL_LITE_PACK ( local_communicator, grid%xp%vxy, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
36 mytask, ntasks, ntasks_x, ntasks_y,       &
37 ids, ide, jds, jde, 1  , 1  ,             &
38 ims, ime, jms, jme, 1  , 1  ,             &
39 ips, ipe, jps, jpe, 1  , 1                )
40    CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
41 CALL RSL_LITE_PACK ( local_communicator, grid%xp%vxy, 2, RWORDSIZE, 1, 1, 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 !ENDOFREGISTRYGENERATEDINCLUDE