wrf_metaput_restart.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaput_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_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_restart.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_restart.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_restart.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_restart.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_restart.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_restart.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_jcdfi_use ( grid%id, lbuf(1) )
194 CALL wrf_put_dom_ti_logical ( fid , 'JCDFI_USE', lbuf(1), 1, ierr )
195 CALL rconfig_get_jcdfi_tauc ( grid%id, rbuf(1) )
196 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_TAUC', rbuf(1), 1, ierr )
197 CALL rconfig_get_jcdfi_gama ( grid%id, rbuf(1) )
198 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_GAMA', rbuf(1), 1, ierr )
199 CALL rconfig_get_jcdfi_error_wind ( grid%id, rbuf(1) )
200 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_ERROR_WIND', rbuf(1), 1, ierr )
201 CALL rconfig_get_jcdfi_error_t ( grid%id, rbuf(1) )
202 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_ERROR_T', rbuf(1), 1, ierr )
203 CALL rconfig_get_jcdfi_error_q ( grid%id, rbuf(1) )
204 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_ERROR_Q', rbuf(1), 1, ierr )
205 CALL rconfig_get_jcdfi_error_mu ( grid%id, rbuf(1) )
206 CALL wrf_put_dom_ti_real ( fid , 'JCDFI_ERROR_MU', rbuf(1), 1, ierr )
207 CALL rconfig_get_run_days ( grid%id, ibuf(1) )
208 CALL wrf_put_dom_ti_integer ( fid , 'RUN_DAYS', ibuf(1), 1, ierr )
209 CALL rconfig_get_run_hours ( grid%id, ibuf(1) )
210 CALL wrf_put_dom_ti_integer ( fid , 'RUN_HOURS', ibuf(1), 1, ierr )
211 CALL rconfig_get_run_minutes ( grid%id, ibuf(1) )
212 CALL wrf_put_dom_ti_integer ( fid , 'RUN_MINUTES', ibuf(1), 1, ierr )
213 CALL rconfig_get_run_seconds ( grid%id, ibuf(1) )
214 CALL wrf_put_dom_ti_integer ( fid , 'RUN_SECONDS', ibuf(1), 1, ierr )
215 CALL rconfig_get_start_year ( grid%id, ibuf(1) )
216 CALL wrf_put_dom_ti_integer ( fid , 'START_YEAR', ibuf(1), 1, ierr )
217 CALL rconfig_get_start_month ( grid%id, ibuf(1) )
218 CALL wrf_put_dom_ti_integer ( fid , 'START_MONTH', ibuf(1), 1, ierr )
219 CALL rconfig_get_start_day ( grid%id, ibuf(1) )
220 CALL wrf_put_dom_ti_integer ( fid , 'START_DAY', ibuf(1), 1, ierr )
221 CALL rconfig_get_start_hour ( grid%id, ibuf(1) )
222 CALL wrf_put_dom_ti_integer ( fid , 'START_HOUR', ibuf(1), 1, ierr )
223 CALL rconfig_get_start_minute ( grid%id, ibuf(1) )
224 CALL wrf_put_dom_ti_integer ( fid , 'START_MINUTE', ibuf(1), 1, ierr )
225 CALL rconfig_get_start_second ( grid%id, ibuf(1) )
226 CALL wrf_put_dom_ti_integer ( fid , 'START_SECOND', ibuf(1), 1, ierr )
227 CALL rconfig_get_end_year ( grid%id, ibuf(1) )
228 CALL wrf_put_dom_ti_integer ( fid , 'END_YEAR', ibuf(1), 1, ierr )
229 CALL rconfig_get_end_month ( grid%id, ibuf(1) )
230 CALL wrf_put_dom_ti_integer ( fid , 'END_MONTH', ibuf(1), 1, ierr )
231 CALL rconfig_get_end_day ( grid%id, ibuf(1) )
232 CALL wrf_put_dom_ti_integer ( fid , 'END_DAY', ibuf(1), 1, ierr )
233 CALL rconfig_get_end_hour ( grid%id, ibuf(1) )
234 CALL wrf_put_dom_ti_integer ( fid , 'END_HOUR', ibuf(1), 1, ierr )
235 CALL rconfig_get_end_minute ( grid%id, ibuf(1) )
236 CALL wrf_put_dom_ti_integer ( fid , 'END_MINUTE', ibuf(1), 1, ierr )
237 CALL rconfig_get_end_second ( grid%id, ibuf(1) )
238 CALL wrf_put_dom_ti_integer ( fid , 'END_SECOND', ibuf(1), 1, ierr )
239 CALL rconfig_get_interval_seconds ( grid%id, ibuf(1) )
240 CALL wrf_put_dom_ti_integer ( fid , 'INTERVAL_SECONDS', ibuf(1), 1, ierr )
241 CALL rconfig_get_input_from_file ( grid%id, lbuf(1) )
242 CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_FILE', lbuf(1), 1, ierr )
243 CALL rconfig_get_fine_input_stream ( grid%id, ibuf(1) )
244 CALL wrf_put_dom_ti_integer ( fid , 'FINE_INPUT_STREAM', ibuf(1), 1, ierr )
245 CALL rconfig_get_input_from_hires ( grid%id, lbuf(1) )
246 CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_HIRES', lbuf(1), 1, ierr )
247 CALL rconfig_get_max_dom ( grid%id, ibuf(1) )
248 CALL wrf_put_dom_ti_integer ( fid , 'MAX_DOM', ibuf(1), 1, ierr )
249 CALL rconfig_get_s_we ( grid%id, ibuf(1) )
250 CALL wrf_put_dom_ti_integer ( fid , 'S_WE', ibuf(1), 1, ierr )
251 CALL rconfig_get_e_we ( grid%id, ibuf(1) )
252 CALL wrf_put_dom_ti_integer ( fid , 'E_WE', ibuf(1), 1, ierr )
253 CALL rconfig_get_s_sn ( grid%id, ibuf(1) )
254 CALL wrf_put_dom_ti_integer ( fid , 'S_SN', ibuf(1), 1, ierr )
255 CALL rconfig_get_e_sn ( grid%id, ibuf(1) )
256 CALL wrf_put_dom_ti_integer ( fid , 'E_SN', ibuf(1), 1, ierr )
257 CALL rconfig_get_s_vert ( grid%id, ibuf(1) )
258 CALL wrf_put_dom_ti_integer ( fid , 'S_VERT', ibuf(1), 1, ierr )
259 CALL rconfig_get_e_vert ( grid%id, ibuf(1) )
260 CALL wrf_put_dom_ti_integer ( fid , 'E_VERT', ibuf(1), 1, ierr )
261 CALL rconfig_get_num_metgrid_levels ( grid%id, ibuf(1) )
262 CALL wrf_put_dom_ti_integer ( fid , 'NUM_METGRID_LEVELS', ibuf(1), 1, ierr )
263 CALL rconfig_get_p_top_requested ( grid%id, rbuf(1) )
264 CALL wrf_put_dom_ti_real ( fid , 'P_TOP_REQUESTED', rbuf(1), 1, ierr )
265 CALL rconfig_get_interp_type ( grid%id, ibuf(1) )
266 CALL wrf_put_dom_ti_integer ( fid , 'INTERP_TYPE', ibuf(1), 1, ierr )
267 CALL rconfig_get_extrap_type ( grid%id, ibuf(1) )
268 CALL wrf_put_dom_ti_integer ( fid , 'EXTRAP_TYPE', ibuf(1), 1, ierr )
269 CALL rconfig_get_t_extrap_type ( grid%id, ibuf(1) )
270 CALL wrf_put_dom_ti_integer ( fid , 'T_EXTRAP_TYPE', ibuf(1), 1, ierr )
271 CALL rconfig_get_lowest_lev_from_sfc ( grid%id, lbuf(1) )
272 CALL wrf_put_dom_ti_logical ( fid , 'LOWEST_LEV_FROM_SFC', lbuf(1), 1, ierr )
273 CALL rconfig_get_use_levels_below_ground ( grid%id, lbuf(1) )
274 CALL wrf_put_dom_ti_logical ( fid , 'USE_LEVELS_BELOW_GROUND', lbuf(1), 1, ierr )
275 CALL rconfig_get_use_surface ( grid%id, lbuf(1) )
276 CALL wrf_put_dom_ti_logical ( fid , 'USE_SURFACE', lbuf(1), 1, ierr )
277 CALL rconfig_get_lagrange_order ( grid%id, ibuf(1) )
278 CALL wrf_put_dom_ti_integer ( fid , 'LAGRANGE_ORDER', ibuf(1), 1, ierr )
279 CALL rconfig_get_force_sfc_in_vinterp ( grid%id, ibuf(1) )
280 CALL wrf_put_dom_ti_integer ( fid , 'FORCE_SFC_IN_VINTERP', ibuf(1), 1, ierr )
281 CALL rconfig_get_zap_close_levels ( grid%id, rbuf(1) )
282 CALL wrf_put_dom_ti_real ( fid , 'ZAP_CLOSE_LEVELS', rbuf(1), 1, ierr )
283 CALL rconfig_get_sfcp_to_sfcp ( grid%id, lbuf(1) )
284 CALL wrf_put_dom_ti_logical ( fid , 'AFCP_TO_SFCP', lbuf(1), 1, ierr )
285 CALL rconfig_get_adjust_heights ( grid%id, lbuf(1) )
286 CALL wrf_put_dom_ti_logical ( fid , 'ADJUST_HEIGHTS', lbuf(1), 1, ierr )
287 CALL rconfig_get_grid_id ( grid%id, ibuf(1) )
288 CALL wrf_put_dom_ti_integer ( fid , 'ID', ibuf(1), 1, ierr )
289 CALL rconfig_get_i_parent_start ( grid%id, ibuf(1) )
290 CALL wrf_put_dom_ti_integer ( fid , 'I_PARENT_START', ibuf(1), 1, ierr )
291 CALL rconfig_get_j_parent_start ( grid%id, ibuf(1) )
292 CALL wrf_put_dom_ti_integer ( fid , 'J_PARENT_START', ibuf(1), 1, ierr )
293 CALL rconfig_get_swap_x ( grid%id, lbuf(1) )
294 CALL wrf_put_dom_ti_logical ( fid , 'SWAP_X', lbuf(1), 1, ierr )
295 CALL rconfig_get_swap_y ( grid%id, lbuf(1) )
296 CALL wrf_put_dom_ti_logical ( fid , 'SWAP_Y', lbuf(1), 1, ierr )
297 CALL rconfig_get_cycle_x ( grid%id, lbuf(1) )
298 CALL wrf_put_dom_ti_logical ( fid , 'CYCLE_X', lbuf(1), 1, ierr )
299 CALL rconfig_get_cycle_y ( grid%id, lbuf(1) )
300 CALL wrf_put_dom_ti_logical ( fid , 'CYCLE_Y', lbuf(1), 1, ierr )
301 CALL rconfig_get_reorder_mesh ( grid%id, lbuf(1) )
302 CALL wrf_put_dom_ti_logical ( fid , 'REORDER_MESH', lbuf(1), 1, ierr )
303 CALL rconfig_get_mp_physics ( grid%id, ibuf(1) )
304 CALL wrf_put_dom_ti_integer ( fid , 'MP_PHYSICS', ibuf(1), 1, ierr )
305 CALL rconfig_get_progn ( grid%id, ibuf(1) )
306 CALL wrf_put_dom_ti_integer ( fid , 'PROGN', ibuf(1), 1, ierr )
307 CALL rconfig_get_ra_lw_physics ( grid%id, ibuf(1) )
308 CALL wrf_put_dom_ti_integer ( fid , 'RA_LW_PHYSICS', ibuf(1), 1, ierr )
309 CALL rconfig_get_ra_sw_physics ( grid%id, ibuf(1) )
310 CALL wrf_put_dom_ti_integer ( fid , 'RA_SW_PHYSICS', ibuf(1), 1, ierr )
311 CALL rconfig_get_naer ( grid%id, rbuf(1) )
312 CALL wrf_put_dom_ti_real ( fid , 'NAER', rbuf(1), 1, ierr )
313 CALL rconfig_get_sf_sfclay_physics ( grid%id, ibuf(1) )
314 CALL wrf_put_dom_ti_integer ( fid , 'SF_SFCLAY_PHYSICS', ibuf(1), 1, ierr )
315 CALL rconfig_get_sf_surface_physics ( grid%id, ibuf(1) )
316 CALL wrf_put_dom_ti_integer ( fid , 'SF_SURFACE_PHYSICS', ibuf(1), 1, ierr )
317 CALL rconfig_get_bl_pbl_physics ( grid%id, ibuf(1) )
318 CALL wrf_put_dom_ti_integer ( fid , 'BL_PBL_PHYSICS', ibuf(1), 1, ierr )
319 CALL rconfig_get_cu_physics ( grid%id, ibuf(1) )
320 CALL wrf_put_dom_ti_integer ( fid , 'CU_PHYSICS', ibuf(1), 1, ierr )
321 CALL rconfig_get_isfflx ( grid%id, ibuf(1) )
322 CALL wrf_put_dom_ti_integer ( fid , 'ISFFLX', ibuf(1), 1, ierr )
323 CALL rconfig_get_ifsnow ( grid%id, ibuf(1) )
324 CALL wrf_put_dom_ti_integer ( fid , 'IFSNOW', ibuf(1), 1, ierr )
325 CALL rconfig_get_icloud ( grid%id, ibuf(1) )
326 CALL wrf_put_dom_ti_integer ( fid , 'ICLOUD', ibuf(1), 1, ierr )
327 CALL rconfig_get_swrad_scat ( grid%id, rbuf(1) )
328 CALL wrf_put_dom_ti_real ( fid , 'SWRAD_SCAT', rbuf(1), 1, ierr )
329 CALL rconfig_get_surface_input_source ( grid%id, ibuf(1) )
330 CALL wrf_put_dom_ti_integer ( fid , 'SURFACE_INPUT_SOURCE', ibuf(1), 1, ierr )
331 CALL rconfig_get_num_soil_layers ( grid%id, ibuf(1) )
332 CALL wrf_put_dom_ti_integer ( fid , 'NUM_SOIL_LAYERS', ibuf(1), 1, ierr )
333 CALL rconfig_get_num_months ( grid%id, ibuf(1) )
334 CALL wrf_put_dom_ti_integer ( fid , 'NUM_MONTHS', ibuf(1), 1, ierr )
335 CALL rconfig_get_maxiens ( grid%id, ibuf(1) )
336 CALL wrf_put_dom_ti_integer ( fid , 'MAXIENS', ibuf(1), 1, ierr )
337 CALL rconfig_get_maxens ( grid%id, ibuf(1) )
338 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS', ibuf(1), 1, ierr )
339 CALL rconfig_get_maxens2 ( grid%id, ibuf(1) )
340 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS2', ibuf(1), 1, ierr )
341 CALL rconfig_get_maxens3 ( grid%id, ibuf(1) )
342 CALL wrf_put_dom_ti_integer ( fid , 'MAXENS3', ibuf(1), 1, ierr )
343 CALL rconfig_get_ensdim ( grid%id, ibuf(1) )
344 CALL wrf_put_dom_ti_integer ( fid , 'ENSDIM', ibuf(1), 1, ierr )
345 CALL rconfig_get_chem_opt ( grid%id, ibuf(1) )
346 CALL wrf_put_dom_ti_integer ( fid , 'CHEM_OPT', ibuf(1), 1, ierr )
347 CALL rconfig_get_grid_fdda ( grid%id, ibuf(1) )
348 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
349 CALL rconfig_get_if_no_pbl_nudging_uv ( grid%id, ibuf(1) )
350 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
351 CALL rconfig_get_if_no_pbl_nudging_t ( grid%id, ibuf(1) )
352 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
353 CALL rconfig_get_if_no_pbl_nudging_q ( grid%id, ibuf(1) )
354 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
355 CALL rconfig_get_if_zfac_uv ( grid%id, ibuf(1) )
356 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
357 CALL rconfig_get_k_zfac_uv ( grid%id, ibuf(1) )
358 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
359 CALL rconfig_get_if_zfac_t ( grid%id, ibuf(1) )
360 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
361 CALL rconfig_get_k_zfac_t ( grid%id, ibuf(1) )
362 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
363 CALL rconfig_get_if_zfac_q ( grid%id, ibuf(1) )
364 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
365 CALL rconfig_get_k_zfac_q ( grid%id, ibuf(1) )
366 CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
367 CALL rconfig_get_guv ( grid%id, rbuf(1) )
368 CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
369 CALL rconfig_get_gt ( grid%id, rbuf(1) )
370 CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
371 CALL rconfig_get_gq ( grid%id, rbuf(1) )
372 CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
373 CALL rconfig_get_obs_nudge_opt ( grid%id, ibuf(1) )
374 CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_OPT', ibuf(1), 1, ierr )
375 CALL rconfig_get_fdda_start ( grid%id, rbuf(1) )
376 CALL wrf_put_dom_ti_real ( fid , 'FDDA_START', rbuf(1), 1, ierr )
377 CALL rconfig_get_fdda_end ( grid%id, rbuf(1) )
378 CALL wrf_put_dom_ti_real ( fid , 'FDDA_END', rbuf(1), 1, ierr )
379 CALL rconfig_get_obs_nudge_wind ( grid%id, ibuf(1) )
380 CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_WIND', ibuf(1), 1, ierr )
381 CALL rconfig_get_obs_coef_wind ( grid%id, rbuf(1) )
382 CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_WIND', rbuf(1), 1, ierr )
383 CALL rconfig_get_obs_nudge_temp ( grid%id, ibuf(1) )
384 CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_TEMP', ibuf(1), 1, ierr )
385 CALL rconfig_get_obs_coef_temp ( grid%id, rbuf(1) )
386 CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_TEMP', rbuf(1), 1, ierr )
387 CALL rconfig_get_obs_nudge_mois ( grid%id, ibuf(1) )
388 CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_MOIS', ibuf(1), 1, ierr )
389 CALL rconfig_get_obs_coef_mois ( grid%id, rbuf(1) )
390 CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_MOIS', rbuf(1), 1, ierr )
391 CALL rconfig_get_obs_nudge_pstr ( grid%id, ibuf(1) )
392 CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_PSTR', ibuf(1), 1, ierr )
393 CALL rconfig_get_obs_coef_pstr ( grid%id, rbuf(1) )
394 CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_PSTR', rbuf(1), 1, ierr )
395 CALL rconfig_get_obs_rinxy ( grid%id, rbuf(1) )
396 CALL wrf_put_dom_ti_real ( fid , 'OBS_RINXY', rbuf(1), 1, ierr )
397 CALL rconfig_get_dyn_opt ( grid%id, ibuf(1) )
398 CALL wrf_put_dom_ti_integer ( fid , 'DYN_OPT', ibuf(1), 1, ierr )
399 CALL rconfig_get_rk_ord ( grid%id, ibuf(1) )
400 CALL wrf_put_dom_ti_integer ( fid , 'RK_ORDER', ibuf(1), 1, ierr )
401 CALL rconfig_get_w_damping ( grid%id, ibuf(1) )
402 CALL wrf_put_dom_ti_integer ( fid , 'W_DAMPING', ibuf(1), 1, ierr )
403 CALL rconfig_get_diff_opt ( grid%id, ibuf(1) )
404 CALL wrf_put_dom_ti_integer ( fid , 'DIFF_OPT', ibuf(1), 1, ierr )
405 CALL rconfig_get_km_opt ( grid%id, ibuf(1) )
406 CALL wrf_put_dom_ti_integer ( fid , 'KM_OPT', ibuf(1), 1, ierr )
407 CALL rconfig_get_damp_opt ( grid%id, ibuf(1) )
408 CALL wrf_put_dom_ti_integer ( fid , 'DAMP_OPT', ibuf(1), 1, ierr )
409 CALL rconfig_get_diff_6th_opt ( grid%id, ibuf(1) )
410 CALL wrf_put_dom_ti_integer ( fid , 'DIFF_6TH_OPT', ibuf(1), 1, ierr )
411 CALL rconfig_get_non_hydrostatic ( grid%id, lbuf(1) )
412 CALL wrf_put_dom_ti_logical ( fid , 'NON_HYDROSTATIC', lbuf(1), 1, ierr )
413 CALL rconfig_get_h_mom_adv_order ( grid%id, ibuf(1) )
414 CALL wrf_put_dom_ti_integer ( fid , 'H_MOM_ADV_ORDER', ibuf(1), 1, ierr )
415 CALL rconfig_get_v_mom_adv_order ( grid%id, ibuf(1) )
416 CALL wrf_put_dom_ti_integer ( fid , 'V_MOM_ADV_ORDER', ibuf(1), 1, ierr )
417 CALL rconfig_get_h_sca_adv_order ( grid%id, ibuf(1) )
418 CALL wrf_put_dom_ti_integer ( fid , 'H_SCA_ADV_ORDER', ibuf(1), 1, ierr )
419 CALL rconfig_get_v_sca_adv_order ( grid%id, ibuf(1) )
420 CALL wrf_put_dom_ti_integer ( fid , 'V_SCA_ADV_ORDER', ibuf(1), 1, ierr )
421 CALL rconfig_get_pd_moist ( grid%id, lbuf(1) )
422 CALL wrf_put_dom_ti_logical ( fid , 'PD_MOIST', lbuf(1), 1, ierr )
423 CALL rconfig_get_pd_chem ( grid%id, lbuf(1) )
424 CALL wrf_put_dom_ti_logical ( fid , 'PD_CHEM', lbuf(1), 1, ierr )
425 CALL rconfig_get_pd_scalar ( grid%id, lbuf(1) )
426 CALL wrf_put_dom_ti_logical ( fid , 'PD_SCALAR', lbuf(1), 1, ierr )
427 CALL rconfig_get_pd_tke ( grid%id, lbuf(1) )
428 CALL wrf_put_dom_ti_logical ( fid , 'PD_TKE', lbuf(1), 1, ierr )
429 CALL rconfig_get_top_radiation ( grid%id, lbuf(1) )
430 CALL wrf_put_dom_ti_logical ( fid , 'TOP_RADIATION', lbuf(1), 1, ierr )
431 CALL rconfig_get_pert_coriolis ( grid%id, lbuf(1) )
432 CALL wrf_put_dom_ti_logical ( fid , 'PERT_CORIOLIS', lbuf(1), 1, ierr )
433 CALL rconfig_get_mix_full_fields ( grid%id, lbuf(1) )
434 CALL wrf_put_dom_ti_logical ( fid , 'MIX_FULL_FIELD', lbuf(1), 1, ierr )
435 CALL rconfig_get_spec_bdy_width ( grid%id, ibuf(1) )
436 CALL wrf_put_dom_ti_integer ( fid , 'SPEC_BDY_WIDTH', ibuf(1), 1, ierr )
437 CALL rconfig_get_spec_zone ( grid%id, ibuf(1) )
438 CALL wrf_put_dom_ti_integer ( fid , 'SPEC_ZONE', ibuf(1), 1, ierr )
439 CALL rconfig_get_relax_zone ( grid%id, ibuf(1) )
440 CALL wrf_put_dom_ti_integer ( fid , 'RELAX_ZONE', ibuf(1), 1, ierr )
441 CALL rconfig_get_specified ( grid%id, lbuf(1) )
442 CALL wrf_put_dom_ti_logical ( fid , 'SPECIFIED', lbuf(1), 1, ierr )
443 CALL rconfig_get_periodic_x ( grid%id, lbuf(1) )
444 CALL wrf_put_dom_ti_logical ( fid , 'PERIODIC_X', lbuf(1), 1, ierr )
445 CALL rconfig_get_symmetric_xs ( grid%id, lbuf(1) )
446 CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_XS', lbuf(1), 1, ierr )
447 CALL rconfig_get_symmetric_xe ( grid%id, lbuf(1) )
448 CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_XE', lbuf(1), 1, ierr )
449 CALL rconfig_get_open_xs ( grid%id, lbuf(1) )
450 CALL wrf_put_dom_ti_logical ( fid , 'OPEN_XS', lbuf(1), 1, ierr )
451 CALL rconfig_get_open_xe ( grid%id, lbuf(1) )
452 CALL wrf_put_dom_ti_logical ( fid , 'OPEN_XE', lbuf(1), 1, ierr )
453 CALL rconfig_get_periodic_y ( grid%id, lbuf(1) )
454 CALL wrf_put_dom_ti_logical ( fid , 'PERIODIC_Y', lbuf(1), 1, ierr )
455 CALL rconfig_get_symmetric_ys ( grid%id, lbuf(1) )
456 CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_YS', lbuf(1), 1, ierr )
457 CALL rconfig_get_symmetric_ye ( grid%id, lbuf(1) )
458 CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_YE', lbuf(1), 1, ierr )
459 CALL rconfig_get_open_ys ( grid%id, lbuf(1) )
460 CALL wrf_put_dom_ti_logical ( fid , 'OPEN_YS', lbuf(1), 1, ierr )
461 CALL rconfig_get_open_ye ( grid%id, lbuf(1) )
462 CALL wrf_put_dom_ti_logical ( fid , 'OPEN_YE', lbuf(1), 1, ierr )
463 CALL rconfig_get_nested ( grid%id, lbuf(1) )
464 CALL wrf_put_dom_ti_logical ( fid , 'NESTED', lbuf(1), 1, ierr )
465 CALL rconfig_get_real_data_init_type ( grid%id, ibuf(1) )
466 CALL wrf_put_dom_ti_integer ( fid , 'REAL_DATA_INIT_TYPE', ibuf(1), 1, ierr )
467 CALL rconfig_get_background_proc_id ( grid%id, ibuf(1) )
468 CALL wrf_put_dom_ti_integer ( fid , 'BACKGROUND_PROC_ID', ibuf(1), 1, ierr )
469 CALL rconfig_get_forecast_proc_id ( grid%id, ibuf(1) )
470 CALL wrf_put_dom_ti_integer ( fid , 'FORECAST_PROC_ID', ibuf(1), 1, ierr )
471 CALL rconfig_get_production_status ( grid%id, ibuf(1) )
472 CALL wrf_put_dom_ti_integer ( fid , 'PRODUCTION_STATUS', ibuf(1), 1, ierr )
473 CALL rconfig_get_compression ( grid%id, ibuf(1) )
474 CALL wrf_put_dom_ti_integer ( fid , 'COMPRESSION', ibuf(1), 1, ierr )