da_wrfvar_interface.inc

1 subroutine da_wrfvar_interface (grid, config_flags) 
2 
3    !------------------------------------------------------------------------
4    ! Purpose: TBD
5    !------------------------------------------------------------------------
6 
7    implicit none
8 
9    type(domain),               intent(inout) :: grid
10    type(grid_config_rec_type), intent(inout) :: config_flags
11 
12    integer :: idum1, idum2
13 
14    call da_trace_entry("da_wrfvar_interface")
15 
16    ! call mediation_setup_step (grid , config_flags , 1 , 1 , 1)
17 
18    call set_scalar_indices_from_config (grid%id , idum1 , idum2)
19 
20    call model_to_grid_config_rec (grid%id , model_config_rec , config_flags)
21 
22    grid%itimestep = 1
23 
24    call da_solve (grid , config_flags)
25 
26    call da_trace_exit("da_wrfvar_interface")
27 
28 end subroutine da_wrfvar_interface
29 
30