<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_WRFVAR_MAIN'><A href='../../html_code/main/da_wrfvar_main.f90.html#DA_WRFVAR_MAIN' TARGET='top_target'><IMG SRC="../../gif/bar_yellow.gif" border=0></A>
program da_wrfvar_main,15
!-----------------------------------------------------------------------
! Purpose: Main program of WRF-Var. Responsible for starting up, reading
! in (and broadcasting for distributed memory) configuration data, defining
! and initializing the top-level domain, either from initial or restart
! data, setting up time-keeping, and then calling the da_solve
! routine assimilation. After the assimilation is completed,
! the model is properly shut down.
!-----------------------------------------------------------------------
use module_symbols_util, only : wrfu_finalize
use da_control
, only : trace_use, var4d
use da_tracing, only : da_trace_init, da_trace_report, da_trace_entry, &
da_trace_exit
use da_wrf_interfaces, only : wrf_shutdown, wrf_message, disable_quilting
use da_wrfvar_top, only : da_wrfvar_init1,da_wrfvar_init2,da_wrfvar_run, &
da_wrfvar_finalize
#ifdef VAR4D
use da_4dvar, only : clean_4dvar, da_finalize_model
#endif
implicit none
! Split initialisation into 2 parts so we can start and stop trace here
call disable_quilting
call da_wrfvar_init1
if (trace_use) call da_trace_init
if (trace_use) call da_trace_entry("da_wrfvar_main")
call da_wrfvar_init2
call da_wrfvar_run
call da_wrfvar_finalize
#ifdef VAR4D
if (var4d) then
call clean_4dvar
call da_finalize_model
end if
#endif
call wrf_message("*** WRF-Var completed successfully ***")
if (trace_use) call da_trace_exit("da_wrfvar_main")
if (trace_use) call da_trace_report
call wrfu_finalize
call wrf_shutdown
end program da_wrfvar_main