<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_FINALIZE_MODEL'><A href='../../html_code/4dvar/da_finalize_model.inc.html#DA_FINALIZE_MODEL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_finalize_model 2,2
!-----------------------------------------------------------------------
! Purpose: finalize model
! Author: Xin Zhang, MMM/ESSL/NCAR, Date: 94/24/2010
!-----------------------------------------------------------------------
implicit none
if (trace_use_dull) call da_trace_entry
("da_finalize_model")
! WRF model clean-up. This calls MPI_FINALIZE() for DM parallel runs.
CALL wrf_finalize ( .true. )
if (trace_use_dull) call da_trace_exit("da_finalize_model")
end subroutine da_finalize_model