HALO_EM_MOIST_E_3_inline.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_MOIST_E_3_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_MOIST_E_3_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2, &
9      0  &
10    + num_moist   &
11      , 0, RWORDSIZE, &
12      0, 0, IWORDSIZE, &
13      0, 0, DWORDSIZE, &
14       0,  0, LWORDSIZE, &
15       mytask, ntasks, ntasks_x, ntasks_y,   &
16       ips, ipe, jps, jpe, kps, MAX(1,1&
17 ,kpe &
18 ))
19 DO itrace = PARAM_FIRST_SCALAR, num_moist
20  CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
21 mytask, ntasks, ntasks_x, ntasks_y,       &
22 ids, ide, jds, jde, kds, kde,             &
23 ims, ime, jms, jme, kms, kme,             &
24 ips, ipe, jps, jpe, kps, kpe              )
25 ENDDO
26    CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
27 DO itrace = PARAM_FIRST_SCALAR, num_moist
28  CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 2, 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 ENDDO
34 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2 , &
35      0  &
36    + num_moist   &
37      , 0, RWORDSIZE, &
38      0, 0, IWORDSIZE, &
39      0, 0, DWORDSIZE, &
40       0,  0, LWORDSIZE, &
41       mytask, ntasks, ntasks_x, ntasks_y,   &
42       ips, ipe, jps, jpe, kps, MAX(1,1&
43 ,kpe &
44 ))
45 DO itrace = PARAM_FIRST_SCALAR, num_moist
46  CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 2, RWORDSIZE, 1, 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 ENDDO
52    CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
53 DO itrace = PARAM_FIRST_SCALAR, num_moist
54  CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
55 mytask, ntasks, ntasks_x, ntasks_y,       &
56 ids, ide, jds, jde, kds, kde,             &
57 ims, ime, jms, jme, kms, kme,             &
58 ips, ipe, jps, jpe, kps, kpe              )
59 ENDDO
60 !ENDOFREGISTRYGENERATEDINCLUDE