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_ru , SIZE( grid%em_ru ) * RWORDSIZE )
35 CALL rsl_register_f90_base_and_size ( grid%em_a_ru , SIZE( grid%em_a_ru ) * RWORDSIZE )
36 CALL rsl_register_f90_base_and_size ( grid%em_g_ru , SIZE( grid%em_g_ru ) * RWORDSIZE )
37 CALL rsl_register_f90_base_and_size ( grid%em_ru_m , SIZE( grid%em_ru_m ) * RWORDSIZE )
38 CALL rsl_register_f90_base_and_size ( grid%em_a_ru_m , SIZE( grid%em_a_ru_m ) * RWORDSIZE )
39 CALL rsl_register_f90_base_and_size ( grid%em_g_ru_m , SIZE( grid%em_g_ru_m ) * RWORDSIZE )
40 CALL rsl_register_f90_base_and_size ( grid%em_ru_tend , SIZE( grid%em_ru_tend ) * RWORDSIZE )
41 CALL rsl_register_f90_base_and_size ( grid%em_a_ru_tend , SIZE( grid%em_a_ru_tend ) * RWORDSIZE )
42 CALL rsl_register_f90_base_and_size ( grid%em_g_ru_tend , SIZE( grid%em_g_ru_tend ) * RWORDSIZE )
43 CALL rsl_register_f90_base_and_size ( grid%em_u_save , SIZE( grid%em_u_save ) * RWORDSIZE )
44 CALL rsl_register_f90_base_and_size ( grid%em_a_u_save , SIZE( grid%em_a_u_save ) * RWORDSIZE )
45 CALL rsl_register_f90_base_and_size ( grid%em_g_u_save , SIZE( grid%em_g_u_save ) * RWORDSIZE )
46 CALL rsl_register_f90_base_and_size ( grid%em_v_1 , SIZE( grid%em_v_1 ) * RWORDSIZE )
47 CALL rsl_register_f90_base_and_size ( grid%em_v_2 , SIZE( grid%em_v_2 ) * RWORDSIZE )
48 CALL rsl_register_f90_base_and_size ( grid%em_a_v_1 , SIZE( grid%em_a_v_1 ) * RWORDSIZE )
49 CALL rsl_register_f90_base_and_size ( grid%em_a_v_2 , SIZE( grid%em_a_v_2 ) * RWORDSIZE )
50 CALL rsl_register_f90_base_and_size ( grid%em_g_v_1 , SIZE( grid%em_g_v_1 ) * RWORDSIZE )
51 CALL rsl_register_f90_base_and_size ( grid%em_g_v_2 , SIZE( grid%em_g_v_2 ) * RWORDSIZE )
52 CALL rsl_register_f90_base_and_size ( grid%em_rv , SIZE( grid%em_rv ) * RWORDSIZE )
53 CALL rsl_register_f90_base_and_size ( grid%em_a_rv , SIZE( grid%em_a_rv ) * RWORDSIZE )
54 CALL rsl_register_f90_base_and_size ( grid%em_g_rv , SIZE( grid%em_g_rv ) * RWORDSIZE )
55 CALL rsl_register_f90_base_and_size ( grid%em_rv_m , SIZE( grid%em_rv_m ) * RWORDSIZE )
56 CALL rsl_register_f90_base_and_size ( grid%em_a_rv_m , SIZE( grid%em_a_rv_m ) * RWORDSIZE )
57 CALL rsl_register_f90_base_and_size ( grid%em_g_rv_m , SIZE( grid%em_g_rv_m ) * RWORDSIZE )
58 CALL rsl_register_f90_base_and_size ( grid%em_rv_tend , SIZE( grid%em_rv_tend ) * RWORDSIZE )
59 CALL rsl_register_f90_base_and_size ( grid%em_a_rv_tend , SIZE( grid%em_a_rv_tend ) * RWORDSIZE )
60 CALL rsl_register_f90_base_and_size ( grid%em_g_rv_tend , SIZE( grid%em_g_rv_tend ) * RWORDSIZE )
61 CALL rsl_register_f90_base_and_size ( grid%em_v_save , SIZE( grid%em_v_save ) * RWORDSIZE )
62 CALL rsl_register_f90_base_and_size ( grid%em_a_v_save , SIZE( grid%em_a_v_save ) * RWORDSIZE )
63 CALL rsl_register_f90_base_and_size ( grid%em_g_v_save , SIZE( grid%em_g_v_save ) * RWORDSIZE )
64 CALL rsl_register_f90_base_and_size ( grid%em_w_1 , SIZE( grid%em_w_1 ) * RWORDSIZE )
65 CALL rsl_register_f90_base_and_size ( grid%em_w_2 , SIZE( grid%em_w_2 ) * RWORDSIZE )
66 CALL rsl_register_f90_base_and_size ( grid%em_a_w_1 , SIZE( grid%em_a_w_1 ) * RWORDSIZE )
67 CALL rsl_register_f90_base_and_size ( grid%em_a_w_2 , SIZE( grid%em_a_w_2 ) * RWORDSIZE )
68 CALL rsl_register_f90_base_and_size ( grid%em_g_w_1 , SIZE( grid%em_g_w_1 ) * RWORDSIZE )
69 CALL rsl_register_f90_base_and_size ( grid%em_g_w_2 , SIZE( grid%em_g_w_2 ) * RWORDSIZE )
70 CALL rsl_register_f90_base_and_size ( grid%em_ww , SIZE( grid%em_ww ) * RWORDSIZE )
71 CALL rsl_register_f90_base_and_size ( grid%em_a_ww , SIZE( grid%em_a_ww ) * RWORDSIZE )
72 CALL rsl_register_f90_base_and_size ( grid%em_g_ww , SIZE( grid%em_g_ww ) * RWORDSIZE )
73 CALL rsl_register_f90_base_and_size ( grid%em_rw , SIZE( grid%em_rw ) * RWORDSIZE )
74 CALL rsl_register_f90_base_and_size ( grid%em_a_rw , SIZE( grid%em_a_rw ) * RWORDSIZE )
75 CALL rsl_register_f90_base_and_size ( grid%em_g_rw , SIZE( grid%em_g_rw ) * RWORDSIZE )
76 CALL rsl_register_f90_base_and_size ( grid%em_ph_1 , SIZE( grid%em_ph_1 ) * RWORDSIZE )
77 CALL rsl_register_f90_base_and_size ( grid%em_ph_2 , SIZE( grid%em_ph_2 ) * RWORDSIZE )
78 CALL rsl_register_f90_base_and_size ( grid%em_a_ph_1 , SIZE( grid%em_a_ph_1 ) * RWORDSIZE )
79 CALL rsl_register_f90_base_and_size ( grid%em_a_ph_2 , SIZE( grid%em_a_ph_2 ) * RWORDSIZE )
80 CALL rsl_register_f90_base_and_size ( grid%em_g_ph_1 , SIZE( grid%em_g_ph_1 ) * RWORDSIZE )
81 CALL rsl_register_f90_base_and_size ( grid%em_g_ph_2 , SIZE( grid%em_g_ph_2 ) * RWORDSIZE )
82 CALL rsl_register_f90_base_and_size ( grid%em_phb , SIZE( grid%em_phb ) * RWORDSIZE )
83 CALL rsl_register_f90_base_and_size ( grid%em_a_phb , SIZE( grid%em_a_phb ) * RWORDSIZE )
84 CALL rsl_register_f90_base_and_size ( grid%em_g_phb , SIZE( grid%em_g_phb ) * RWORDSIZE )
85 CALL rsl_register_f90_base_and_size ( grid%em_phb_fine , SIZE( grid%em_phb_fine ) * RWORDSIZE )
86 CALL rsl_register_f90_base_and_size ( grid%em_ph0 , SIZE( grid%em_ph0 ) * RWORDSIZE )
87 CALL rsl_register_f90_base_and_size ( grid%em_php , SIZE( grid%em_php ) * RWORDSIZE )
88 CALL rsl_register_f90_base_and_size ( grid%em_a_php , SIZE( grid%em_a_php ) * RWORDSIZE )
89 CALL rsl_register_f90_base_and_size ( grid%em_g_php , SIZE( grid%em_g_php ) * RWORDSIZE )
90 CALL rsl_register_f90_base_and_size ( grid%em_t_1 , SIZE( grid%em_t_1 ) * RWORDSIZE )
91 CALL rsl_register_f90_base_and_size ( grid%em_t_2 , SIZE( grid%em_t_2 ) * RWORDSIZE )
92 CALL rsl_register_f90_base_and_size ( grid%em_a_t_1 , SIZE( grid%em_a_t_1 ) * RWORDSIZE )
93 CALL rsl_register_f90_base_and_size ( grid%em_a_t_2 , SIZE( grid%em_a_t_2 ) * RWORDSIZE )
94 CALL rsl_register_f90_base_and_size ( grid%em_g_t_1 , SIZE( grid%em_g_t_1 ) * RWORDSIZE )
95 CALL rsl_register_f90_base_and_size ( grid%em_g_t_2 , SIZE( grid%em_g_t_2 ) * RWORDSIZE )
96 CALL rsl_register_f90_base_and_size ( grid%em_t_init , SIZE( grid%em_t_init ) * RWORDSIZE )
97 CALL rsl_register_f90_base_and_size ( grid%em_tp_1 , SIZE( grid%em_tp_1 ) * RWORDSIZE )
98 CALL rsl_register_f90_base_and_size ( grid%em_tp_2 , SIZE( grid%em_tp_2 ) * RWORDSIZE )
99 CALL rsl_register_f90_base_and_size ( grid%em_t_save , SIZE( grid%em_t_save ) * RWORDSIZE )
100 CALL rsl_register_f90_base_and_size ( grid%em_a_t_save , SIZE( grid%em_a_t_save ) * RWORDSIZE )
101 CALL rsl_register_f90_base_and_size ( grid%em_g_t_save , SIZE( grid%em_g_t_save ) * RWORDSIZE )
102 CALL rsl_register_f90_base_and_size ( grid%em_mu_1 , SIZE( grid%em_mu_1 ) * RWORDSIZE )
103 CALL rsl_register_f90_base_and_size ( grid%em_mu_2 , SIZE( grid%em_mu_2 ) * RWORDSIZE )
104 CALL rsl_register_f90_base_and_size ( grid%em_a_mu_1 , SIZE( grid%em_a_mu_1 ) * RWORDSIZE )
105 CALL rsl_register_f90_base_and_size ( grid%em_a_mu_2 , SIZE( grid%em_a_mu_2 ) * RWORDSIZE )
106 CALL rsl_register_f90_base_and_size ( grid%em_g_mu_1 , SIZE( grid%em_g_mu_1 ) * RWORDSIZE )
107 CALL rsl_register_f90_base_and_size ( grid%em_g_mu_2 , SIZE( grid%em_g_mu_2 ) * RWORDSIZE )
108 CALL rsl_register_f90_base_and_size ( grid%em_mub , SIZE( grid%em_mub ) * RWORDSIZE )
109 CALL rsl_register_f90_base_and_size ( grid%em_a_mub , SIZE( grid%em_a_mub ) * RWORDSIZE )
110 CALL rsl_register_f90_base_and_size ( grid%em_g_mub , SIZE( grid%em_g_mub ) * RWORDSIZE )
111 CALL rsl_register_f90_base_and_size ( grid%em_mub_fine , SIZE( grid%em_mub_fine ) * RWORDSIZE )
112 CALL rsl_register_f90_base_and_size ( grid%em_mu0 , SIZE( grid%em_mu0 ) * RWORDSIZE )
113 CALL rsl_register_f90_base_and_size ( grid%em_mudf , SIZE( grid%em_mudf ) * RWORDSIZE )
114 CALL rsl_register_f90_base_and_size ( grid%em_a_mudf , SIZE( grid%em_a_mudf ) * RWORDSIZE )
115 CALL rsl_register_f90_base_and_size ( grid%em_g_mudf , SIZE( grid%em_g_mudf ) * RWORDSIZE )
116 CALL rsl_register_f90_base_and_size ( grid%em_muu , SIZE( grid%em_muu ) * RWORDSIZE )
117 CALL rsl_register_f90_base_and_size ( grid%em_a_muu , SIZE( grid%em_a_muu ) * RWORDSIZE )
118 CALL rsl_register_f90_base_and_size ( grid%em_g_muu , SIZE( grid%em_g_muu ) * RWORDSIZE )
119 CALL rsl_register_f90_base_and_size ( grid%em_muv , SIZE( grid%em_muv ) * RWORDSIZE )
120 CALL rsl_register_f90_base_and_size ( grid%em_a_muv , SIZE( grid%em_a_muv ) * RWORDSIZE )
121 CALL rsl_register_f90_base_and_size ( grid%em_g_muv , SIZE( grid%em_g_muv ) * RWORDSIZE )
122 CALL rsl_register_f90_base_and_size ( grid%em_mut , SIZE( grid%em_mut ) * RWORDSIZE )
123 CALL rsl_register_f90_base_and_size ( grid%em_a_mut , SIZE( grid%em_a_mut ) * RWORDSIZE )
124 CALL rsl_register_f90_base_and_size ( grid%em_g_mut , SIZE( grid%em_g_mut ) * RWORDSIZE )
125 CALL rsl_register_f90_base_and_size ( grid%em_muts , SIZE( grid%em_muts ) * RWORDSIZE )
126 CALL rsl_register_f90_base_and_size ( grid%em_a_muts , SIZE( grid%em_a_muts ) * RWORDSIZE )
127 CALL rsl_register_f90_base_and_size ( grid%em_g_muts , SIZE( grid%em_g_muts ) * RWORDSIZE )
128 CALL rsl_register_f90_base_and_size ( grid%nest_pos , SIZE( grid%nest_pos ) * RWORDSIZE )
129 CALL rsl_register_f90_base_and_size ( grid%nest_mask , SIZE( grid%nest_mask ) * RWORDSIZE )
130 CALL rsl_register_f90_base_and_size ( grid%ht_coarse , SIZE( grid%ht_coarse ) * RWORDSIZE )
131 CALL rsl_register_f90_base_and_size ( grid%em_tke_1 , SIZE( grid%em_tke_1 ) * RWORDSIZE )
132 CALL rsl_register_f90_base_and_size ( grid%em_tke_2 , SIZE( grid%em_tke_2 ) * RWORDSIZE )
133 CALL rsl_register_f90_base_and_size ( grid%em_p , SIZE( grid%em_p ) * RWORDSIZE )
134 CALL rsl_register_f90_base_and_size ( grid%em_a_p , SIZE( grid%em_a_p ) * RWORDSIZE )
135 CALL rsl_register_f90_base_and_size ( grid%em_g_p , SIZE( grid%em_g_p ) * RWORDSIZE )
136 CALL rsl_register_f90_base_and_size ( grid%em_al , SIZE( grid%em_al ) * RWORDSIZE )
137 CALL rsl_register_f90_base_and_size ( grid%em_a_al , SIZE( grid%em_a_al ) * RWORDSIZE )
138 CALL rsl_register_f90_base_and_size ( grid%em_g_al , SIZE( grid%em_g_al ) * RWORDSIZE )
139 CALL rsl_register_f90_base_and_size ( grid%em_alt , SIZE( grid%em_alt ) * RWORDSIZE )
140 CALL rsl_register_f90_base_and_size ( grid%em_a_alt , SIZE( grid%em_a_alt ) * RWORDSIZE )
141 CALL rsl_register_f90_base_and_size ( grid%em_g_alt , SIZE( grid%em_g_alt ) * RWORDSIZE )
142 CALL rsl_register_f90_base_and_size ( grid%em_alb , SIZE( grid%em_alb ) * RWORDSIZE )
143 CALL rsl_register_f90_base_and_size ( grid%em_zx , SIZE( grid%em_zx ) * RWORDSIZE )
144 CALL rsl_register_f90_base_and_size ( grid%em_zy , SIZE( grid%em_zy ) * RWORDSIZE )
145 CALL rsl_register_f90_base_and_size ( grid%em_rdz , SIZE( grid%em_rdz ) * RWORDSIZE )
146 CALL rsl_register_f90_base_and_size ( grid%em_rdzw , SIZE( grid%em_rdzw ) * RWORDSIZE )
147 CALL rsl_register_f90_base_and_size ( grid%em_pb , SIZE( grid%em_pb ) * RWORDSIZE )
148 CALL rsl_register_f90_base_and_size ( grid%em_sr , SIZE( grid%em_sr ) * RWORDSIZE )
149 CALL rsl_register_f90_base_and_size ( grid%em_z , SIZE( grid%em_z ) * RWORDSIZE )
150 CALL rsl_register_f90_base_and_size ( grid%em_a_z , SIZE( grid%em_a_z ) * RWORDSIZE )
151 CALL rsl_register_f90_base_and_size ( grid%em_g_z , SIZE( grid%em_g_z ) * RWORDSIZE )
152 CALL rsl_register_f90_base_and_size ( grid%q2 , SIZE( grid%q2 ) * RWORDSIZE )
153 CALL rsl_register_f90_base_and_size ( grid%t2 , SIZE( grid%t2 ) * RWORDSIZE )
154 CALL rsl_register_f90_base_and_size ( grid%th2 , SIZE( grid%th2 ) * RWORDSIZE )
155 CALL rsl_register_f90_base_and_size ( grid%psfc , SIZE( grid%psfc ) * RWORDSIZE )
156 CALL rsl_register_f90_base_and_size ( grid%u10 , SIZE( grid%u10 ) * RWORDSIZE )
157 CALL rsl_register_f90_base_and_size ( grid%v10 , SIZE( grid%v10 ) * RWORDSIZE )
158 CALL rsl_register_f90_base_and_size ( grid%uratx , SIZE( grid%uratx ) * RWORDSIZE )
159 CALL rsl_register_f90_base_and_size ( grid%vratx , SIZE( grid%vratx ) * RWORDSIZE )
160 CALL rsl_register_f90_base_and_size ( grid%tratx , SIZE( grid%tratx ) * RWORDSIZE )
161 CALL rsl_register_f90_base_and_size ( grid%imask_nostag , SIZE( grid%imask_nostag ) * IWORDSIZE )
162 CALL rsl_register_f90_base_and_size ( grid%imask_xstag , SIZE( grid%imask_xstag ) * IWORDSIZE )
163 CALL rsl_register_f90_base_and_size ( grid%imask_ystag , SIZE( grid%imask_ystag ) * IWORDSIZE )
164 CALL rsl_register_f90_base_and_size ( grid%imask_xystag , SIZE( grid%imask_xystag ) * IWORDSIZE )
165 CALL rsl_register_f90_base_and_size ( grid%landmask , SIZE( grid%landmask ) * RWORDSIZE )
166 CALL rsl_register_f90_base_and_size ( grid%shdmax , SIZE( grid%shdmax ) * RWORDSIZE )
167 CALL rsl_register_f90_base_and_size ( grid%shdmin , SIZE( grid%shdmin ) * RWORDSIZE )
168 CALL rsl_register_f90_base_and_size ( grid%snoalb , SIZE( grid%snoalb ) * RWORDSIZE )
169 CALL rsl_register_f90_base_and_size ( grid%tslb , SIZE( grid%tslb ) * RWORDSIZE )
170 CALL rsl_register_f90_base_and_size ( grid%smois , SIZE( grid%smois ) * RWORDSIZE )
171 CALL rsl_register_f90_base_and_size ( grid%sh2o , SIZE( grid%sh2o ) * RWORDSIZE )
172 CALL rsl_register_f90_base_and_size ( grid%xice , SIZE( grid%xice ) * RWORDSIZE )
173 CALL rsl_register_f90_base_and_size ( grid%sfcrunoff , SIZE( grid%sfcrunoff ) * RWORDSIZE )
174 CALL rsl_register_f90_base_and_size ( grid%udrunoff , SIZE( grid%udrunoff ) * RWORDSIZE )
175 CALL rsl_register_f90_base_and_size ( grid%ivgtyp , SIZE( grid%ivgtyp ) * IWORDSIZE )
176 CALL rsl_register_f90_base_and_size ( grid%isltyp , SIZE( grid%isltyp ) * IWORDSIZE )
177 CALL rsl_register_f90_base_and_size ( grid%vegfra , SIZE( grid%vegfra ) * RWORDSIZE )
178 CALL rsl_register_f90_base_and_size ( grid%sfcevp , SIZE( grid%sfcevp ) * RWORDSIZE )
179 CALL rsl_register_f90_base_and_size ( grid%acsnow , SIZE( grid%acsnow ) * RWORDSIZE )
180 CALL rsl_register_f90_base_and_size ( grid%acsnom , SIZE( grid%acsnom ) * RWORDSIZE )
181 CALL rsl_register_f90_base_and_size ( grid%snow , SIZE( grid%snow ) * RWORDSIZE )
182 CALL rsl_register_f90_base_and_size ( grid%snowh , SIZE( grid%snowh ) * RWORDSIZE )
183 CALL rsl_register_f90_base_and_size ( grid%rhosn , SIZE( grid%rhosn ) * RWORDSIZE )
184 CALL rsl_register_f90_base_and_size ( grid%canwat , SIZE( grid%canwat ) * RWORDSIZE )
185 CALL rsl_register_f90_base_and_size ( grid%sst , SIZE( grid%sst ) * RWORDSIZE )
186 CALL rsl_register_f90_base_and_size ( grid%htop , SIZE( grid%htop ) * RWORDSIZE )
187 CALL rsl_register_f90_base_and_size ( grid%hbot , SIZE( grid%hbot ) * RWORDSIZE )
188 CALL rsl_register_f90_base_and_size ( grid%cuppt , SIZE( grid%cuppt ) * RWORDSIZE )
189 CALL rsl_register_f90_base_and_size ( grid%rswtoa , SIZE( grid%rswtoa ) * RWORDSIZE )
190 CALL rsl_register_f90_base_and_size ( grid%rlwtoa , SIZE( grid%rlwtoa ) * RWORDSIZE )
191 CALL rsl_register_f90_base_and_size ( grid%czmean , SIZE( grid%czmean ) * RWORDSIZE )
192 CALL rsl_register_f90_base_and_size ( grid%cfracl , SIZE( grid%cfracl ) * RWORDSIZE )
193 CALL rsl_register_f90_base_and_size ( grid%cfracm , SIZE( grid%cfracm ) * RWORDSIZE )
194 CALL rsl_register_f90_base_and_size ( grid%cfrach , SIZE( grid%cfrach ) * RWORDSIZE )
195 CALL rsl_register_f90_base_and_size ( grid%acfrst , SIZE( grid%acfrst ) * RWORDSIZE )
196 CALL rsl_register_f90_base_and_size ( grid%ncfrst , SIZE( grid%ncfrst ) * IWORDSIZE )
197 CALL rsl_register_f90_base_and_size ( grid%acfrcv , SIZE( grid%acfrcv ) * RWORDSIZE )
198 CALL rsl_register_f90_base_and_size ( grid%ncfrcv , SIZE( grid%ncfrcv ) * IWORDSIZE )
199 CALL rsl_register_f90_base_and_size ( grid%h_diabatic , SIZE( grid%h_diabatic ) * RWORDSIZE )
200 CALL rsl_register_f90_base_and_size ( grid%msft , SIZE( grid%msft ) * RWORDSIZE )
201 CALL rsl_register_f90_base_and_size ( grid%msfu , SIZE( grid%msfu ) * RWORDSIZE )
202 CALL rsl_register_f90_base_and_size ( grid%msfv , SIZE( grid%msfv ) * RWORDSIZE )
203 CALL rsl_register_f90_base_and_size ( grid%f , SIZE( grid%f ) * RWORDSIZE )
204 CALL rsl_register_f90_base_and_size ( grid%e , SIZE( grid%e ) * RWORDSIZE )
205 CALL rsl_register_f90_base_and_size ( grid%sina , SIZE( grid%sina ) * RWORDSIZE )
206 CALL rsl_register_f90_base_and_size ( grid%cosa , SIZE( grid%cosa ) * RWORDSIZE )
207 CALL rsl_register_f90_base_and_size ( grid%ht , SIZE( grid%ht ) * RWORDSIZE )
208 CALL rsl_register_f90_base_and_size ( grid%ht_fine , SIZE( grid%ht_fine ) * RWORDSIZE )
209 CALL rsl_register_f90_base_and_size ( grid%ht_int , SIZE( grid%ht_int ) * RWORDSIZE )
210 CALL rsl_register_f90_base_and_size ( grid%ht_input , SIZE( grid%ht_input ) * RWORDSIZE )
211 CALL rsl_register_f90_base_and_size ( grid%tsk , SIZE( grid%tsk ) * RWORDSIZE )
212 CALL rsl_register_f90_base_and_size ( grid%tsk_save , SIZE( grid%tsk_save ) * RWORDSIZE )
213 CALL rsl_register_f90_base_and_size ( grid%rthcuten , SIZE( grid%rthcuten ) * RWORDSIZE )
214 CALL rsl_register_f90_base_and_size ( grid%rqvcuten , SIZE( grid%rqvcuten ) * RWORDSIZE )
215 CALL rsl_register_f90_base_and_size ( grid%rqrcuten , SIZE( grid%rqrcuten ) * RWORDSIZE )
216 CALL rsl_register_f90_base_and_size ( grid%rqccuten , SIZE( grid%rqccuten ) * RWORDSIZE )
217 CALL rsl_register_f90_base_and_size ( grid%rqscuten , SIZE( grid%rqscuten ) * RWORDSIZE )
218 CALL rsl_register_f90_base_and_size ( grid%rqicuten , SIZE( grid%rqicuten ) * RWORDSIZE )
219 CALL rsl_register_f90_base_and_size ( grid%w0avg , SIZE( grid%w0avg ) * RWORDSIZE )
220 CALL rsl_register_f90_base_and_size ( grid%rainc , SIZE( grid%rainc ) * RWORDSIZE )
221 CALL rsl_register_f90_base_and_size ( grid%rainnc , SIZE( grid%rainnc ) * RWORDSIZE )
222 CALL rsl_register_f90_base_and_size ( grid%raincv , SIZE( grid%raincv ) * RWORDSIZE )
223 CALL rsl_register_f90_base_and_size ( grid%rainncv , SIZE( grid%rainncv ) * RWORDSIZE )
224 CALL rsl_register_f90_base_and_size ( grid%rainbl , SIZE( grid%rainbl ) * RWORDSIZE )
225 CALL rsl_register_f90_base_and_size ( grid%snownc , SIZE( grid%snownc ) * RWORDSIZE )
226 CALL rsl_register_f90_base_and_size ( grid%graupelnc , SIZE( grid%graupelnc ) * RWORDSIZE )
227 CALL rsl_register_f90_base_and_size ( grid%snowncv , SIZE( grid%snowncv ) * RWORDSIZE )
228 CALL rsl_register_f90_base_and_size ( grid%graupelncv , SIZE( grid%graupelncv ) * RWORDSIZE )
229 CALL rsl_register_f90_base_and_size ( grid%nca , SIZE( grid%nca ) * RWORDSIZE )
230 CALL rsl_register_f90_base_and_size ( grid%lowlyr , SIZE( grid%lowlyr ) * IWORDSIZE )
231 CALL rsl_register_f90_base_and_size ( grid%mass_flux , SIZE( grid%mass_flux ) * RWORDSIZE )
232 CALL rsl_register_f90_base_and_size ( grid%apr_gr , SIZE( grid%apr_gr ) * RWORDSIZE )
233 CALL rsl_register_f90_base_and_size ( grid%apr_w , SIZE( grid%apr_w ) * RWORDSIZE )
234 CALL rsl_register_f90_base_and_size ( grid%apr_mc , SIZE( grid%apr_mc ) * RWORDSIZE )
235 CALL rsl_register_f90_base_and_size ( grid%apr_st , SIZE( grid%apr_st ) * RWORDSIZE )
236 CALL rsl_register_f90_base_and_size ( grid%apr_as , SIZE( grid%apr_as ) * RWORDSIZE )
237 CALL rsl_register_f90_base_and_size ( grid%apr_capma , SIZE( grid%apr_capma ) * RWORDSIZE )
238 CALL rsl_register_f90_base_and_size ( grid%apr_capme , SIZE( grid%apr_capme ) * RWORDSIZE )
239 CALL rsl_register_f90_base_and_size ( grid%apr_capmi , SIZE( grid%apr_capmi ) * RWORDSIZE )
240 CALL rsl_register_f90_base_and_size ( grid%rthften , SIZE( grid%rthften ) * RWORDSIZE )
241 CALL rsl_register_f90_base_and_size ( grid%rqvften , SIZE( grid%rqvften ) * RWORDSIZE )
242 CALL rsl_register_f90_base_and_size ( grid%rthraten , SIZE( grid%rthraten ) * RWORDSIZE )
243 CALL rsl_register_f90_base_and_size ( grid%rthratenlw , SIZE( grid%rthratenlw ) * RWORDSIZE )
244 CALL rsl_register_f90_base_and_size ( grid%rthratensw , SIZE( grid%rthratensw ) * RWORDSIZE )
245 CALL rsl_register_f90_base_and_size ( grid%cldfra , SIZE( grid%cldfra ) * RWORDSIZE )
246 CALL rsl_register_f90_base_and_size ( grid%swdown , SIZE( grid%swdown ) * RWORDSIZE )
247 CALL rsl_register_f90_base_and_size ( grid%swdownc , SIZE( grid%swdownc ) * RWORDSIZE )
248 CALL rsl_register_f90_base_and_size ( grid%gsw , SIZE( grid%gsw ) * RWORDSIZE )
249 CALL rsl_register_f90_base_and_size ( grid%glw , SIZE( grid%glw ) * RWORDSIZE )
250 CALL rsl_register_f90_base_and_size ( grid%swcf , SIZE( grid%swcf ) * RWORDSIZE )
251 CALL rsl_register_f90_base_and_size ( grid%lwcf , SIZE( grid%lwcf ) * RWORDSIZE )
252 CALL rsl_register_f90_base_and_size ( grid%olr , SIZE( grid%olr ) * RWORDSIZE )
253 CALL rsl_register_f90_base_and_size ( grid%xlat , SIZE( grid%xlat ) * RWORDSIZE )
254 CALL rsl_register_f90_base_and_size ( grid%xlong , SIZE( grid%xlong ) * RWORDSIZE )
255 CALL rsl_register_f90_base_and_size ( grid%em_xlat_u , SIZE( grid%em_xlat_u ) * RWORDSIZE )
256 CALL rsl_register_f90_base_and_size ( grid%em_xlong_u , SIZE( grid%em_xlong_u ) * RWORDSIZE )
257 CALL rsl_register_f90_base_and_size ( grid%em_xlat_v , SIZE( grid%em_xlat_v ) * RWORDSIZE )
258 CALL rsl_register_f90_base_and_size ( grid%em_xlong_v , SIZE( grid%em_xlong_v ) * RWORDSIZE )
259 CALL rsl_register_f90_base_and_size ( grid%albedo , SIZE( grid%albedo ) * RWORDSIZE )
260 CALL rsl_register_f90_base_and_size ( grid%albbck , SIZE( grid%albbck ) * RWORDSIZE )
261 CALL rsl_register_f90_base_and_size ( grid%emiss , SIZE( grid%emiss ) * RWORDSIZE )
262 CALL rsl_register_f90_base_and_size ( grid%cldefi , SIZE( grid%cldefi ) * RWORDSIZE )
263 CALL rsl_register_f90_base_and_size ( grid%rublten , SIZE( grid%rublten ) * RWORDSIZE )
264 CALL rsl_register_f90_base_and_size ( grid%rvblten , SIZE( grid%rvblten ) * RWORDSIZE )
265 CALL rsl_register_f90_base_and_size ( grid%rthblten , SIZE( grid%rthblten ) * RWORDSIZE )
266 CALL rsl_register_f90_base_and_size ( grid%rqvblten , SIZE( grid%rqvblten ) * RWORDSIZE )
267 CALL rsl_register_f90_base_and_size ( grid%rqcblten , SIZE( grid%rqcblten ) * RWORDSIZE )
268 CALL rsl_register_f90_base_and_size ( grid%rqiblten , SIZE( grid%rqiblten ) * RWORDSIZE )
269 CALL rsl_register_f90_base_and_size ( grid%tmn , SIZE( grid%tmn ) * RWORDSIZE )
270 CALL rsl_register_f90_base_and_size ( grid%xland , SIZE( grid%xland ) * RWORDSIZE )
271 CALL rsl_register_f90_base_and_size ( grid%znt , SIZE( grid%znt ) * RWORDSIZE )
272 CALL rsl_register_f90_base_and_size ( grid%ust , SIZE( grid%ust ) * RWORDSIZE )
273 CALL rsl_register_f90_base_and_size ( grid%rmol , SIZE( grid%rmol ) * RWORDSIZE )
274 CALL rsl_register_f90_base_and_size ( grid%mol , SIZE( grid%mol ) * RWORDSIZE )
275 CALL rsl_register_f90_base_and_size ( grid%pblh , SIZE( grid%pblh ) * RWORDSIZE )
276 CALL rsl_register_f90_base_and_size ( grid%capg , SIZE( grid%capg ) * RWORDSIZE )
277 CALL rsl_register_f90_base_and_size ( grid%thc , SIZE( grid%thc ) * RWORDSIZE )
278 CALL rsl_register_f90_base_and_size ( grid%hfx , SIZE( grid%hfx ) * RWORDSIZE )
279 CALL rsl_register_f90_base_and_size ( grid%qfx , SIZE( grid%qfx ) * RWORDSIZE )
280 CALL rsl_register_f90_base_and_size ( grid%lh , SIZE( grid%lh ) * RWORDSIZE )
281 CALL rsl_register_f90_base_and_size ( grid%flhc , SIZE( grid%flhc ) * RWORDSIZE )
282 CALL rsl_register_f90_base_and_size ( grid%flqc , SIZE( grid%flqc ) * RWORDSIZE )
283 CALL rsl_register_f90_base_and_size ( grid%qsg , SIZE( grid%qsg ) * RWORDSIZE )
284 CALL rsl_register_f90_base_and_size ( grid%qvg , SIZE( grid%qvg ) * RWORDSIZE )
285 CALL rsl_register_f90_base_and_size ( grid%qcg , SIZE( grid%qcg ) * RWORDSIZE )
286 CALL rsl_register_f90_base_and_size ( grid%soilt1 , SIZE( grid%soilt1 ) * RWORDSIZE )
287 CALL rsl_register_f90_base_and_size ( grid%tsnav , SIZE( grid%tsnav ) * RWORDSIZE )
288 CALL rsl_register_f90_base_and_size ( grid%snowc , SIZE( grid%snowc ) * RWORDSIZE )
289 CALL rsl_register_f90_base_and_size ( grid%mavail , SIZE( grid%mavail ) * RWORDSIZE )
290 CALL rsl_register_f90_base_and_size ( grid%xkmv , SIZE( grid%xkmv ) * RWORDSIZE )
291 CALL rsl_register_f90_base_and_size ( grid%xkmh , SIZE( grid%xkmh ) * RWORDSIZE )
292 CALL rsl_register_f90_base_and_size ( grid%xkmhd , SIZE( grid%xkmhd ) * RWORDSIZE )
293 CALL rsl_register_f90_base_and_size ( grid%a_xkmhd , SIZE( grid%a_xkmhd ) * RWORDSIZE )
294 CALL rsl_register_f90_base_and_size ( grid%g_xkmhd , SIZE( grid%g_xkmhd ) * RWORDSIZE )
295 CALL rsl_register_f90_base_and_size ( grid%xkhv , SIZE( grid%xkhv ) * RWORDSIZE )
296 CALL rsl_register_f90_base_and_size ( grid%xkhh , SIZE( grid%xkhh ) * RWORDSIZE )
297 CALL rsl_register_f90_base_and_size ( grid%vv%v1 , SIZE( grid%vv%v1 ) * RWORDSIZE )
298 CALL rsl_register_f90_base_and_size ( grid%vv%v2 , SIZE( grid%vv%v2 ) * RWORDSIZE )
299 CALL rsl_register_f90_base_and_size ( grid%vp%v1 , SIZE( grid%vp%v1 ) * RWORDSIZE )
300 CALL rsl_register_f90_base_and_size ( grid%vp%v2 , SIZE( grid%vp%v2 ) * RWORDSIZE )
301 CALL rsl_register_f90_base_and_size ( grid%xb%map_factor , SIZE( grid%xb%map_factor ) * RWORDSIZE )
302 CALL rsl_register_f90_base_and_size ( grid%xb%u , SIZE( grid%xb%u ) * RWORDSIZE )
303 CALL rsl_register_f90_base_and_size ( grid%xb%v , SIZE( grid%xb%v ) * RWORDSIZE )
304 CALL rsl_register_f90_base_and_size ( grid%xb%w , SIZE( grid%xb%w ) * RWORDSIZE )
305 CALL rsl_register_f90_base_and_size ( grid%xb%t , SIZE( grid%xb%t ) * RWORDSIZE )
306 CALL rsl_register_f90_base_and_size ( grid%xb%p , SIZE( grid%xb%p ) * RWORDSIZE )
307 CALL rsl_register_f90_base_and_size ( grid%xb%q , SIZE( grid%xb%q ) * RWORDSIZE )
308 CALL rsl_register_f90_base_and_size ( grid%xb%qrn , SIZE( grid%xb%qrn ) * RWORDSIZE )
309 CALL rsl_register_f90_base_and_size ( grid%xb%qcw , SIZE( grid%xb%qcw ) * RWORDSIZE )
310 CALL rsl_register_f90_base_and_size ( grid%xb%qt , SIZE( grid%xb%qt ) * RWORDSIZE )
311 CALL rsl_register_f90_base_and_size ( grid%xb%delt , SIZE( grid%xb%delt ) * RWORDSIZE )
312 CALL rsl_register_f90_base_and_size ( grid%xb%h , SIZE( grid%xb%h ) * RWORDSIZE )
313 CALL rsl_register_f90_base_and_size ( grid%xb%hf , SIZE( grid%xb%hf ) * RWORDSIZE )
314 CALL rsl_register_f90_base_and_size ( grid%xb%wh , SIZE( grid%xb%wh ) * RWORDSIZE )
315 CALL rsl_register_f90_base_and_size ( grid%xb%rho , SIZE( grid%xb%rho ) * RWORDSIZE )
316 CALL rsl_register_f90_base_and_size ( grid%xb%rh , SIZE( grid%xb%rh ) * RWORDSIZE )
317 CALL rsl_register_f90_base_and_size ( grid%xb%ref , SIZE( grid%xb%ref ) * RWORDSIZE )
318 CALL rsl_register_f90_base_and_size ( grid%xb%rough , SIZE( grid%xb%rough ) * RWORDSIZE )
319 CALL rsl_register_f90_base_and_size ( grid%xb%tpw , SIZE( grid%xb%tpw ) * RWORDSIZE )
320 CALL rsl_register_f90_base_and_size ( grid%xb%slp , SIZE( grid%xb%slp ) * RWORDSIZE )
321 CALL rsl_register_f90_base_and_size ( grid%xb%speed , SIZE( grid%xb%speed ) * RWORDSIZE )
322 CALL rsl_register_f90_base_and_size ( grid%xb%tb19v , SIZE( grid%xb%tb19v ) * RWORDSIZE )
323 CALL rsl_register_f90_base_and_size ( grid%xb%tb19h , SIZE( grid%xb%tb19h ) * RWORDSIZE )
324 CALL rsl_register_f90_base_and_size ( grid%xb%tb22v , SIZE( grid%xb%tb22v ) * RWORDSIZE )
325 CALL rsl_register_f90_base_and_size ( grid%xb%tb37v , SIZE( grid%xb%tb37v ) * RWORDSIZE )
326 CALL rsl_register_f90_base_and_size ( grid%xb%tb37h , SIZE( grid%xb%tb37h ) * RWORDSIZE )
327 CALL rsl_register_f90_base_and_size ( grid%xb%tb85v , SIZE( grid%xb%tb85v ) * RWORDSIZE )
328 CALL rsl_register_f90_base_and_size ( grid%xb%tb85h , SIZE( grid%xb%tb85h ) * RWORDSIZE )
329 CALL rsl_register_f90_base_and_size ( grid%xb%cori , SIZE( grid%xb%cori ) * RWORDSIZE )
330 CALL rsl_register_f90_base_and_size ( grid%xb%tgrn , SIZE( grid%xb%tgrn ) * RWORDSIZE )
331 CALL rsl_register_f90_base_and_size ( grid%xb%terr , SIZE( grid%xb%terr ) * RWORDSIZE )
332 CALL rsl_register_f90_base_and_size ( grid%xb%psac , SIZE( grid%xb%psac ) * RWORDSIZE )
333 CALL rsl_register_f90_base_and_size ( grid%xb%xland , SIZE( grid%xb%xland ) * RWORDSIZE )
334 CALL rsl_register_f90_base_and_size ( grid%xb%landmask , SIZE( grid%xb%landmask ) * RWORDSIZE )
335 CALL rsl_register_f90_base_and_size ( grid%xb%u10 , SIZE( grid%xb%u10 ) * RWORDSIZE )
336 CALL rsl_register_f90_base_and_size ( grid%xb%v10 , SIZE( grid%xb%v10 ) * RWORDSIZE )
337 CALL rsl_register_f90_base_and_size ( grid%xb%t2 , SIZE( grid%xb%t2 ) * RWORDSIZE )
338 CALL rsl_register_f90_base_and_size ( grid%xb%q2 , SIZE( grid%xb%q2 ) * RWORDSIZE )
339 CALL rsl_register_f90_base_and_size ( grid%xb%psfc , SIZE( grid%xb%psfc ) * RWORDSIZE )
340 CALL rsl_register_f90_base_and_size ( grid%xb%tsk , SIZE( grid%xb%tsk ) * RWORDSIZE )
341 CALL rsl_register_f90_base_and_size ( grid%xb%smois , SIZE( grid%xb%smois ) * RWORDSIZE )
342 CALL rsl_register_f90_base_and_size ( grid%xb%tslb , SIZE( grid%xb%tslb ) * RWORDSIZE )
343 CALL rsl_register_f90_base_and_size ( grid%xb%xice , SIZE( grid%xb%xice ) * RWORDSIZE )
344 CALL rsl_register_f90_base_and_size ( grid%xb%ivgtyp , SIZE( grid%xb%ivgtyp ) * IWORDSIZE )
345 CALL rsl_register_f90_base_and_size ( grid%xb%isltyp , SIZE( grid%xb%isltyp ) * IWORDSIZE )
346 CALL rsl_register_f90_base_and_size ( grid%xb%vegfra , SIZE( grid%xb%vegfra ) * RWORDSIZE )
347 CALL rsl_register_f90_base_and_size ( grid%xb%snowh , SIZE( grid%xb%snowh ) * RWORDSIZE )
348 CALL rsl_register_f90_base_and_size ( grid%xb%regime , SIZE( grid%xb%regime ) * RWORDSIZE )
349 CALL rsl_register_f90_base_and_size ( grid%xb%coefx , SIZE( grid%xb%coefx ) * RWORDSIZE )
350 CALL rsl_register_f90_base_and_size ( grid%xb%coefy , SIZE( grid%xb%coefy ) * RWORDSIZE )
351 CALL rsl_register_f90_base_and_size ( grid%xb%coefz , SIZE( grid%xb%coefz ) * RWORDSIZE )
352 CALL rsl_register_f90_base_and_size ( grid%xa%u , SIZE( grid%xa%u ) * RWORDSIZE )
353 CALL rsl_register_f90_base_and_size ( grid%xa%v , SIZE( grid%xa%v ) * RWORDSIZE )
354 CALL rsl_register_f90_base_and_size ( grid%xa%w , SIZE( grid%xa%w ) * RWORDSIZE )
355 CALL rsl_register_f90_base_and_size ( grid%xa%t , SIZE( grid%xa%t ) * RWORDSIZE )
356 CALL rsl_register_f90_base_and_size ( grid%xa%q , SIZE( grid%xa%q ) * RWORDSIZE )
357 CALL rsl_register_f90_base_and_size ( grid%xa%p , SIZE( grid%xa%p ) * RWORDSIZE )
358 CALL rsl_register_f90_base_and_size ( grid%xa%rh , SIZE( grid%xa%rh ) * RWORDSIZE )
359 CALL rsl_register_f90_base_and_size ( grid%xa%rho , SIZE( grid%xa%rho ) * RWORDSIZE )
360 CALL rsl_register_f90_base_and_size ( grid%xa%wh , SIZE( grid%xa%wh ) * RWORDSIZE )
361 CALL rsl_register_f90_base_and_size ( grid%xa%qrn , SIZE( grid%xa%qrn ) * RWORDSIZE )
362 CALL rsl_register_f90_base_and_size ( grid%xa%qcw , SIZE( grid%xa%qcw ) * RWORDSIZE )
363 CALL rsl_register_f90_base_and_size ( grid%xa%qt , SIZE( grid%xa%qt ) * RWORDSIZE )
364 CALL rsl_register_f90_base_and_size ( grid%xa%psfc , SIZE( grid%xa%psfc ) * RWORDSIZE )
365 CALL rsl_register_f90_base_and_size ( grid%xa%u10 , SIZE( grid%xa%u10 ) * RWORDSIZE )
366 CALL rsl_register_f90_base_and_size ( grid%xa%v10 , SIZE( grid%xa%v10 ) * RWORDSIZE )
367 CALL rsl_register_f90_base_and_size ( grid%xa%t2 , SIZE( grid%xa%t2 ) * RWORDSIZE )
368 CALL rsl_register_f90_base_and_size ( grid%xa%q2 , SIZE( grid%xa%q2 ) * RWORDSIZE )
369 CALL rsl_register_f90_base_and_size ( grid%xa%ref , SIZE( grid%xa%ref ) * RWORDSIZE )
370 CALL rsl_register_f90_base_and_size ( grid%xa%tpw , SIZE( grid%xa%tpw ) * RWORDSIZE )
371 CALL rsl_register_f90_base_and_size ( grid%xa%speed , SIZE( grid%xa%speed ) * RWORDSIZE )
372 CALL rsl_register_f90_base_and_size ( grid%xa%tb19v , SIZE( grid%xa%tb19v ) * RWORDSIZE )
373 CALL rsl_register_f90_base_and_size ( grid%xa%tb19h , SIZE( grid%xa%tb19h ) * RWORDSIZE )
374 CALL rsl_register_f90_base_and_size ( grid%xa%tb22v , SIZE( grid%xa%tb22v ) * RWORDSIZE )
375 CALL rsl_register_f90_base_and_size ( grid%xa%tb37v , SIZE( grid%xa%tb37v ) * RWORDSIZE )
376 CALL rsl_register_f90_base_and_size ( grid%xa%tb37h , SIZE( grid%xa%tb37h ) * RWORDSIZE )
377 CALL rsl_register_f90_base_and_size ( grid%xa%tb85v , SIZE( grid%xa%tb85v ) * RWORDSIZE )
378 CALL rsl_register_f90_base_and_size ( grid%xa%tb85h , SIZE( grid%xa%tb85h ) * RWORDSIZE )
379 CALL rsl_register_f90_base_and_size ( grid%xp%vxy , SIZE( grid%xp%vxy ) * RWORDSIZE )
380 CALL rsl_register_f90_base_and_size ( grid%xp%v1z , SIZE( grid%xp%v1z ) * RWORDSIZE )
381 CALL rsl_register_f90_base_and_size ( grid%xp%v1x , SIZE( grid%xp%v1x ) * RWORDSIZE )
382 CALL rsl_register_f90_base_and_size ( grid%xp%v1y , SIZE( grid%xp%v1y ) * RWORDSIZE )
383 CALL rsl_register_f90_base_and_size ( grid%xp%v2z , SIZE( grid%xp%v2z ) * RWORDSIZE )
384 CALL rsl_register_f90_base_and_size ( grid%xp%v2x , SIZE( grid%xp%v2x ) * RWORDSIZE )
385 CALL rsl_register_f90_base_and_size ( grid%xp%v2y , SIZE( grid%xp%v2y ) * RWORDSIZE )
386 IF(1+0.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
387 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
388 IF(1+1.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
389 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
390 IF(1+2.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
391 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
392 IF(1+3.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
393 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
394 IF(1+4.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
395 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
396 IF(1+5.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
397 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
398 IF(1+6.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
399 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
400 IF(1+0.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
401 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
402 IF(1+1.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
403 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
404 IF(1+2.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
405 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
406 IF(1+3.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
407 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
408 IF(1+4.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
409 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
410 IF(1+5.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
411 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
412 IF(1+6.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
413 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
414 IF(1+0.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
415 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
416 IF(1+1.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
417 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
418 IF(1+2.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
419 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
420 IF(1+3.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
421 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
422 IF(1+4.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
423 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
424 IF(1+5.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
425 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
426 IF(1+6.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
427 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
428 IF(1+0.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+0), &
429 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
430 IF(1+1.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+1), &
431 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
432 IF(1+2.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+2), &
433 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
434 #ifdef REGISTER_I1
435 #endif
436 CALL rsl_end_register_f90
437 #define DATA_CALLS_INCLUDED
438 !ENDOFREGISTRYGENERATEDINCLUDE