ESMF_CompStatusGetInit Function

private recursive function ESMF_CompStatusGetInit(compStatus) result(CompStatusGetInit)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CompStatus), intent(in), optional :: compStatus

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_compstatusgetinit~~CalledByGraph proc~esmf_compstatusgetinit ESMF_CompStatusGetInit proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_compstatusget->proc~esmf_compstatusgetinit proc~esmf_cplcompget ESMF_CplCompGet proc~esmf_cplcompget->proc~esmf_compstatusget proc~esmf_gridcompget ESMF_GridCompGet proc~esmf_gridcompget->proc~esmf_compstatusget proc~esmf_scicompget ESMF_SciCompGet proc~esmf_scicompget->proc~esmf_compstatusget

Source Code

  recursive function ESMF_CompStatusGetInit(compStatus) &
    result (CompStatusGetInit)
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: CompStatusGetInit
!
! !ARGUMENTS:
    type(ESMF_CompStatus), intent(in), optional :: compStatus
!
! !DESCRIPTION:
!   Access init code.
!
!   The arguments are:
!   \begin{description}
!   \item [connection]
!     CompStatus object.
!   \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(compStatus)) then
      CompStatusGetInit = ESMF_INIT_GET(compStatus)
    else
      CompStatusGetInit = ESMF_INIT_DEFINED
    endif

  end function ESMF_CompStatusGetInit