Class TSfrBoundary

DescriptionHierarchyFieldsMethodsProperties

Unit

ModflowSfrUnit

Declaration

type TSfrBoundary = class(TModflowBoundary)

Description

TSfrBoundary represents the MODFLOW Stream Flow Routing boundaries associated with a single TScreenObject.

Values is a TSfrCollection and represents the stream properties at each reach.

See also
TSfrCollection
TSfrCollection represents MODFLOW Streamflow Routing boundaries for a series of time intervals.

Hierarchy

Overview

Fields

Private FSegementNumber: integer;
Private FChannelValues: TSfrChannelCollection;
Private FUpstreamSegmentValues: TSfrSegmentCollection;
Private FDownstreamSegmentValues: TSfrSegmentCollection;
Private FDownstreamUnsatSegmentValues: TSfrUnsatSegmentCollection;
Private FUpstreamUnsatSegmentValues: TSfrUnsatSegmentCollection;
Private FTableCollection: TSfrTableCollection;
Private FSegmentFlows: TSfrSegmentFlowCollection;
Private FEquationValues: TSfrEquationCollection;
Private FIFSROPT: integer;
Private FParamIcalc: TSfrParamIcalcCollection;
Private FGage0: boolean;
Private FGage1: boolean;
Private FGage2: boolean;
Private FGage3: boolean;
Private FGage5: boolean;
Private FGage6: boolean;
Private FGage7: boolean;
Private FGageLocation: TGageLocation;
Private FExternalFlow: TExternalFlowProperties;

Methods

Private procedure SetSegementNumber(const Value: integer);
Private procedure SetChannelValues(const Value: TSfrChannelCollection);
Private procedure SetUpstreamSegmentValues(const Value: TSfrSegmentCollection);
Private procedure SetDownstreamSegmentValues(const Value: TSfrSegmentCollection);
Private procedure SetDownstreamUnsatSegmentValues( const Value: TSfrUnsatSegmentCollection);
Private procedure SetUpstreamUnsatSegmentValues( const Value: TSfrUnsatSegmentCollection);
Private procedure SetTableCollection(const Value: TSfrTableCollection);
Private procedure SetSegmentFlows(const Value: TSfrSegmentFlowCollection);
Private procedure SetEquationValues(const Value: TSfrEquationCollection);
Private function GetISFROPT: integer;
Private procedure SetParamIcalc(const Value: TSfrParamIcalcCollection);
Private procedure InvalidateDisplayTimeLists;
Private procedure SetGage0(const Value: boolean);
Private procedure SetGage1(const Value: boolean);
Private procedure SetGage2(const Value: boolean);
Private procedure SetGage5(const Value: boolean);
Private procedure SetGage6(const Value: boolean);
Private procedure SetGage7(const Value: boolean);
Private procedure SetGage3(const Value: boolean);
Private function GetOutTypes: TByteSet;
Private procedure SetGageLocation(const Value: TGageLocation);
Private procedure SetExternalFlow(const Value: TExternalFlowProperties);
Protected procedure AssignCells(BoundaryStorage: TCustomBoundaryStorage; ValueTimeList: TList; AModel: TBaseModel); override;
Protected class function BoundaryCollectionClass: TMF_BoundCollClass; override;
Public procedure InvalidateSegmentNumberArray;
Public procedure Assign(Source: TPersistent); override;
Public procedure GetCellValues(ValueTimeList: TList; ParamList: TStringList; AModel: TBaseModel); override;
Public procedure InvalidateDisplay; override;
Public Constructor Create(Model: TBaseModel; ScreenObject: TObject);
Public destructor Destroy; override;
Public procedure EvaluateArrayBoundaries(AModel: TBaseModel); override;
Public function Used: boolean; override;
Public procedure UpdateTimes(Times: TRealList; StartTestTime, EndTestTime: double; var StartRangeExtended, EndRangeExtended: boolean); override;
Public procedure Clear; override;

Properties

Public property ISFROPT: integer read GetISFROPT write FIFSROPT;
Public property OutTypes: TByteSet read GetOutTypes;
Published property SegementNumber: integer read FSegementNumber write SetSegementNumber;
Published property ChannelValues: TSfrChannelCollection read FChannelValues write SetChannelValues;
Published property UpstreamSegmentValues: TSfrSegmentCollection read FUpstreamSegmentValues write SetUpstreamSegmentValues;
Published property DownstreamSegmentValues: TSfrSegmentCollection read FDownstreamSegmentValues write SetDownstreamSegmentValues;
Published property UpstreamUnsatSegmentValues: TSfrUnsatSegmentCollection read FUpstreamUnsatSegmentValues write SetUpstreamUnsatSegmentValues;
Published property DownstreamUnsatSegmentValues: TSfrUnsatSegmentCollection read FDownstreamUnsatSegmentValues write SetDownstreamUnsatSegmentValues;
Published property TableCollection: TSfrTableCollection read FTableCollection write SetTableCollection;
Published property SegmentFlows: TSfrSegmentFlowCollection read FSegmentFlows write SetSegmentFlows;
Published property EquationValues: TSfrEquationCollection read FEquationValues write SetEquationValues;
Published property ParamIcalc: TSfrParamIcalcCollection read FParamIcalc write SetParamIcalc;
Published property Gage0: boolean read FGage0 write SetGage0;
Published property Gage1: boolean read FGage1 write SetGage1;
Published property Gage2: boolean read FGage2 write SetGage2;
Published property Gage3: boolean read FGage3 write SetGage3;
Published property Gage5: boolean read FGage5 write SetGage5;
Published property Gage6: boolean read FGage6 write SetGage6;
Published property Gage7: boolean read FGage7 write SetGage7;
Published property GageLocation: TGageLocation read FGageLocation write SetGageLocation;
Published property ExternalFlow: TExternalFlowProperties read FExternalFlow write SetExternalFlow;

Description

Fields

Private FSegementNumber: integer;
 
Private FChannelValues: TSfrChannelCollection;
 
Private FUpstreamSegmentValues: TSfrSegmentCollection;
 
Private FDownstreamSegmentValues: TSfrSegmentCollection;
 
Private FDownstreamUnsatSegmentValues: TSfrUnsatSegmentCollection;
 
Private FUpstreamUnsatSegmentValues: TSfrUnsatSegmentCollection;
 
Private FTableCollection: TSfrTableCollection;
 
Private FSegmentFlows: TSfrSegmentFlowCollection;
 
Private FEquationValues: TSfrEquationCollection;
 
Private FIFSROPT: integer;
 
Private FParamIcalc: TSfrParamIcalcCollection;
 
Private FGage0: boolean;
 
Private FGage1: boolean;
 
Private FGage2: boolean;
 
Private FGage3: boolean;
 
Private FGage5: boolean;
 
Private FGage6: boolean;
 
Private FGage7: boolean;
 
Private FGageLocation: TGageLocation;
 
Private FExternalFlow: TExternalFlowProperties;
 

Methods

Private procedure SetSegementNumber(const Value: integer);
 
Private procedure SetChannelValues(const Value: TSfrChannelCollection);
 
Private procedure SetUpstreamSegmentValues(const Value: TSfrSegmentCollection);
 
Private procedure SetDownstreamSegmentValues(const Value: TSfrSegmentCollection);
 
Private procedure SetDownstreamUnsatSegmentValues( const Value: TSfrUnsatSegmentCollection);
 
Private procedure SetUpstreamUnsatSegmentValues( const Value: TSfrUnsatSegmentCollection);
 
Private procedure SetTableCollection(const Value: TSfrTableCollection);
 
Private procedure SetSegmentFlows(const Value: TSfrSegmentFlowCollection);
 
Private procedure SetEquationValues(const Value: TSfrEquationCollection);
 
Private function GetISFROPT: integer;
 
Private procedure SetParamIcalc(const Value: TSfrParamIcalcCollection);
 
Private procedure InvalidateDisplayTimeLists;
 
Private procedure SetGage0(const Value: boolean);
 
Private procedure SetGage1(const Value: boolean);
 
Private procedure SetGage2(const Value: boolean);
 
Private procedure SetGage5(const Value: boolean);
 
Private procedure SetGage6(const Value: boolean);
 
Private procedure SetGage7(const Value: boolean);
 
Private procedure SetGage3(const Value: boolean);
 
Private function GetOutTypes: TByteSet;
 
Private procedure SetGageLocation(const Value: TGageLocation);
 
Private procedure SetExternalFlow(const Value: TExternalFlowProperties);
 
Protected procedure AssignCells(BoundaryStorage: TCustomBoundaryStorage; ValueTimeList: TList; AModel: TBaseModel); override;

AssignCells fills ValueTimeList with a series of TObjectLists - one for each stress period. Each such TObjectList is filled with TSfr_Cells for that stress period.

Protected class function BoundaryCollectionClass: TMF_BoundCollClass; override;

See TModflowBoundary.BoundaryCollectionClass.

Public procedure InvalidateSegmentNumberArray;
 
Public procedure Assign(Source: TPersistent); override;
 
Public procedure GetCellValues(ValueTimeList: TList; ParamList: TStringList; AModel: TBaseModel); override;

GetCellValues fills ValueTimeList via a call to AssignCells for each link TRivStorage in Values.Boundaries; Those represent non-parameter boundary conditions. GetCellValues fills ParamList with the names of the MODFLOW SFR parameters that are in use. The Objects property of ParamList has TObjectLists Each such TObjectList is filled via a call to AssignCells with each TSfrStorage in Param.Param.Boundaries Those represent parameter boundary conditions.

Public procedure InvalidateDisplay; override;
 
Public Constructor Create(Model: TBaseModel; ScreenObject: TObject);
 
Public destructor Destroy; override;
 
Public procedure EvaluateArrayBoundaries(AModel: TBaseModel); override;
 
Public function Used: boolean; override;
 
Public procedure UpdateTimes(Times: TRealList; StartTestTime, EndTestTime: double; var StartRangeExtended, EndRangeExtended: boolean); override;
 
Public procedure Clear; override;
 

Properties

Public property ISFROPT: integer read GetISFROPT write FIFSROPT;
 
Public property OutTypes: TByteSet read GetOutTypes;
 
Published property SegementNumber: integer read FSegementNumber write SetSegementNumber;
 
Published property ChannelValues: TSfrChannelCollection read FChannelValues write SetChannelValues;
 
Published property UpstreamSegmentValues: TSfrSegmentCollection read FUpstreamSegmentValues write SetUpstreamSegmentValues;
 
Published property DownstreamSegmentValues: TSfrSegmentCollection read FDownstreamSegmentValues write SetDownstreamSegmentValues;
 
Published property UpstreamUnsatSegmentValues: TSfrUnsatSegmentCollection read FUpstreamUnsatSegmentValues write SetUpstreamUnsatSegmentValues;
 
Published property DownstreamUnsatSegmentValues: TSfrUnsatSegmentCollection read FDownstreamUnsatSegmentValues write SetDownstreamUnsatSegmentValues;
 
Published property TableCollection: TSfrTableCollection read FTableCollection write SetTableCollection;
 
Published property SegmentFlows: TSfrSegmentFlowCollection read FSegmentFlows write SetSegmentFlows;
 
Published property EquationValues: TSfrEquationCollection read FEquationValues write SetEquationValues;
 
Published property ParamIcalc: TSfrParamIcalcCollection read FParamIcalc write SetParamIcalc;
 
Published property Gage0: boolean read FGage0 write SetGage0;
 
Published property Gage1: boolean read FGage1 write SetGage1;
 
Published property Gage2: boolean read FGage2 write SetGage2;
 
Published property Gage3: boolean read FGage3 write SetGage3;
 
Published property Gage5: boolean read FGage5 write SetGage5;
 
Published property Gage6: boolean read FGage6 write SetGage6;
 
Published property Gage7: boolean read FGage7 write SetGage7;
 
Published property GageLocation: TGageLocation read FGageLocation write SetGageLocation;
 
Published property ExternalFlow: TExternalFlowProperties read FExternalFlow write SetExternalFlow;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:52