ESMF_CommHandleGetInit Function

public function ESMF_CommHandleGetInit(commhandle)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CommHandle), intent(in), optional :: commhandle

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_commhandlegetinit~~CalledByGraph proc~esmf_commhandlegetinit ESMF_CommHandleGetInit proc~esmf_commhandlevalidate ESMF_CommHandleValidate proc~esmf_commhandlevalidate->proc~esmf_commhandlegetinit proc~esmf_vmcommwait ESMF_VMCommWait proc~esmf_vmcommwait->proc~esmf_commhandlegetinit program~esmf_vmnonblockingex ESMF_VMNonBlockingEx program~esmf_vmnonblockingex->proc~esmf_vmcommwait program~esmf_vmsendnbvmrecvnbutest ESMF_VMSendNbVMRecvNbUTest program~esmf_vmsendnbvmrecvnbutest->proc~esmf_vmcommwait program~esmf_vmsendrecvnbutest ESMF_VMSendRecvNbUTest program~esmf_vmsendrecvnbutest->proc~esmf_vmcommwait

Source Code

      function ESMF_CommHandleGetInit(commhandle) 
!
! !RETURN VALUE:
      ESMF_INIT_TYPE :: ESMF_CommHandleGetInit   
!
! !ARGUMENTS:
      type(ESMF_CommHandle), intent(in), optional :: commhandle
!
! !DESCRIPTION:
!      Access deep object init code.
!
!     The arguments are:
!     \begin{description}
!     \item [commhandle]
!           CommHandle object.
!     \end{description}
!
!EOPI
!------------------------------------------------------------------------------

    if (present(commhandle)) then
      ESMF_CommHandleGetInit = ESMF_INIT_GET(commhandle)
    else
      ESMF_CommHandleGetInit = ESMF_INIT_CREATED
    endif

    end function ESMF_CommHandleGetInit