em_nest_interpdown_pack.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_interpdown_pack.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 msize = 31 * nlev + 40
8 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
9 ,cips,cipe,cjps,cjpe &
10 ,iids,iide,ijds,ijde &
11 ,nids,nide,njds,njde &
12 ,pgr , sw &
13 ,ntasks_x,ntasks_y &
14 ,icoord,jcoord &
15 ,idim_cd,jdim_cd &
16 ,pig,pjg,retval )
17 DO while ( retval .eq. 1 )
18 xv(1)=grid%lu_index(pig,pjg)
19 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
20 DO k = ckds,(ckde-1)
21 xv(k)= grid%em_u_2(pig,pjg,k)
22 ENDDO
23 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
24 DO k = ckds,(ckde-1)
25 xv(k)= grid%a_u_2(pig,pjg,k)
26 ENDDO
27 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
28 DO k = ckds,(ckde-1)
29 xv(k)= grid%g_u_2(pig,pjg,k)
30 ENDDO
31 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
32 DO k = ckds,(ckde-1)
33 xv(k)= grid%em_v_2(pig,pjg,k)
34 ENDDO
35 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
36 DO k = ckds,(ckde-1)
37 xv(k)= grid%a_v_2(pig,pjg,k)
38 ENDDO
39 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
40 DO k = ckds,(ckde-1)
41 xv(k)= grid%g_v_2(pig,pjg,k)
42 ENDDO
43 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
44 DO k = ckds,ckde
45 xv(k)= grid%em_w_2(pig,pjg,k)
46 ENDDO
47 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
48 DO k = ckds,ckde
49 xv(k)= grid%a_w_2(pig,pjg,k)
50 ENDDO
51 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
52 DO k = ckds,ckde
53 xv(k)= grid%g_w_2(pig,pjg,k)
54 ENDDO
55 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
56 DO k = ckds,ckde
57 xv(k)= grid%em_ph_2(pig,pjg,k)
58 ENDDO
59 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
60 DO k = ckds,ckde
61 xv(k)= grid%a_ph_2(pig,pjg,k)
62 ENDDO
63 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
64 DO k = ckds,ckde
65 xv(k)= grid%g_ph_2(pig,pjg,k)
66 ENDDO
67 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
68 DO k = ckds,ckde
69 xv(k)= grid%em_phb(pig,pjg,k)
70 ENDDO
71 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
72 DO k = ckds,(ckde-1)
73 xv(k)= grid%em_t_2(pig,pjg,k)
74 ENDDO
75 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
76 DO k = ckds,(ckde-1)
77 xv(k)= grid%a_t_2(pig,pjg,k)
78 ENDDO
79 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
80 DO k = ckds,(ckde-1)
81 xv(k)= grid%g_t_2(pig,pjg,k)
82 ENDDO
83 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
84 xv(1)=grid%em_mu_2(pig,pjg)
85 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
86 xv(1)=grid%a_mu_2(pig,pjg)
87 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
88 xv(1)=grid%g_mu_2(pig,pjg)
89 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
90 xv(1)=grid%em_mub(pig,pjg)
91 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
92 xv(1)=grid%em_mu0(pig,pjg)
93 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
94 DO itrace = PARAM_FIRST_SCALAR, num_moist
95 DO k = ckds,(ckde-1)
96 xv(k)= moist(pig,pjg,k,itrace)
97 ENDDO
98 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
99 ENDDO
100 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
101 DO k = ckds,(ckde-1)
102 xv(k)= a_moist(pig,pjg,k,itrace)
103 ENDDO
104 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
105 ENDDO
106 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
107 DO k = ckds,(ckde-1)
108 xv(k)= g_moist(pig,pjg,k,itrace)
109 ENDDO
110 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
111 ENDDO
112 DO itrace = PARAM_FIRST_SCALAR, num_scalar
113 DO k = ckds,(ckde-1)
114 xv(k)= scalar(pig,pjg,k,itrace)
115 ENDDO
116 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
117 ENDDO
118 xv(1)=grid%landmask(pig,pjg)
119 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
120 DO k = 1,config_flags%num_soil_layers
121 xv(k)= grid%tslb(pig,pjg,k)
122 ENDDO
123 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
124 DO k = 1,config_flags%num_soil_layers
125 xv(k)= grid%smois(pig,pjg,k)
126 ENDDO
127 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
128 DO k = 1,config_flags%num_soil_layers
129 xv(k)= grid%sh2o(pig,pjg,k)
130 ENDDO
131 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
132 xv(1)=grid%xice(pig,pjg)
133 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
134 xv(1)=grid%sfcrunoff(pig,pjg)
135 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
136 xv(1)=grid%udrunoff(pig,pjg)
137 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
138 xv(1)=grid%ivgtyp(pig,pjg)
139 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
140 xv(1)=grid%isltyp(pig,pjg)
141 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
142 xv(1)=grid%vegfra(pig,pjg)
143 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
144 xv(1)=grid%acsnow(pig,pjg)
145 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
146 xv(1)=grid%acsnom(pig,pjg)
147 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
148 xv(1)=grid%snow(pig,pjg)
149 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
150 xv(1)=grid%snowh(pig,pjg)
151 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
152 xv(1)=grid%rhosn(pig,pjg)
153 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
154 xv(1)=grid%canwat(pig,pjg)
155 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
156 xv(1)=grid%sst(pig,pjg)
157 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
158 xv(1)=grid%msft(pig,pjg)
159 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
160 xv(1)=grid%msfu(pig,pjg)
161 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
162 xv(1)=grid%msfv(pig,pjg)
163 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
164 xv(1)=grid%f(pig,pjg)
165 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
166 xv(1)=grid%e(pig,pjg)
167 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
168 xv(1)=grid%sina(pig,pjg)
169 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
170 xv(1)=grid%cosa(pig,pjg)
171 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
172 xv(1)=grid%ht(pig,pjg)
173 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
174 xv(1)=grid%tsk(pig,pjg)
175 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
176 xv(1)=grid%rainc(pig,pjg)
177 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
178 xv(1)=grid%rainnc(pig,pjg)
179 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
180 xv(1)=grid%xlat(pig,pjg)
181 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
182 xv(1)=grid%xlong(pig,pjg)
183 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
184 xv(1)=grid%em_xlat_u(pig,pjg)
185 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
186 xv(1)=grid%em_xlong_u(pig,pjg)
187 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
188 xv(1)=grid%em_xlat_v(pig,pjg)
189 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
190 xv(1)=grid%em_xlong_v(pig,pjg)
191 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
192 xv(1)=grid%tmn(pig,pjg)
193 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
194 xv(1)=grid%xland(pig,pjg)
195 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
196 xv(1)=grid%snowc(pig,pjg)
197 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
198 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
199 ,cips,cipe,cjps,cjpe &
200 ,iids,iide,ijds,ijde &
201 ,nids,nide,njds,njde &
202 ,pgr , sw &
203 ,ntasks_x,ntasks_y &
204 ,icoord,jcoord &
205 ,idim_cd,jdim_cd &
206 ,pig,pjg,retval )
207 ENDDO
208 !ENDOFREGISTRYGENERATEDINCLUDE