ESMF_ContainerGetInit Function

public function ESMF_ContainerGetInit(container)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Container), intent(in), optional :: container

Return Value integer(kind=ESMF_KIND_I8)


Source Code

      function ESMF_ContainerGetInit(container) 
!
! !RETURN VALUE:
      ESMF_INIT_TYPE :: ESMF_ContainerGetInit   
!
! !ARGUMENTS:
      type(ESMF_Container), intent(in), optional :: container
!
! !DESCRIPTION:
!   Access deep object init code.
!
!   The arguments are:
!   \begin{description}
!   \item [{[container]}]
!     Container object.
!   \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(container)) then
      ESMF_ContainerGetInit = ESMF_INIT_GET(container)
    else
      ESMF_ContainerGetInit = ESMF_INIT_CREATED
    endif

    end function ESMF_ContainerGetInit