da_esmf_run.inc

1 subroutine da_esmf_run( gcomp, importState, exportState, clock, rc )
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: WRFVAR run 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    call da_wrfvar_interface ( head_grid, config_flags )
23 
24    ! return success status
25    rc = ESMF_SUCCESS
26 
27 end subroutine da_esmf_run
28 
29