wrf_metaget_restart.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaget_restart.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_read_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 'XYZ' , & ! MemoryOrder
23 '' , & ! Stagger
24 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
25 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
26 ims , ime , jms , jme , kms , kme , &
27 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
28 ierr )
29 ENDIF
30 ENDIF
31 ENDDO
32 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
33 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
34 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
35 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
36 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
37 CALL wrf_ext_read_field ( &
38 fid , & ! DataHandle
39 current_date(1:19) , & ! DateStr
40 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
41 grid%a_moist(ims,jms,kms,itrace) , & ! Field
42 WRF_FLOAT , & ! FieldType
43 grid%communicator , & ! Comm
44 grid%iocommunicator , & ! Comm
45 grid%domdesc , & ! Comm
46 grid%bdy_mask , & ! bdy_mask
47 'XYZ' , & ! MemoryOrder
48 '' , & ! Stagger
49 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
50 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
51 ims , ime , jms , jme , kms , kme , &
52 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
53 ierr )
54 ENDIF
55 ENDIF
56 ENDDO
57 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
58 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
59 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
60 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
61 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
62 CALL wrf_ext_read_field ( &
63 fid , & ! DataHandle
64 current_date(1:19) , & ! DateStr
65 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
66 grid%g_moist(ims,jms,kms,itrace) , & ! Field
67 WRF_FLOAT , & ! FieldType
68 grid%communicator , & ! Comm
69 grid%iocommunicator , & ! Comm
70 grid%domdesc , & ! Comm
71 grid%bdy_mask , & ! bdy_mask
72 'XYZ' , & ! MemoryOrder
73 '' , & ! Stagger
74 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
75 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
76 ims , ime , jms , jme , kms , kme , &
77 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
78 ierr )
79 ENDIF
80 ENDIF
81 ENDDO
82 DO itrace = PARAM_FIRST_SCALAR , num_scalar
83 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
84 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
85 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
86 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
87 CALL wrf_ext_read_field ( &
88 fid , & ! DataHandle
89 current_date(1:19) , & ! DateStr
90 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
91 grid%scalar(ims,jms,kms,itrace) , & ! Field
92 WRF_FLOAT , & ! FieldType
93 grid%communicator , & ! Comm
94 grid%iocommunicator , & ! Comm
95 grid%domdesc , & ! Comm
96 grid%bdy_mask , & ! bdy_mask
97 'XYZ' , & ! MemoryOrder
98 '' , & ! Stagger
99 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
100 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
101 ims , ime , jms , jme , kms , kme , &
102 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
103 ierr )
104 ENDIF
105 ENDIF
106 ENDDO
107 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
108 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
109 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
110 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
111 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
112 CALL wrf_ext_read_field ( &
113 fid , & ! DataHandle
114 current_date(1:19) , & ! DateStr
115 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
116 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
117 WRF_FLOAT , & ! FieldType
118 grid%communicator , & ! Comm
119 grid%iocommunicator , & ! Comm
120 grid%domdesc , & ! Comm
121 grid%bdy_mask , & ! bdy_mask
122 'XYZ' , & ! MemoryOrder
123 '' , & ! Stagger
124 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
125 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
126 ims , ime , jms , jme , kms , kme , &
127 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
128 ierr )
129 ENDIF
130 ENDIF
131 ENDDO
132 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
133 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
134 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
135 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
136 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
137 CALL wrf_ext_read_field ( &
138 fid , & ! DataHandle
139 current_date(1:19) , & ! DateStr
140 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
141 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
142 WRF_FLOAT , & ! FieldType
143 grid%communicator , & ! Comm
144 grid%iocommunicator , & ! Comm
145 grid%domdesc , & ! Comm
146 grid%bdy_mask , & ! bdy_mask
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'inc/wrf_metaget_restart.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
150 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
151 ims , ime , jms , jme , kms , kme , &
152 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
153 ierr )
154 ENDIF
155 ENDIF
156 ENDDO
157 CALL wrf_get_dom_ti_logical ( fid , 'JCDFI_USE', lbuf(1), 1, ierr )
158 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for JCDFI_USE returns ',lbuf(1)
159 CALL wrf_debug ( 300 , wrf_err_message )
160 CALL rconfig_set_jcdfi_use ( grid%id, lbuf(1) )
161 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_TAUC', rbuf(1), 1, ierr )
162 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_TAUC returns ',rbuf(1)
163 CALL wrf_debug ( 300 , wrf_err_message )
164 CALL rconfig_set_jcdfi_tauc ( grid%id, rbuf(1) )
165 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_GAMA', rbuf(1), 1, ierr )
166 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_GAMA returns ',rbuf(1)
167 CALL wrf_debug ( 300 , wrf_err_message )
168 CALL rconfig_set_jcdfi_gama ( grid%id, rbuf(1) )
169 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_ERROR_WIND', rbuf(1), 1, ierr )
170 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_ERROR_WIND returns ',rbuf(1)
171 CALL wrf_debug ( 300 , wrf_err_message )
172 CALL rconfig_set_jcdfi_error_wind ( grid%id, rbuf(1) )
173 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_ERROR_T', rbuf(1), 1, ierr )
174 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_ERROR_T returns ',rbuf(1)
175 CALL wrf_debug ( 300 , wrf_err_message )
176 CALL rconfig_set_jcdfi_error_t ( grid%id, rbuf(1) )
177 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_ERROR_Q', rbuf(1), 1, ierr )
178 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_ERROR_Q returns ',rbuf(1)
179 CALL wrf_debug ( 300 , wrf_err_message )
180 CALL rconfig_set_jcdfi_error_q ( grid%id, rbuf(1) )
181 CALL wrf_get_dom_ti_real ( fid , 'JCDFI_ERROR_MU', rbuf(1), 1, ierr )
182 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for JCDFI_ERROR_MU returns ',rbuf(1)
183 CALL wrf_debug ( 300 , wrf_err_message )
184 CALL rconfig_set_jcdfi_error_mu ( grid%id, rbuf(1) )
185 CALL wrf_get_dom_ti_integer ( fid , 'RUN_DAYS', ibuf(1), 1, ierr )
186 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_DAYS returns ',ibuf(1)
187 CALL wrf_debug ( 300 , wrf_err_message )
188 CALL rconfig_set_run_days ( grid%id, ibuf(1) )
189 CALL wrf_get_dom_ti_integer ( fid , 'RUN_HOURS', ibuf(1), 1, ierr )
190 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_HOURS returns ',ibuf(1)
191 CALL wrf_debug ( 300 , wrf_err_message )
192 CALL rconfig_set_run_hours ( grid%id, ibuf(1) )
193 CALL wrf_get_dom_ti_integer ( fid , 'RUN_MINUTES', ibuf(1), 1, ierr )
194 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_MINUTES returns ',ibuf(1)
195 CALL wrf_debug ( 300 , wrf_err_message )
196 CALL rconfig_set_run_minutes ( grid%id, ibuf(1) )
197 CALL wrf_get_dom_ti_integer ( fid , 'RUN_SECONDS', ibuf(1), 1, ierr )
198 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_SECONDS returns ',ibuf(1)
199 CALL wrf_debug ( 300 , wrf_err_message )
200 CALL rconfig_set_run_seconds ( grid%id, ibuf(1) )
201 CALL wrf_get_dom_ti_integer ( fid , 'START_YEAR', ibuf(1), 1, ierr )
202 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_YEAR returns ',ibuf(1)
203 CALL wrf_debug ( 300 , wrf_err_message )
204 CALL rconfig_set_start_year ( grid%id, ibuf(1) )
205 CALL wrf_get_dom_ti_integer ( fid , 'START_MONTH', ibuf(1), 1, ierr )
206 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_MONTH returns ',ibuf(1)
207 CALL wrf_debug ( 300 , wrf_err_message )
208 CALL rconfig_set_start_month ( grid%id, ibuf(1) )
209 CALL wrf_get_dom_ti_integer ( fid , 'START_DAY', ibuf(1), 1, ierr )
210 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_DAY returns ',ibuf(1)
211 CALL wrf_debug ( 300 , wrf_err_message )
212 CALL rconfig_set_start_day ( grid%id, ibuf(1) )
213 CALL wrf_get_dom_ti_integer ( fid , 'START_HOUR', ibuf(1), 1, ierr )
214 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_HOUR returns ',ibuf(1)
215 CALL wrf_debug ( 300 , wrf_err_message )
216 CALL rconfig_set_start_hour ( grid%id, ibuf(1) )
217 CALL wrf_get_dom_ti_integer ( fid , 'START_MINUTE', ibuf(1), 1, ierr )
218 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_MINUTE returns ',ibuf(1)
219 CALL wrf_debug ( 300 , wrf_err_message )
220 CALL rconfig_set_start_minute ( grid%id, ibuf(1) )
221 CALL wrf_get_dom_ti_integer ( fid , 'START_SECOND', ibuf(1), 1, ierr )
222 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_SECOND returns ',ibuf(1)
223 CALL wrf_debug ( 300 , wrf_err_message )
224 CALL rconfig_set_start_second ( grid%id, ibuf(1) )
225 CALL wrf_get_dom_ti_integer ( fid , 'END_YEAR', ibuf(1), 1, ierr )
226 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_YEAR returns ',ibuf(1)
227 CALL wrf_debug ( 300 , wrf_err_message )
228 CALL rconfig_set_end_year ( grid%id, ibuf(1) )
229 CALL wrf_get_dom_ti_integer ( fid , 'END_MONTH', ibuf(1), 1, ierr )
230 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_MONTH returns ',ibuf(1)
231 CALL wrf_debug ( 300 , wrf_err_message )
232 CALL rconfig_set_end_month ( grid%id, ibuf(1) )
233 CALL wrf_get_dom_ti_integer ( fid , 'END_DAY', ibuf(1), 1, ierr )
234 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_DAY returns ',ibuf(1)
235 CALL wrf_debug ( 300 , wrf_err_message )
236 CALL rconfig_set_end_day ( grid%id, ibuf(1) )
237 CALL wrf_get_dom_ti_integer ( fid , 'END_HOUR', ibuf(1), 1, ierr )
238 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_HOUR returns ',ibuf(1)
239 CALL wrf_debug ( 300 , wrf_err_message )
240 CALL rconfig_set_end_hour ( grid%id, ibuf(1) )
241 CALL wrf_get_dom_ti_integer ( fid , 'END_MINUTE', ibuf(1), 1, ierr )
242 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_MINUTE returns ',ibuf(1)
243 CALL wrf_debug ( 300 , wrf_err_message )
244 CALL rconfig_set_end_minute ( grid%id, ibuf(1) )
245 CALL wrf_get_dom_ti_integer ( fid , 'END_SECOND', ibuf(1), 1, ierr )
246 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_SECOND returns ',ibuf(1)
247 CALL wrf_debug ( 300 , wrf_err_message )
248 CALL rconfig_set_end_second ( grid%id, ibuf(1) )
249 CALL wrf_get_dom_ti_integer ( fid , 'INTERVAL_SECONDS', ibuf(1), 1, ierr )
250 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for INTERVAL_SECONDS returns ',ibuf(1)
251 CALL wrf_debug ( 300 , wrf_err_message )
252 CALL rconfig_set_interval_seconds ( grid%id, ibuf(1) )
253 CALL wrf_get_dom_ti_logical ( fid , 'INPUT_FROM_FILE', lbuf(1), 1, ierr )
254 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for INPUT_FROM_FILE returns ',lbuf(1)
255 CALL wrf_debug ( 300 , wrf_err_message )
256 CALL rconfig_set_input_from_file ( grid%id, lbuf(1) )
257 CALL wrf_get_dom_ti_integer ( fid , 'FINE_INPUT_STREAM', ibuf(1), 1, ierr )
258 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for FINE_INPUT_STREAM returns ',ibuf(1)
259 CALL wrf_debug ( 300 , wrf_err_message )
260 CALL rconfig_set_fine_input_stream ( grid%id, ibuf(1) )
261 CALL wrf_get_dom_ti_logical ( fid , 'INPUT_FROM_HIRES', lbuf(1), 1, ierr )
262 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for INPUT_FROM_HIRES returns ',lbuf(1)
263 CALL wrf_debug ( 300 , wrf_err_message )
264 CALL rconfig_set_input_from_hires ( grid%id, lbuf(1) )
265 CALL wrf_get_dom_ti_integer ( fid , 'MAX_DOM', ibuf(1), 1, ierr )
266 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAX_DOM returns ',ibuf(1)
267 CALL wrf_debug ( 300 , wrf_err_message )
268 CALL rconfig_set_max_dom ( grid%id, ibuf(1) )
269 CALL wrf_get_dom_ti_integer ( fid , 'S_WE', ibuf(1), 1, ierr )
270 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_WE returns ',ibuf(1)
271 CALL wrf_debug ( 300 , wrf_err_message )
272 CALL rconfig_set_s_we ( grid%id, ibuf(1) )
273 CALL wrf_get_dom_ti_integer ( fid , 'E_WE', ibuf(1), 1, ierr )
274 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_WE returns ',ibuf(1)
275 CALL wrf_debug ( 300 , wrf_err_message )
276 CALL rconfig_set_e_we ( grid%id, ibuf(1) )
277 CALL wrf_get_dom_ti_integer ( fid , 'S_SN', ibuf(1), 1, ierr )
278 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_SN returns ',ibuf(1)
279 CALL wrf_debug ( 300 , wrf_err_message )
280 CALL rconfig_set_s_sn ( grid%id, ibuf(1) )
281 CALL wrf_get_dom_ti_integer ( fid , 'E_SN', ibuf(1), 1, ierr )
282 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_SN returns ',ibuf(1)
283 CALL wrf_debug ( 300 , wrf_err_message )
284 CALL rconfig_set_e_sn ( grid%id, ibuf(1) )
285 CALL wrf_get_dom_ti_integer ( fid , 'S_VERT', ibuf(1), 1, ierr )
286 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_VERT returns ',ibuf(1)
287 CALL wrf_debug ( 300 , wrf_err_message )
288 CALL rconfig_set_s_vert ( grid%id, ibuf(1) )
289 CALL wrf_get_dom_ti_integer ( fid , 'E_VERT', ibuf(1), 1, ierr )
290 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_VERT returns ',ibuf(1)
291 CALL wrf_debug ( 300 , wrf_err_message )
292 CALL rconfig_set_e_vert ( grid%id, ibuf(1) )
293 CALL wrf_get_dom_ti_integer ( fid , 'NUM_METGRID_LEVELS', ibuf(1), 1, ierr )
294 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_METGRID_LEVELS returns ',ibuf(1)
295 CALL wrf_debug ( 300 , wrf_err_message )
296 CALL rconfig_set_num_metgrid_levels ( grid%id, ibuf(1) )
297 CALL wrf_get_dom_ti_real ( fid , 'P_TOP_REQUESTED', rbuf(1), 1, ierr )
298 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for P_TOP_REQUESTED returns ',rbuf(1)
299 CALL wrf_debug ( 300 , wrf_err_message )
300 CALL rconfig_set_p_top_requested ( grid%id, rbuf(1) )
301 CALL wrf_get_dom_ti_integer ( fid , 'INTERP_TYPE', ibuf(1), 1, ierr )
302 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for INTERP_TYPE returns ',ibuf(1)
303 CALL wrf_debug ( 300 , wrf_err_message )
304 CALL rconfig_set_interp_type ( grid%id, ibuf(1) )
305 CALL wrf_get_dom_ti_integer ( fid , 'EXTRAP_TYPE', ibuf(1), 1, ierr )
306 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for EXTRAP_TYPE returns ',ibuf(1)
307 CALL wrf_debug ( 300 , wrf_err_message )
308 CALL rconfig_set_extrap_type ( grid%id, ibuf(1) )
309 CALL wrf_get_dom_ti_integer ( fid , 'T_EXTRAP_TYPE', ibuf(1), 1, ierr )
310 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for T_EXTRAP_TYPE returns ',ibuf(1)
311 CALL wrf_debug ( 300 , wrf_err_message )
312 CALL rconfig_set_t_extrap_type ( grid%id, ibuf(1) )
313 CALL wrf_get_dom_ti_logical ( fid , 'LOWEST_LEV_FROM_SFC', lbuf(1), 1, ierr )
314 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for LOWEST_LEV_FROM_SFC returns ',lbuf(1)
315 CALL wrf_debug ( 300 , wrf_err_message )
316 CALL rconfig_set_lowest_lev_from_sfc ( grid%id, lbuf(1) )
317 CALL wrf_get_dom_ti_logical ( fid , 'USE_LEVELS_BELOW_GROUND', lbuf(1), 1, ierr )
318 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for USE_LEVELS_BELOW_GROUND returns ',lbuf(1)
319 CALL wrf_debug ( 300 , wrf_err_message )
320 CALL rconfig_set_use_levels_below_ground ( grid%id, lbuf(1) )
321 CALL wrf_get_dom_ti_logical ( fid , 'USE_SURFACE', lbuf(1), 1, ierr )
322 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for USE_SURFACE returns ',lbuf(1)
323 CALL wrf_debug ( 300 , wrf_err_message )
324 CALL rconfig_set_use_surface ( grid%id, lbuf(1) )
325 CALL wrf_get_dom_ti_integer ( fid , 'LAGRANGE_ORDER', ibuf(1), 1, ierr )
326 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for LAGRANGE_ORDER returns ',ibuf(1)
327 CALL wrf_debug ( 300 , wrf_err_message )
328 CALL rconfig_set_lagrange_order ( grid%id, ibuf(1) )
329 CALL wrf_get_dom_ti_integer ( fid , 'FORCE_SFC_IN_VINTERP', ibuf(1), 1, ierr )
330 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for FORCE_SFC_IN_VINTERP returns ',ibuf(1)
331 CALL wrf_debug ( 300 , wrf_err_message )
332 CALL rconfig_set_force_sfc_in_vinterp ( grid%id, ibuf(1) )
333 CALL wrf_get_dom_ti_real ( fid , 'ZAP_CLOSE_LEVELS', rbuf(1), 1, ierr )
334 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for ZAP_CLOSE_LEVELS returns ',rbuf(1)
335 CALL wrf_debug ( 300 , wrf_err_message )
336 CALL rconfig_set_zap_close_levels ( grid%id, rbuf(1) )
337 CALL wrf_get_dom_ti_logical ( fid , 'AFCP_TO_SFCP', lbuf(1), 1, ierr )
338 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for AFCP_TO_SFCP returns ',lbuf(1)
339 CALL wrf_debug ( 300 , wrf_err_message )
340 CALL rconfig_set_sfcp_to_sfcp ( grid%id, lbuf(1) )
341 CALL wrf_get_dom_ti_logical ( fid , 'ADJUST_HEIGHTS', lbuf(1), 1, ierr )
342 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for ADJUST_HEIGHTS returns ',lbuf(1)
343 CALL wrf_debug ( 300 , wrf_err_message )
344 CALL rconfig_set_adjust_heights ( grid%id, lbuf(1) )
345 CALL wrf_get_dom_ti_integer ( fid , 'ID', ibuf(1), 1, ierr )
346 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ID returns ',ibuf(1)
347 CALL wrf_debug ( 300 , wrf_err_message )
348 CALL rconfig_set_grid_id ( grid%id, ibuf(1) )
349 CALL wrf_get_dom_ti_integer ( fid , 'I_PARENT_START', ibuf(1), 1, ierr )
350 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for I_PARENT_START returns ',ibuf(1)
351 CALL wrf_debug ( 300 , wrf_err_message )
352 CALL rconfig_set_i_parent_start ( grid%id, ibuf(1) )
353 CALL wrf_get_dom_ti_integer ( fid , 'J_PARENT_START', ibuf(1), 1, ierr )
354 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for J_PARENT_START returns ',ibuf(1)
355 CALL wrf_debug ( 300 , wrf_err_message )
356 CALL rconfig_set_j_parent_start ( grid%id, ibuf(1) )
357 CALL wrf_get_dom_ti_logical ( fid , 'SWAP_X', lbuf(1), 1, ierr )
358 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SWAP_X returns ',lbuf(1)
359 CALL wrf_debug ( 300 , wrf_err_message )
360 CALL rconfig_set_swap_x ( grid%id, lbuf(1) )
361 CALL wrf_get_dom_ti_logical ( fid , 'SWAP_Y', lbuf(1), 1, ierr )
362 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SWAP_Y returns ',lbuf(1)
363 CALL wrf_debug ( 300 , wrf_err_message )
364 CALL rconfig_set_swap_y ( grid%id, lbuf(1) )
365 CALL wrf_get_dom_ti_logical ( fid , 'CYCLE_X', lbuf(1), 1, ierr )
366 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for CYCLE_X returns ',lbuf(1)
367 CALL wrf_debug ( 300 , wrf_err_message )
368 CALL rconfig_set_cycle_x ( grid%id, lbuf(1) )
369 CALL wrf_get_dom_ti_logical ( fid , 'CYCLE_Y', lbuf(1), 1, ierr )
370 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for CYCLE_Y returns ',lbuf(1)
371 CALL wrf_debug ( 300 , wrf_err_message )
372 CALL rconfig_set_cycle_y ( grid%id, lbuf(1) )
373 CALL wrf_get_dom_ti_logical ( fid , 'REORDER_MESH', lbuf(1), 1, ierr )
374 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for REORDER_MESH returns ',lbuf(1)
375 CALL wrf_debug ( 300 , wrf_err_message )
376 CALL rconfig_set_reorder_mesh ( grid%id, lbuf(1) )
377 CALL wrf_get_dom_ti_integer ( fid , 'MP_PHYSICS', ibuf(1), 1, ierr )
378 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MP_PHYSICS returns ',ibuf(1)
379 CALL wrf_debug ( 300 , wrf_err_message )
380 CALL rconfig_set_mp_physics ( grid%id, ibuf(1) )
381 CALL wrf_get_dom_ti_integer ( fid , 'PROGN', ibuf(1), 1, ierr )
382 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for PROGN returns ',ibuf(1)
383 CALL wrf_debug ( 300 , wrf_err_message )
384 CALL rconfig_set_progn ( grid%id, ibuf(1) )
385 CALL wrf_get_dom_ti_integer ( fid , 'RA_LW_PHYSICS', ibuf(1), 1, ierr )
386 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RA_LW_PHYSICS returns ',ibuf(1)
387 CALL wrf_debug ( 300 , wrf_err_message )
388 CALL rconfig_set_ra_lw_physics ( grid%id, ibuf(1) )
389 CALL wrf_get_dom_ti_integer ( fid , 'RA_SW_PHYSICS', ibuf(1), 1, ierr )
390 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RA_SW_PHYSICS returns ',ibuf(1)
391 CALL wrf_debug ( 300 , wrf_err_message )
392 CALL rconfig_set_ra_sw_physics ( grid%id, ibuf(1) )
393 CALL wrf_get_dom_ti_real ( fid , 'NAER', rbuf(1), 1, ierr )
394 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for NAER returns ',rbuf(1)
395 CALL wrf_debug ( 300 , wrf_err_message )
396 CALL rconfig_set_naer ( grid%id, rbuf(1) )
397 CALL wrf_get_dom_ti_integer ( fid , 'SF_SFCLAY_PHYSICS', ibuf(1), 1, ierr )
398 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SF_SFCLAY_PHYSICS returns ',ibuf(1)
399 CALL wrf_debug ( 300 , wrf_err_message )
400 CALL rconfig_set_sf_sfclay_physics ( grid%id, ibuf(1) )
401 CALL wrf_get_dom_ti_integer ( fid , 'SF_SURFACE_PHYSICS', ibuf(1), 1, ierr )
402 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SF_SURFACE_PHYSICS returns ',ibuf(1)
403 CALL wrf_debug ( 300 , wrf_err_message )
404 CALL rconfig_set_sf_surface_physics ( grid%id, ibuf(1) )
405 CALL wrf_get_dom_ti_integer ( fid , 'BL_PBL_PHYSICS', ibuf(1), 1, ierr )
406 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for BL_PBL_PHYSICS returns ',ibuf(1)
407 CALL wrf_debug ( 300 , wrf_err_message )
408 CALL rconfig_set_bl_pbl_physics ( grid%id, ibuf(1) )
409 CALL wrf_get_dom_ti_integer ( fid , 'CU_PHYSICS', ibuf(1), 1, ierr )
410 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for CU_PHYSICS returns ',ibuf(1)
411 CALL wrf_debug ( 300 , wrf_err_message )
412 CALL rconfig_set_cu_physics ( grid%id, ibuf(1) )
413 CALL wrf_get_dom_ti_integer ( fid , 'ISFFLX', ibuf(1), 1, ierr )
414 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ISFFLX returns ',ibuf(1)
415 CALL wrf_debug ( 300 , wrf_err_message )
416 CALL rconfig_set_isfflx ( grid%id, ibuf(1) )
417 CALL wrf_get_dom_ti_integer ( fid , 'IFSNOW', ibuf(1), 1, ierr )
418 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for IFSNOW returns ',ibuf(1)
419 CALL wrf_debug ( 300 , wrf_err_message )
420 CALL rconfig_set_ifsnow ( grid%id, ibuf(1) )
421 CALL wrf_get_dom_ti_integer ( fid , 'ICLOUD', ibuf(1), 1, ierr )
422 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ICLOUD returns ',ibuf(1)
423 CALL wrf_debug ( 300 , wrf_err_message )
424 CALL rconfig_set_icloud ( grid%id, ibuf(1) )
425 CALL wrf_get_dom_ti_real ( fid , 'SWRAD_SCAT', rbuf(1), 1, ierr )
426 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for SWRAD_SCAT returns ',rbuf(1)
427 CALL wrf_debug ( 300 , wrf_err_message )
428 CALL rconfig_set_swrad_scat ( grid%id, rbuf(1) )
429 CALL wrf_get_dom_ti_integer ( fid , 'SURFACE_INPUT_SOURCE', ibuf(1), 1, ierr )
430 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SURFACE_INPUT_SOURCE returns ',ibuf(1)
431 CALL wrf_debug ( 300 , wrf_err_message )
432 CALL rconfig_set_surface_input_source ( grid%id, ibuf(1) )
433 CALL wrf_get_dom_ti_integer ( fid , 'NUM_SOIL_LAYERS', ibuf(1), 1, ierr )
434 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_SOIL_LAYERS returns ',ibuf(1)
435 CALL wrf_debug ( 300 , wrf_err_message )
436 CALL rconfig_set_num_soil_layers ( grid%id, ibuf(1) )
437 CALL wrf_get_dom_ti_integer ( fid , 'NUM_MONTHS', ibuf(1), 1, ierr )
438 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_MONTHS returns ',ibuf(1)
439 CALL wrf_debug ( 300 , wrf_err_message )
440 CALL rconfig_set_num_months ( grid%id, ibuf(1) )
441 CALL wrf_get_dom_ti_integer ( fid , 'MAXIENS', ibuf(1), 1, ierr )
442 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXIENS returns ',ibuf(1)
443 CALL wrf_debug ( 300 , wrf_err_message )
444 CALL rconfig_set_maxiens ( grid%id, ibuf(1) )
445 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS', ibuf(1), 1, ierr )
446 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS returns ',ibuf(1)
447 CALL wrf_debug ( 300 , wrf_err_message )
448 CALL rconfig_set_maxens ( grid%id, ibuf(1) )
449 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS2', ibuf(1), 1, ierr )
450 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS2 returns ',ibuf(1)
451 CALL wrf_debug ( 300 , wrf_err_message )
452 CALL rconfig_set_maxens2 ( grid%id, ibuf(1) )
453 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS3', ibuf(1), 1, ierr )
454 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS3 returns ',ibuf(1)
455 CALL wrf_debug ( 300 , wrf_err_message )
456 CALL rconfig_set_maxens3 ( grid%id, ibuf(1) )
457 CALL wrf_get_dom_ti_integer ( fid , 'ENSDIM', ibuf(1), 1, ierr )
458 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ENSDIM returns ',ibuf(1)
459 CALL wrf_debug ( 300 , wrf_err_message )
460 CALL rconfig_set_ensdim ( grid%id, ibuf(1) )
461 CALL wrf_get_dom_ti_integer ( fid , 'CHEM_OPT', ibuf(1), 1, ierr )
462 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for CHEM_OPT returns ',ibuf(1)
463 CALL wrf_debug ( 300 , wrf_err_message )
464 CALL rconfig_set_chem_opt ( grid%id, ibuf(1) )
465 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
466 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
467 CALL wrf_debug ( 300 , wrf_err_message )
468 CALL rconfig_set_grid_fdda ( grid%id, ibuf(1) )
469 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
470 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
471 CALL wrf_debug ( 300 , wrf_err_message )
472 CALL rconfig_set_if_no_pbl_nudging_uv ( grid%id, ibuf(1) )
473 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
474 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
475 CALL wrf_debug ( 300 , wrf_err_message )
476 CALL rconfig_set_if_no_pbl_nudging_t ( grid%id, ibuf(1) )
477 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
478 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
479 CALL wrf_debug ( 300 , wrf_err_message )
480 CALL rconfig_set_if_no_pbl_nudging_q ( grid%id, ibuf(1) )
481 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
482 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
483 CALL wrf_debug ( 300 , wrf_err_message )
484 CALL rconfig_set_if_zfac_uv ( grid%id, ibuf(1) )
485 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
486 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
487 CALL wrf_debug ( 300 , wrf_err_message )
488 CALL rconfig_set_k_zfac_uv ( grid%id, ibuf(1) )
489 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
490 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
491 CALL wrf_debug ( 300 , wrf_err_message )
492 CALL rconfig_set_if_zfac_t ( grid%id, ibuf(1) )
493 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
494 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
495 CALL wrf_debug ( 300 , wrf_err_message )
496 CALL rconfig_set_k_zfac_t ( grid%id, ibuf(1) )
497 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
498 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
499 CALL wrf_debug ( 300 , wrf_err_message )
500 CALL rconfig_set_if_zfac_q ( grid%id, ibuf(1) )
501 CALL wrf_get_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
502 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for GRID_FDDA returns ',ibuf(1)
503 CALL wrf_debug ( 300 , wrf_err_message )
504 CALL rconfig_set_k_zfac_q ( grid%id, ibuf(1) )
505 CALL wrf_get_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
506 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for GRID_FDDA returns ',rbuf(1)
507 CALL wrf_debug ( 300 , wrf_err_message )
508 CALL rconfig_set_guv ( grid%id, rbuf(1) )
509 CALL wrf_get_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
510 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for GRID_FDDA returns ',rbuf(1)
511 CALL wrf_debug ( 300 , wrf_err_message )
512 CALL rconfig_set_gt ( grid%id, rbuf(1) )
513 CALL wrf_get_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
514 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for GRID_FDDA returns ',rbuf(1)
515 CALL wrf_debug ( 300 , wrf_err_message )
516 CALL rconfig_set_gq ( grid%id, rbuf(1) )
517 CALL wrf_get_dom_ti_integer ( fid , 'OBS_NUDGE_OPT', ibuf(1), 1, ierr )
518 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for OBS_NUDGE_OPT returns ',ibuf(1)
519 CALL wrf_debug ( 300 , wrf_err_message )
520 CALL rconfig_set_obs_nudge_opt ( grid%id, ibuf(1) )
521 CALL wrf_get_dom_ti_real ( fid , 'FDDA_START', rbuf(1), 1, ierr )
522 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for FDDA_START returns ',rbuf(1)
523 CALL wrf_debug ( 300 , wrf_err_message )
524 CALL rconfig_set_fdda_start ( grid%id, rbuf(1) )
525 CALL wrf_get_dom_ti_real ( fid , 'FDDA_END', rbuf(1), 1, ierr )
526 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for FDDA_END returns ',rbuf(1)
527 CALL wrf_debug ( 300 , wrf_err_message )
528 CALL rconfig_set_fdda_end ( grid%id, rbuf(1) )
529 CALL wrf_get_dom_ti_integer ( fid , 'OBS_NUDGE_WIND', ibuf(1), 1, ierr )
530 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for OBS_NUDGE_WIND returns ',ibuf(1)
531 CALL wrf_debug ( 300 , wrf_err_message )
532 CALL rconfig_set_obs_nudge_wind ( grid%id, ibuf(1) )
533 CALL wrf_get_dom_ti_real ( fid , 'OBS_COEF_WIND', rbuf(1), 1, ierr )
534 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for OBS_COEF_WIND returns ',rbuf(1)
535 CALL wrf_debug ( 300 , wrf_err_message )
536 CALL rconfig_set_obs_coef_wind ( grid%id, rbuf(1) )
537 CALL wrf_get_dom_ti_integer ( fid , 'OBS_NUDGE_TEMP', ibuf(1), 1, ierr )
538 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for OBS_NUDGE_TEMP returns ',ibuf(1)
539 CALL wrf_debug ( 300 , wrf_err_message )
540 CALL rconfig_set_obs_nudge_temp ( grid%id, ibuf(1) )
541 CALL wrf_get_dom_ti_real ( fid , 'OBS_COEF_TEMP', rbuf(1), 1, ierr )
542 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for OBS_COEF_TEMP returns ',rbuf(1)
543 CALL wrf_debug ( 300 , wrf_err_message )
544 CALL rconfig_set_obs_coef_temp ( grid%id, rbuf(1) )
545 CALL wrf_get_dom_ti_integer ( fid , 'OBS_NUDGE_MOIS', ibuf(1), 1, ierr )
546 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for OBS_NUDGE_MOIS returns ',ibuf(1)
547 CALL wrf_debug ( 300 , wrf_err_message )
548 CALL rconfig_set_obs_nudge_mois ( grid%id, ibuf(1) )
549 CALL wrf_get_dom_ti_real ( fid , 'OBS_COEF_MOIS', rbuf(1), 1, ierr )
550 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for OBS_COEF_MOIS returns ',rbuf(1)
551 CALL wrf_debug ( 300 , wrf_err_message )
552 CALL rconfig_set_obs_coef_mois ( grid%id, rbuf(1) )
553 CALL wrf_get_dom_ti_integer ( fid , 'OBS_NUDGE_PSTR', ibuf(1), 1, ierr )
554 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for OBS_NUDGE_PSTR returns ',ibuf(1)
555 CALL wrf_debug ( 300 , wrf_err_message )
556 CALL rconfig_set_obs_nudge_pstr ( grid%id, ibuf(1) )
557 CALL wrf_get_dom_ti_real ( fid , 'OBS_COEF_PSTR', rbuf(1), 1, ierr )
558 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for OBS_COEF_PSTR returns ',rbuf(1)
559 CALL wrf_debug ( 300 , wrf_err_message )
560 CALL rconfig_set_obs_coef_pstr ( grid%id, rbuf(1) )
561 CALL wrf_get_dom_ti_real ( fid , 'OBS_RINXY', rbuf(1), 1, ierr )
562 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for OBS_RINXY returns ',rbuf(1)
563 CALL wrf_debug ( 300 , wrf_err_message )
564 CALL rconfig_set_obs_rinxy ( grid%id, rbuf(1) )
565 CALL wrf_get_dom_ti_integer ( fid , 'DYN_OPT', ibuf(1), 1, ierr )
566 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DYN_OPT returns ',ibuf(1)
567 CALL wrf_debug ( 300 , wrf_err_message )
568 CALL rconfig_set_dyn_opt ( grid%id, ibuf(1) )
569 CALL wrf_get_dom_ti_integer ( fid , 'RK_ORDER', ibuf(1), 1, ierr )
570 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RK_ORDER returns ',ibuf(1)
571 CALL wrf_debug ( 300 , wrf_err_message )
572 CALL rconfig_set_rk_ord ( grid%id, ibuf(1) )
573 CALL wrf_get_dom_ti_integer ( fid , 'W_DAMPING', ibuf(1), 1, ierr )
574 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for W_DAMPING returns ',ibuf(1)
575 CALL wrf_debug ( 300 , wrf_err_message )
576 CALL rconfig_set_w_damping ( grid%id, ibuf(1) )
577 CALL wrf_get_dom_ti_integer ( fid , 'DIFF_OPT', ibuf(1), 1, ierr )
578 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DIFF_OPT returns ',ibuf(1)
579 CALL wrf_debug ( 300 , wrf_err_message )
580 CALL rconfig_set_diff_opt ( grid%id, ibuf(1) )
581 CALL wrf_get_dom_ti_integer ( fid , 'KM_OPT', ibuf(1), 1, ierr )
582 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for KM_OPT returns ',ibuf(1)
583 CALL wrf_debug ( 300 , wrf_err_message )
584 CALL rconfig_set_km_opt ( grid%id, ibuf(1) )
585 CALL wrf_get_dom_ti_integer ( fid , 'DAMP_OPT', ibuf(1), 1, ierr )
586 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DAMP_OPT returns ',ibuf(1)
587 CALL wrf_debug ( 300 , wrf_err_message )
588 CALL rconfig_set_damp_opt ( grid%id, ibuf(1) )
589 CALL wrf_get_dom_ti_integer ( fid , 'DIFF_6TH_OPT', ibuf(1), 1, ierr )
590 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DIFF_6TH_OPT returns ',ibuf(1)
591 CALL wrf_debug ( 300 , wrf_err_message )
592 CALL rconfig_set_diff_6th_opt ( grid%id, ibuf(1) )
593 CALL wrf_get_dom_ti_logical ( fid , 'NON_HYDROSTATIC', lbuf(1), 1, ierr )
594 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for NON_HYDROSTATIC returns ',lbuf(1)
595 CALL wrf_debug ( 300 , wrf_err_message )
596 CALL rconfig_set_non_hydrostatic ( grid%id, lbuf(1) )
597 CALL wrf_get_dom_ti_integer ( fid , 'H_MOM_ADV_ORDER', ibuf(1), 1, ierr )
598 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for H_MOM_ADV_ORDER returns ',ibuf(1)
599 CALL wrf_debug ( 300 , wrf_err_message )
600 CALL rconfig_set_h_mom_adv_order ( grid%id, ibuf(1) )
601 CALL wrf_get_dom_ti_integer ( fid , 'V_MOM_ADV_ORDER', ibuf(1), 1, ierr )
602 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for V_MOM_ADV_ORDER returns ',ibuf(1)
603 CALL wrf_debug ( 300 , wrf_err_message )
604 CALL rconfig_set_v_mom_adv_order ( grid%id, ibuf(1) )
605 CALL wrf_get_dom_ti_integer ( fid , 'H_SCA_ADV_ORDER', ibuf(1), 1, ierr )
606 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for H_SCA_ADV_ORDER returns ',ibuf(1)
607 CALL wrf_debug ( 300 , wrf_err_message )
608 CALL rconfig_set_h_sca_adv_order ( grid%id, ibuf(1) )
609 CALL wrf_get_dom_ti_integer ( fid , 'V_SCA_ADV_ORDER', ibuf(1), 1, ierr )
610 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for V_SCA_ADV_ORDER returns ',ibuf(1)
611 CALL wrf_debug ( 300 , wrf_err_message )
612 CALL rconfig_set_v_sca_adv_order ( grid%id, ibuf(1) )
613 CALL wrf_get_dom_ti_logical ( fid , 'PD_MOIST', lbuf(1), 1, ierr )
614 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PD_MOIST returns ',lbuf(1)
615 CALL wrf_debug ( 300 , wrf_err_message )
616 CALL rconfig_set_pd_moist ( grid%id, lbuf(1) )
617 CALL wrf_get_dom_ti_logical ( fid , 'PD_CHEM', lbuf(1), 1, ierr )
618 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PD_CHEM returns ',lbuf(1)
619 CALL wrf_debug ( 300 , wrf_err_message )
620 CALL rconfig_set_pd_chem ( grid%id, lbuf(1) )
621 CALL wrf_get_dom_ti_logical ( fid , 'PD_SCALAR', lbuf(1), 1, ierr )
622 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PD_SCALAR returns ',lbuf(1)
623 CALL wrf_debug ( 300 , wrf_err_message )
624 CALL rconfig_set_pd_scalar ( grid%id, lbuf(1) )
625 CALL wrf_get_dom_ti_logical ( fid , 'PD_TKE', lbuf(1), 1, ierr )
626 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PD_TKE returns ',lbuf(1)
627 CALL wrf_debug ( 300 , wrf_err_message )
628 CALL rconfig_set_pd_tke ( grid%id, lbuf(1) )
629 CALL wrf_get_dom_ti_logical ( fid , 'TOP_RADIATION', lbuf(1), 1, ierr )
630 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for TOP_RADIATION returns ',lbuf(1)
631 CALL wrf_debug ( 300 , wrf_err_message )
632 CALL rconfig_set_top_radiation ( grid%id, lbuf(1) )
633 CALL wrf_get_dom_ti_logical ( fid , 'PERT_CORIOLIS', lbuf(1), 1, ierr )
634 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PERT_CORIOLIS returns ',lbuf(1)
635 CALL wrf_debug ( 300 , wrf_err_message )
636 CALL rconfig_set_pert_coriolis ( grid%id, lbuf(1) )
637 CALL wrf_get_dom_ti_logical ( fid , 'MIX_FULL_FIELD', lbuf(1), 1, ierr )
638 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for MIX_FULL_FIELD returns ',lbuf(1)
639 CALL wrf_debug ( 300 , wrf_err_message )
640 CALL rconfig_set_mix_full_fields ( grid%id, lbuf(1) )
641 CALL wrf_get_dom_ti_integer ( fid , 'SPEC_BDY_WIDTH', ibuf(1), 1, ierr )
642 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SPEC_BDY_WIDTH returns ',ibuf(1)
643 CALL wrf_debug ( 300 , wrf_err_message )
644 CALL rconfig_set_spec_bdy_width ( grid%id, ibuf(1) )
645 CALL wrf_get_dom_ti_integer ( fid , 'SPEC_ZONE', ibuf(1), 1, ierr )
646 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SPEC_ZONE returns ',ibuf(1)
647 CALL wrf_debug ( 300 , wrf_err_message )
648 CALL rconfig_set_spec_zone ( grid%id, ibuf(1) )
649 CALL wrf_get_dom_ti_integer ( fid , 'RELAX_ZONE', ibuf(1), 1, ierr )
650 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RELAX_ZONE returns ',ibuf(1)
651 CALL wrf_debug ( 300 , wrf_err_message )
652 CALL rconfig_set_relax_zone ( grid%id, ibuf(1) )
653 CALL wrf_get_dom_ti_logical ( fid , 'SPECIFIED', lbuf(1), 1, ierr )
654 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SPECIFIED returns ',lbuf(1)
655 CALL wrf_debug ( 300 , wrf_err_message )
656 CALL rconfig_set_specified ( grid%id, lbuf(1) )
657 CALL wrf_get_dom_ti_logical ( fid , 'PERIODIC_X', lbuf(1), 1, ierr )
658 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PERIODIC_X returns ',lbuf(1)
659 CALL wrf_debug ( 300 , wrf_err_message )
660 CALL rconfig_set_periodic_x ( grid%id, lbuf(1) )
661 CALL wrf_get_dom_ti_logical ( fid , 'SYMMETRIC_XS', lbuf(1), 1, ierr )
662 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SYMMETRIC_XS returns ',lbuf(1)
663 CALL wrf_debug ( 300 , wrf_err_message )
664 CALL rconfig_set_symmetric_xs ( grid%id, lbuf(1) )
665 CALL wrf_get_dom_ti_logical ( fid , 'SYMMETRIC_XE', lbuf(1), 1, ierr )
666 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SYMMETRIC_XE returns ',lbuf(1)
667 CALL wrf_debug ( 300 , wrf_err_message )
668 CALL rconfig_set_symmetric_xe ( grid%id, lbuf(1) )
669 CALL wrf_get_dom_ti_logical ( fid , 'OPEN_XS', lbuf(1), 1, ierr )
670 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for OPEN_XS returns ',lbuf(1)
671 CALL wrf_debug ( 300 , wrf_err_message )
672 CALL rconfig_set_open_xs ( grid%id, lbuf(1) )
673 CALL wrf_get_dom_ti_logical ( fid , 'OPEN_XE', lbuf(1), 1, ierr )
674 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for OPEN_XE returns ',lbuf(1)
675 CALL wrf_debug ( 300 , wrf_err_message )
676 CALL rconfig_set_open_xe ( grid%id, lbuf(1) )
677 CALL wrf_get_dom_ti_logical ( fid , 'PERIODIC_Y', lbuf(1), 1, ierr )
678 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PERIODIC_Y returns ',lbuf(1)
679 CALL wrf_debug ( 300 , wrf_err_message )
680 CALL rconfig_set_periodic_y ( grid%id, lbuf(1) )
681 CALL wrf_get_dom_ti_logical ( fid , 'SYMMETRIC_YS', lbuf(1), 1, ierr )
682 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SYMMETRIC_YS returns ',lbuf(1)
683 CALL wrf_debug ( 300 , wrf_err_message )
684 CALL rconfig_set_symmetric_ys ( grid%id, lbuf(1) )
685 CALL wrf_get_dom_ti_logical ( fid , 'SYMMETRIC_YE', lbuf(1), 1, ierr )
686 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for SYMMETRIC_YE returns ',lbuf(1)
687 CALL wrf_debug ( 300 , wrf_err_message )
688 CALL rconfig_set_symmetric_ye ( grid%id, lbuf(1) )
689 CALL wrf_get_dom_ti_logical ( fid , 'OPEN_YS', lbuf(1), 1, ierr )
690 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for OPEN_YS returns ',lbuf(1)
691 CALL wrf_debug ( 300 , wrf_err_message )
692 CALL rconfig_set_open_ys ( grid%id, lbuf(1) )
693 CALL wrf_get_dom_ti_logical ( fid , 'OPEN_YE', lbuf(1), 1, ierr )
694 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for OPEN_YE returns ',lbuf(1)
695 CALL wrf_debug ( 300 , wrf_err_message )
696 CALL rconfig_set_open_ye ( grid%id, lbuf(1) )
697 CALL wrf_get_dom_ti_logical ( fid , 'NESTED', lbuf(1), 1, ierr )
698 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for NESTED returns ',lbuf(1)
699 CALL wrf_debug ( 300 , wrf_err_message )
700 CALL rconfig_set_nested ( grid%id, lbuf(1) )
701 CALL wrf_get_dom_ti_integer ( fid , 'REAL_DATA_INIT_TYPE', ibuf(1), 1, ierr )
702 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for REAL_DATA_INIT_TYPE returns ',ibuf(1)
703 CALL wrf_debug ( 300 , wrf_err_message )
704 CALL rconfig_set_real_data_init_type ( grid%id, ibuf(1) )
705 CALL wrf_get_dom_ti_integer ( fid , 'BACKGROUND_PROC_ID', ibuf(1), 1, ierr )
706 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for BACKGROUND_PROC_ID returns ',ibuf(1)
707 CALL wrf_debug ( 300 , wrf_err_message )
708 CALL rconfig_set_background_proc_id ( grid%id, ibuf(1) )
709 CALL wrf_get_dom_ti_integer ( fid , 'FORECAST_PROC_ID', ibuf(1), 1, ierr )
710 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for FORECAST_PROC_ID returns ',ibuf(1)
711 CALL wrf_debug ( 300 , wrf_err_message )
712 CALL rconfig_set_forecast_proc_id ( grid%id, ibuf(1) )
713 CALL wrf_get_dom_ti_integer ( fid , 'PRODUCTION_STATUS', ibuf(1), 1, ierr )
714 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for PRODUCTION_STATUS returns ',ibuf(1)
715 CALL wrf_debug ( 300 , wrf_err_message )
716 CALL rconfig_set_production_status ( grid%id, ibuf(1) )
717 CALL wrf_get_dom_ti_integer ( fid , 'COMPRESSION', ibuf(1), 1, ierr )
718 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for COMPRESSION returns ',ibuf(1)
719 CALL wrf_debug ( 300 , wrf_err_message )
720 CALL rconfig_set_compression ( grid%id, ibuf(1) )