subroutine da_finalize_model !----------------------------------------------------------------------- ! 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