Class TEtsPackageSelection

Unit

ModflowPackageSelectionUnit

Declaration

type TEtsPackageSelection = class(TCustomTransientLayerPackageSelection)

Description

TCustomTransientLayerPackageSelection is used for MODFLOW boundary conditions packages in which, for each stress period, the user specifies an array of layer numbers to which the boundary condition applies.

Hierarchy

• TPersistent
• TModflowPackageSelection
• TCustomLayerPackageSelection
• TCustomTransientLayerPackageSelection
• TEtsPackageSelection

Overview

Fields

	FSegmentCount: integer;
	FEtsRateFractionLists: TList;
	FEtsDepthFractionLists: TList;
	FMfEtsEvapLayer: TModflowBoundaryDisplayTimeList;
	FMfEtsEvapRate: TModflowBoundaryDisplayTimeList;
	FMfEtsEvapDepth: TModflowBoundaryDisplayTimeList;
	FMfEtsEvapSurface: TModflowBoundaryDisplayTimeList;

Methods

	procedure SetSegmentCount(const Value: integer);
	procedure InitializeEtsDisplay(Sender: TObject);
	procedure GetMfEtsDepthUseList(Sender: TObject; NewUseList: TStringList);
	procedure GetMfEtsLayerUseList(Sender: TObject; NewUseList: TStringList);
	procedure GetMfEtsRateUseList(Sender: TObject; NewUseList: TStringList);
	procedure GetMfEtsSurfaceUseList(Sender: TObject; NewUseList: TStringList);
	procedure GetMfEtsDepthFractionUseList(Sender: TObject; NewUseList: TStringList);
	procedure GetMfEtsRateFractionUseList(Sender: TObject; NewUseList: TStringList);
	procedure UpdateEtsUseList(NewUseList: TStringList; ParamType: TParameterType; DataIndex: integer; const DisplayName: string);
	procedure Assign(Source: TPersistent); override;
	Constructor Create(Model: TBaseModel);
	Destructor Destroy; override;
	procedure InvalidateMfEtsEvapLayer(Sender: TObject);
	procedure InvalidateEtsDepthFractions(Sender: TObject);
	procedure InvalidateEtsRateFractions(Sender: TObject);
	procedure UpdateEtsSegmentCount;
	procedure InvalidateAllTimeLists; override;

Properties

	property MfEtsEvapRate: TModflowBoundaryDisplayTimeList read FMfEtsEvapRate;
	property MfEtsEvapSurface: TModflowBoundaryDisplayTimeList read FMfEtsEvapSurface;
	property MfEtsEvapDepth: TModflowBoundaryDisplayTimeList read FMfEtsEvapDepth;
	property MfEtsEvapLayer: TModflowBoundaryDisplayTimeList read FMfEtsEvapLayer;
	property SegmentCount: integer read FSegmentCount write SetSegmentCount default 1;

Description

Fields

	FSegmentCount: integer;

	FEtsRateFractionLists: TList;

	FEtsDepthFractionLists: TList;

	FMfEtsEvapLayer: TModflowBoundaryDisplayTimeList;

	FMfEtsEvapRate: TModflowBoundaryDisplayTimeList;

	FMfEtsEvapDepth: TModflowBoundaryDisplayTimeList;

	FMfEtsEvapSurface: TModflowBoundaryDisplayTimeList;

Methods

	procedure SetSegmentCount(const Value: integer);

	procedure InitializeEtsDisplay(Sender: TObject);

	procedure GetMfEtsDepthUseList(Sender: TObject; NewUseList: TStringList);

	procedure GetMfEtsLayerUseList(Sender: TObject; NewUseList: TStringList);

	procedure GetMfEtsRateUseList(Sender: TObject; NewUseList: TStringList);

	procedure GetMfEtsSurfaceUseList(Sender: TObject; NewUseList: TStringList);

	procedure GetMfEtsDepthFractionUseList(Sender: TObject; NewUseList: TStringList);

	procedure GetMfEtsRateFractionUseList(Sender: TObject; NewUseList: TStringList);

	procedure UpdateEtsUseList(NewUseList: TStringList; ParamType: TParameterType; DataIndex: integer; const DisplayName: string);

	procedure Assign(Source: TPersistent); override;

	Constructor Create(Model: TBaseModel);

	Destructor Destroy; override;

	procedure InvalidateMfEtsEvapLayer(Sender: TObject);

	procedure InvalidateEtsDepthFractions(Sender: TObject);

	procedure InvalidateEtsRateFractions(Sender: TObject);

	procedure UpdateEtsSegmentCount;

	procedure InvalidateAllTimeLists; override;

Properties

	property MfEtsEvapRate: TModflowBoundaryDisplayTimeList read FMfEtsEvapRate;

	property MfEtsEvapSurface: TModflowBoundaryDisplayTimeList read FMfEtsEvapSurface;

	property MfEtsEvapDepth: TModflowBoundaryDisplayTimeList read FMfEtsEvapDepth;

	property MfEtsEvapLayer: TModflowBoundaryDisplayTimeList read FMfEtsEvapLayer;

	property SegmentCount: integer read FSegmentCount write SetSegmentCount default 1;