HALO_EM_INIT_3_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INIT_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_INIT_3_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 1, 2, 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_mub, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ids, ide, jds, jde, 1 , 1 , &
20 ims, ime, jms, jme, 1 , 1 , &
21 ips, ipe, jps, jpe, 1 , 1 )
22 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 0, 0, 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_PACK ( local_communicator, grid%em_p, 3, RWORDSIZE, 0, 0, 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 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
33 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
34 mytask, ntasks, ntasks_x, ntasks_y, &
35 ids, ide, jds, jde, 1 , 1 , &
36 ims, ime, jms, jme, 1 , 1 , &
37 ips, ipe, jps, jpe, 1 , 1 )
38 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
39 mytask, ntasks, ntasks_x, ntasks_y, &
40 ids, ide, jds, jde, 1 , 1 , &
41 ims, ime, jms, jme, 1 , 1 , &
42 ips, ipe, jps, jpe, 1 , 1 )
43 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 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 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
49 1, 2, RWORDSIZE, &
50 0, 0, IWORDSIZE, &
51 0, 0, DWORDSIZE, &
52 0, 0, LWORDSIZE, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ips, ipe, jps, jpe, kps, MAX(1,1&
55 ,kpe &
56 ))
57 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, 1 , 1 , &
60 ims, ime, jms, jme, 1 , 1 , &
61 ips, ipe, jps, jpe, 1 , 1 )
62 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, 1 , 1 , &
65 ims, ime, jms, jme, 1 , 1 , &
66 ips, ipe, jps, jpe, 1 , 1 )
67 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
68 mytask, ntasks, ntasks_x, ntasks_y, &
69 ids, ide, jds, jde, kds, kde, &
70 ims, ime, jms, jme, kms, kme, &
71 ips, ipe, jps, jpe, kps, kpe )
72 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
73 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
74 mytask, ntasks, ntasks_x, ntasks_y, &
75 ids, ide, jds, jde, 1 , 1 , &
76 ims, ime, jms, jme, 1 , 1 , &
77 ips, ipe, jps, jpe, 1 , 1 )
78 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, 1 , 1 , &
81 ims, ime, jms, jme, 1 , 1 , &
82 ips, ipe, jps, jpe, 1 , 1 )
83 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, kds, kde, &
86 ims, ime, jms, jme, kms, kme, &
87 ips, ipe, jps, jpe, kps, kpe )
88 !ENDOFREGISTRYGENERATEDINCLUDE