subroutine da_wrfvar_run() !------------------------------------------------------------------------- ! Purpose: run wrfvar !------------------------------------------------------------------------- implicit none if (trace_use) call da_trace_entry("da_wrfvar_run") call da_wrfvar_interface (head_grid, config_flags) if (trace_use) call da_trace_exit("da_wrfvar_run") end subroutine da_wrfvar_run