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