var/da/da_main/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