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