subroutine da_read_basicstates ( xbx, grid, config_flags, timestr ) !------------------------------------------------------------------------- ! Purpose: Read basic state at time = timestr ! ! History: 10/01/2010 Creation (Xin Zhang ) ! !------------------------------------------------------------------------- implicit none character(len=256), intent(in) :: timestr type(domain), intent(inout) :: grid type(xbx_type), intent(inout) :: xbx type(grid_config_rec_type), intent(inout) :: config_flags #ifdef VAR4D if ( grid%trajectory_io ) then call input_nl_xtraj (timestr) call da_swap_xtraj (grid) else config_flags%auxinput6_inname = "auxhist6_d_" call med_auxinput_in ( grid, auxinput6_only, config_flags ) endif call da_transfer_wrftoxb(xbx, grid, config_flags) #endif return end subroutine da_read_basicstates