var/da/da_main/da_wrfvar_run.inc

   1 subroutine da_wrfvar_run()
   2
   3    !-------------------------------------------------------------------------
   4    ! Purpose: run wrfvar
   5    !-------------------------------------------------------------------------
   6
   7    implicit none
   8
   9    if (trace_use) call da_trace_entry("da_wrfvar_run")
  10
  11    call da_wrfvar_interface (input_grid, config_flags)
  12
  13    if (trace_use) call da_trace_exit("da_wrfvar_run")
  14
  15 end subroutine da_wrfvar_run
  16
  17