include file: wrf_metaput_restart.inc,9
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaput_restart.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
DO itrace = PARAM_FIRST_SCALAR , num_moist
IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field
( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(moist_dname_table( grid%id, itrace )), & !data name
grid%moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
moist_desc_table( grid%id, itrace ), & ! Desc
moist_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_moist
IF (BTEST(dfi_moist_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_moist_dname_table( grid%id, itrace )), & !data name
grid%dfi_moist(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
dfi_moist_desc_table( grid%id, itrace ), & ! Desc
dfi_moist_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(dfi_moist_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_chem
IF (BTEST(chem_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(chem_dname_table( grid%id, itrace )), & !data name
grid%chem(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
chem_desc_table( grid%id, itrace ), & ! Desc
chem_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(chem_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_scalar
IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(scalar_dname_table( grid%id, itrace )), & !data name
grid%scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
scalar_desc_table( grid%id, itrace ), & ! Desc
scalar_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_dfi_scalar
IF (BTEST(dfi_scalar_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(dfi_scalar_dname_table( grid%id, itrace )), & !data name
grid%dfi_scalar(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
dfi_scalar_desc_table( grid%id, itrace ), & ! Desc
dfi_scalar_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(dfi_scalar_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_ozmixm
IF (BTEST(ozmixm_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(ozmixm_dname_table( grid%id, itrace )), & !data name
grid%ozmixm(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'levsiz' , & ! Dimname 2
'south_north' , & ! Dimname 3
ozmixm_desc_table( grid%id, itrace ), & ! Desc
ozmixm_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(ozmixm_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%levsiz , jds , (jde-1) , &
ims , ime , 1 , config_flags%levsiz , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%levsiz , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_aerosolc
IF (BTEST(aerosolc_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(aerosolc_dname_table( grid%id, itrace )), & !data name
grid%aerosolc_2(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'paerlev' , & ! Dimname 2
'south_north' , & ! Dimname 3
aerosolc_desc_table( grid%id, itrace ), & ! Desc
aerosolc_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(aerosolc_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , config_flags%paerlev , jds , (jde-1) , &
ims , ime , 1 , config_flags%paerlev , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , config_flags%paerlev , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_fdda3d
IF (BTEST(fdda3d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda3d_dname_table( grid%id, itrace )), & !data name
grid%fdda3d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'' , & ! Stagger
'west_east' , & ! Dimname 1
'bottom_top' , & ! Dimname 2
'south_north' , & ! Dimname 3
fdda3d_desc_table( grid%id, itrace ), & ! Desc
fdda3d_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(fdda3d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , kds , (kde-1) , jds , (jde-1) , &
ims , ime , kms , kme , jms , jme , &
ips , MIN( (ide-1), ipe ) , kps , MIN( (kde-1), kpe ) , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR , num_fdda2d
IF (BTEST(fdda2d_stream_table(grid%id, itrace ) , switch )) THEN
CALL wrf_ext_write_field ( &
fid , & ! DataHandle
current_date(1:19) , & ! DateStr
TRIM(fdda2d_dname_table( grid%id, itrace )), & !data name
grid%fdda2d(ims,kms,jms,itrace) , & ! Field
WRF_FLOAT , & ! FieldType
grid%communicator , & ! Comm
grid%iocommunicator , & ! Comm
grid%domdesc , & ! Comm
grid%bdy_mask , & ! bdy_mask
dryrun , & ! flag
'XZY' , & ! MemoryOrder
'Z' , & ! Stagger
'west_east' , & ! Dimname 1
'one_stag' , & ! Dimname 2
'south_north' , & ! Dimname 3
fdda2d_desc_table( grid%id, itrace ), & ! Desc
fdda2d_units_table( grid%id, itrace ), & ! Units
'inc/wrf_metaput_restart.inc ext_write_field '//TRIM(fdda2d_dname_table( grid%id, itrace ))//' memorder XZY' , & ! Debug message
ids , (ide-1) , 1 , 1 , jds , (jde-1) , &
ims , ime , 1 , 1 , jms , jme , &
ips , MIN( (ide-1), ipe ) , 1 , 1 , jps , MIN( (jde-1), jpe ) , &
ierr )
ENDIF
ENDDO
CALL rconfig_get_run_days ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RUN_DAYS', ibuf(1), 1, ierr )
CALL rconfig_get_run_hours ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RUN_HOURS', ibuf(1), 1, ierr )
CALL rconfig_get_run_minutes ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RUN_MINUTES', ibuf(1), 1, ierr )
CALL rconfig_get_run_seconds ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RUN_SECONDS', ibuf(1), 1, ierr )
CALL rconfig_get_start_year ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_YEAR', ibuf(1), 1, ierr )
CALL rconfig_get_start_month ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_MONTH', ibuf(1), 1, ierr )
CALL rconfig_get_start_day ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_DAY', ibuf(1), 1, ierr )
CALL rconfig_get_start_hour ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_HOUR', ibuf(1), 1, ierr )
CALL rconfig_get_start_minute ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_MINUTE', ibuf(1), 1, ierr )
CALL rconfig_get_start_second ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'START_SECOND', ibuf(1), 1, ierr )
CALL rconfig_get_end_year ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_YEAR', ibuf(1), 1, ierr )
CALL rconfig_get_end_month ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_MONTH', ibuf(1), 1, ierr )
CALL rconfig_get_end_day ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_DAY', ibuf(1), 1, ierr )
CALL rconfig_get_end_hour ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_HOUR', ibuf(1), 1, ierr )
CALL rconfig_get_end_minute ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_MINUTE', ibuf(1), 1, ierr )
CALL rconfig_get_end_second ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'END_SECOND', ibuf(1), 1, ierr )
CALL rconfig_get_interval_seconds ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'INTERVAL_SECONDS', ibuf(1), 1, ierr )
CALL rconfig_get_input_from_file ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_FILE', lbuf(1), 1, ierr )
CALL rconfig_get_fine_input_stream ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'FINE_INPUT_STREAM', ibuf(1), 1, ierr )
CALL rconfig_get_input_from_hires ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'INPUT_FROM_HIRES', lbuf(1), 1, ierr )
CALL rconfig_get_all_ic_times ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'ALL_IC_TIMES', lbuf(1), 1, ierr )
CALL rconfig_get_dfi_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_nfilter ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_NFILTER', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_write_filtered_input ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'DFI_WRITE_FILTERED_INPUT', lbuf(1), 1, ierr )
CALL rconfig_get_dfi_write_dfi_history ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'DFI_WRITE_DFI_HISTORY', lbuf(1), 1, ierr )
CALL rconfig_get_dfi_cutoff_seconds ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_CUTOFF_SECONDS', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_time_dim ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_TIME_DIM', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_year ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_YEAR', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_month ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_MONTH', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_day ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_DAY', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_hour ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_HOUR', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_minute ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_MINUTE', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_fwdstop_second ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_FWDSTOP_SECOND', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_year ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_YEAR', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_month ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_MONTH', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_day ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_DAY', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_hour ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_HOUR', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_minute ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_MINUTE', ibuf(1), 1, ierr )
CALL rconfig_get_dfi_bckstop_second ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DFI_BCKSTOP_SECOND', ibuf(1), 1, ierr )
CALL rconfig_get_max_dom ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MAX_DOM', ibuf(1), 1, ierr )
CALL rconfig_get_s_we ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'S_WE', ibuf(1), 1, ierr )
CALL rconfig_get_e_we ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'E_WE', ibuf(1), 1, ierr )
CALL rconfig_get_s_sn ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'S_SN', ibuf(1), 1, ierr )
CALL rconfig_get_e_sn ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'E_SN', ibuf(1), 1, ierr )
CALL rconfig_get_s_vert ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'S_VERT', ibuf(1), 1, ierr )
CALL rconfig_get_e_vert ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'E_VERT', ibuf(1), 1, ierr )
CALL rconfig_get_num_metgrid_levels ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_METGRID_LEVELS', ibuf(1), 1, ierr )
CALL rconfig_get_num_metgrid_soil_levels ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_METGRID_SOIL_LEVELS', ibuf(1), 1, ierr )
CALL rconfig_get_p_top_requested ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'P_TOP_REQUESTED', rbuf(1), 1, ierr )
CALL rconfig_get_interp_type ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'INTERP_TYPE', ibuf(1), 1, ierr )
CALL rconfig_get_extrap_type ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'EXTRAP_TYPE', ibuf(1), 1, ierr )
CALL rconfig_get_t_extrap_type ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'T_EXTRAP_TYPE', ibuf(1), 1, ierr )
CALL rconfig_get_lowest_lev_from_sfc ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'LOWEST_LEV_FROM_SFC', lbuf(1), 1, ierr )
CALL rconfig_get_use_levels_below_ground ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'USE_LEVELS_BELOW_GROUND', lbuf(1), 1, ierr )
CALL rconfig_get_use_tavg_for_tsk ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'USE_TAVG_FOR_TSK', lbuf(1), 1, ierr )
CALL rconfig_get_use_surface ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'USE_SURFACE', lbuf(1), 1, ierr )
CALL rconfig_get_lagrange_order ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'LAGRANGE_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_force_sfc_in_vinterp ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'FORCE_SFC_IN_VINTERP', ibuf(1), 1, ierr )
CALL rconfig_get_zap_close_levels ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'ZAP_CLOSE_LEVELS', rbuf(1), 1, ierr )
CALL rconfig_get_sfcp_to_sfcp ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SFCP_TO_SFCP', lbuf(1), 1, ierr )
CALL rconfig_get_adjust_heights ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'ADJUST_HEIGHTS', lbuf(1), 1, ierr )
CALL rconfig_get_smooth_cg_topo ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SMOOTH_CG_TOPO', lbuf(1), 1, ierr )
CALL rconfig_get_rh2qv_wrt_liquid ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'RH2QV_WRT_LIQUID', lbuf(1), 1, ierr )
CALL rconfig_get_grid_id ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'ID', ibuf(1), 1, ierr )
CALL rconfig_get_grid_allowed ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'ALLOWED', lbuf(1), 1, ierr )
CALL rconfig_get_i_parent_start ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'I_PARENT_START', ibuf(1), 1, ierr )
CALL rconfig_get_j_parent_start ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'J_PARENT_START', ibuf(1), 1, ierr )
CALL rconfig_get_swap_x ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SWAP_X', lbuf(1), 1, ierr )
CALL rconfig_get_swap_y ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SWAP_Y', lbuf(1), 1, ierr )
CALL rconfig_get_cycle_x ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'CYCLE_X', lbuf(1), 1, ierr )
CALL rconfig_get_cycle_y ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'CYCLE_Y', lbuf(1), 1, ierr )
CALL rconfig_get_reorder_mesh ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'REORDER_MESH', lbuf(1), 1, ierr )
CALL rconfig_get_insert_bogus_storm ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'INSERT_BOGUS_STORM', lbuf(1), 1, ierr )
CALL rconfig_get_remove_storm ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'REMOVE_STORM', lbuf(1), 1, ierr )
CALL rconfig_get_num_storm ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_STORM', ibuf(1), 1, ierr )
CALL rconfig_get_latc_loc ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'LATC_LOC', rbuf(1), 1, ierr )
CALL rconfig_get_lonc_loc ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'LONC_LOC', rbuf(1), 1, ierr )
CALL rconfig_get_vmax_meters_per_second ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'VMAX_METERS_PER_SECOND', rbuf(1), 1, ierr )
CALL rconfig_get_rmax ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'RMAX', rbuf(1), 1, ierr )
CALL rconfig_get_vmax_ratio ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'VMAX_RATIO', rbuf(1), 1, ierr )
CALL rconfig_get_mp_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MP_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_gsfcgce_hail ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GSFCGCE SELECT HAIL/GRAUPEL', ibuf(1), 1, ierr )
CALL rconfig_get_gsfcgce_2ice ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GSFCGCE SELECT 2ICE/3ICE', ibuf(1), 1, ierr )
CALL rconfig_get_progn ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'PROGN', ibuf(1), 1, ierr )
CALL rconfig_get_ra_lw_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RA_LW_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_ra_sw_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RA_SW_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_naer ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'NAER', rbuf(1), 1, ierr )
CALL rconfig_get_sf_sfclay_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SF_SFCLAY_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_sf_surface_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SF_SURFACE_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_bl_pbl_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'BL_PBL_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_sf_urban_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SF_URBAN_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_cu_physics ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'CU_PHYSICS', ibuf(1), 1, ierr )
CALL rconfig_get_isfflx ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'ISFFLX', ibuf(1), 1, ierr )
CALL rconfig_get_ifsnow ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'IFSNOW', ibuf(1), 1, ierr )
CALL rconfig_get_icloud ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'ICLOUD', ibuf(1), 1, ierr )
CALL rconfig_get_swrad_scat ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SWRAD_SCAT', rbuf(1), 1, ierr )
CALL rconfig_get_surface_input_source ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SURFACE_INPUT_SOURCE', ibuf(1), 1, ierr )
CALL rconfig_get_num_soil_layers ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_SOIL_LAYERS', ibuf(1), 1, ierr )
CALL rconfig_get_num_urban_layers ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_URBAN_LAYERS', ibuf(1), 1, ierr )
CALL rconfig_get_num_months ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_MONTHS', ibuf(1), 1, ierr )
CALL rconfig_get_maxiens ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MAXIENS', ibuf(1), 1, ierr )
CALL rconfig_get_maxens ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MAXENS', ibuf(1), 1, ierr )
CALL rconfig_get_maxens2 ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MAXENS2', ibuf(1), 1, ierr )
CALL rconfig_get_maxens3 ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MAXENS3', ibuf(1), 1, ierr )
CALL rconfig_get_ensdim ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'ENSDIM', ibuf(1), 1, ierr )
CALL rconfig_get_cugd_avedx ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'CUGD_AVEDX', ibuf(1), 1, ierr )
CALL rconfig_get_clos_choice ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'CLOS_CHOICE', ibuf(1), 1, ierr )
CALL rconfig_get_imomentum ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'IMOMENTUM', ibuf(1), 1, ierr )
CALL rconfig_get_chem_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'CHEM_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_pxlsm_smois_init ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'PXLSM_SMOIS_INIT', ibuf(1), 1, ierr )
CALL rconfig_get_fgdtzero ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'FGDTZERO', ibuf(1), 1, ierr )
CALL rconfig_get_grid_fdda ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_grid_sfdda ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_no_pbl_nudging_uv ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_no_pbl_nudging_t ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_no_pbl_nudging_ph ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_no_pbl_nudging_q ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_zfac_uv ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_k_zfac_uv ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_zfac_t ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_k_zfac_t ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_zfac_ph ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_k_zfac_ph ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_if_zfac_q ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_k_zfac_q ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_dk_zfac_uv ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_dk_zfac_t ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_dk_zfac_ph ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_guv ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_guv_sfc ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_gt ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_gt_sfc ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_gq ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_gq_sfc ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_gph ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'GRID_FDDA', rbuf(1), 1, ierr )
CALL rconfig_get_xwavenum ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_ywavenum ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GRID_FDDA', ibuf(1), 1, ierr )
CALL rconfig_get_obs_nudge_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_fdda_start ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'FDDA_START', rbuf(1), 1, ierr )
CALL rconfig_get_fdda_end ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'FDDA_END', rbuf(1), 1, ierr )
CALL rconfig_get_obs_nudge_wind ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_WIND', ibuf(1), 1, ierr )
CALL rconfig_get_obs_coef_wind ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_WIND', rbuf(1), 1, ierr )
CALL rconfig_get_obs_nudge_temp ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_TEMP', ibuf(1), 1, ierr )
CALL rconfig_get_obs_coef_temp ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_TEMP', rbuf(1), 1, ierr )
CALL rconfig_get_obs_nudge_mois ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_MOIS', ibuf(1), 1, ierr )
CALL rconfig_get_obs_coef_mois ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_MOIS', rbuf(1), 1, ierr )
CALL rconfig_get_obs_nudge_pstr ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_NUDGE_PSTR', ibuf(1), 1, ierr )
CALL rconfig_get_obs_coef_pstr ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_COEF_PSTR', rbuf(1), 1, ierr )
CALL rconfig_get_obs_rinxy ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_RINXY', rbuf(1), 1, ierr )
CALL rconfig_get_obs_twindo ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'OBS_TWINDO', rbuf(1), 1, ierr )
CALL rconfig_get_obs_ionf ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_IONF', ibuf(1), 1, ierr )
CALL rconfig_get_obs_prt_max ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_PRT_MAX', ibuf(1), 1, ierr )
CALL rconfig_get_obs_prt_freq ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'OBS_PRT_FREQ', ibuf(1), 1, ierr )
CALL rconfig_get_scm_force ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SCM_FORCE', ibuf(1), 1, ierr )
CALL rconfig_get_scm_force_dx ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SCM_FORCE_DX', rbuf(1), 1, ierr )
CALL rconfig_get_num_force_layers ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'NUM_FORCE_LAYERS', ibuf(1), 1, ierr )
CALL rconfig_get_scm_lu_index ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SCM_LU_INDEX', ibuf(1), 1, ierr )
CALL rconfig_get_scm_isltyp ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SCM_ISLTYP', ibuf(1), 1, ierr )
CALL rconfig_get_scm_vegfra ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SCM_VEGFRA', rbuf(1), 1, ierr )
CALL rconfig_get_scm_canwat ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SCM_CANWAT', ibuf(1), 1, ierr )
CALL rconfig_get_scm_lat ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SCM_LAT', rbuf(1), 1, ierr )
CALL rconfig_get_scm_lon ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SCM_LON', rbuf(1), 1, ierr )
CALL rconfig_get_scm_th_adv ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SCM_TH_ADV', lbuf(1), 1, ierr )
CALL rconfig_get_scm_wind_adv ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SCM_WIND_ADV', lbuf(1), 1, ierr )
CALL rconfig_get_scm_qv_adv ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SCM_QV_ADV', lbuf(1), 1, ierr )
CALL rconfig_get_scm_vert_adv ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SCM_VERT_ADV', lbuf(1), 1, ierr )
CALL rconfig_get_rk_ord ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RK_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_w_damping ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'W_DAMPING', ibuf(1), 1, ierr )
CALL rconfig_get_diff_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DIFF_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_km_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'KM_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_km_opt_dfi ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'KM_OPT_DFI', ibuf(1), 1, ierr )
CALL rconfig_get_damp_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DAMP_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_gwd_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'GWD_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_diff_6th_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'DIFF_6TH_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_non_hydrostatic ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'NON_HYDROSTATIC', lbuf(1), 1, ierr )
CALL rconfig_get_h_mom_adv_order ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'H_MOM_ADV_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_v_mom_adv_order ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'V_MOM_ADV_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_h_sca_adv_order ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'H_SCA_ADV_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_v_sca_adv_order ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'V_SCA_ADV_ORDER', ibuf(1), 1, ierr )
CALL rconfig_get_moist_adv_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MOIST_ADV_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_moist_adv_dfi_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'MOIST_ADV_DFI_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_chem_adv_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'CHEM_ADV_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_scalar_adv_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SCALAR_ADV_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_tke_adv_opt ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'TKE_ADV_OPT', ibuf(1), 1, ierr )
CALL rconfig_get_top_radiation ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'TOP_RADIATION', lbuf(1), 1, ierr )
CALL rconfig_get_top_lid ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'TOP_LID', lbuf(1), 1, ierr )
CALL rconfig_get_pert_coriolis ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'PERT_CORIOLIS', lbuf(1), 1, ierr )
CALL rconfig_get_coriolis2d ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'CORIOLIS2D', lbuf(1), 1, ierr )
CALL rconfig_get_mix_full_fields ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'MIX_FULL_FIELD', lbuf(1), 1, ierr )
CALL rconfig_get_use_baseparam_fr_nml ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'USE_BASEPARAM_FR_NML', lbuf(1), 1, ierr )
CALL rconfig_get_rotated_pole ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'ROTATED_POLE', lbuf(1), 1, ierr )
CALL rconfig_get_do_coriolis ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'DO_CORIOLIS', lbuf(1), 1, ierr )
CALL rconfig_get_do_curvature ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'DO_CURVATURE', lbuf(1), 1, ierr )
CALL rconfig_get_do_gradp ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'DO_GRADP', lbuf(1), 1, ierr )
CALL rconfig_get_spec_bdy_width ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SPEC_BDY_WIDTH', ibuf(1), 1, ierr )
CALL rconfig_get_spec_zone ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'SPEC_ZONE', ibuf(1), 1, ierr )
CALL rconfig_get_relax_zone ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'RELAX_ZONE', ibuf(1), 1, ierr )
CALL rconfig_get_specified ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SPECIFIED', lbuf(1), 1, ierr )
CALL rconfig_get_periodic_x ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'PERIODIC_X', lbuf(1), 1, ierr )
CALL rconfig_get_symmetric_xs ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_XS', lbuf(1), 1, ierr )
CALL rconfig_get_symmetric_xe ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_XE', lbuf(1), 1, ierr )
CALL rconfig_get_open_xs ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'OPEN_XS', lbuf(1), 1, ierr )
CALL rconfig_get_open_xe ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'OPEN_XE', lbuf(1), 1, ierr )
CALL rconfig_get_periodic_y ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'PERIODIC_Y', lbuf(1), 1, ierr )
CALL rconfig_get_symmetric_ys ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_YS', lbuf(1), 1, ierr )
CALL rconfig_get_symmetric_ye ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'SYMMETRIC_YE', lbuf(1), 1, ierr )
CALL rconfig_get_open_ys ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'OPEN_YS', lbuf(1), 1, ierr )
CALL rconfig_get_open_ye ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'OPEN_YE', lbuf(1), 1, ierr )
CALL rconfig_get_polar ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'POLAR', lbuf(1), 1, ierr )
CALL rconfig_get_nested ( grid%id, lbuf(1) )
CALL wrf_put_dom_ti_logical ( fid , 'NESTED', lbuf(1), 1, ierr )
CALL rconfig_get_spec_exp ( grid%id, rbuf(1) )
CALL wrf_put_dom_ti_real ( fid , 'SPEC_EXP', rbuf(1), 1, ierr )
CALL rconfig_get_real_data_init_type ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'REAL_DATA_INIT_TYPE', ibuf(1), 1, ierr )
CALL rconfig_get_background_proc_id ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'BACKGROUND_PROC_ID', ibuf(1), 1, ierr )
CALL rconfig_get_forecast_proc_id ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'FORECAST_PROC_ID', ibuf(1), 1, ierr )
CALL rconfig_get_production_status ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'PRODUCTION_STATUS', ibuf(1), 1, ierr )
CALL rconfig_get_compression ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'COMPRESSION', ibuf(1), 1, ierr )