Class TChildDiscretizationCollection

Unit

PhastModelUnit

Declaration

type TChildDiscretizationCollection = class(TOrderedCollection)

Description

TOrderedCollection is a base class for collections that avoid deleting their collection items during assign whenever they can. TOrderedCollection is typically used to allow editing of the collection in a GUI. The model owns (directly or indirectly) one copy of the TOrderedCollection. Another copy will be created in the GUI in which Model will be Nil. The user will edit this latter copy in the GUI. The copy then gets assigned back to the original copy.

See also

Assign

Assign copies the source TOrderedCollection to itself.

Hierarchy

• TCollection
• TOrderedCollection
• TChildDiscretizationCollection

Overview

Fields

	FBottomUnitName: string;
	FBottomLayerInUnit: integer;
	FBottomLayerGroup: TLayerGroup;
	FChanged: Boolean;

Methods

	function GetBottomUnitName: string;
	procedure SetBottomLayerGroup(const Value: TLayerGroup);
	procedure SetBottomLayerInUnit(const Value: integer);
	procedure SetBottomUnitName(const Value: string);
	function GetItem(Index: integer): TChildDiscretization;
	procedure SetItem(Index: integer; const Value: TChildDiscretization);
	procedure Sort;
	function GetBottomLayerGroup: TLayerGroup;
	procedure Loaded;
	procedure Update(Item: TCollectionItem); override;
	function IsSame(AnOrderedCollection: TOrderedCollection): boolean; override;
	constructor Create(Model: TBaseModel);
	procedure Assign(Source: TPersistent); override;
	function GetAnItemByGroupAndLayer(LayerGroup: TLayerGroup; SubLayer: integer): TChildDiscretization;
	procedure SortAndDeleteExtraItems;
	function BottomModflowParentLayerNumber: integer;
	function BottomLayerIndex: integer;
	function ModflowLayerCount: integer;
	function ModflowConfiningBedCount: integer;
	procedure WriteLAYCB(const DiscretizationWriter: TObject); virtual;

Properties

	property BottomLayerGroup: TLayerGroup read GetBottomLayerGroup write SetBottomLayerGroup;
	property Items[Index:integer]: TChildDiscretization read GetItem write SetItem;
	property BottomUnitName: string read GetBottomUnitName write SetBottomUnitName;
	property BottomLayerInUnit: integer read FBottomLayerInUnit write SetBottomLayerInUnit;

Description

Fields

	FBottomUnitName: string;

	FBottomLayerInUnit: integer;

	FBottomLayerGroup: TLayerGroup;

	FChanged: Boolean;

Methods

	function GetBottomUnitName: string;

	procedure SetBottomLayerGroup(const Value: TLayerGroup);

	procedure SetBottomLayerInUnit(const Value: integer);

	procedure SetBottomUnitName(const Value: string);

	function GetItem(Index: integer): TChildDiscretization;

	procedure SetItem(Index: integer; const Value: TChildDiscretization);

	procedure Sort;

	function GetBottomLayerGroup: TLayerGroup;

	procedure Loaded;

	procedure Update(Item: TCollectionItem); override;

	function IsSame(AnOrderedCollection: TOrderedCollection): boolean; override;

	constructor Create(Model: TBaseModel);

	procedure Assign(Source: TPersistent); override;

	function GetAnItemByGroupAndLayer(LayerGroup: TLayerGroup; SubLayer: integer): TChildDiscretization;
SubLayer starts at zero.

	procedure SortAndDeleteExtraItems;

	function BottomModflowParentLayerNumber: integer;
BottomModflowParentLayerNumber treats the top layer as layer 1 and only counts simulated layers. This is a MODFLOW layer number.

	function BottomLayerIndex: integer;
BottomLayerIndex returns the index of the parent layer at the bottom of the local grid. The first layer is treated as zero.

	function ModflowLayerCount: integer;

	function ModflowConfiningBedCount: integer;

	procedure WriteLAYCB(const DiscretizationWriter: TObject); virtual;

Properties

	property BottomLayerGroup: TLayerGroup read GetBottomLayerGroup write SetBottomLayerGroup;

	property Items[Index:integer]: TChildDiscretization read GetItem write SetItem;

	property BottomUnitName: string read GetBottomUnitName write SetBottomUnitName;

	property BottomLayerInUnit: integer read FBottomLayerInUnit write SetBottomLayerInUnit;
BottomLayerInUnit indicates the lowermost layer in BottomLayerGroup that will be part of the child model. BottomLayerInUnit starts as 0.