da_wrfvar_interface.inc

1 subroutine da_wrfvar_interface (grid, config_flags) 
2 
3    !------------------------------------------------------------------------
4    ! Purpose: TBD
5    !------------------------------------------------------------------------
6 
7    implicit none
8 
9    interface
10       subroutine da_solve (grid , config_flags)
11 
12       ! Driver layer modules
13       use module_domain
14       use module_configure
15       use module_machine
16       use module_tiles
17       use module_dm
18       ! Mediation layer modules
19       ! Model layer modules
20       use module_model_constants
21 
22       use da_control
23       use da_define_structures
24       use da_setup_structures
25       use da_test
26       use da_minimisation
27 
28       ! Input data.
29 
30       type(domain),                intent(inout) :: grid
31       type (grid_config_rec_type), intent(inout) :: config_flags
32 
33       end subroutine da_solve
34    end interface
35 
36    type(domain),                intent(inout) :: grid
37    type (grid_config_rec_type), intent(inout) :: config_flags
38    integer :: idum1, idum2
39 
40    call da_trace_entry("da_wrfvar_interface")
41 
42    ! call mediation_setup_step (grid , config_flags , 1 , 1 , 1)
43 
44    call set_scalar_indices_from_config (grid%id , idum1 , idum2)
45 
46    call model_to_grid_config_rec (grid%id , model_config_rec , config_flags)
47 
48    grid%itimestep = 1
49 
50    call da_solve (grid , config_flags)
51 
52    call da_trace_exit("da_wrfvar_interface")
53 
54 end subroutine da_wrfvar_interface
55 
56