wrf_metaget_input.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaget_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_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_input.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_input.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_input.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_input.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_input.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_input.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_integer ( fid , 'RUN_DAYS', ibuf(1), 1, ierr )
158 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_DAYS returns ',ibuf(1)
159 CALL wrf_debug ( 300 , wrf_err_message )
160 CALL rconfig_set_run_days ( grid%id, ibuf(1) )
161 CALL wrf_get_dom_ti_integer ( fid , 'RUN_HOURS', ibuf(1), 1, ierr )
162 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_HOURS returns ',ibuf(1)
163 CALL wrf_debug ( 300 , wrf_err_message )
164 CALL rconfig_set_run_hours ( grid%id, ibuf(1) )
165 CALL wrf_get_dom_ti_integer ( fid , 'RUN_MINUTES', ibuf(1), 1, ierr )
166 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_MINUTES returns ',ibuf(1)
167 CALL wrf_debug ( 300 , wrf_err_message )
168 CALL rconfig_set_run_minutes ( grid%id, ibuf(1) )
169 CALL wrf_get_dom_ti_integer ( fid , 'RUN_SECONDS', ibuf(1), 1, ierr )
170 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RUN_SECONDS returns ',ibuf(1)
171 CALL wrf_debug ( 300 , wrf_err_message )
172 CALL rconfig_set_run_seconds ( grid%id, ibuf(1) )
173 CALL wrf_get_dom_ti_integer ( fid , 'START_YEAR', ibuf(1), 1, ierr )
174 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_YEAR returns ',ibuf(1)
175 CALL wrf_debug ( 300 , wrf_err_message )
176 CALL rconfig_set_start_year ( grid%id, ibuf(1) )
177 CALL wrf_get_dom_ti_integer ( fid , 'START_MONTH', ibuf(1), 1, ierr )
178 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_MONTH returns ',ibuf(1)
179 CALL wrf_debug ( 300 , wrf_err_message )
180 CALL rconfig_set_start_month ( grid%id, ibuf(1) )
181 CALL wrf_get_dom_ti_integer ( fid , 'START_DAY', ibuf(1), 1, ierr )
182 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_DAY returns ',ibuf(1)
183 CALL wrf_debug ( 300 , wrf_err_message )
184 CALL rconfig_set_start_day ( grid%id, ibuf(1) )
185 CALL wrf_get_dom_ti_integer ( fid , 'START_HOUR', ibuf(1), 1, ierr )
186 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_HOUR returns ',ibuf(1)
187 CALL wrf_debug ( 300 , wrf_err_message )
188 CALL rconfig_set_start_hour ( grid%id, ibuf(1) )
189 CALL wrf_get_dom_ti_integer ( fid , 'START_MINUTE', ibuf(1), 1, ierr )
190 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_MINUTE returns ',ibuf(1)
191 CALL wrf_debug ( 300 , wrf_err_message )
192 CALL rconfig_set_start_minute ( grid%id, ibuf(1) )
193 CALL wrf_get_dom_ti_integer ( fid , 'START_SECOND', ibuf(1), 1, ierr )
194 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for START_SECOND returns ',ibuf(1)
195 CALL wrf_debug ( 300 , wrf_err_message )
196 CALL rconfig_set_start_second ( grid%id, ibuf(1) )
197 CALL wrf_get_dom_ti_integer ( fid , 'END_YEAR', ibuf(1), 1, ierr )
198 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_YEAR returns ',ibuf(1)
199 CALL wrf_debug ( 300 , wrf_err_message )
200 CALL rconfig_set_end_year ( grid%id, ibuf(1) )
201 CALL wrf_get_dom_ti_integer ( fid , 'END_MONTH', ibuf(1), 1, ierr )
202 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_MONTH returns ',ibuf(1)
203 CALL wrf_debug ( 300 , wrf_err_message )
204 CALL rconfig_set_end_month ( grid%id, ibuf(1) )
205 CALL wrf_get_dom_ti_integer ( fid , 'END_DAY', ibuf(1), 1, ierr )
206 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_DAY returns ',ibuf(1)
207 CALL wrf_debug ( 300 , wrf_err_message )
208 CALL rconfig_set_end_day ( grid%id, ibuf(1) )
209 CALL wrf_get_dom_ti_integer ( fid , 'END_HOUR', ibuf(1), 1, ierr )
210 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_HOUR returns ',ibuf(1)
211 CALL wrf_debug ( 300 , wrf_err_message )
212 CALL rconfig_set_end_hour ( grid%id, ibuf(1) )
213 CALL wrf_get_dom_ti_integer ( fid , 'END_MINUTE', ibuf(1), 1, ierr )
214 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_MINUTE returns ',ibuf(1)
215 CALL wrf_debug ( 300 , wrf_err_message )
216 CALL rconfig_set_end_minute ( grid%id, ibuf(1) )
217 CALL wrf_get_dom_ti_integer ( fid , 'END_SECOND', ibuf(1), 1, ierr )
218 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for END_SECOND returns ',ibuf(1)
219 CALL wrf_debug ( 300 , wrf_err_message )
220 CALL rconfig_set_end_second ( grid%id, ibuf(1) )
221 CALL wrf_get_dom_ti_integer ( fid , 'INTERVAL_SECONDS', ibuf(1), 1, ierr )
222 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for INTERVAL_SECONDS returns ',ibuf(1)
223 CALL wrf_debug ( 300 , wrf_err_message )
224 CALL rconfig_set_interval_seconds ( grid%id, ibuf(1) )
225 CALL wrf_get_dom_ti_logical ( fid , 'INPUT_FROM_FILE', lbuf(1), 1, ierr )
226 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for INPUT_FROM_FILE returns ',lbuf(1)
227 CALL wrf_debug ( 300 , wrf_err_message )
228 CALL rconfig_set_input_from_file ( grid%id, lbuf(1) )
229 CALL wrf_get_dom_ti_integer ( fid , 'FINE_INPUT_STREAM', ibuf(1), 1, ierr )
230 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for FINE_INPUT_STREAM returns ',ibuf(1)
231 CALL wrf_debug ( 300 , wrf_err_message )
232 CALL rconfig_set_fine_input_stream ( grid%id, ibuf(1) )
233 CALL wrf_get_dom_ti_logical ( fid , 'INPUT_FROM_HIRES', lbuf(1), 1, ierr )
234 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for INPUT_FROM_HIRES returns ',lbuf(1)
235 CALL wrf_debug ( 300 , wrf_err_message )
236 CALL rconfig_set_input_from_hires ( grid%id, lbuf(1) )
237 CALL wrf_get_dom_ti_integer ( fid , 'TIME_STEP', ibuf(1), 1, ierr )
238 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for TIME_STEP returns ',ibuf(1)
239 CALL wrf_debug ( 300 , wrf_err_message )
240 CALL rconfig_set_time_step ( grid%id, ibuf(1) )
241 CALL wrf_get_dom_ti_integer ( fid , 'TIME_STEP_FRACT_NUM', ibuf(1), 1, ierr )
242 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for TIME_STEP_FRACT_NUM returns ',ibuf(1)
243 CALL wrf_debug ( 300 , wrf_err_message )
244 CALL rconfig_set_time_step_fract_num ( grid%id, ibuf(1) )
245 CALL wrf_get_dom_ti_integer ( fid , 'TIME_STEP_FRACT_DEN', ibuf(1), 1, ierr )
246 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for TIME_STEP_FRACT_DEN returns ',ibuf(1)
247 CALL wrf_debug ( 300 , wrf_err_message )
248 CALL rconfig_set_time_step_fract_den ( grid%id, ibuf(1) )
249 CALL wrf_get_dom_ti_integer ( fid , 'MAX_DOM', ibuf(1), 1, ierr )
250 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAX_DOM returns ',ibuf(1)
251 CALL wrf_debug ( 300 , wrf_err_message )
252 CALL rconfig_set_max_dom ( grid%id, ibuf(1) )
253 CALL wrf_get_dom_ti_integer ( fid , 'S_WE', ibuf(1), 1, ierr )
254 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_WE returns ',ibuf(1)
255 CALL wrf_debug ( 300 , wrf_err_message )
256 CALL rconfig_set_s_we ( grid%id, ibuf(1) )
257 CALL wrf_get_dom_ti_integer ( fid , 'E_WE', ibuf(1), 1, ierr )
258 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_WE returns ',ibuf(1)
259 CALL wrf_debug ( 300 , wrf_err_message )
260 CALL rconfig_set_e_we ( grid%id, ibuf(1) )
261 CALL wrf_get_dom_ti_integer ( fid , 'S_SN', ibuf(1), 1, ierr )
262 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_SN returns ',ibuf(1)
263 CALL wrf_debug ( 300 , wrf_err_message )
264 CALL rconfig_set_s_sn ( grid%id, ibuf(1) )
265 CALL wrf_get_dom_ti_integer ( fid , 'E_SN', ibuf(1), 1, ierr )
266 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_SN returns ',ibuf(1)
267 CALL wrf_debug ( 300 , wrf_err_message )
268 CALL rconfig_set_e_sn ( grid%id, ibuf(1) )
269 CALL wrf_get_dom_ti_integer ( fid , 'S_VERT', ibuf(1), 1, ierr )
270 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for S_VERT returns ',ibuf(1)
271 CALL wrf_debug ( 300 , wrf_err_message )
272 CALL rconfig_set_s_vert ( grid%id, ibuf(1) )
273 CALL wrf_get_dom_ti_integer ( fid , 'E_VERT', ibuf(1), 1, ierr )
274 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for E_VERT returns ',ibuf(1)
275 CALL wrf_debug ( 300 , wrf_err_message )
276 CALL rconfig_set_e_vert ( grid%id, ibuf(1) )
277 CALL wrf_get_dom_ti_integer ( fid , 'NUM_METGRID_LEVELS', ibuf(1), 1, ierr )
278 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_METGRID_LEVELS returns ',ibuf(1)
279 CALL wrf_debug ( 300 , wrf_err_message )
280 CALL rconfig_set_num_metgrid_levels ( grid%id, ibuf(1) )
281 CALL wrf_get_dom_ti_real ( fid , 'P_TOP_REQUESTED', rbuf(1), 1, ierr )
282 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for P_TOP_REQUESTED returns ',rbuf(1)
283 CALL wrf_debug ( 300 , wrf_err_message )
284 CALL rconfig_set_p_top_requested ( grid%id, rbuf(1) )
285 CALL wrf_get_dom_ti_integer ( fid , 'INTERP_TYPE', ibuf(1), 1, ierr )
286 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for INTERP_TYPE returns ',ibuf(1)
287 CALL wrf_debug ( 300 , wrf_err_message )
288 CALL rconfig_set_interp_type ( grid%id, ibuf(1) )
289 CALL wrf_get_dom_ti_integer ( fid , 'EXTRAP_TYPE', ibuf(1), 1, ierr )
290 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for EXTRAP_TYPE returns ',ibuf(1)
291 CALL wrf_debug ( 300 , wrf_err_message )
292 CALL rconfig_set_extrap_type ( grid%id, ibuf(1) )
293 CALL wrf_get_dom_ti_integer ( fid , 'T_EXTRAP_TYPE', ibuf(1), 1, ierr )
294 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for T_EXTRAP_TYPE returns ',ibuf(1)
295 CALL wrf_debug ( 300 , wrf_err_message )
296 CALL rconfig_set_t_extrap_type ( grid%id, ibuf(1) )
297 CALL wrf_get_dom_ti_logical ( fid , 'LOWEST_LEV_FROM_SFC', lbuf(1), 1, ierr )
298 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for LOWEST_LEV_FROM_SFC returns ',lbuf(1)
299 CALL wrf_debug ( 300 , wrf_err_message )
300 CALL rconfig_set_lowest_lev_from_sfc ( grid%id, lbuf(1) )
301 CALL wrf_get_dom_ti_logical ( fid , 'USE_LEVELS_BELOW_GROUND', lbuf(1), 1, ierr )
302 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for USE_LEVELS_BELOW_GROUND returns ',lbuf(1)
303 CALL wrf_debug ( 300 , wrf_err_message )
304 CALL rconfig_set_use_levels_below_ground ( grid%id, lbuf(1) )
305 CALL wrf_get_dom_ti_logical ( fid , 'USE_SURFACE', lbuf(1), 1, ierr )
306 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for USE_SURFACE returns ',lbuf(1)
307 CALL wrf_debug ( 300 , wrf_err_message )
308 CALL rconfig_set_use_surface ( grid%id, lbuf(1) )
309 CALL wrf_get_dom_ti_integer ( fid , 'LAGRANGE_ORDER', ibuf(1), 1, ierr )
310 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for LAGRANGE_ORDER returns ',ibuf(1)
311 CALL wrf_debug ( 300 , wrf_err_message )
312 CALL rconfig_set_lagrange_order ( grid%id, ibuf(1) )
313 CALL wrf_get_dom_ti_integer ( fid , 'FORCE_SFC_IN_VINTERP', ibuf(1), 1, ierr )
314 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for FORCE_SFC_IN_VINTERP returns ',ibuf(1)
315 CALL wrf_debug ( 300 , wrf_err_message )
316 CALL rconfig_set_force_sfc_in_vinterp ( grid%id, ibuf(1) )
317 CALL wrf_get_dom_ti_real ( fid , 'ZAP_CLOSE_LEVELS', rbuf(1), 1, ierr )
318 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for ZAP_CLOSE_LEVELS returns ',rbuf(1)
319 CALL wrf_debug ( 300 , wrf_err_message )
320 CALL rconfig_set_zap_close_levels ( grid%id, rbuf(1) )
321 CALL wrf_get_dom_ti_logical ( fid , 'AFCP_TO_SFCP', lbuf(1), 1, ierr )
322 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for AFCP_TO_SFCP returns ',lbuf(1)
323 CALL wrf_debug ( 300 , wrf_err_message )
324 CALL rconfig_set_sfcp_to_sfcp ( grid%id, lbuf(1) )
325 CALL wrf_get_dom_ti_logical ( fid , 'ADJUST_HEIGHTS', lbuf(1), 1, ierr )
326 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for ADJUST_HEIGHTS returns ',lbuf(1)
327 CALL wrf_debug ( 300 , wrf_err_message )
328 CALL rconfig_set_adjust_heights ( grid%id, lbuf(1) )
329 CALL wrf_get_dom_ti_integer ( fid , 'ID', ibuf(1), 1, ierr )
330 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ID returns ',ibuf(1)
331 CALL wrf_debug ( 300 , wrf_err_message )
332 CALL rconfig_set_grid_id ( grid%id, ibuf(1) )
333 CALL wrf_get_dom_ti_integer ( fid , 'ISFFLX', ibuf(1), 1, ierr )
334 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ISFFLX returns ',ibuf(1)
335 CALL wrf_debug ( 300 , wrf_err_message )
336 CALL rconfig_set_isfflx ( grid%id, ibuf(1) )
337 CALL wrf_get_dom_ti_integer ( fid , 'IFSNOW', ibuf(1), 1, ierr )
338 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for IFSNOW returns ',ibuf(1)
339 CALL wrf_debug ( 300 , wrf_err_message )
340 CALL rconfig_set_ifsnow ( grid%id, ibuf(1) )
341 CALL wrf_get_dom_ti_integer ( fid , 'ICLOUD', ibuf(1), 1, ierr )
342 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ICLOUD returns ',ibuf(1)
343 CALL wrf_debug ( 300 , wrf_err_message )
344 CALL rconfig_set_icloud ( grid%id, ibuf(1) )
345 CALL wrf_get_dom_ti_real ( fid , 'SWRAD_SCAT', rbuf(1), 1, ierr )
346 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_real for SWRAD_SCAT returns ',rbuf(1)
347 CALL wrf_debug ( 300 , wrf_err_message )
348 CALL rconfig_set_swrad_scat ( grid%id, rbuf(1) )
349 CALL wrf_get_dom_ti_integer ( fid , 'SURFACE_INPUT_SOURCE', ibuf(1), 1, ierr )
350 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SURFACE_INPUT_SOURCE returns ',ibuf(1)
351 CALL wrf_debug ( 300 , wrf_err_message )
352 CALL rconfig_set_surface_input_source ( grid%id, ibuf(1) )
353 CALL wrf_get_dom_ti_integer ( fid , 'NUM_SOIL_LAYERS', ibuf(1), 1, ierr )
354 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_SOIL_LAYERS returns ',ibuf(1)
355 CALL wrf_debug ( 300 , wrf_err_message )
356 CALL rconfig_set_num_soil_layers ( grid%id, ibuf(1) )
357 CALL wrf_get_dom_ti_integer ( fid , 'NUM_MONTHS', ibuf(1), 1, ierr )
358 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for NUM_MONTHS returns ',ibuf(1)
359 CALL wrf_debug ( 300 , wrf_err_message )
360 CALL rconfig_set_num_months ( grid%id, ibuf(1) )
361 CALL wrf_get_dom_ti_integer ( fid , 'MAXIENS', ibuf(1), 1, ierr )
362 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXIENS returns ',ibuf(1)
363 CALL wrf_debug ( 300 , wrf_err_message )
364 CALL rconfig_set_maxiens ( grid%id, ibuf(1) )
365 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS', ibuf(1), 1, ierr )
366 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS returns ',ibuf(1)
367 CALL wrf_debug ( 300 , wrf_err_message )
368 CALL rconfig_set_maxens ( grid%id, ibuf(1) )
369 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS2', ibuf(1), 1, ierr )
370 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS2 returns ',ibuf(1)
371 CALL wrf_debug ( 300 , wrf_err_message )
372 CALL rconfig_set_maxens2 ( grid%id, ibuf(1) )
373 CALL wrf_get_dom_ti_integer ( fid , 'MAXENS3', ibuf(1), 1, ierr )
374 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for MAXENS3 returns ',ibuf(1)
375 CALL wrf_debug ( 300 , wrf_err_message )
376 CALL rconfig_set_maxens3 ( grid%id, ibuf(1) )
377 CALL wrf_get_dom_ti_integer ( fid , 'ENSDIM', ibuf(1), 1, ierr )
378 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for ENSDIM returns ',ibuf(1)
379 CALL wrf_debug ( 300 , wrf_err_message )
380 CALL rconfig_set_ensdim ( grid%id, ibuf(1) )
381 CALL wrf_get_dom_ti_integer ( fid , 'DYN_OPT', ibuf(1), 1, ierr )
382 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DYN_OPT returns ',ibuf(1)
383 CALL wrf_debug ( 300 , wrf_err_message )
384 CALL rconfig_set_dyn_opt ( grid%id, ibuf(1) )
385 CALL wrf_get_dom_ti_integer ( fid , 'RK_ORDER', ibuf(1), 1, ierr )
386 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RK_ORDER returns ',ibuf(1)
387 CALL wrf_debug ( 300 , wrf_err_message )
388 CALL rconfig_set_rk_ord ( grid%id, ibuf(1) )
389 CALL wrf_get_dom_ti_integer ( fid , 'W_DAMPING', ibuf(1), 1, ierr )
390 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for W_DAMPING returns ',ibuf(1)
391 CALL wrf_debug ( 300 , wrf_err_message )
392 CALL rconfig_set_w_damping ( grid%id, ibuf(1) )
393 CALL wrf_get_dom_ti_integer ( fid , 'DIFF_OPT', ibuf(1), 1, ierr )
394 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DIFF_OPT returns ',ibuf(1)
395 CALL wrf_debug ( 300 , wrf_err_message )
396 CALL rconfig_set_diff_opt ( grid%id, ibuf(1) )
397 CALL wrf_get_dom_ti_integer ( fid , 'KM_OPT', ibuf(1), 1, ierr )
398 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for KM_OPT returns ',ibuf(1)
399 CALL wrf_debug ( 300 , wrf_err_message )
400 CALL rconfig_set_km_opt ( grid%id, ibuf(1) )
401 CALL wrf_get_dom_ti_integer ( fid , 'DAMP_OPT', ibuf(1), 1, ierr )
402 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DAMP_OPT returns ',ibuf(1)
403 CALL wrf_debug ( 300 , wrf_err_message )
404 CALL rconfig_set_damp_opt ( grid%id, ibuf(1) )
405 CALL wrf_get_dom_ti_integer ( fid , 'DIFF_6TH_OPT', ibuf(1), 1, ierr )
406 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for DIFF_6TH_OPT returns ',ibuf(1)
407 CALL wrf_debug ( 300 , wrf_err_message )
408 CALL rconfig_set_diff_6th_opt ( grid%id, ibuf(1) )
409 CALL wrf_get_dom_ti_logical ( fid , 'NON_HYDROSTATIC', lbuf(1), 1, ierr )
410 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for NON_HYDROSTATIC returns ',lbuf(1)
411 CALL wrf_debug ( 300 , wrf_err_message )
412 CALL rconfig_set_non_hydrostatic ( grid%id, lbuf(1) )
413 CALL wrf_get_dom_ti_logical ( fid , 'PERT_CORIOLIS', lbuf(1), 1, ierr )
414 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for PERT_CORIOLIS returns ',lbuf(1)
415 CALL wrf_debug ( 300 , wrf_err_message )
416 CALL rconfig_set_pert_coriolis ( grid%id, lbuf(1) )
417 CALL wrf_get_dom_ti_logical ( fid , 'MIX_FULL_FIELD', lbuf(1), 1, ierr )
418 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_logical for MIX_FULL_FIELD returns ',lbuf(1)
419 CALL wrf_debug ( 300 , wrf_err_message )
420 CALL rconfig_set_mix_full_fields ( grid%id, lbuf(1) )
421 CALL wrf_get_dom_ti_integer ( fid , 'SPEC_BDY_WIDTH', ibuf(1), 1, ierr )
422 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SPEC_BDY_WIDTH returns ',ibuf(1)
423 CALL wrf_debug ( 300 , wrf_err_message )
424 CALL rconfig_set_spec_bdy_width ( grid%id, ibuf(1) )
425 CALL wrf_get_dom_ti_integer ( fid , 'SPEC_ZONE', ibuf(1), 1, ierr )
426 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for SPEC_ZONE returns ',ibuf(1)
427 CALL wrf_debug ( 300 , wrf_err_message )
428 CALL rconfig_set_spec_zone ( grid%id, ibuf(1) )
429 CALL wrf_get_dom_ti_integer ( fid , 'RELAX_ZONE', ibuf(1), 1, ierr )
430 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for RELAX_ZONE returns ',ibuf(1)
431 CALL wrf_debug ( 300 , wrf_err_message )
432 CALL rconfig_set_relax_zone ( grid%id, ibuf(1) )
433 CALL wrf_get_dom_ti_integer ( fid , 'REAL_DATA_INIT_TYPE', ibuf(1), 1, ierr )
434 WRITE(wrf_err_message,*)'input_wrf: wrf_get_dom_ti_integer for REAL_DATA_INIT_TYPE returns ',ibuf(1)
435 CALL wrf_debug ( 300 , wrf_err_message )
436 CALL rconfig_set_real_data_init_type ( grid%id, ibuf(1) )