da_esmf_finalize.inc

1 subroutine da_wrfvar_finalize( gcomp, importState, exportState, clock, rc )
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: WRFVAR finalize routine.
5    !
6    !     The arguments are:
7    !       gcomp           Component
8    !       importState     Importstate
9    !       exportState     Exportstate
10    !       clock           External clock
11    !       rc              Return code; equals ESMF_SUCCESS if there are no
12    !                       errors, otherwise ESMF_FAILURE
13    !-----------------------------------------------------------------------
14 
15    implicit none
16 
17    type(ESMF_GridComp), intent(inout) :: gcomp
18    type(ESMF_State),    intent(inout) :: importState, exportState
19    type(ESMF_Clock),    intent(inout) :: clock
20    integer,             intent(out)   :: rc
21 
22    ! output wrfvar analysis
23 
24    if ((config_flags%real_data_init_type == 1) .OR. &
25        (config_flags%real_data_init_type == 3)) then
26       call da_med_initialdata_output( head_grid , config_flags )
27 
28       call med_shutdown_io ( head_grid , config_flags )
29    end if
30 
31    call da_message((/"wrfvar: SUCCESS COMPLETE WRFVAR"/))
32    call wrf_shutdown
33 
34    ! return success status
35    rc = ESMF_SUCCESS
36 
37 end subroutine da_wrfvar_finalize
38 
39