<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_ESMF_RUN'><A href='../../html_code/main/da_esmf_run.inc.html#DA_ESMF_RUN' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_esmf_run( gcomp, importState, exportState, clock, rc ),1
!-----------------------------------------------------------------------
! Purpose: WRFVAR run routine.
!
! The arguments are:
! gcomp Component
! importState Importstate
! exportState Exportstate
! clock External clock
! rc Return code; equals ESMF_SUCCESS if there are no
! errors, otherwise ESMF_FAILURE.
!-----------------------------------------------------------------------
implicit none
type(ESMF_GridComp), intent(inout) :: gcomp
type(ESMF_State), intent(inout) :: importState, exportState
type(ESMF_Clock), intent(inout) :: clock
integer, intent(out) :: rc
call da_wrfvar_interface
( head_grid, config_flags )
! return success status
rc = ESMF_SUCCESS
end subroutine da_esmf_run