em_nest_feedbackup_pack.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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 + 39
8 CALL rsl_to_parent_info( grid%domdesc, intermediate_grid%domdesc , &
9 msize*RWORDSIZE, &
10 i,j,nig,njg,cm,cn,pig,pjg,retval )
11 DO while ( retval .eq. 1 )
12 xv(1)= intermediate_grid%lu_index(pig,pjg)
13 CALL rsl_to_parent_msg(RWORDSIZE,xv)
14 DO k = ckds,(ckde-1)
15 xv(k)= intermediate_grid%em_u_2(pig,pjg,k)
16 ENDDO
17 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
18 DO k = ckds,(ckde-1)
19 xv(k)= intermediate_grid%em_a_u_2(pig,pjg,k)
20 ENDDO
21 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
22 DO k = ckds,(ckde-1)
23 xv(k)= intermediate_grid%em_g_u_2(pig,pjg,k)
24 ENDDO
25 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
26 DO k = ckds,(ckde-1)
27 xv(k)= intermediate_grid%em_v_2(pig,pjg,k)
28 ENDDO
29 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
30 DO k = ckds,(ckde-1)
31 xv(k)= intermediate_grid%em_a_v_2(pig,pjg,k)
32 ENDDO
33 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
34 DO k = ckds,(ckde-1)
35 xv(k)= intermediate_grid%em_g_v_2(pig,pjg,k)
36 ENDDO
37 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
38 DO k = ckds,ckde
39 xv(k)= intermediate_grid%em_w_2(pig,pjg,k)
40 ENDDO
41 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
42 DO k = ckds,ckde
43 xv(k)= intermediate_grid%em_a_w_2(pig,pjg,k)
44 ENDDO
45 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
46 DO k = ckds,ckde
47 xv(k)= intermediate_grid%em_g_w_2(pig,pjg,k)
48 ENDDO
49 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
50 DO k = ckds,ckde
51 xv(k)= intermediate_grid%em_ph_2(pig,pjg,k)
52 ENDDO
53 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
54 DO k = ckds,ckde
55 xv(k)= intermediate_grid%em_a_ph_2(pig,pjg,k)
56 ENDDO
57 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
58 DO k = ckds,ckde
59 xv(k)= intermediate_grid%em_g_ph_2(pig,pjg,k)
60 ENDDO
61 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
62 DO k = ckds,ckde
63 xv(k)= intermediate_grid%em_phb(pig,pjg,k)
64 ENDDO
65 CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
66 DO k = ckds,(ckde-1)
67 xv(k)= intermediate_grid%em_t_2(pig,pjg,k)
68 ENDDO
69 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
70 DO k = ckds,(ckde-1)
71 xv(k)= intermediate_grid%em_a_t_2(pig,pjg,k)
72 ENDDO
73 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
74 DO k = ckds,(ckde-1)
75 xv(k)= intermediate_grid%em_g_t_2(pig,pjg,k)
76 ENDDO
77 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
78 xv(1)= intermediate_grid%em_mu_2(pig,pjg)
79 CALL rsl_to_parent_msg(RWORDSIZE,xv)
80 xv(1)= intermediate_grid%em_a_mu_2(pig,pjg)
81 CALL rsl_to_parent_msg(RWORDSIZE,xv)
82 xv(1)= intermediate_grid%em_g_mu_2(pig,pjg)
83 CALL rsl_to_parent_msg(RWORDSIZE,xv)
84 xv(1)= intermediate_grid%em_mub(pig,pjg)
85 CALL rsl_to_parent_msg(RWORDSIZE,xv)
86 xv(1)= intermediate_grid%em_mu0(pig,pjg)
87 CALL rsl_to_parent_msg(RWORDSIZE,xv)
88 xv(1)= intermediate_grid%nest_pos(pig,pjg)
89 CALL rsl_to_parent_msg(RWORDSIZE,xv)
90 xv(1)= intermediate_grid%nest_mask(pig,pjg)
91 CALL rsl_to_parent_msg(RWORDSIZE,xv)
92 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
93 DO k = ckds,(ckde-1)
94 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qv)
95 ENDDO
96 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
97 ENDIF
98 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
99 DO k = ckds,(ckde-1)
100 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qc)
101 ENDDO
102 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
103 ENDIF
104 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
105 DO k = ckds,(ckde-1)
106 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qr)
107 ENDDO
108 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
109 ENDIF
110 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
111 DO k = ckds,(ckde-1)
112 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qi)
113 ENDDO
114 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
115 ENDIF
116 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
117 DO k = ckds,(ckde-1)
118 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qs)
119 ENDDO
120 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
121 ENDIF
122 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
123 DO k = ckds,(ckde-1)
124 xv(k)= intermediate_grid%moist(pig,pjg,k,P_qg)
125 ENDDO
126 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
127 ENDIF
128 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
129 DO k = ckds,(ckde-1)
130 xv(k)= intermediate_grid%a_moist(pig,pjg,k,P_a_qv)
131 ENDDO
132 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
133 ENDIF
134 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
135 DO k = ckds,(ckde-1)
136 xv(k)= intermediate_grid%a_moist(pig,pjg,k,P_a_qc)
137 ENDDO
138 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
139 ENDIF
140 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
141 DO k = ckds,(ckde-1)
142 xv(k)= intermediate_grid%g_moist(pig,pjg,k,P_g_qv)
143 ENDDO
144 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
145 ENDIF
146 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
147 DO k = ckds,(ckde-1)
148 xv(k)= intermediate_grid%g_moist(pig,pjg,k,P_g_qc)
149 ENDDO
150 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
151 ENDIF
152 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
153 DO k = ckds,(ckde-1)
154 xv(k)= intermediate_grid%scalar(pig,pjg,k,P_qni)
155 ENDDO
156 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
157 ENDIF
158 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
159 DO k = ckds,(ckde-1)
160 xv(k)= intermediate_grid%scalar(pig,k,pjg,P_qt)
161 ENDDO
162 CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
163 ENDIF
164 xv(1)= intermediate_grid%landmask(pig,pjg)
165 CALL rsl_to_parent_msg(RWORDSIZE,xv)
166 DO k = 1,config_flags%num_soil_layers
167 xv(k)= intermediate_grid%tslb(pig,pjg,k)
168 ENDDO
169 CALL rsl_to_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
170 DO k = 1,config_flags%num_soil_layers
171 xv(k)= intermediate_grid%smois(pig,pjg,k)
172 ENDDO
173 CALL rsl_to_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
174 DO k = 1,config_flags%num_soil_layers
175 xv(k)= intermediate_grid%sh2o(pig,pjg,k)
176 ENDDO
177 CALL rsl_to_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
178 xv(1)= intermediate_grid%xice(pig,pjg)
179 CALL rsl_to_parent_msg(RWORDSIZE,xv)
180 xv(1)= intermediate_grid%ivgtyp(pig,pjg)
181 CALL rsl_to_parent_msg(RWORDSIZE,xv)
182 xv(1)= intermediate_grid%isltyp(pig,pjg)
183 CALL rsl_to_parent_msg(RWORDSIZE,xv)
184 xv(1)= intermediate_grid%vegfra(pig,pjg)
185 CALL rsl_to_parent_msg(RWORDSIZE,xv)
186 xv(1)= intermediate_grid%acsnow(pig,pjg)
187 CALL rsl_to_parent_msg(RWORDSIZE,xv)
188 xv(1)= intermediate_grid%acsnom(pig,pjg)
189 CALL rsl_to_parent_msg(RWORDSIZE,xv)
190 xv(1)= intermediate_grid%snow(pig,pjg)
191 CALL rsl_to_parent_msg(RWORDSIZE,xv)
192 xv(1)= intermediate_grid%snowh(pig,pjg)
193 CALL rsl_to_parent_msg(RWORDSIZE,xv)
194 xv(1)= intermediate_grid%rhosn(pig,pjg)
195 CALL rsl_to_parent_msg(RWORDSIZE,xv)
196 xv(1)= intermediate_grid%canwat(pig,pjg)
197 CALL rsl_to_parent_msg(RWORDSIZE,xv)
198 xv(1)= intermediate_grid%msft(pig,pjg)
199 CALL rsl_to_parent_msg(RWORDSIZE,xv)
200 xv(1)= intermediate_grid%msfu(pig,pjg)
201 CALL rsl_to_parent_msg(RWORDSIZE,xv)
202 xv(1)= intermediate_grid%msfv(pig,pjg)
203 CALL rsl_to_parent_msg(RWORDSIZE,xv)
204 xv(1)= intermediate_grid%f(pig,pjg)
205 CALL rsl_to_parent_msg(RWORDSIZE,xv)
206 xv(1)= intermediate_grid%e(pig,pjg)
207 CALL rsl_to_parent_msg(RWORDSIZE,xv)
208 xv(1)= intermediate_grid%sina(pig,pjg)
209 CALL rsl_to_parent_msg(RWORDSIZE,xv)
210 xv(1)= intermediate_grid%cosa(pig,pjg)
211 CALL rsl_to_parent_msg(RWORDSIZE,xv)
212 xv(1)= intermediate_grid%ht(pig,pjg)
213 CALL rsl_to_parent_msg(RWORDSIZE,xv)
214 xv(1)= intermediate_grid%tsk(pig,pjg)
215 CALL rsl_to_parent_msg(RWORDSIZE,xv)
216 xv(1)= intermediate_grid%rainc(pig,pjg)
217 CALL rsl_to_parent_msg(RWORDSIZE,xv)
218 xv(1)= intermediate_grid%rainnc(pig,pjg)
219 CALL rsl_to_parent_msg(RWORDSIZE,xv)
220 xv(1)= intermediate_grid%xlat(pig,pjg)
221 CALL rsl_to_parent_msg(RWORDSIZE,xv)
222 xv(1)= intermediate_grid%xlong(pig,pjg)
223 CALL rsl_to_parent_msg(RWORDSIZE,xv)
224 xv(1)= intermediate_grid%em_xlat_u(pig,pjg)
225 CALL rsl_to_parent_msg(RWORDSIZE,xv)
226 xv(1)= intermediate_grid%em_xlong_u(pig,pjg)
227 CALL rsl_to_parent_msg(RWORDSIZE,xv)
228 xv(1)= intermediate_grid%em_xlat_v(pig,pjg)
229 CALL rsl_to_parent_msg(RWORDSIZE,xv)
230 xv(1)= intermediate_grid%em_xlong_v(pig,pjg)
231 CALL rsl_to_parent_msg(RWORDSIZE,xv)
232 xv(1)= intermediate_grid%tmn(pig,pjg)
233 CALL rsl_to_parent_msg(RWORDSIZE,xv)
234 xv(1)= intermediate_grid%xland(pig,pjg)
235 CALL rsl_to_parent_msg(RWORDSIZE,xv)
236 xv(1)= intermediate_grid%snowc(pig,pjg)
237 CALL rsl_to_parent_msg(RWORDSIZE,xv)
238 CALL rsl_to_parent_info( grid%domdesc, intermediate_grid%domdesc , &
239 msize*RWORDSIZE, &
240 i,j,nig,njg,cm,cn,pig,pjg,retval )
241 ENDDO
242 !ENDOFREGISTRYGENERATEDINCLUDE