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%rainc , SIZE( grid%rainc ) * RWORDSIZE )
75 CALL rsl_register_f90_base_and_size ( grid%rainnc , SIZE( grid%rainnc ) * RWORDSIZE )
76 CALL rsl_register_f90_base_and_size ( grid%xlat , SIZE( grid%xlat ) * RWORDSIZE )
77 CALL rsl_register_f90_base_and_size ( grid%xlong , SIZE( grid%xlong ) * RWORDSIZE )
78 CALL rsl_register_f90_base_and_size ( grid%albbck , SIZE( grid%albbck ) * RWORDSIZE )
79 CALL rsl_register_f90_base_and_size ( grid%tmn , SIZE( grid%tmn ) * RWORDSIZE )
80 CALL rsl_register_f90_base_and_size ( grid%xland , SIZE( grid%xland ) * RWORDSIZE )
81 CALL rsl_register_f90_base_and_size ( grid%znt , SIZE( grid%znt ) * RWORDSIZE )
82 CALL rsl_register_f90_base_and_size ( grid%snowc , SIZE( grid%snowc ) * RWORDSIZE )
83 CALL rsl_register_f90_base_and_size ( grid%xkmv , SIZE( grid%xkmv ) * RWORDSIZE )
84 CALL rsl_register_f90_base_and_size ( grid%xkmh , SIZE( grid%xkmh ) * RWORDSIZE )
85 CALL rsl_register_f90_base_and_size ( grid%xkmhd , SIZE( grid%xkmhd ) * RWORDSIZE )
86 CALL rsl_register_f90_base_and_size ( grid%a_xkmhd , SIZE( grid%a_xkmhd ) * RWORDSIZE )
87 CALL rsl_register_f90_base_and_size ( grid%g_xkmhd , SIZE( grid%g_xkmhd ) * RWORDSIZE )
88 CALL rsl_register_f90_base_and_size ( grid%xkhv , SIZE( grid%xkhv ) * RWORDSIZE )
89 CALL rsl_register_f90_base_and_size ( grid%xkhh , SIZE( grid%xkhh ) * RWORDSIZE )
90 CALL rsl_register_f90_base_and_size ( grid%vv%v1 , SIZE( grid%vv%v1 ) * RWORDSIZE )
91 CALL rsl_register_f90_base_and_size ( grid%vv%v2 , SIZE( grid%vv%v2 ) * RWORDSIZE )
92 CALL rsl_register_f90_base_and_size ( grid%vp%v1 , SIZE( grid%vp%v1 ) * RWORDSIZE )
93 CALL rsl_register_f90_base_and_size ( grid%vp%v2 , SIZE( grid%vp%v2 ) * RWORDSIZE )
94 CALL rsl_register_f90_base_and_size ( grid%xb%map_factor , SIZE( grid%xb%map_factor ) * RWORDSIZE )
95 CALL rsl_register_f90_base_and_size ( grid%xb%u , SIZE( grid%xb%u ) * RWORDSIZE )
96 CALL rsl_register_f90_base_and_size ( grid%xb%v , SIZE( grid%xb%v ) * RWORDSIZE )
97 CALL rsl_register_f90_base_and_size ( grid%xb%w , SIZE( grid%xb%w ) * RWORDSIZE )
98 CALL rsl_register_f90_base_and_size ( grid%xb%t , SIZE( grid%xb%t ) * RWORDSIZE )
99 CALL rsl_register_f90_base_and_size ( grid%xb%p , SIZE( grid%xb%p ) * RWORDSIZE )
100 CALL rsl_register_f90_base_and_size ( grid%xb%q , SIZE( grid%xb%q ) * RWORDSIZE )
101 CALL rsl_register_f90_base_and_size ( grid%xb%qrn , SIZE( grid%xb%qrn ) * RWORDSIZE )
102 CALL rsl_register_f90_base_and_size ( grid%xb%qcw , SIZE( grid%xb%qcw ) * RWORDSIZE )
103 CALL rsl_register_f90_base_and_size ( grid%xb%qt , SIZE( grid%xb%qt ) * RWORDSIZE )
104 CALL rsl_register_f90_base_and_size ( grid%xb%delt , SIZE( grid%xb%delt ) * RWORDSIZE )
105 CALL rsl_register_f90_base_and_size ( grid%xb%h , SIZE( grid%xb%h ) * RWORDSIZE )
106 CALL rsl_register_f90_base_and_size ( grid%xb%hf , SIZE( grid%xb%hf ) * RWORDSIZE )
107 CALL rsl_register_f90_base_and_size ( grid%xb%wh , SIZE( grid%xb%wh ) * RWORDSIZE )
108 CALL rsl_register_f90_base_and_size ( grid%xb%rho , SIZE( grid%xb%rho ) * RWORDSIZE )
109 CALL rsl_register_f90_base_and_size ( grid%xb%rh , SIZE( grid%xb%rh ) * RWORDSIZE )
110 CALL rsl_register_f90_base_and_size ( grid%xb%ref , SIZE( grid%xb%ref ) * RWORDSIZE )
111 CALL rsl_register_f90_base_and_size ( grid%xb%rough , SIZE( grid%xb%rough ) * RWORDSIZE )
112 CALL rsl_register_f90_base_and_size ( grid%xb%tpw , SIZE( grid%xb%tpw ) * RWORDSIZE )
113 CALL rsl_register_f90_base_and_size ( grid%xb%slp , SIZE( grid%xb%slp ) * RWORDSIZE )
114 CALL rsl_register_f90_base_and_size ( grid%xb%speed , SIZE( grid%xb%speed ) * RWORDSIZE )
115 CALL rsl_register_f90_base_and_size ( grid%xb%tb19v , SIZE( grid%xb%tb19v ) * RWORDSIZE )
116 CALL rsl_register_f90_base_and_size ( grid%xb%tb19h , SIZE( grid%xb%tb19h ) * RWORDSIZE )
117 CALL rsl_register_f90_base_and_size ( grid%xb%tb22v , SIZE( grid%xb%tb22v ) * RWORDSIZE )
118 CALL rsl_register_f90_base_and_size ( grid%xb%tb37v , SIZE( grid%xb%tb37v ) * RWORDSIZE )
119 CALL rsl_register_f90_base_and_size ( grid%xb%tb37h , SIZE( grid%xb%tb37h ) * RWORDSIZE )
120 CALL rsl_register_f90_base_and_size ( grid%xb%tb85v , SIZE( grid%xb%tb85v ) * RWORDSIZE )
121 CALL rsl_register_f90_base_and_size ( grid%xb%tb85h , SIZE( grid%xb%tb85h ) * RWORDSIZE )
122 CALL rsl_register_f90_base_and_size ( grid%xb%cori , SIZE( grid%xb%cori ) * RWORDSIZE )
123 CALL rsl_register_f90_base_and_size ( grid%xb%tgrn , SIZE( grid%xb%tgrn ) * RWORDSIZE )
124 CALL rsl_register_f90_base_and_size ( grid%xb%terr , SIZE( grid%xb%terr ) * RWORDSIZE )
125 CALL rsl_register_f90_base_and_size ( grid%xb%psac , SIZE( grid%xb%psac ) * RWORDSIZE )
126 CALL rsl_register_f90_base_and_size ( grid%xb%snow , SIZE( grid%xb%snow ) * RWORDSIZE )
127 CALL rsl_register_f90_base_and_size ( grid%xb%xland , SIZE( grid%xb%xland ) * RWORDSIZE )
128 CALL rsl_register_f90_base_and_size ( grid%xb%landmask , SIZE( grid%xb%landmask ) * RWORDSIZE )
129 CALL rsl_register_f90_base_and_size ( grid%xb%u10 , SIZE( grid%xb%u10 ) * RWORDSIZE )
130 CALL rsl_register_f90_base_and_size ( grid%xb%v10 , SIZE( grid%xb%v10 ) * RWORDSIZE )
131 CALL rsl_register_f90_base_and_size ( grid%xb%t2 , SIZE( grid%xb%t2 ) * RWORDSIZE )
132 CALL rsl_register_f90_base_and_size ( grid%xb%q2 , SIZE( grid%xb%q2 ) * RWORDSIZE )
133 CALL rsl_register_f90_base_and_size ( grid%xb%psfc , SIZE( grid%xb%psfc ) * RWORDSIZE )
134 CALL rsl_register_f90_base_and_size ( grid%xb%tsk , SIZE( grid%xb%tsk ) * RWORDSIZE )
135 CALL rsl_register_f90_base_and_size ( grid%xb%smois , SIZE( grid%xb%smois ) * RWORDSIZE )
136 CALL rsl_register_f90_base_and_size ( grid%xb%tslb , SIZE( grid%xb%tslb ) * RWORDSIZE )
137 CALL rsl_register_f90_base_and_size ( grid%xb%xice , SIZE( grid%xb%xice ) * RWORDSIZE )
138 CALL rsl_register_f90_base_and_size ( grid%xb%ivgtyp , SIZE( grid%xb%ivgtyp ) * IWORDSIZE )
139 CALL rsl_register_f90_base_and_size ( grid%xb%isltyp , SIZE( grid%xb%isltyp ) * IWORDSIZE )
140 CALL rsl_register_f90_base_and_size ( grid%xb%vegfra , SIZE( grid%xb%vegfra ) * RWORDSIZE )
141 CALL rsl_register_f90_base_and_size ( grid%xb%snowh , SIZE( grid%xb%snowh ) * RWORDSIZE )
142 CALL rsl_register_f90_base_and_size ( grid%xb%regime , SIZE( grid%xb%regime ) * RWORDSIZE )
143 CALL rsl_register_f90_base_and_size ( grid%xb%coefx , SIZE( grid%xb%coefx ) * RWORDSIZE )
144 CALL rsl_register_f90_base_and_size ( grid%xb%coefy , SIZE( grid%xb%coefy ) * RWORDSIZE )
145 CALL rsl_register_f90_base_and_size ( grid%xb%coefz , SIZE( grid%xb%coefz ) * RWORDSIZE )
146 CALL rsl_register_f90_base_and_size ( grid%xa%u , SIZE( grid%xa%u ) * RWORDSIZE )
147 CALL rsl_register_f90_base_and_size ( grid%xa%v , SIZE( grid%xa%v ) * RWORDSIZE )
148 CALL rsl_register_f90_base_and_size ( grid%xa%w , SIZE( grid%xa%w ) * RWORDSIZE )
149 CALL rsl_register_f90_base_and_size ( grid%xa%t , SIZE( grid%xa%t ) * RWORDSIZE )
150 CALL rsl_register_f90_base_and_size ( grid%xa%q , SIZE( grid%xa%q ) * RWORDSIZE )
151 CALL rsl_register_f90_base_and_size ( grid%xa%p , SIZE( grid%xa%p ) * RWORDSIZE )
152 CALL rsl_register_f90_base_and_size ( grid%xa%rh , SIZE( grid%xa%rh ) * RWORDSIZE )
153 CALL rsl_register_f90_base_and_size ( grid%xa%rho , SIZE( grid%xa%rho ) * RWORDSIZE )
154 CALL rsl_register_f90_base_and_size ( grid%xa%wh , SIZE( grid%xa%wh ) * RWORDSIZE )
155 CALL rsl_register_f90_base_and_size ( grid%xa%qrn , SIZE( grid%xa%qrn ) * RWORDSIZE )
156 CALL rsl_register_f90_base_and_size ( grid%xa%qcw , SIZE( grid%xa%qcw ) * RWORDSIZE )
157 CALL rsl_register_f90_base_and_size ( grid%xa%qt , SIZE( grid%xa%qt ) * RWORDSIZE )
158 CALL rsl_register_f90_base_and_size ( grid%xa%psfc , SIZE( grid%xa%psfc ) * RWORDSIZE )
159 CALL rsl_register_f90_base_and_size ( grid%xa%u10 , SIZE( grid%xa%u10 ) * RWORDSIZE )
160 CALL rsl_register_f90_base_and_size ( grid%xa%v10 , SIZE( grid%xa%v10 ) * RWORDSIZE )
161 CALL rsl_register_f90_base_and_size ( grid%xa%t2 , SIZE( grid%xa%t2 ) * RWORDSIZE )
162 CALL rsl_register_f90_base_and_size ( grid%xa%q2 , SIZE( grid%xa%q2 ) * RWORDSIZE )
163 CALL rsl_register_f90_base_and_size ( grid%xa%ref , SIZE( grid%xa%ref ) * RWORDSIZE )
164 CALL rsl_register_f90_base_and_size ( grid%xa%tpw , SIZE( grid%xa%tpw ) * RWORDSIZE )
165 CALL rsl_register_f90_base_and_size ( grid%xa%speed , SIZE( grid%xa%speed ) * RWORDSIZE )
166 CALL rsl_register_f90_base_and_size ( grid%xa%tb19v , SIZE( grid%xa%tb19v ) * RWORDSIZE )
167 CALL rsl_register_f90_base_and_size ( grid%xa%tb19h , SIZE( grid%xa%tb19h ) * RWORDSIZE )
168 CALL rsl_register_f90_base_and_size ( grid%xa%tb22v , SIZE( grid%xa%tb22v ) * RWORDSIZE )
169 CALL rsl_register_f90_base_and_size ( grid%xa%tb37v , SIZE( grid%xa%tb37v ) * RWORDSIZE )
170 CALL rsl_register_f90_base_and_size ( grid%xa%tb37h , SIZE( grid%xa%tb37h ) * RWORDSIZE )
171 CALL rsl_register_f90_base_and_size ( grid%xa%tb85v , SIZE( grid%xa%tb85v ) * RWORDSIZE )
172 CALL rsl_register_f90_base_and_size ( grid%xa%tb85h , SIZE( grid%xa%tb85h ) * RWORDSIZE )
173 CALL rsl_register_f90_base_and_size ( grid%xp%vxy , SIZE( grid%xp%vxy ) * RWORDSIZE )
174 CALL rsl_register_f90_base_and_size ( grid%xp%v1z , SIZE( grid%xp%v1z ) * RWORDSIZE )
175 CALL rsl_register_f90_base_and_size ( grid%xp%v1x , SIZE( grid%xp%v1x ) * RWORDSIZE )
176 CALL rsl_register_f90_base_and_size ( grid%xp%v1y , SIZE( grid%xp%v1y ) * RWORDSIZE )
177 CALL rsl_register_f90_base_and_size ( grid%xp%v2z , SIZE( grid%xp%v2z ) * RWORDSIZE )
178 CALL rsl_register_f90_base_and_size ( grid%xp%v2x , SIZE( grid%xp%v2x ) * RWORDSIZE )
179 CALL rsl_register_f90_base_and_size ( grid%xp%v2y , SIZE( grid%xp%v2y ) * RWORDSIZE )
180 IF(1+0.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
181 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
182 IF(1+1.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
183 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
184 IF(1+2.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
185 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
186 IF(1+3.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+3), &
187 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
188 IF(1+4.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+4), &
189 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
190 IF(1+5.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+5), &
191 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
192 IF(1+6.LE.num_moist)CALL rsl_register_f90_base_and_size ( moist (grid%sm31,grid%sm32,grid%sm33,1+6), &
193 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
194 IF(1+0.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
195 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
196 IF(1+1.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
197 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
198 IF(1+2.LE.num_a_moist)CALL rsl_register_f90_base_and_size ( a_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
199 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
200 IF(1+0.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+0), &
201 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
202 IF(1+1.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+1), &
203 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
204 IF(1+2.LE.num_g_moist)CALL rsl_register_f90_base_and_size ( g_moist (grid%sm31,grid%sm32,grid%sm33,1+2), &
205 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
206 IF(1+0.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+0), &
207 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
208 IF(1+1.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+1), &
209 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
210 IF(1+2.LE.num_scalar)CALL rsl_register_f90_base_and_size ( scalar (grid%sm31,grid%sm32,grid%sm33,1+2), &
211 (grid%em31-grid%sm31+1)*(grid%em32-grid%sm32+1)*(grid%em33-grid%sm33+1)*RWORDSIZE )
212 #ifdef REGISTER_I1
213 #endif
214 CALL rsl_end_register_f90
215 #define DATA_CALLS_INCLUDED
216 !ENDOFREGISTRYGENERATEDINCLUDE