ESMF_CompClassGetInit Function

public recursive function ESMF_CompClassGetInit(cc) result(CompClassGetInit)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CompClass), intent(in), optional :: cc

Return Value integer(kind=ESMF_KIND_I8)


Source Code

  recursive function ESMF_CompClassGetInit(cc) result (CompClassGetInit)
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: CompClassGetInit   
!
! !ARGUMENTS:
    type(ESMF_CompClass), intent(in), optional :: cc
!
! !DESCRIPTION:
! Access deep object init code.
!
! The arguments are:
! \begin{description}
! \item[cc]
!   CompClass object.
! \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if(present(cc)) then
      CompClassGetInit = ESMF_INIT_GET(cc)
    else
      CompClassGetInit = ESMF_INIT_CREATED
    endif
  end function ESMF_CompClassGetInit