ESMF_InfoDescribeGetCurrentBase Function

public function ESMF_InfoDescribeGetCurrentBase(self, rc) result(base)

Type Bound

ESMF_InfoDescribe

Arguments

Type IntentOptional Attributes Name
class(ESMF_InfoDescribe), intent(in) :: self
integer, intent(inout), optional :: rc

Return Value type(ESMF_Base)


Source Code

function ESMF_InfoDescribeGetCurrentBase(self, rc) result(base)
  class(ESMF_InfoDescribe), intent(in) :: self
  integer, intent(inout), optional :: rc
  type(ESMF_Base) :: base
  integer :: localrc
  localrc = ESMF_FAILURE
  if (present(rc)) rc = ESMF_RC_NOT_IMPL
  if (self%curr_base_is_valid) then
    base = self%curr_base
  else
    if (ESMF_LogFoundError(ESMF_RC_ARG_BAD, msg="Base is not valid", ESMF_CONTEXT, rcToReturn=rc)) return
  endif
  if (present(rc)) rc = ESMF_SUCCESS
end function ESMF_InfoDescribeGetCurrentBase