wrf_metaput_input.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaput_input.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 DO itrace = PARAM_FIRST_SCALAR , num_moist
8 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
9 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
10 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
11 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
12 CALL wrf_ext_write_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )), & !data name
16 grid%moist(ims,jms,kms,itrace) , & ! Field
17 WRF_FLOAT , & ! FieldType
18 grid%communicator , & ! Comm
19 grid%iocommunicator , & ! Comm
20 grid%domdesc , & ! Comm
21 grid%bdy_mask , & ! bdy_mask
22 dryrun , & ! flag
23 'XYZ' , & ! MemoryOrder
24 '' , & ! Stagger
25 'west_east' , & ! Dimname 1
26 'south_north' , & ! Dimname 2
27 'bottom_top' , & ! Dimname 3
28 moist_desc_table( grid%id, itrace ), & ! Desc
29 moist_units_table( grid%id, itrace ), & ! Units
30 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
31 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
32 ims , ime , jms , jme , kms , kme , &
33 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
34 ierr )
35 ENDIF
36 ENDIF
37 ENDDO
38 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
39 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
40 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
41 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
42 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
43 CALL wrf_ext_write_field ( &
44 fid , & ! DataHandle
45 current_date(1:19) , & ! DateStr
46 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
47 grid%a_moist(ims,jms,kms,itrace) , & ! Field
48 WRF_FLOAT , & ! FieldType
49 grid%communicator , & ! Comm
50 grid%iocommunicator , & ! Comm
51 grid%domdesc , & ! Comm
52 grid%bdy_mask , & ! bdy_mask
53 dryrun , & ! flag
54 'XYZ' , & ! MemoryOrder
55 '' , & ! Stagger
56 'west_east' , & ! Dimname 1
57 'south_north' , & ! Dimname 2
58 'bottom_top' , & ! Dimname 3
59 a_moist_desc_table( grid%id, itrace ), & ! Desc
60 a_moist_units_table( grid%id, itrace ), & ! Units
61 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
62 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
63 ims , ime , jms , jme , kms , kme , &
64 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
65 ierr )
66 ENDIF
67 ENDIF
68 ENDDO
69 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
70 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
71 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
72 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
73 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
74 CALL wrf_ext_write_field ( &
75 fid , & ! DataHandle
76 current_date(1:19) , & ! DateStr
77 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
78 grid%g_moist(ims,jms,kms,itrace) , & ! Field
79 WRF_FLOAT , & ! FieldType
80 grid%communicator , & ! Comm
81 grid%iocommunicator , & ! Comm
82 grid%domdesc , & ! Comm
83 grid%bdy_mask , & ! bdy_mask
84 dryrun , & ! flag
85 'XYZ' , & ! MemoryOrder
86 '' , & ! Stagger
87 'west_east' , & ! Dimname 1
88 'south_north' , & ! Dimname 2
89 'bottom_top' , & ! Dimname 3
90 g_moist_desc_table( grid%id, itrace ), & ! Desc
91 g_moist_units_table( grid%id, itrace ), & ! Units
92 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
93 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
94 ims , ime , jms , jme , kms , kme , &
95 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
96 ierr )
97 ENDIF
98 ENDIF
99 ENDDO
100 DO itrace = PARAM_FIRST_SCALAR , num_scalar
101 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
102 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
103 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
104 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
105 CALL wrf_ext_write_field ( &
106 fid , & ! DataHandle
107 current_date(1:19) , & ! DateStr
108 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
109 grid%scalar(ims,jms,kms,itrace) , & ! Field
110 WRF_FLOAT , & ! FieldType
111 grid%communicator , & ! Comm
112 grid%iocommunicator , & ! Comm
113 grid%domdesc , & ! Comm
114 grid%bdy_mask , & ! bdy_mask
115 dryrun , & ! flag
116 'XYZ' , & ! MemoryOrder
117 '' , & ! Stagger
118 'west_east' , & ! Dimname 1
119 'south_north' , & ! Dimname 2
120 'bottom_top' , & ! Dimname 3
121 scalar_desc_table( grid%id, itrace ), & ! Desc
122 scalar_units_table( grid%id, itrace ), & ! Units
123 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
124 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
125 ims , ime , jms , jme , kms , kme , &
126 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
127 ierr )
128 ENDIF
129 ENDIF
130 ENDDO
131 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
132 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
133 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
134 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
135 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
136 CALL wrf_ext_write_field ( &
137 fid , & ! DataHandle
138 current_date(1:19) , & ! DateStr
139 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
140 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
141 WRF_FLOAT , & ! FieldType
142 grid%communicator , & ! Comm
143 grid%iocommunicator , & ! Comm
144 grid%domdesc , & ! Comm
145 grid%bdy_mask , & ! bdy_mask
146 dryrun , & ! flag
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'west_east' , & ! Dimname 1
150 'south_north' , & ! Dimname 2
151 'bottom_top' , & ! Dimname 3
152 a_scalar_desc_table( grid%id, itrace ), & ! Desc
153 a_scalar_units_table( grid%id, itrace ), & ! Units
154 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
155 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
156 ims , ime , jms , jme , kms , kme , &
157 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
158 ierr )
159 ENDIF
160 ENDIF
161 ENDDO
162 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
163 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
164 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
165 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
166 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
167 CALL wrf_ext_write_field ( &
168 fid , & ! DataHandle
169 current_date(1:19) , & ! DateStr
170 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
171 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
172 WRF_FLOAT , & ! FieldType
173 grid%communicator , & ! Comm
174 grid%iocommunicator , & ! Comm
175 grid%domdesc , & ! Comm
176 grid%bdy_mask , & ! bdy_mask
177 dryrun , & ! flag
178 'XYZ' , & ! MemoryOrder
179 '' , & ! Stagger
180 'west_east' , & ! Dimname 1
181 'south_north' , & ! Dimname 2
182 'bottom_top' , & ! Dimname 3
183 g_scalar_desc_table( grid%id, itrace ), & ! Desc
184 g_scalar_units_table( grid%id, itrace ), & ! Units
185 'inc/wrf_metaput_input.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
186 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
187 ims , ime , jms , jme , kms , kme , &
188 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
189 ierr )
190 ENDIF
191 ENDIF
192 ENDDO
193 CALL rconfig_get_run_days ( grid%id, ibuf(1) )
194 CALL wrf_put_dom_ti_integer ( fid , 'RUN_DAYS', ibuf(1), 1, ierr )
195 CALL rconfig_get_run_hours ( grid%id, ibuf(1) )
196 CALL wrf_put_dom_ti_integer ( fid , 'RUN_HOURS', ibuf(1), 1, ierr )
197 CALL rconfig_get_run_minutes ( grid%id, ibuf(1) )
198 CALL wrf_put_dom_ti_integer ( fid , 'RUN_MINUTES', ibuf(1), 1, ierr )
199 CALL rconfig_get_run_seconds ( grid%id, ibuf(1) )
200 CALL wrf_put_dom_ti_integer ( fid , 'RUN_SECONDS', ibuf(1), 1, ierr )
201 CALL rconfig_get_start_year ( grid%id, ibuf(1) )
202 CALL wrf_put_dom_ti_integer ( fid , 'START_YEAR', ibuf(1), 1, ierr )
203 CALL rconfig_get_start_month ( grid%id, ibuf(1) )
204 CALL wrf_put_dom_ti_integer ( fid , 'START_MONTH', ibuf(1), 1, ierr )
205 CALL rconfig_get_start_day ( grid%id, ibuf(1) )
206 CALL wrf_put_dom_ti_integer ( fid , 'START_DAY', ibuf(1), 1, ierr )
207 CALL rconfig_get_start_hour ( grid%id, ibuf(1) )
208 CALL wrf_put_dom_ti_integer ( fid , 'START_HOUR', ibuf(1), 1, ierr )
209 CALL rconfig_get_start_minute ( grid%id, ibuf(1) )
210 CALL wrf_put_dom_ti_integer ( fid , 'START_MINUTE', ibuf(1), 1, ierr )
211 CALL rconfig_get_start_second ( grid%id, ibuf(1) )
212 CALL wrf_put_dom_ti_integer ( fid , 'START_SECOND', ibuf(1), 1, ierr )
213 CALL rconfig_get_end_year ( grid%id, ibuf(1) )
214 CALL wrf_put_dom_ti_integer ( fid , 'END_YEAR', ibuf(1), 1, ierr )
215 CALL rconfig_get_end_month ( grid%id, ibuf(1) )
216 CALL wrf_put_dom_ti_integer ( fid , 'END_MONTH', ibuf(1), 1, ierr )
217 CALL rconfig_get_end_day ( grid%id, ibuf(1) )
218 CALL wrf_put_dom_ti_integer ( fid , 'END_DAY', ibuf(1), 1, ierr )
219 CALL rconfig_get_end_hour ( grid%id, ibuf(1) )
220 CALL wrf_put_dom_ti_integer ( fid , 'END_HOUR', ibuf(1), 1, ierr )
221 CALL rconfig_get_end_minute ( grid%id, ibuf(1) )
222 CALL wrf_put_dom_ti_integer ( fid , 'END_MINUTE', ibuf(1), 1, ierr )
223 CALL rconfig_get_end_second ( grid%id, ibuf(1) )
224 CALL wrf_put_dom_ti_integer ( fid , 'END_SECOND', ibuf(1), 1, ierr )
225 CALL rconfig_get_interval_seconds ( grid%id, ibuf(1) )
226 CALL wrf_put_dom_ti_integer ( fid , 'INTERVAL_SECONDS', ibuf(1), 1, ierr )
227 CALL rconfig_get_input_from_file ( grid%id, lbuf(1) )
228 CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_FILE', lbuf(1), 1, ierr )
229 CALL rconfig_get_fine_input_stream ( grid%id, ibuf(1) )
230 CALL wrf_put_dom_ti_integer ( fid , 'FINE_INPUT_STREAM', ibuf(1), 1, ierr )
231 CALL rconfig_get_input_from_hires ( grid%id, lbuf(1) )
232 CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_HIRES', lbuf(1), 1, ierr )
233 CALL rconfig_get_time_step ( grid%id, ibuf(1) )
234 CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP', ibuf(1), 1, ierr )
235 CALL rconfig_get_time_step_fract_num ( grid%id, ibuf(1) )
236 CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP_FRACT_NUM', ibuf(1), 1, ierr )
237 CALL rconfig_get_time_step_fract_den ( grid%id, ibuf(1) )
238 CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP_FRACT_DEN', ibuf(1), 1, ierr )
239 CALL rconfig_get_max_dom ( grid%id, ibuf(1) )
240 CALL wrf_put_dom_ti_integer ( fid , 'MAX_DOM', ibuf(1), 1, ierr )
241 CALL rconfig_get_s_we ( grid%id, ibuf(1) )
242 CALL wrf_put_dom_ti_integer ( fid , 'S_WE', ibuf(1), 1, ierr )
243 CALL rconfig_get_e_we ( grid%id, ibuf(1) )
244 CALL wrf_put_dom_ti_integer ( fid , 'E_WE', ibuf(1), 1, ierr )
245 CALL rconfig_get_s_sn ( grid%id, ibuf(1) )
246 CALL wrf_put_dom_ti_integer ( fid , 'S_SN', ibuf(1), 1, ierr )
247 CALL rconfig_get_e_sn ( grid%id, ibuf(1) )
248 CALL wrf_put_dom_ti_integer ( fid , 'E_SN', ibuf(1), 1, ierr )
249 CALL rconfig_get_s_vert ( grid%id, ibuf(1) )
250 CALL wrf_put_dom_ti_integer ( fid , 'S_VERT', ibuf(1), 1, ierr )
251 CALL rconfig_get_e_vert ( grid%id, ibuf(1) )
252 CALL wrf_put_dom_ti_integer ( fid , 'E_VERT', ibuf(1), 1, ierr )
253 CALL rconfig_get_num_metgrid_levels ( grid%id, ibuf(1) )
254 CALL wrf_put_dom_ti_integer ( fid , 'NUM_METGRID_LEVELS', ibuf(1), 1, ierr )
255 CALL rconfig_get_p_top_requested ( grid%id, rbuf(1) )
256 CALL wrf_put_dom_ti_real ( fid , 'P_TOP_REQUESTED', rbuf(1), 1, ierr )
257 CALL rconfig_get_interp_type ( grid%id, ibuf(1) )
258 CALL wrf_put_dom_ti_integer ( fid , 'INTERP_TYPE', ibuf(1), 1, ierr )
259 CALL rconfig_get_lowest_lev_from_sfc ( grid%id, lbuf(1) )
260 CALL wrf_put_dom_ti_logical ( fid , 'LOWEST_LEV_FROM_SFC', lbuf(1), 1, ierr )
261 CALL rconfig_get_lagrange_order ( grid%id, ibuf(1) )
262 CALL wrf_put_dom_ti_integer ( fid , 'LAGRANGE_ORDER', ibuf(1), 1, ierr )
263 CALL rconfig_get_grid_id ( grid%id, ibuf(1) )
264 CALL wrf_put_dom_ti_integer ( fid , 'ID', ibuf(1), 1, ierr )
265 CALL rconfig_get_isfflx ( grid%id, ibuf(1) )
266 CALL wrf_put_dom_ti_integer ( fid , 'ISFFLX', ibuf(1), 1, ierr )
267 CALL rconfig_get_ifsnow ( grid%id, ibuf(1) )
268 CALL wrf_put_dom_ti_integer ( fid , 'IFSNOW', ibuf(1), 1, ierr )
269 CALL rconfig_get_icloud ( grid%id, ibuf(1) )
270 CALL wrf_put_dom_ti_integer ( fid , 'ICLOUD', ibuf(1), 1, ierr )
271 CALL rconfig_get_swrad_scat ( grid%id, rbuf(1) )
272 CALL wrf_put_dom_ti_real ( fid , 'SWRAD_SCAT', rbuf(1), 1, ierr )
273 CALL rconfig_get_surface_input_source ( grid%id, ibuf(1) )
274 CALL wrf_put_dom_ti_integer ( fid , 'SURFACE_INPUT_SOURCE', ibuf(1), 1, ierr )
275 CALL rconfig_get_num_soil_layers ( grid%id, ibuf(1) )
276 CALL wrf_put_dom_ti_integer ( fid , 'NUM_SOIL_LAYERS', ibuf(1), 1, ierr )
277 CALL rconfig_get_num_months ( grid%id, ibuf(1) )
278 CALL wrf_put_dom_ti_integer ( fid , 'NUM_MONTHS', ibuf(1), 1, ierr )
279 CALL rconfig_get_maxiens ( grid%id, ibuf(1) )
280 CALL wrf_put_dom_ti_integer ( fid , 'MAXIENS', ibuf(1), 1, ierr )
281 CALL rconfig_get_maxens ( grid%id, ibuf(1) )
282 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS', ibuf(1), 1, ierr )
283 CALL rconfig_get_maxens2 ( grid%id, ibuf(1) )
284 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS2', ibuf(1), 1, ierr )
285 CALL rconfig_get_maxens3 ( grid%id, ibuf(1) )
286 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS3', ibuf(1), 1, ierr )
287 CALL rconfig_get_ensdim ( grid%id, ibuf(1) )
288 CALL wrf_put_dom_ti_integer ( fid , 'ENSDIM', ibuf(1), 1, ierr )
289 CALL rconfig_get_dyn_opt ( grid%id, ibuf(1) )
290 CALL wrf_put_dom_ti_integer ( fid , 'DYN_OPT', ibuf(1), 1, ierr )
291 CALL rconfig_get_rk_ord ( grid%id, ibuf(1) )
292 CALL wrf_put_dom_ti_integer ( fid , 'RK_ORDER', ibuf(1), 1, ierr )
293 CALL rconfig_get_w_damping ( grid%id, ibuf(1) )
294 CALL wrf_put_dom_ti_integer ( fid , 'W_DAMPING', ibuf(1), 1, ierr )
295 CALL rconfig_get_diff_opt ( grid%id, ibuf(1) )
296 CALL wrf_put_dom_ti_integer ( fid , 'DIFF_OPT', ibuf(1), 1, ierr )
297 CALL rconfig_get_km_opt ( grid%id, ibuf(1) )
298 CALL wrf_put_dom_ti_integer ( fid , 'KM_OPT', ibuf(1), 1, ierr )
299 CALL rconfig_get_damp_opt ( grid%id, ibuf(1) )
300 CALL wrf_put_dom_ti_integer ( fid , 'DAMP_OPT', ibuf(1), 1, ierr )
301 CALL rconfig_get_diff_6th_opt ( grid%id, ibuf(1) )
302 CALL wrf_put_dom_ti_integer ( fid , 'DIFF_6TH_OPT', ibuf(1), 1, ierr )
303 CALL rconfig_get_non_hydrostatic ( grid%id, lbuf(1) )
304 CALL wrf_put_dom_ti_logical ( fid , 'NON_HYDROSTATIC', lbuf(1), 1, ierr )
305 CALL rconfig_get_pert_coriolis ( grid%id, lbuf(1) )
306 CALL wrf_put_dom_ti_logical ( fid , 'PERT_CORIOLIS', lbuf(1), 1, ierr )
307 CALL rconfig_get_mix_full_fields ( grid%id, lbuf(1) )
308 CALL wrf_put_dom_ti_logical ( fid , 'MIX_FULL_FIELD', lbuf(1), 1, ierr )
309 CALL rconfig_get_spec_bdy_width ( grid%id, ibuf(1) )
310 CALL wrf_put_dom_ti_integer ( fid , 'SPEC_BDY_WIDTH', ibuf(1), 1, ierr )
311 CALL rconfig_get_spec_zone ( grid%id, ibuf(1) )
312 CALL wrf_put_dom_ti_integer ( fid , 'SPEC_ZONE', ibuf(1), 1, ierr )
313 CALL rconfig_get_relax_zone ( grid%id, ibuf(1) )
314 CALL wrf_put_dom_ti_integer ( fid , 'RELAX_ZONE', ibuf(1), 1, ierr )
315 CALL rconfig_get_real_data_init_type ( grid%id, ibuf(1) )
316 CALL wrf_put_dom_ti_integer ( fid , 'REAL_DATA_INIT_TYPE', ibuf(1), 1, ierr )