em_data_calls.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_data_calls.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 CALL rsl_start_register_f90
8 CALL rsl_register_f90_base_and_size ( grid%lu_index , SIZE( grid%lu_index ) * RWORDSIZE )
9 CALL rsl_register_f90_base_and_size ( grid%lu_mask , SIZE( grid%lu_mask ) * RWORDSIZE )
10 CALL rsl_register_f90_base_and_size ( grid%em_u_gc , SIZE( grid%em_u_gc ) * RWORDSIZE )
11 CALL rsl_register_f90_base_and_size ( grid%em_v_gc , SIZE( grid%em_v_gc ) * RWORDSIZE )
12 CALL rsl_register_f90_base_and_size ( grid%em_t_gc , SIZE( grid%em_t_gc ) * RWORDSIZE )
13 CALL rsl_register_f90_base_and_size ( grid%em_rh_gc , SIZE( grid%em_rh_gc ) * RWORDSIZE )
14 CALL rsl_register_f90_base_and_size ( grid%em_ght_gc , SIZE( grid%em_ght_gc ) * RWORDSIZE )
15 CALL rsl_register_f90_base_and_size ( grid%em_p_gc , SIZE( grid%em_p_gc ) * RWORDSIZE )
16 CALL rsl_register_f90_base_and_size ( grid%em_xlat_gc , SIZE( grid%em_xlat_gc ) * RWORDSIZE )
17 CALL rsl_register_f90_base_and_size ( grid%em_xlong_gc , SIZE( grid%em_xlong_gc ) * RWORDSIZE )
18 CALL rsl_register_f90_base_and_size ( grid%em_ht_gc , SIZE( grid%em_ht_gc ) * RWORDSIZE )
19 CALL rsl_register_f90_base_and_size ( grid%em_tsk_gc , SIZE( grid%em_tsk_gc ) * RWORDSIZE )
20 CALL rsl_register_f90_base_and_size ( grid%em_tmn_gc , SIZE( grid%em_tmn_gc ) * RWORDSIZE )
21 CALL rsl_register_f90_base_and_size ( grid%em_pslv_gc , SIZE( grid%em_pslv_gc ) * RWORDSIZE )
22 CALL rsl_register_f90_base_and_size ( grid%em_greenfrac , SIZE( grid%em_greenfrac ) * RWORDSIZE )
23 CALL rsl_register_f90_base_and_size ( grid%em_albedo12m , SIZE( grid%em_albedo12m ) * RWORDSIZE )
24 CALL rsl_register_f90_base_and_size ( grid%em_pd_gc , SIZE( grid%em_pd_gc ) * RWORDSIZE )
25 CALL rsl_register_f90_base_and_size ( grid%em_qv_gc , SIZE( grid%em_qv_gc ) * RWORDSIZE )
26 CALL rsl_register_f90_base_and_size ( grid%em_intq_gc , SIZE( grid%em_intq_gc ) * RWORDSIZE )
27 CALL rsl_register_f90_base_and_size ( grid%em_pdhs , SIZE( grid%em_pdhs ) * RWORDSIZE )
28 CALL rsl_register_f90_base_and_size ( grid%em_u_1 , SIZE( grid%em_u_1 ) * RWORDSIZE )
29 CALL rsl_register_f90_base_and_size ( grid%em_u_2 , SIZE( grid%em_u_2 ) * RWORDSIZE )
30 CALL rsl_register_f90_base_and_size ( grid%em_a_u_1 , SIZE( grid%em_a_u_1 ) * RWORDSIZE )
31 CALL rsl_register_f90_base_and_size ( grid%em_a_u_2 , SIZE( grid%em_a_u_2 ) * RWORDSIZE )
32 CALL rsl_register_f90_base_and_size ( grid%em_g_u_1 , SIZE( grid%em_g_u_1 ) * RWORDSIZE )
33 CALL rsl_register_f90_base_and_size ( grid%em_g_u_2 , SIZE( grid%em_g_u_2 ) * RWORDSIZE )
34 CALL rsl_register_f90_base_and_size ( grid%em_v_1 , SIZE( grid%em_v_1 ) * RWORDSIZE )
35 CALL rsl_register_f90_base_and_size ( grid%em_v_2 , SIZE( grid%em_v_2 ) * RWORDSIZE )
36 CALL rsl_register_f90_base_and_size ( grid%em_a_v_1 , SIZE( grid%em_a_v_1 ) * RWORDSIZE )
37 CALL rsl_register_f90_base_and_size ( grid%em_a_v_2 , SIZE( grid%em_a_v_2 ) * RWORDSIZE )
38 CALL rsl_register_f90_base_and_size ( grid%em_g_v_1 , SIZE( grid%em_g_v_1 ) * RWORDSIZE )
39 CALL rsl_register_f90_base_and_size ( grid%em_g_v_2 , SIZE( grid%em_g_v_2 ) * RWORDSIZE )
40 CALL rsl_register_f90_base_and_size ( grid%em_w_1 , SIZE( grid%em_w_1 ) * RWORDSIZE )
41 CALL rsl_register_f90_base_and_size ( grid%em_w_2 , SIZE( grid%em_w_2 ) * RWORDSIZE )
42 CALL rsl_register_f90_base_and_size ( grid%em_a_w_1 , SIZE( grid%em_a_w_1 ) * RWORDSIZE )
43 CALL rsl_register_f90_base_and_size ( grid%em_a_w_2 , SIZE( grid%em_a_w_2 ) * RWORDSIZE )
44 CALL rsl_register_f90_base_and_size ( grid%em_g_w_1 , SIZE( grid%em_g_w_1 ) * RWORDSIZE )
45 CALL rsl_register_f90_base_and_size ( grid%em_g_w_2 , SIZE( grid%em_g_w_2 ) * RWORDSIZE )
46 CALL rsl_register_f90_base_and_size ( grid%em_ph_1 , SIZE( grid%em_ph_1 ) * RWORDSIZE )
47 CALL rsl_register_f90_base_and_size ( grid%em_ph_2 , SIZE( grid%em_ph_2 ) * RWORDSIZE )
48 CALL rsl_register_f90_base_and_size ( grid%em_a_ph_1 , SIZE( grid%em_a_ph_1 ) * RWORDSIZE )
49 CALL rsl_register_f90_base_and_size ( grid%em_a_ph_2 , SIZE( grid%em_a_ph_2 ) * RWORDSIZE )
50 CALL rsl_register_f90_base_and_size ( grid%em_g_ph_1 , SIZE( grid%em_g_ph_1 ) * RWORDSIZE )
51 CALL rsl_register_f90_base_and_size ( grid%em_g_ph_2 , SIZE( grid%em_g_ph_2 ) * RWORDSIZE )
52 CALL rsl_register_f90_base_and_size ( grid%em_phb , SIZE( grid%em_phb ) * RWORDSIZE )
53 CALL rsl_register_f90_base_and_size ( grid%em_t_1 , SIZE( grid%em_t_1 ) * RWORDSIZE )
54 CALL rsl_register_f90_base_and_size ( grid%em_t_2 , SIZE( grid%em_t_2 ) * RWORDSIZE )
55 CALL rsl_register_f90_base_and_size ( grid%em_a_t_1 , SIZE( grid%em_a_t_1 ) * RWORDSIZE )
56 CALL rsl_register_f90_base_and_size ( grid%em_a_t_2 , SIZE( grid%em_a_t_2 ) * RWORDSIZE )
57 CALL rsl_register_f90_base_and_size ( grid%em_g_t_1 , SIZE( grid%em_g_t_1 ) * RWORDSIZE )
58 CALL rsl_register_f90_base_and_size ( grid%em_g_t_2 , SIZE( grid%em_g_t_2 ) * RWORDSIZE )
59 CALL rsl_register_f90_base_and_size ( grid%em_mu_1 , SIZE( grid%em_mu_1 ) * RWORDSIZE )
60 CALL rsl_register_f90_base_and_size ( grid%em_mu_2 , SIZE( grid%em_mu_2 ) * RWORDSIZE )
61 CALL rsl_register_f90_base_and_size ( grid%em_a_mu_1 , SIZE( grid%em_a_mu_1 ) * RWORDSIZE )
62 CALL rsl_register_f90_base_and_size ( grid%em_a_mu_2 , SIZE( grid%em_a_mu_2 ) * RWORDSIZE )
63 CALL rsl_register_f90_base_and_size ( grid%em_g_mu_1 , SIZE( grid%em_g_mu_1 ) * RWORDSIZE )
64 CALL rsl_register_f90_base_and_size ( grid%em_g_mu_2 , SIZE( grid%em_g_mu_2 ) * RWORDSIZE )
65 CALL rsl_register_f90_base_and_size ( grid%em_mub , SIZE( grid%em_mub ) * RWORDSIZE )
66 CALL rsl_register_f90_base_and_size ( grid%em_mu0 , SIZE( grid%em_mu0 ) * RWORDSIZE )
67 CALL rsl_register_f90_base_and_size ( grid%nest_pos , SIZE( grid%nest_pos ) * RWORDSIZE )
68 CALL rsl_register_f90_base_and_size ( grid%nest_mask , SIZE( grid%nest_mask ) * RWORDSIZE )
69 CALL rsl_register_f90_base_and_size ( grid%ht_coarse , SIZE( grid%ht_coarse ) * RWORDSIZE )
70 CALL rsl_register_f90_base_and_size ( grid%em_p , SIZE( grid%em_p ) * RWORDSIZE )
71 CALL rsl_register_f90_base_and_size ( grid%em_sr , SIZE( grid%em_sr ) * RWORDSIZE )
72 CALL rsl_register_f90_base_and_size ( grid%em_z , SIZE( grid%em_z ) * RWORDSIZE )
73 CALL rsl_register_f90_base_and_size ( grid%em_a_z , SIZE( grid%em_a_z ) * RWORDSIZE )
74 CALL rsl_register_f90_base_and_size ( grid%em_g_z , SIZE( grid%em_g_z ) * RWORDSIZE )
75 CALL rsl_register_f90_base_and_size ( grid%q2 , SIZE( grid%q2 ) * RWORDSIZE )
76 CALL rsl_register_f90_base_and_size ( grid%t2 , SIZE( grid%t2 ) * RWORDSIZE )
77 CALL rsl_register_f90_base_and_size ( grid%th2 , SIZE( grid%th2 ) * RWORDSIZE )
78 CALL rsl_register_f90_base_and_size ( grid%psfc , SIZE( grid%psfc ) * RWORDSIZE )
79 CALL rsl_register_f90_base_and_size ( grid%u10 , SIZE( grid%u10 ) * RWORDSIZE )
80 CALL rsl_register_f90_base_and_size ( grid%v10 , SIZE( grid%v10 ) * RWORDSIZE )
81 CALL rsl_register_f90_base_and_size ( grid%uratx , SIZE( grid%uratx ) * RWORDSIZE )
82 CALL rsl_register_f90_base_and_size ( grid%vratx , SIZE( grid%vratx ) * RWORDSIZE )
83 CALL rsl_register_f90_base_and_size ( grid%tratx , SIZE( grid%tratx ) * RWORDSIZE )
84 CALL rsl_register_f90_base_and_size ( grid%imask_nostag , SIZE( grid%imask_nostag ) * IWORDSIZE )
85 CALL rsl_register_f90_base_and_size ( grid%imask_xstag , SIZE( grid%imask_xstag ) * IWORDSIZE )
86 CALL rsl_register_f90_base_and_size ( grid%imask_ystag , SIZE( grid%imask_ystag ) * IWORDSIZE )
87 CALL rsl_register_f90_base_and_size ( grid%imask_xystag , SIZE( grid%imask_xystag ) * IWORDSIZE )
88 CALL rsl_register_f90_base_and_size ( grid%landmask , SIZE( grid%landmask ) * RWORDSIZE )
89 CALL rsl_register_f90_base_and_size ( grid%shdmax , SIZE( grid%shdmax ) * RWORDSIZE )
90 CALL rsl_register_f90_base_and_size ( grid%shdmin , SIZE( grid%shdmin ) * RWORDSIZE )
91 CALL rsl_register_f90_base_and_size ( grid%snoalb , SIZE( grid%snoalb ) * RWORDSIZE )
92 CALL rsl_register_f90_base_and_size ( grid%tslb , SIZE( grid%tslb ) * RWORDSIZE )
93 CALL rsl_register_f90_base_and_size ( grid%smois , SIZE( grid%smois ) * RWORDSIZE )
94 CALL rsl_register_f90_base_and_size ( grid%sh2o , SIZE( grid%sh2o ) * RWORDSIZE )
95 CALL rsl_register_f90_base_and_size ( grid%xice , SIZE( grid%xice ) * RWORDSIZE )
96 CALL rsl_register_f90_base_and_size ( grid%sfcrunoff , SIZE( grid%sfcrunoff ) * RWORDSIZE )
97 CALL rsl_register_f90_base_and_size ( grid%udrunoff , SIZE( grid%udrunoff ) * RWORDSIZE )
98 CALL rsl_register_f90_base_and_size ( grid%ivgtyp , SIZE( grid%ivgtyp ) * IWORDSIZE )
99 CALL rsl_register_f90_base_and_size ( grid%isltyp , SIZE( grid%isltyp ) * IWORDSIZE )
100 CALL rsl_register_f90_base_and_size ( grid%vegfra , SIZE( grid%vegfra ) * RWORDSIZE )
101 CALL rsl_register_f90_base_and_size ( grid%sfcevp , SIZE( grid%sfcevp ) * RWORDSIZE )
102 CALL rsl_register_f90_base_and_size ( grid%acsnow , SIZE( grid%acsnow ) * RWORDSIZE )
103 CALL rsl_register_f90_base_and_size ( grid%acsnom , SIZE( grid%acsnom ) * RWORDSIZE )
104 CALL rsl_register_f90_base_and_size ( grid%snow , SIZE( grid%snow ) * RWORDSIZE )
105 CALL rsl_register_f90_base_and_size ( grid%snowh , SIZE( grid%snowh ) * RWORDSIZE )
106 CALL rsl_register_f90_base_and_size ( grid%rhosn , SIZE( grid%rhosn ) * RWORDSIZE )
107 CALL rsl_register_f90_base_and_size ( grid%canwat , SIZE( grid%canwat ) * RWORDSIZE )
108 CALL rsl_register_f90_base_and_size ( grid%sst , SIZE( grid%sst ) * RWORDSIZE )
109 CALL rsl_register_f90_base_and_size ( grid%htop , SIZE( grid%htop ) * RWORDSIZE )
110 CALL rsl_register_f90_base_and_size ( grid%hbot , SIZE( grid%hbot ) * RWORDSIZE )
111 CALL rsl_register_f90_base_and_size ( grid%cuppt , SIZE( grid%cuppt ) * RWORDSIZE )
112 CALL rsl_register_f90_base_and_size ( grid%rswtoa , SIZE( grid%rswtoa ) * RWORDSIZE )
113 CALL rsl_register_f90_base_and_size ( grid%rlwtoa , SIZE( grid%rlwtoa ) * RWORDSIZE )
114 CALL rsl_register_f90_base_and_size ( grid%czmean , SIZE( grid%czmean ) * RWORDSIZE )
115 CALL rsl_register_f90_base_and_size ( grid%cfracl , SIZE( grid%cfracl ) * RWORDSIZE )
116 CALL rsl_register_f90_base_and_size ( grid%cfracm , SIZE( grid%cfracm ) * RWORDSIZE )
117 CALL rsl_register_f90_base_and_size ( grid%cfrach , SIZE( grid%cfrach ) * RWORDSIZE )
118 CALL rsl_register_f90_base_and_size ( grid%acfrst , SIZE( grid%acfrst ) * RWORDSIZE )
119 CALL rsl_register_f90_base_and_size ( grid%ncfrst , SIZE( grid%ncfrst ) * IWORDSIZE )
120 CALL rsl_register_f90_base_and_size ( grid%acfrcv , SIZE( grid%acfrcv ) * RWORDSIZE )
121 CALL rsl_register_f90_base_and_size ( grid%ncfrcv , SIZE( grid%ncfrcv ) * IWORDSIZE )
122 CALL rsl_register_f90_base_and_size ( grid%h_diabatic , SIZE( grid%h_diabatic ) * RWORDSIZE )
123 CALL rsl_register_f90_base_and_size ( grid%msft , SIZE( grid%msft ) * RWORDSIZE )
124 CALL rsl_register_f90_base_and_size ( grid%msfu , SIZE( grid%msfu ) * RWORDSIZE )
125 CALL rsl_register_f90_base_and_size ( grid%msfv , SIZE( grid%msfv ) * RWORDSIZE )
126 CALL rsl_register_f90_base_and_size ( grid%f , SIZE( grid%f ) * RWORDSIZE )
127 CALL rsl_register_f90_base_and_size ( grid%e , SIZE( grid%e ) * RWORDSIZE )
128 CALL rsl_register_f90_base_and_size ( grid%sina , SIZE( grid%sina ) * RWORDSIZE )
129 CALL rsl_register_f90_base_and_size ( grid%cosa , SIZE( grid%cosa ) * RWORDSIZE )
130 CALL rsl_register_f90_base_and_size ( grid%ht , SIZE( grid%ht ) * RWORDSIZE )
131 CALL rsl_register_f90_base_and_size ( grid%ht_fine , SIZE( grid%ht_fine ) * RWORDSIZE )
132 CALL rsl_register_f90_base_and_size ( grid%ht_int , SIZE( grid%ht_int ) * RWORDSIZE )
133 CALL rsl_register_f90_base_and_size ( grid%ht_input , SIZE( grid%ht_input ) * RWORDSIZE )
134 CALL rsl_register_f90_base_and_size ( grid%tsk , SIZE( grid%tsk ) * RWORDSIZE )
135 CALL rsl_register_f90_base_and_size ( grid%tsk_save , SIZE( grid%tsk_save ) * RWORDSIZE )
136 CALL rsl_register_f90_base_and_size ( grid%rainc , SIZE( grid%rainc ) * RWORDSIZE )
137 CALL rsl_register_f90_base_and_size ( grid%rainnc , SIZE( grid%rainnc ) * RWORDSIZE )
138 CALL rsl_register_f90_base_and_size ( grid%xlat , SIZE( grid%xlat ) * RWORDSIZE )
139 CALL rsl_register_f90_base_and_size ( grid%xlong , SIZE( grid%xlong ) * RWORDSIZE )
140 CALL rsl_register_f90_base_and_size ( grid%em_xlat_u , SIZE( grid%em_xlat_u ) * RWORDSIZE )
141 CALL rsl_register_f90_base_and_size ( grid%em_xlong_u , SIZE( grid%em_xlong_u ) * RWORDSIZE )
142 CALL rsl_register_f90_base_and_size ( grid%em_xlat_v , SIZE( grid%em_xlat_v ) * RWORDSIZE )
143 CALL rsl_register_f90_base_and_size ( grid%em_xlong_v , SIZE( grid%em_xlong_v ) * RWORDSIZE )
144 CALL rsl_register_f90_base_and_size ( grid%albbck , SIZE( grid%albbck ) * RWORDSIZE )
145 CALL rsl_register_f90_base_and_size ( grid%tmn , SIZE( grid%tmn ) * RWORDSIZE )
146 CALL rsl_register_f90_base_and_size ( grid%xland , SIZE( grid%xland ) * RWORDSIZE )
147 CALL rsl_register_f90_base_and_size ( grid%znt , SIZE( grid%znt ) * RWORDSIZE )
148 CALL rsl_register_f90_base_and_size ( grid%snowc , SIZE( grid%snowc ) * RWORDSIZE )
149 CALL rsl_register_f90_base_and_size ( grid%xkmv , SIZE( grid%xkmv ) * RWORDSIZE )
150 CALL rsl_register_f90_base_and_size ( grid%xkmh , SIZE( grid%xkmh ) * RWORDSIZE )
151 CALL rsl_register_f90_base_and_size ( grid%xkmhd , SIZE( grid%xkmhd ) * RWORDSIZE )
152 CALL rsl_register_f90_base_and_size ( grid%a_xkmhd , SIZE( grid%a_xkmhd ) * RWORDSIZE )
153 CALL rsl_register_f90_base_and_size ( grid%g_xkmhd , SIZE( grid%g_xkmhd ) * RWORDSIZE )
154 CALL rsl_register_f90_base_and_size ( grid%xkhv , SIZE( grid%xkhv ) * RWORDSIZE )
155 CALL rsl_register_f90_base_and_size ( grid%xkhh , SIZE( grid%xkhh ) * RWORDSIZE )
156 CALL rsl_register_f90_base_and_size ( grid%vv%v1 , SIZE( grid%vv%v1 ) * RWORDSIZE )
157 CALL rsl_register_f90_base_and_size ( grid%vv%v2 , SIZE( grid%vv%v2 ) * RWORDSIZE )
158 CALL rsl_register_f90_base_and_size ( grid%vp%v1 , SIZE( grid%vp%v1 ) * RWORDSIZE )
159 CALL rsl_register_f90_base_and_size ( grid%vp%v2 , SIZE( grid%vp%v2 ) * RWORDSIZE )
160 CALL rsl_register_f90_base_and_size ( grid%xb%map_factor , SIZE( grid%xb%map_factor ) * RWORDSIZE )
161 CALL rsl_register_f90_base_and_size ( grid%xb%u , SIZE( grid%xb%u ) * RWORDSIZE )
162 CALL rsl_register_f90_base_and_size ( grid%xb%v , SIZE( grid%xb%v ) * RWORDSIZE )
163 CALL rsl_register_f90_base_and_size ( grid%xb%w , SIZE( grid%xb%w ) * RWORDSIZE )
164 CALL rsl_register_f90_base_and_size ( grid%xb%t , SIZE( grid%xb%t ) * RWORDSIZE )
165 CALL rsl_register_f90_base_and_size ( grid%xb%p , SIZE( grid%xb%p ) * RWORDSIZE )
166 CALL rsl_register_f90_base_and_size ( grid%xb%q , SIZE( grid%xb%q ) * RWORDSIZE )
167 CALL rsl_register_f90_base_and_size ( grid%xb%qrn , SIZE( grid%xb%qrn ) * RWORDSIZE )
168 CALL rsl_register_f90_base_and_size ( grid%xb%qcw , SIZE( grid%xb%qcw ) * RWORDSIZE )
169 CALL rsl_register_f90_base_and_size ( grid%xb%qt , SIZE( grid%xb%qt ) * RWORDSIZE )
170 CALL rsl_register_f90_base_and_size ( grid%xb%delt , SIZE( grid%xb%delt ) * RWORDSIZE )
171 CALL rsl_register_f90_base_and_size ( grid%xb%h , SIZE( grid%xb%h ) * RWORDSIZE )
172 CALL rsl_register_f90_base_and_size ( grid%xb%hf , SIZE( grid%xb%hf ) * RWORDSIZE )
173 CALL rsl_register_f90_base_and_size ( grid%xb%wh , SIZE( grid%xb%wh ) * RWORDSIZE )
174 CALL rsl_register_f90_base_and_size ( grid%xb%rho , SIZE( grid%xb%rho ) * RWORDSIZE )
175 CALL rsl_register_f90_base_and_size ( grid%xb%rh , SIZE( grid%xb%rh ) * RWORDSIZE )
176 CALL rsl_register_f90_base_and_size ( grid%xb%ref , SIZE( grid%xb%ref ) * RWORDSIZE )
177 CALL rsl_register_f90_base_and_size ( grid%xb%rough , SIZE( grid%xb%rough ) * RWORDSIZE )
178 CALL rsl_register_f90_base_and_size ( grid%xb%tpw , SIZE( grid%xb%tpw ) * RWORDSIZE )
179 CALL rsl_register_f90_base_and_size ( grid%xb%slp , SIZE( grid%xb%slp ) * RWORDSIZE )
180 CALL rsl_register_f90_base_and_size ( grid%xb%speed , SIZE( grid%xb%speed ) * RWORDSIZE )
181 CALL rsl_register_f90_base_and_size ( grid%xb%tb19v , SIZE( grid%xb%tb19v ) * RWORDSIZE )
182 CALL rsl_register_f90_base_and_size ( grid%xb%tb19h , SIZE( grid%xb%tb19h ) * RWORDSIZE )
183 CALL rsl_register_f90_base_and_size ( grid%xb%tb22v , SIZE( grid%xb%tb22v ) * RWORDSIZE )
184 CALL rsl_register_f90_base_and_size ( grid%xb%tb37v , SIZE( grid%xb%tb37v ) * RWORDSIZE )
185 CALL rsl_register_f90_base_and_size ( grid%xb%tb37h , SIZE( grid%xb%tb37h ) * RWORDSIZE )
186 CALL rsl_register_f90_base_and_size ( grid%xb%tb85v , SIZE( grid%xb%tb85v ) * RWORDSIZE )
187 CALL rsl_register_f90_base_and_size ( grid%xb%tb85h , SIZE( grid%xb%tb85h ) * RWORDSIZE )
188 CALL rsl_register_f90_base_and_size ( grid%xb%cori , SIZE( grid%xb%cori ) * RWORDSIZE )
189 CALL rsl_register_f90_base_and_size ( grid%xb%tgrn , SIZE( grid%xb%tgrn ) * RWORDSIZE )
190 CALL rsl_register_f90_base_and_size ( grid%xb%terr , SIZE( grid%xb%terr ) * RWORDSIZE )
191 CALL rsl_register_f90_base_and_size ( grid%xb%psac , SIZE( grid%xb%psac ) * RWORDSIZE )
192 CALL rsl_register_f90_base_and_size ( grid%xb%snow , SIZE( grid%xb%snow ) * RWORDSIZE )
193 CALL rsl_register_f90_base_and_size ( grid%xb%xland , SIZE( grid%xb%xland ) * RWORDSIZE )
194 CALL rsl_register_f90_base_and_size ( grid%xb%landmask , SIZE( grid%xb%landmask ) * RWORDSIZE )
195 CALL rsl_register_f90_base_and_size ( grid%xb%u10 , SIZE( grid%xb%u10 ) * RWORDSIZE )
196 CALL rsl_register_f90_base_and_size ( grid%xb%v10 , SIZE( grid%xb%v10 ) * RWORDSIZE )
197 CALL rsl_register_f90_base_and_size ( grid%xb%t2 , SIZE( grid%xb%t2 ) * RWORDSIZE )
198 CALL rsl_register_f90_base_and_size ( grid%xb%q2 , SIZE( grid%xb%q2 ) * RWORDSIZE )
199 CALL rsl_register_f90_base_and_size ( grid%xb%psfc , SIZE( grid%xb%psfc ) * RWORDSIZE )
200 CALL rsl_register_f90_base_and_size ( grid%xb%tsk , SIZE( grid%xb%tsk ) * RWORDSIZE )
201 CALL rsl_register_f90_base_and_size ( grid%xb%smois , SIZE( grid%xb%smois ) * RWORDSIZE )
202 CALL rsl_register_f90_base_and_size ( grid%xb%tslb , SIZE( grid%xb%tslb ) * RWORDSIZE )
203 CALL rsl_register_f90_base_and_size ( grid%xb%xice , SIZE( grid%xb%xice ) * RWORDSIZE )
204 CALL rsl_register_f90_base_and_size ( grid%xb%ivgtyp , SIZE( grid%xb%ivgtyp ) * IWORDSIZE )
205 CALL rsl_register_f90_base_and_size ( grid%xb%isltyp , SIZE( grid%xb%isltyp ) * IWORDSIZE )
206 CALL rsl_register_f90_base_and_size ( grid%xb%vegfra , SIZE( grid%xb%vegfra ) * RWORDSIZE )
207 CALL rsl_register_f90_base_and_size ( grid%xb%snowh , SIZE( grid%xb%snowh ) * RWORDSIZE )
208 CALL rsl_register_f90_base_and_size ( grid%xb%regime , SIZE( grid%xb%regime ) * RWORDSIZE )
209 CALL rsl_register_f90_base_and_size ( grid%xb%coefx , SIZE( grid%xb%coefx ) * RWORDSIZE )
210 CALL rsl_register_f90_base_and_size ( grid%xb%coefy , SIZE( grid%xb%coefy ) * RWORDSIZE )
211 CALL rsl_register_f90_base_and_size ( grid%xb%coefz , SIZE( grid%xb%coefz ) * RWORDSIZE )
212 CALL rsl_register_f90_base_and_size ( grid%xa%u , SIZE( grid%xa%u ) * RWORDSIZE )
213 CALL rsl_register_f90_base_and_size ( grid%xa%v , SIZE( grid%xa%v ) * RWORDSIZE )
214 CALL rsl_register_f90_base_and_size ( grid%xa%w , SIZE( grid%xa%w ) * RWORDSIZE )
215 CALL rsl_register_f90_base_and_size ( grid%xa%t , SIZE( grid%xa%t ) * RWORDSIZE )
216 CALL rsl_register_f90_base_and_size ( grid%xa%q , SIZE( grid%xa%q ) * RWORDSIZE )
217 CALL rsl_register_f90_base_and_size ( grid%xa%p , SIZE( grid%xa%p ) * RWORDSIZE )
218 CALL rsl_register_f90_base_and_size ( grid%xa%rh , SIZE( grid%xa%rh ) * RWORDSIZE )
219 CALL rsl_register_f90_base_and_size ( grid%xa%rho , SIZE( grid%xa%rho ) * RWORDSIZE )
220 CALL rsl_register_f90_base_and_size ( grid%xa%wh , SIZE( grid%xa%wh ) * RWORDSIZE )
221 CALL rsl_register_f90_base_and_size ( grid%xa%qrn , SIZE( grid%xa%qrn ) * RWORDSIZE )
222 CALL rsl_register_f90_base_and_size ( grid%xa%qcw , SIZE( grid%xa%qcw ) * RWORDSIZE )
223 CALL rsl_register_f90_base_and_size ( grid%xa%qt , SIZE( grid%xa%qt ) * RWORDSIZE )
224 CALL rsl_register_f90_base_and_size ( grid%xa%psfc , SIZE( grid%xa%psfc ) * RWORDSIZE )
225 CALL rsl_register_f90_base_and_size ( grid%xa%u10 , SIZE( grid%xa%u10 ) * RWORDSIZE )
226 CALL rsl_register_f90_base_and_size ( grid%xa%v10 , SIZE( grid%xa%v10 ) * RWORDSIZE )
227 CALL rsl_register_f90_base_and_size ( grid%xa%t2 , SIZE( grid%xa%t2 ) * RWORDSIZE )
228 CALL rsl_register_f90_base_and_size ( grid%xa%q2 , SIZE( grid%xa%q2 ) * RWORDSIZE )
229 CALL rsl_register_f90_base_and_size ( grid%xa%ref , SIZE( grid%xa%ref ) * RWORDSIZE )
230 CALL rsl_register_f90_base_and_size ( grid%xa%tpw , SIZE( grid%xa%tpw ) * RWORDSIZE )
231 CALL rsl_register_f90_base_and_size ( grid%xa%speed , SIZE( grid%xa%speed ) * RWORDSIZE )
232 CALL rsl_register_f90_base_and_size ( grid%xa%tb19v , SIZE( grid%xa%tb19v ) * RWORDSIZE )
233 CALL rsl_register_f90_base_and_size ( grid%xa%tb19h , SIZE( grid%xa%tb19h ) * RWORDSIZE )
234 CALL rsl_register_f90_base_and_size ( grid%xa%tb22v , SIZE( grid%xa%tb22v ) * RWORDSIZE )
235 CALL rsl_register_f90_base_and_size ( grid%xa%tb37v , SIZE( grid%xa%tb37v ) * RWORDSIZE )
236 CALL rsl_register_f90_base_and_size ( grid%xa%tb37h , SIZE( grid%xa%tb37h ) * RWORDSIZE )
237 CALL rsl_register_f90_base_and_size ( grid%xa%tb85v , SIZE( grid%xa%tb85v ) * RWORDSIZE )
238 CALL rsl_register_f90_base_and_size ( grid%xa%tb85h , SIZE( grid%xa%tb85h ) * RWORDSIZE )
239 CALL rsl_register_f90_base_and_size ( grid%xp%vxy , SIZE( grid%xp%vxy ) * RWORDSIZE )
240 CALL rsl_register_f90_base_and_size ( grid%xp%v1z , SIZE( grid%xp%v1z ) * RWORDSIZE )
241 CALL rsl_register_f90_base_and_size ( grid%xp%v1x , SIZE( grid%xp%v1x ) * RWORDSIZE )
242 CALL rsl_register_f90_base_and_size ( grid%xp%v1y , SIZE( grid%xp%v1y ) * RWORDSIZE )
243 CALL rsl_register_f90_base_and_size ( grid%xp%v2z , SIZE( grid%xp%v2z ) * RWORDSIZE )
244 CALL rsl_register_f90_base_and_size ( grid%xp%v2x , SIZE( grid%xp%v2x ) * RWORDSIZE )
245 CALL rsl_register_f90_base_and_size ( grid%xp%v2y , SIZE( grid%xp%v2y ) * RWORDSIZE )
246 IF(1+0.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
247 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
248 IF(1+1.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
249 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
250 IF(1+2.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
251 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
252 IF(1+3.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
253 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
254 IF(1+4.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
255 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
256 IF(1+5.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
257 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
258 IF(1+6.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
259 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
260 IF(1+0.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
261 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
262 IF(1+1.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
263 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
264 IF(1+2.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
265 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
266 IF(1+0.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
267 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
268 IF(1+1.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
269 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
270 IF(1+2.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
271 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
272 IF(1+0.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+0), &
273 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
274 IF(1+1.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+1), &
275 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
276 IF(1+2.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+2), &
277 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
278 #ifdef REGISTER_I1
279 #endif
280 CALL rsl_end_register_f90
281 #define DATA_CALLS_INCLUDED
282 !ENDOFREGISTRYGENERATEDINCLUDE