nodyn_nest_feedbackup_pack.inc

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