ESMF_BaseGetInit Function

public function ESMF_BaseGetInit(base)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Base), intent(in), optional :: base

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_basegetinit~~CalledByGraph proc~esmf_basegetinit ESMF_BaseGetInit proc~esmf_basedestroy ESMF_BaseDestroy proc~esmf_basedestroy->proc~esmf_basegetinit proc~esmf_basedestroywogarbage ESMF_BaseDestroyWoGarbage proc~esmf_basedestroywogarbage->proc~esmf_basegetinit proc~esmf_baseprint ESMF_BasePrint proc~esmf_baseprint->proc~esmf_basegetinit proc~esmf_basevalidate ESMF_BaseValidate proc~esmf_basevalidate->proc~esmf_basegetinit proc~esmf_fieldprint ESMF_FieldPrint proc~esmf_fieldprint->proc~esmf_baseprint proc~esmf_locstreamdestroy ESMF_LocStreamDestroy proc~esmf_locstreamdestroy->proc~esmf_basedestroy proc~esmf_reconciledeserializeall ESMF_ReconcileDeserializeAll proc~esmf_reconciledeserializeall->proc~esmf_basedestroywogarbage proc~esmf_reconcileexchgattributes ESMF_ReconcileExchgAttributes proc~esmf_reconcileexchgattributes->proc~esmf_basedestroywogarbage proc~esmf_xgriddestroy ESMF_XGridDestroy proc~esmf_xgriddestroy->proc~esmf_basedestroy program~esmf_baseutest ESMF_BaseUTest program~esmf_baseutest->proc~esmf_basedestroy

Source Code

  function ESMF_BaseGetInit(base) 
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: ESMF_BaseGetInit   
!
! !ARGUMENTS:
    type(ESMF_Base), intent(in), optional :: base
!
! !DESCRIPTION:
!      Access deep object init code.
!
!     The arguments are:
!     \begin{description}
!     \item [base]
!           Base object.
!     \end{description}
!
!EOPI

    if (present(base)) then
      ESMF_BaseGetInit = ESMF_INIT_GET(base)
    else
      ESMF_BaseGetInit = ESMF_INIT_CREATED
    endif

  end function ESMF_BaseGetInit