PERIOD_BDY_EM_MOIST_inline.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_MOIST_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_MOIST_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
10      0  &
11    + num_moist   &
12      , 0, RWORDSIZE, &
13      0, 0, IWORDSIZE, &
14      0, 0, DWORDSIZE, &
15       0,  0, LWORDSIZE, &
16       mytask, ntasks, ntasks_x, ntasks_y,   &
17       ips, ipe, jps, jpe, kps, kpe    )
18 DO itrace = PARAM_FIRST_SCALAR, num_moist
19  CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
20 mytask, ntasks, ntasks_x, ntasks_y,       &
21 ids, ide, jds, jde, kds, kde,             &
22 ims, ime, jms, jme, kms, kme,             &
23 ips, ipe, jps, jpe, kps, kpe              )
24 ENDDO
25    CALL RSL_LITE_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
26 DO itrace = PARAM_FIRST_SCALAR, num_moist
27  CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, 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 ENDDO
33 END IF
34 IF ( config_flags%periodic_y ) THEN
35 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
36      0  &
37    + num_moist   &
38      , 0, RWORDSIZE, &
39      0, 0, IWORDSIZE, &
40      0, 0, DWORDSIZE, &
41       0,  0, LWORDSIZE, &
42       mytask, ntasks, ntasks_x, ntasks_y,   &
43       ips, ipe, jps, jpe, kps, kpe    )
44 DO itrace = PARAM_FIRST_SCALAR, num_moist
45  CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
46 mytask, ntasks, ntasks_x, ntasks_y,       &
47 ids, ide, jds, jde, kds, kde,             &
48 ims, ime, jms, jme, kms, kme,             &
49 ips, ipe, jps, jpe, kps, kpe              )
50 ENDDO
51    CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
52 DO itrace = PARAM_FIRST_SCALAR, num_moist
53  CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
54 mytask, ntasks, ntasks_x, ntasks_y,       &
55 ids, ide, jds, jde, kds, kde,             &
56 ims, ime, jms, jme, kms, kme,             &
57 ips, ipe, jps, jpe, kps, kpe              )
58 ENDDO
59 END IF
60 !ENDOFREGISTRYGENERATEDINCLUDE