var/da/da_4dvar/da_finalize_model.inc

   1 subroutine da_finalize_model
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: finalize model
   5    !    Author: Xin Zhang,  MMM/ESSL/NCAR,  Date: 94/24/2010
   6    !-----------------------------------------------------------------------
   7
   8    implicit none
   9
  10    if (trace_use_dull) call da_trace_entry("da_finalize_model")
  11
  12    ! WRF model clean-up.  This calls MPI_FINALIZE() for DM parallel runs.
  13    CALL wrf_finalize ( .true. )
  14
  15    if (trace_use_dull) call da_trace_exit("da_finalize_model")
  16
  17 end subroutine da_finalize_model