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 (head_grid, config_flags)
12
13 if (trace_use) call da_trace_exit("da_wrfvar_run")
14
15 end subroutine da_wrfvar_run
16
17