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)


Called by

proc~~esmf_compclassgetinit~~CalledByGraph proc~esmf_compclassgetinit ESMF_CompClassGetInit proc~esmf_compclassvalidate ESMF_CompClassValidate proc~esmf_compclassvalidate->proc~esmf_compclassgetinit proc~esmf_compexecute ESMF_CompExecute proc~esmf_compexecute->proc~esmf_compclassgetinit proc~esmf_compget ESMF_CompGet proc~esmf_compget->proc~esmf_compclassgetinit proc~esmf_compisdualconnected ESMF_CompIsDualConnected proc~esmf_compisdualconnected->proc~esmf_compclassgetinit proc~esmf_compispetlocal ESMF_CompIsPetLocal proc~esmf_compispetlocal->proc~esmf_compclassgetinit proc~esmf_compprint ESMF_CompPrint proc~esmf_compprint->proc~esmf_compclassgetinit proc~esmf_compset ESMF_CompSet proc~esmf_compset->proc~esmf_compclassgetinit proc~esmf_compsetvmmaxpes ESMF_CompSetVMMaxPEs proc~esmf_compsetvmmaxpes->proc~esmf_compclassgetinit proc~esmf_compsetvmmaxthreads ESMF_CompSetVMMaxThreads proc~esmf_compsetvmmaxthreads->proc~esmf_compclassgetinit proc~esmf_compsetvmminthreads ESMF_CompSetVMMinThreads proc~esmf_compsetvmminthreads->proc~esmf_compclassgetinit proc~esmf_compsetvmstdredirect ESMF_CompSetVMStdRedirect proc~esmf_compsetvmstdredirect->proc~esmf_compclassgetinit proc~esmf_compvalidate ESMF_CompValidate proc~esmf_compvalidate->proc~esmf_compclassgetinit proc~esmf_compwait ESMF_CompWait proc~esmf_compwait->proc~esmf_compclassgetinit

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