ESMF_TraceMemInfo Subroutine

public subroutine ESMF_TraceMemInfo(rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out),	optional		::	rc

Source Code

  subroutine ESMF_TraceMemInfo(rc)
! !ARGUMENTS: 
    integer, intent(out), optional  :: rc
!
!EOPI
!-------------------------------------------------------------------------------
    if (present(rc)) rc = ESMF_SUCCESS 
    
    call c_esmftrace_mem_info(rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return
    
  end subroutine ESMF_TraceMemInfo