nodyn_data_calls.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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%nest_pos , SIZE( grid%nest_pos ) * RWORDSIZE )
11 CALL rsl_register_f90_base_and_size ( grid%nest_mask , SIZE( grid%nest_mask ) * RWORDSIZE )
12 CALL rsl_register_f90_base_and_size ( grid%ht_coarse , SIZE( grid%ht_coarse ) * RWORDSIZE )
13 CALL rsl_register_f90_base_and_size ( grid%q2 , SIZE( grid%q2 ) * RWORDSIZE )
14 CALL rsl_register_f90_base_and_size ( grid%t2 , SIZE( grid%t2 ) * RWORDSIZE )
15 CALL rsl_register_f90_base_and_size ( grid%th2 , SIZE( grid%th2 ) * RWORDSIZE )
16 CALL rsl_register_f90_base_and_size ( grid%psfc , SIZE( grid%psfc ) * RWORDSIZE )
17 CALL rsl_register_f90_base_and_size ( grid%u10 , SIZE( grid%u10 ) * RWORDSIZE )
18 CALL rsl_register_f90_base_and_size ( grid%v10 , SIZE( grid%v10 ) * RWORDSIZE )
19 CALL rsl_register_f90_base_and_size ( grid%uratx , SIZE( grid%uratx ) * RWORDSIZE )
20 CALL rsl_register_f90_base_and_size ( grid%vratx , SIZE( grid%vratx ) * RWORDSIZE )
21 CALL rsl_register_f90_base_and_size ( grid%tratx , SIZE( grid%tratx ) * RWORDSIZE )
22 CALL rsl_register_f90_base_and_size ( grid%imask_nostag , SIZE( grid%imask_nostag ) * IWORDSIZE )
23 CALL rsl_register_f90_base_and_size ( grid%imask_xstag , SIZE( grid%imask_xstag ) * IWORDSIZE )
24 CALL rsl_register_f90_base_and_size ( grid%imask_ystag , SIZE( grid%imask_ystag ) * IWORDSIZE )
25 CALL rsl_register_f90_base_and_size ( grid%imask_xystag , SIZE( grid%imask_xystag ) * IWORDSIZE )
26 CALL rsl_register_f90_base_and_size ( grid%landmask , SIZE( grid%landmask ) * RWORDSIZE )
27 CALL rsl_register_f90_base_and_size ( grid%shdmax , SIZE( grid%shdmax ) * RWORDSIZE )
28 CALL rsl_register_f90_base_and_size ( grid%shdmin , SIZE( grid%shdmin ) * RWORDSIZE )
29 CALL rsl_register_f90_base_and_size ( grid%snoalb , SIZE( grid%snoalb ) * RWORDSIZE )
30 CALL rsl_register_f90_base_and_size ( grid%tslb , SIZE( grid%tslb ) * RWORDSIZE )
31 CALL rsl_register_f90_base_and_size ( grid%smois , SIZE( grid%smois ) * RWORDSIZE )
32 CALL rsl_register_f90_base_and_size ( grid%sh2o , SIZE( grid%sh2o ) * RWORDSIZE )
33 CALL rsl_register_f90_base_and_size ( grid%xice , SIZE( grid%xice ) * RWORDSIZE )
34 CALL rsl_register_f90_base_and_size ( grid%sfcrunoff , SIZE( grid%sfcrunoff ) * RWORDSIZE )
35 CALL rsl_register_f90_base_and_size ( grid%udrunoff , SIZE( grid%udrunoff ) * RWORDSIZE )
36 CALL rsl_register_f90_base_and_size ( grid%ivgtyp , SIZE( grid%ivgtyp ) * IWORDSIZE )
37 CALL rsl_register_f90_base_and_size ( grid%isltyp , SIZE( grid%isltyp ) * IWORDSIZE )
38 CALL rsl_register_f90_base_and_size ( grid%vegfra , SIZE( grid%vegfra ) * RWORDSIZE )
39 CALL rsl_register_f90_base_and_size ( grid%sfcevp , SIZE( grid%sfcevp ) * RWORDSIZE )
40 CALL rsl_register_f90_base_and_size ( grid%acsnow , SIZE( grid%acsnow ) * RWORDSIZE )
41 CALL rsl_register_f90_base_and_size ( grid%acsnom , SIZE( grid%acsnom ) * RWORDSIZE )
42 CALL rsl_register_f90_base_and_size ( grid%snow , SIZE( grid%snow ) * RWORDSIZE )
43 CALL rsl_register_f90_base_and_size ( grid%snowh , SIZE( grid%snowh ) * RWORDSIZE )
44 CALL rsl_register_f90_base_and_size ( grid%rhosn , SIZE( grid%rhosn ) * RWORDSIZE )
45 CALL rsl_register_f90_base_and_size ( grid%canwat , SIZE( grid%canwat ) * RWORDSIZE )
46 CALL rsl_register_f90_base_and_size ( grid%sst , SIZE( grid%sst ) * RWORDSIZE )
47 CALL rsl_register_f90_base_and_size ( grid%htop , SIZE( grid%htop ) * RWORDSIZE )
48 CALL rsl_register_f90_base_and_size ( grid%hbot , SIZE( grid%hbot ) * RWORDSIZE )
49 CALL rsl_register_f90_base_and_size ( grid%cuppt , SIZE( grid%cuppt ) * RWORDSIZE )
50 CALL rsl_register_f90_base_and_size ( grid%rswtoa , SIZE( grid%rswtoa ) * RWORDSIZE )
51 CALL rsl_register_f90_base_and_size ( grid%rlwtoa , SIZE( grid%rlwtoa ) * RWORDSIZE )
52 CALL rsl_register_f90_base_and_size ( grid%czmean , SIZE( grid%czmean ) * RWORDSIZE )
53 CALL rsl_register_f90_base_and_size ( grid%cfracl , SIZE( grid%cfracl ) * RWORDSIZE )
54 CALL rsl_register_f90_base_and_size ( grid%cfracm , SIZE( grid%cfracm ) * RWORDSIZE )
55 CALL rsl_register_f90_base_and_size ( grid%cfrach , SIZE( grid%cfrach ) * RWORDSIZE )
56 CALL rsl_register_f90_base_and_size ( grid%acfrst , SIZE( grid%acfrst ) * RWORDSIZE )
57 CALL rsl_register_f90_base_and_size ( grid%ncfrst , SIZE( grid%ncfrst ) * IWORDSIZE )
58 CALL rsl_register_f90_base_and_size ( grid%acfrcv , SIZE( grid%acfrcv ) * RWORDSIZE )
59 CALL rsl_register_f90_base_and_size ( grid%ncfrcv , SIZE( grid%ncfrcv ) * IWORDSIZE )
60 CALL rsl_register_f90_base_and_size ( grid%h_diabatic , SIZE( grid%h_diabatic ) * RWORDSIZE )
61 CALL rsl_register_f90_base_and_size ( grid%msft , SIZE( grid%msft ) * RWORDSIZE )
62 CALL rsl_register_f90_base_and_size ( grid%msfu , SIZE( grid%msfu ) * RWORDSIZE )
63 CALL rsl_register_f90_base_and_size ( grid%msfv , SIZE( grid%msfv ) * RWORDSIZE )
64 CALL rsl_register_f90_base_and_size ( grid%f , SIZE( grid%f ) * RWORDSIZE )
65 CALL rsl_register_f90_base_and_size ( grid%e , SIZE( grid%e ) * RWORDSIZE )
66 CALL rsl_register_f90_base_and_size ( grid%sina , SIZE( grid%sina ) * RWORDSIZE )
67 CALL rsl_register_f90_base_and_size ( grid%cosa , SIZE( grid%cosa ) * RWORDSIZE )
68 CALL rsl_register_f90_base_and_size ( grid%ht , SIZE( grid%ht ) * RWORDSIZE )
69 CALL rsl_register_f90_base_and_size ( grid%ht_fine , SIZE( grid%ht_fine ) * RWORDSIZE )
70 CALL rsl_register_f90_base_and_size ( grid%ht_int , SIZE( grid%ht_int ) * RWORDSIZE )
71 CALL rsl_register_f90_base_and_size ( grid%ht_input , SIZE( grid%ht_input ) * RWORDSIZE )
72 CALL rsl_register_f90_base_and_size ( grid%tsk , SIZE( grid%tsk ) * RWORDSIZE )
73 CALL rsl_register_f90_base_and_size ( grid%tsk_save , SIZE( grid%tsk_save ) * RWORDSIZE )
74 CALL rsl_register_f90_base_and_size ( grid%rthcuten , SIZE( grid%rthcuten ) * RWORDSIZE )
75 CALL rsl_register_f90_base_and_size ( grid%rqvcuten , SIZE( grid%rqvcuten ) * RWORDSIZE )
76 CALL rsl_register_f90_base_and_size ( grid%rqrcuten , SIZE( grid%rqrcuten ) * RWORDSIZE )
77 CALL rsl_register_f90_base_and_size ( grid%rqccuten , SIZE( grid%rqccuten ) * RWORDSIZE )
78 CALL rsl_register_f90_base_and_size ( grid%rqscuten , SIZE( grid%rqscuten ) * RWORDSIZE )
79 CALL rsl_register_f90_base_and_size ( grid%rqicuten , SIZE( grid%rqicuten ) * RWORDSIZE )
80 CALL rsl_register_f90_base_and_size ( grid%w0avg , SIZE( grid%w0avg ) * RWORDSIZE )
81 CALL rsl_register_f90_base_and_size ( grid%rainc , SIZE( grid%rainc ) * RWORDSIZE )
82 CALL rsl_register_f90_base_and_size ( grid%rainnc , SIZE( grid%rainnc ) * RWORDSIZE )
83 CALL rsl_register_f90_base_and_size ( grid%raincv , SIZE( grid%raincv ) * RWORDSIZE )
84 CALL rsl_register_f90_base_and_size ( grid%rainncv , SIZE( grid%rainncv ) * RWORDSIZE )
85 CALL rsl_register_f90_base_and_size ( grid%rainbl , SIZE( grid%rainbl ) * RWORDSIZE )
86 CALL rsl_register_f90_base_and_size ( grid%snownc , SIZE( grid%snownc ) * RWORDSIZE )
87 CALL rsl_register_f90_base_and_size ( grid%graupelnc , SIZE( grid%graupelnc ) * RWORDSIZE )
88 CALL rsl_register_f90_base_and_size ( grid%snowncv , SIZE( grid%snowncv ) * RWORDSIZE )
89 CALL rsl_register_f90_base_and_size ( grid%graupelncv , SIZE( grid%graupelncv ) * RWORDSIZE )
90 CALL rsl_register_f90_base_and_size ( grid%nca , SIZE( grid%nca ) * RWORDSIZE )
91 CALL rsl_register_f90_base_and_size ( grid%lowlyr , SIZE( grid%lowlyr ) * IWORDSIZE )
92 CALL rsl_register_f90_base_and_size ( grid%mass_flux , SIZE( grid%mass_flux ) * RWORDSIZE )
93 CALL rsl_register_f90_base_and_size ( grid%apr_gr , SIZE( grid%apr_gr ) * RWORDSIZE )
94 CALL rsl_register_f90_base_and_size ( grid%apr_w , SIZE( grid%apr_w ) * RWORDSIZE )
95 CALL rsl_register_f90_base_and_size ( grid%apr_mc , SIZE( grid%apr_mc ) * RWORDSIZE )
96 CALL rsl_register_f90_base_and_size ( grid%apr_st , SIZE( grid%apr_st ) * RWORDSIZE )
97 CALL rsl_register_f90_base_and_size ( grid%apr_as , SIZE( grid%apr_as ) * RWORDSIZE )
98 CALL rsl_register_f90_base_and_size ( grid%apr_capma , SIZE( grid%apr_capma ) * RWORDSIZE )
99 CALL rsl_register_f90_base_and_size ( grid%apr_capme , SIZE( grid%apr_capme ) * RWORDSIZE )
100 CALL rsl_register_f90_base_and_size ( grid%apr_capmi , SIZE( grid%apr_capmi ) * RWORDSIZE )
101 CALL rsl_register_f90_base_and_size ( grid%rthften , SIZE( grid%rthften ) * RWORDSIZE )
102 CALL rsl_register_f90_base_and_size ( grid%rqvften , SIZE( grid%rqvften ) * RWORDSIZE )
103 CALL rsl_register_f90_base_and_size ( grid%rthraten , SIZE( grid%rthraten ) * RWORDSIZE )
104 CALL rsl_register_f90_base_and_size ( grid%rthratenlw , SIZE( grid%rthratenlw ) * RWORDSIZE )
105 CALL rsl_register_f90_base_and_size ( grid%rthratensw , SIZE( grid%rthratensw ) * RWORDSIZE )
106 CALL rsl_register_f90_base_and_size ( grid%cldfra , SIZE( grid%cldfra ) * RWORDSIZE )
107 CALL rsl_register_f90_base_and_size ( grid%swdown , SIZE( grid%swdown ) * RWORDSIZE )
108 CALL rsl_register_f90_base_and_size ( grid%swdownc , SIZE( grid%swdownc ) * RWORDSIZE )
109 CALL rsl_register_f90_base_and_size ( grid%gsw , SIZE( grid%gsw ) * RWORDSIZE )
110 CALL rsl_register_f90_base_and_size ( grid%glw , SIZE( grid%glw ) * RWORDSIZE )
111 CALL rsl_register_f90_base_and_size ( grid%swcf , SIZE( grid%swcf ) * RWORDSIZE )
112 CALL rsl_register_f90_base_and_size ( grid%lwcf , SIZE( grid%lwcf ) * RWORDSIZE )
113 CALL rsl_register_f90_base_and_size ( grid%olr , SIZE( grid%olr ) * RWORDSIZE )
114 CALL rsl_register_f90_base_and_size ( grid%xlat , SIZE( grid%xlat ) * RWORDSIZE )
115 CALL rsl_register_f90_base_and_size ( grid%xlong , SIZE( grid%xlong ) * RWORDSIZE )
116 CALL rsl_register_f90_base_and_size ( grid%albedo , SIZE( grid%albedo ) * RWORDSIZE )
117 CALL rsl_register_f90_base_and_size ( grid%albbck , SIZE( grid%albbck ) * RWORDSIZE )
118 CALL rsl_register_f90_base_and_size ( grid%emiss , SIZE( grid%emiss ) * RWORDSIZE )
119 CALL rsl_register_f90_base_and_size ( grid%cldefi , SIZE( grid%cldefi ) * RWORDSIZE )
120 CALL rsl_register_f90_base_and_size ( grid%rublten , SIZE( grid%rublten ) * RWORDSIZE )
121 CALL rsl_register_f90_base_and_size ( grid%rvblten , SIZE( grid%rvblten ) * RWORDSIZE )
122 CALL rsl_register_f90_base_and_size ( grid%rthblten , SIZE( grid%rthblten ) * RWORDSIZE )
123 CALL rsl_register_f90_base_and_size ( grid%rqvblten , SIZE( grid%rqvblten ) * RWORDSIZE )
124 CALL rsl_register_f90_base_and_size ( grid%rqcblten , SIZE( grid%rqcblten ) * RWORDSIZE )
125 CALL rsl_register_f90_base_and_size ( grid%rqiblten , SIZE( grid%rqiblten ) * RWORDSIZE )
126 CALL rsl_register_f90_base_and_size ( grid%tmn , SIZE( grid%tmn ) * RWORDSIZE )
127 CALL rsl_register_f90_base_and_size ( grid%xland , SIZE( grid%xland ) * RWORDSIZE )
128 CALL rsl_register_f90_base_and_size ( grid%znt , SIZE( grid%znt ) * RWORDSIZE )
129 CALL rsl_register_f90_base_and_size ( grid%ust , SIZE( grid%ust ) * RWORDSIZE )
130 CALL rsl_register_f90_base_and_size ( grid%rmol , SIZE( grid%rmol ) * RWORDSIZE )
131 CALL rsl_register_f90_base_and_size ( grid%mol , SIZE( grid%mol ) * RWORDSIZE )
132 CALL rsl_register_f90_base_and_size ( grid%pblh , SIZE( grid%pblh ) * RWORDSIZE )
133 CALL rsl_register_f90_base_and_size ( grid%capg , SIZE( grid%capg ) * RWORDSIZE )
134 CALL rsl_register_f90_base_and_size ( grid%thc , SIZE( grid%thc ) * RWORDSIZE )
135 CALL rsl_register_f90_base_and_size ( grid%hfx , SIZE( grid%hfx ) * RWORDSIZE )
136 CALL rsl_register_f90_base_and_size ( grid%qfx , SIZE( grid%qfx ) * RWORDSIZE )
137 CALL rsl_register_f90_base_and_size ( grid%lh , SIZE( grid%lh ) * RWORDSIZE )
138 CALL rsl_register_f90_base_and_size ( grid%flhc , SIZE( grid%flhc ) * RWORDSIZE )
139 CALL rsl_register_f90_base_and_size ( grid%flqc , SIZE( grid%flqc ) * RWORDSIZE )
140 CALL rsl_register_f90_base_and_size ( grid%qsg , SIZE( grid%qsg ) * RWORDSIZE )
141 CALL rsl_register_f90_base_and_size ( grid%qvg , SIZE( grid%qvg ) * RWORDSIZE )
142 CALL rsl_register_f90_base_and_size ( grid%qcg , SIZE( grid%qcg ) * RWORDSIZE )
143 CALL rsl_register_f90_base_and_size ( grid%soilt1 , SIZE( grid%soilt1 ) * RWORDSIZE )
144 CALL rsl_register_f90_base_and_size ( grid%tsnav , SIZE( grid%tsnav ) * RWORDSIZE )
145 CALL rsl_register_f90_base_and_size ( grid%snowc , SIZE( grid%snowc ) * RWORDSIZE )
146 CALL rsl_register_f90_base_and_size ( grid%mavail , SIZE( grid%mavail ) * RWORDSIZE )
147 CALL rsl_register_f90_base_and_size ( grid%xkmv , SIZE( grid%xkmv ) * RWORDSIZE )
148 CALL rsl_register_f90_base_and_size ( grid%xkmh , SIZE( grid%xkmh ) * RWORDSIZE )
149 CALL rsl_register_f90_base_and_size ( grid%xkmhd , SIZE( grid%xkmhd ) * RWORDSIZE )
150 CALL rsl_register_f90_base_and_size ( grid%a_xkmhd , SIZE( grid%a_xkmhd ) * RWORDSIZE )
151 CALL rsl_register_f90_base_and_size ( grid%g_xkmhd , SIZE( grid%g_xkmhd ) * RWORDSIZE )
152 CALL rsl_register_f90_base_and_size ( grid%xkhv , SIZE( grid%xkhv ) * RWORDSIZE )
153 CALL rsl_register_f90_base_and_size ( grid%xkhh , SIZE( grid%xkhh ) * RWORDSIZE )
154 CALL rsl_register_f90_base_and_size ( grid%vv%v1 , SIZE( grid%vv%v1 ) * RWORDSIZE )
155 CALL rsl_register_f90_base_and_size ( grid%vv%v2 , SIZE( grid%vv%v2 ) * RWORDSIZE )
156 CALL rsl_register_f90_base_and_size ( grid%vp%v1 , SIZE( grid%vp%v1 ) * RWORDSIZE )
157 CALL rsl_register_f90_base_and_size ( grid%vp%v2 , SIZE( grid%vp%v2 ) * RWORDSIZE )
158 CALL rsl_register_f90_base_and_size ( grid%xb%map_factor , SIZE( grid%xb%map_factor ) * RWORDSIZE )
159 CALL rsl_register_f90_base_and_size ( grid%xb%u , SIZE( grid%xb%u ) * RWORDSIZE )
160 CALL rsl_register_f90_base_and_size ( grid%xb%v , SIZE( grid%xb%v ) * RWORDSIZE )
161 CALL rsl_register_f90_base_and_size ( grid%xb%w , SIZE( grid%xb%w ) * RWORDSIZE )
162 CALL rsl_register_f90_base_and_size ( grid%xb%t , SIZE( grid%xb%t ) * RWORDSIZE )
163 CALL rsl_register_f90_base_and_size ( grid%xb%p , SIZE( grid%xb%p ) * RWORDSIZE )
164 CALL rsl_register_f90_base_and_size ( grid%xb%q , SIZE( grid%xb%q ) * RWORDSIZE )
165 CALL rsl_register_f90_base_and_size ( grid%xb%qrn , SIZE( grid%xb%qrn ) * RWORDSIZE )
166 CALL rsl_register_f90_base_and_size ( grid%xb%qcw , SIZE( grid%xb%qcw ) * RWORDSIZE )
167 CALL rsl_register_f90_base_and_size ( grid%xb%qt , SIZE( grid%xb%qt ) * RWORDSIZE )
168 CALL rsl_register_f90_base_and_size ( grid%xb%delt , SIZE( grid%xb%delt ) * RWORDSIZE )
169 CALL rsl_register_f90_base_and_size ( grid%xb%h , SIZE( grid%xb%h ) * RWORDSIZE )
170 CALL rsl_register_f90_base_and_size ( grid%xb%hf , SIZE( grid%xb%hf ) * RWORDSIZE )
171 CALL rsl_register_f90_base_and_size ( grid%xb%wh , SIZE( grid%xb%wh ) * RWORDSIZE )
172 CALL rsl_register_f90_base_and_size ( grid%xb%rho , SIZE( grid%xb%rho ) * RWORDSIZE )
173 CALL rsl_register_f90_base_and_size ( grid%xb%rh , SIZE( grid%xb%rh ) * RWORDSIZE )
174 CALL rsl_register_f90_base_and_size ( grid%xb%ref , SIZE( grid%xb%ref ) * RWORDSIZE )
175 CALL rsl_register_f90_base_and_size ( grid%xb%rough , SIZE( grid%xb%rough ) * RWORDSIZE )
176 CALL rsl_register_f90_base_and_size ( grid%xb%tpw , SIZE( grid%xb%tpw ) * RWORDSIZE )
177 CALL rsl_register_f90_base_and_size ( grid%xb%slp , SIZE( grid%xb%slp ) * RWORDSIZE )
178 CALL rsl_register_f90_base_and_size ( grid%xb%speed , SIZE( grid%xb%speed ) * RWORDSIZE )
179 CALL rsl_register_f90_base_and_size ( grid%xb%tb19v , SIZE( grid%xb%tb19v ) * RWORDSIZE )
180 CALL rsl_register_f90_base_and_size ( grid%xb%tb19h , SIZE( grid%xb%tb19h ) * RWORDSIZE )
181 CALL rsl_register_f90_base_and_size ( grid%xb%tb22v , SIZE( grid%xb%tb22v ) * RWORDSIZE )
182 CALL rsl_register_f90_base_and_size ( grid%xb%tb37v , SIZE( grid%xb%tb37v ) * RWORDSIZE )
183 CALL rsl_register_f90_base_and_size ( grid%xb%tb37h , SIZE( grid%xb%tb37h ) * RWORDSIZE )
184 CALL rsl_register_f90_base_and_size ( grid%xb%tb85v , SIZE( grid%xb%tb85v ) * RWORDSIZE )
185 CALL rsl_register_f90_base_and_size ( grid%xb%tb85h , SIZE( grid%xb%tb85h ) * RWORDSIZE )
186 CALL rsl_register_f90_base_and_size ( grid%xb%cori , SIZE( grid%xb%cori ) * RWORDSIZE )
187 CALL rsl_register_f90_base_and_size ( grid%xb%tgrn , SIZE( grid%xb%tgrn ) * RWORDSIZE )
188 CALL rsl_register_f90_base_and_size ( grid%xb%terr , SIZE( grid%xb%terr ) * RWORDSIZE )
189 CALL rsl_register_f90_base_and_size ( grid%xb%psac , SIZE( grid%xb%psac ) * RWORDSIZE )
190 CALL rsl_register_f90_base_and_size ( grid%xb%xland , SIZE( grid%xb%xland ) * RWORDSIZE )
191 CALL rsl_register_f90_base_and_size ( grid%xb%landmask , SIZE( grid%xb%landmask ) * RWORDSIZE )
192 CALL rsl_register_f90_base_and_size ( grid%xb%u10 , SIZE( grid%xb%u10 ) * RWORDSIZE )
193 CALL rsl_register_f90_base_and_size ( grid%xb%v10 , SIZE( grid%xb%v10 ) * RWORDSIZE )
194 CALL rsl_register_f90_base_and_size ( grid%xb%t2 , SIZE( grid%xb%t2 ) * RWORDSIZE )
195 CALL rsl_register_f90_base_and_size ( grid%xb%q2 , SIZE( grid%xb%q2 ) * RWORDSIZE )
196 CALL rsl_register_f90_base_and_size ( grid%xb%psfc , SIZE( grid%xb%psfc ) * RWORDSIZE )
197 CALL rsl_register_f90_base_and_size ( grid%xb%tsk , SIZE( grid%xb%tsk ) * RWORDSIZE )
198 CALL rsl_register_f90_base_and_size ( grid%xb%smois , SIZE( grid%xb%smois ) * RWORDSIZE )
199 CALL rsl_register_f90_base_and_size ( grid%xb%tslb , SIZE( grid%xb%tslb ) * RWORDSIZE )
200 CALL rsl_register_f90_base_and_size ( grid%xb%xice , SIZE( grid%xb%xice ) * RWORDSIZE )
201 CALL rsl_register_f90_base_and_size ( grid%xb%ivgtyp , SIZE( grid%xb%ivgtyp ) * IWORDSIZE )
202 CALL rsl_register_f90_base_and_size ( grid%xb%isltyp , SIZE( grid%xb%isltyp ) * IWORDSIZE )
203 CALL rsl_register_f90_base_and_size ( grid%xb%vegfra , SIZE( grid%xb%vegfra ) * RWORDSIZE )
204 CALL rsl_register_f90_base_and_size ( grid%xb%snowh , SIZE( grid%xb%snowh ) * RWORDSIZE )
205 CALL rsl_register_f90_base_and_size ( grid%xb%regime , SIZE( grid%xb%regime ) * RWORDSIZE )
206 CALL rsl_register_f90_base_and_size ( grid%xb%coefx , SIZE( grid%xb%coefx ) * RWORDSIZE )
207 CALL rsl_register_f90_base_and_size ( grid%xb%coefy , SIZE( grid%xb%coefy ) * RWORDSIZE )
208 CALL rsl_register_f90_base_and_size ( grid%xb%coefz , SIZE( grid%xb%coefz ) * RWORDSIZE )
209 CALL rsl_register_f90_base_and_size ( grid%xa%u , SIZE( grid%xa%u ) * RWORDSIZE )
210 CALL rsl_register_f90_base_and_size ( grid%xa%v , SIZE( grid%xa%v ) * RWORDSIZE )
211 CALL rsl_register_f90_base_and_size ( grid%xa%w , SIZE( grid%xa%w ) * RWORDSIZE )
212 CALL rsl_register_f90_base_and_size ( grid%xa%t , SIZE( grid%xa%t ) * RWORDSIZE )
213 CALL rsl_register_f90_base_and_size ( grid%xa%q , SIZE( grid%xa%q ) * RWORDSIZE )
214 CALL rsl_register_f90_base_and_size ( grid%xa%p , SIZE( grid%xa%p ) * RWORDSIZE )
215 CALL rsl_register_f90_base_and_size ( grid%xa%rh , SIZE( grid%xa%rh ) * RWORDSIZE )
216 CALL rsl_register_f90_base_and_size ( grid%xa%rho , SIZE( grid%xa%rho ) * RWORDSIZE )
217 CALL rsl_register_f90_base_and_size ( grid%xa%wh , SIZE( grid%xa%wh ) * RWORDSIZE )
218 CALL rsl_register_f90_base_and_size ( grid%xa%qrn , SIZE( grid%xa%qrn ) * RWORDSIZE )
219 CALL rsl_register_f90_base_and_size ( grid%xa%qcw , SIZE( grid%xa%qcw ) * RWORDSIZE )
220 CALL rsl_register_f90_base_and_size ( grid%xa%qt , SIZE( grid%xa%qt ) * RWORDSIZE )
221 CALL rsl_register_f90_base_and_size ( grid%xa%psfc , SIZE( grid%xa%psfc ) * RWORDSIZE )
222 CALL rsl_register_f90_base_and_size ( grid%xa%u10 , SIZE( grid%xa%u10 ) * RWORDSIZE )
223 CALL rsl_register_f90_base_and_size ( grid%xa%v10 , SIZE( grid%xa%v10 ) * RWORDSIZE )
224 CALL rsl_register_f90_base_and_size ( grid%xa%t2 , SIZE( grid%xa%t2 ) * RWORDSIZE )
225 CALL rsl_register_f90_base_and_size ( grid%xa%q2 , SIZE( grid%xa%q2 ) * RWORDSIZE )
226 CALL rsl_register_f90_base_and_size ( grid%xa%ref , SIZE( grid%xa%ref ) * RWORDSIZE )
227 CALL rsl_register_f90_base_and_size ( grid%xa%tpw , SIZE( grid%xa%tpw ) * RWORDSIZE )
228 CALL rsl_register_f90_base_and_size ( grid%xa%speed , SIZE( grid%xa%speed ) * RWORDSIZE )
229 CALL rsl_register_f90_base_and_size ( grid%xa%tb19v , SIZE( grid%xa%tb19v ) * RWORDSIZE )
230 CALL rsl_register_f90_base_and_size ( grid%xa%tb19h , SIZE( grid%xa%tb19h ) * RWORDSIZE )
231 CALL rsl_register_f90_base_and_size ( grid%xa%tb22v , SIZE( grid%xa%tb22v ) * RWORDSIZE )
232 CALL rsl_register_f90_base_and_size ( grid%xa%tb37v , SIZE( grid%xa%tb37v ) * RWORDSIZE )
233 CALL rsl_register_f90_base_and_size ( grid%xa%tb37h , SIZE( grid%xa%tb37h ) * RWORDSIZE )
234 CALL rsl_register_f90_base_and_size ( grid%xa%tb85v , SIZE( grid%xa%tb85v ) * RWORDSIZE )
235 CALL rsl_register_f90_base_and_size ( grid%xa%tb85h , SIZE( grid%xa%tb85h ) * RWORDSIZE )
236 CALL rsl_register_f90_base_and_size ( grid%xp%vxy , SIZE( grid%xp%vxy ) * RWORDSIZE )
237 CALL rsl_register_f90_base_and_size ( grid%xp%v1z , SIZE( grid%xp%v1z ) * RWORDSIZE )
238 CALL rsl_register_f90_base_and_size ( grid%xp%v1x , SIZE( grid%xp%v1x ) * RWORDSIZE )
239 CALL rsl_register_f90_base_and_size ( grid%xp%v1y , SIZE( grid%xp%v1y ) * RWORDSIZE )
240 CALL rsl_register_f90_base_and_size ( grid%xp%v2z , SIZE( grid%xp%v2z ) * RWORDSIZE )
241 CALL rsl_register_f90_base_and_size ( grid%xp%v2x , SIZE( grid%xp%v2x ) * RWORDSIZE )
242 CALL rsl_register_f90_base_and_size ( grid%xp%v2y , SIZE( grid%xp%v2y ) * RWORDSIZE )
243 IF(1+0.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
244 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
245 IF(1+1.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
246 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
247 IF(1+2.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
248 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
249 IF(1+3.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
250 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
251 IF(1+4.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
252 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
253 IF(1+5.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
254 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
255 IF(1+6.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
256 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
257 IF(1+0.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
258 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
259 IF(1+1.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
260 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
261 IF(1+2.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
262 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
263 IF(1+3.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
264 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
265 IF(1+4.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
266 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
267 IF(1+5.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
268 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
269 IF(1+6.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
270 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
271 IF(1+0.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
272 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
273 IF(1+1.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
274 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
275 IF(1+2.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
276 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
277 IF(1+3.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
278 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
279 IF(1+4.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
280 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
281 IF(1+5.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
282 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
283 IF(1+6.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
284 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
285 IF(1+0.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+0), &
286 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
287 IF(1+1.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+1), &
288 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
289 IF(1+2.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+2), &
290 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
291 #ifdef REGISTER_I1
292 #endif
293 CALL rsl_end_register_f90
294 #define DATA_CALLS_INCLUDED
295 !ENDOFREGISTRYGENERATEDINCLUDE