include file: wrf_metaput_input.inc,9
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaput_input.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_input.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_input.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_input.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_input.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_input.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_input.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_input.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_input.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_input.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_time_step ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP', ibuf(1), 1, ierr )
CALL rconfig_get_time_step_fract_num ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP_FRACT_NUM', ibuf(1), 1, ierr )
CALL rconfig_get_time_step_fract_den ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'TIME_STEP_FRACT_DEN', 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_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_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_pxlsm_smois_init ( grid%id, ibuf(1) )
CALL wrf_put_dom_ti_integer ( fid , 'PXLSM_SMOIS_INIT', ibuf(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_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_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 )