HALO_EM_INIT_5_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INIT_5_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_INIT_5_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 0 &
10 + num_moist &
11 + num_scalar &
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, MAX(1,1&
18 ,kpe &
19 ))
20 DO itrace = PARAM_FIRST_SCALAR, num_moist
21 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
22 mytask, ntasks, ntasks_x, ntasks_y, &
23 ids, ide, jds, jde, kds, kde, &
24 ims, ime, jms, jme, kms, kme, &
25 ips, ipe, jps, jpe, kps, kpe )
26 ENDDO
27 DO itrace = PARAM_FIRST_SCALAR, num_scalar
28 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
35 DO itrace = PARAM_FIRST_SCALAR, num_moist
36 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
37 mytask, ntasks, ntasks_x, ntasks_y, &
38 ids, ide, jds, jde, kds, kde, &
39 ims, ime, jms, jme, kms, kme, &
40 ips, ipe, jps, jpe, kps, kpe )
41 ENDDO
42 DO itrace = PARAM_FIRST_SCALAR, num_scalar
43 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 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 ENDDO
49 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
50 0 &
51 + num_moist &
52 + num_scalar &
53 , 0, RWORDSIZE, &
54 0, 0, IWORDSIZE, &
55 0, 0, DWORDSIZE, &
56 0, 0, LWORDSIZE, &
57 mytask, ntasks, ntasks_x, ntasks_y, &
58 ips, ipe, jps, jpe, kps, MAX(1,1&
59 ,kpe &
60 ))
61 DO itrace = PARAM_FIRST_SCALAR, num_moist
62 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, kds, kde, &
65 ims, ime, jms, jme, kms, kme, &
66 ips, ipe, jps, jpe, kps, kpe )
67 ENDDO
68 DO itrace = PARAM_FIRST_SCALAR, num_scalar
69 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
70 mytask, ntasks, ntasks_x, ntasks_y, &
71 ids, ide, jds, jde, kds, kde, &
72 ims, ime, jms, jme, kms, kme, &
73 ips, ipe, jps, jpe, kps, kpe )
74 ENDDO
75 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
76 DO itrace = PARAM_FIRST_SCALAR, num_moist
77 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
78 mytask, ntasks, ntasks_x, ntasks_y, &
79 ids, ide, jds, jde, kds, kde, &
80 ims, ime, jms, jme, kms, kme, &
81 ips, ipe, jps, jpe, kps, kpe )
82 ENDDO
83 DO itrace = PARAM_FIRST_SCALAR, num_scalar
84 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
85 mytask, ntasks, ntasks_x, ntasks_y, &
86 ids, ide, jds, jde, kds, kde, &
87 ims, ime, jms, jme, kms, kme, &
88 ips, ipe, jps, jpe, kps, kpe )
89 ENDDO
90 !ENDOFREGISTRYGENERATEDINCLUDE