Class TSubSegment

Unit

ModflowSfrWriterUnit

Declaration

type TSubSegment = class(TObject)

Description

TSubSegment is used for SFR segments in LGR models. Each segment has

Hierarchy

• TObject
• TSubSegment

Overview

Fields

	FReachList: TReachList;
	FSegment: TSegment;
	FModel: TBaseModel;
	FSegmentNumber: integer;
	FAssociatedLgrSubSeg: TSubSegment;
	FTotalLength: double;
	FIndex: Integer;
	FUpstreamValues: array of TSfrSegmentRecord;
	FDownstreamValues: array of TSfrSegmentRecord;
	FUpstreamUnsatValues: array of TSfrUnsatSegmentRecord;
	FDownstreamUnsatValues: array of TSfrUnsatSegmentRecord;
	FUsed: boolean;
	FChildEdge: boolean;

Methods

	function GetReach(Index: Integer): TSfr_Cell;
	constructor Create(AModel: TBaseModel; ASegment: TSegment; StressPeriodCount: integer);
	destructor Destroy; override;
	function AddReach(AReach: TSfr_Cell): Integer;
	function ReachCount: integer;
	procedure DeleteReach(Index: Integer);

Properties

	property Reaches[Index:Integer]: TSfr_Cell read GetReach;
	property SegmentNumber: integer read FSegmentNumber;
	property Used: boolean read FUsed;
	property ChildEdge: boolean read FChildEdge;

Description

Fields

	FReachList: TReachList;

	FSegment: TSegment;

	FModel: TBaseModel;

	FSegmentNumber: integer;
FSegmentNumber is the segment number for MODFLOW.

	FAssociatedLgrSubSeg: TSubSegment;
FAssociatedLgrSubSeg is the TSubSegment of the other model that is at the same location as this TSubSegment.

	FTotalLength: double;

	FIndex: Integer;

	FUpstreamValues: array of TSfrSegmentRecord;

	FDownstreamValues: array of TSfrSegmentRecord;

	FUpstreamUnsatValues: array of TSfrUnsatSegmentRecord;

	FDownstreamUnsatValues: array of TSfrUnsatSegmentRecord;

	FUsed: boolean;

	FChildEdge: boolean;

Methods

	function GetReach(Index: Integer): TSfr_Cell;

	constructor Create(AModel: TBaseModel; ASegment: TSegment; StressPeriodCount: integer);

	destructor Destroy; override;

	function AddReach(AReach: TSfr_Cell): Integer;

	function ReachCount: integer;

	procedure DeleteReach(Index: Integer);

Properties

	property Reaches[Index:Integer]: TSfr_Cell read GetReach;

	property SegmentNumber: integer read FSegmentNumber;

	property Used: boolean read FUsed;

	property ChildEdge: boolean read FChildEdge;