ESMF_XGridGeomBaseGetInit Function

public function ESMF_XGridGeomBaseGetInit(gridbase)

Arguments

Type IntentOptional Attributes Name
type(ESMF_XGridGeomBase), intent(in), optional :: gridbase

Return Value integer(kind=ESMF_KIND_I8)


Source Code

      function ESMF_XGridGeomBaseGetInit(gridbase)
!
! !RETURN VALUE:
      ESMF_INIT_TYPE :: ESMF_XGridGeomBaseGetInit
!
! !ARGUMENTS:
      type(ESMF_XGridGeomBase), intent(in), optional :: gridbase
!
! !DESCRIPTION:
! Access deep object init code.
!
! The arguments are:
! \begin{description}
! \item [gridbase]
! Grid Base object.
! \end{description}
!
!EOPI

    if (present(gridbase)) then
      ESMF_XGridGeomBaseGetInit = ESMF_INIT_GET(gridbase)
    else
      ESMF_XGridGeomBaseGetInit = ESMF_INIT_CREATED
    endif

    end function ESMF_XGridGeomBaseGetInit