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