var/da/da_main/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