ESMF_GridCompGetInit Function

  recursive function ESMF_GridCompGetInit(d) result (GridCompGetInit)
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: GridCompGetInit
!
! !ARGUMENTS:
    type(ESMF_GridComp), intent(in), optional :: d
!
! !DESCRIPTION:
! Get the initialization status of the Deep class {\tt GridComp}.
!
! The arguments are:
! \begin{description}
! \item[d]
!   {\tt ESMF\_GridComp} from which to retrieve status.
! \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(d)) then
      GridCompGetInit = ESMF_INIT_GET(d)
    else
      GridCompGetInit = ESMF_INIT_CREATED
    endif
  end function ESMF_GridCompGetInit