Class TModflowSFR_Writer

Unit

ModflowSfrWriterUnit

Declaration

type TModflowSFR_Writer = class(TCustomPackageWriter)

Description

TCustomPackageWriter is an abstract base class used to generate input for MODFLOW for a specific package.

Hierarchy

• TObject
• TCustomFileWriter
• TCustomModflowWriter
• TCustomPackageWriter
• TModflowSFR_Writer

Overview

Fields

	FNameOfFile: string;
	FValues: TList;
	FSegments: TList;
	FLakes: TList;
	ISFROPT: integer;
	NSFRPAR: integer;
	FLgrUsed: Boolean;
	FIsChildModel: Boolean;
	NUMTAB: Integer;
	MAXVAL: Integer;

Methods

	function NewFormat: boolean;
	procedure CheckParamInstances;
	procedure WriteDataSet1a;
	procedure WriteDataSet1b;
	procedure WriteDataSet1c;
	procedure WriteDataSet2;
	procedure WriteDataSets3and4(var StartUnitNumber: integer);
	procedure WriteDataSet4b6a(StartTime: double; Segment: TSegment; ParamScreenObjectItem: TSfrParamIcalcItem; SfrBoundary: TSfrBoundary; DataSet4B: boolean; SubSegIndex: integer);
	procedure WriteDataSet4c6b(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; StressPeriodIndex: integer; Segment: TSegment; SubSegIndex: integer);
	procedure WriteSegmentValues(StressPeriodIndex: Integer; Parameter: Boolean; UpOrDownStreamValues: TSfrSegmentStorage; upstream: Boolean; var CommentLine: string; var ValuesWriten: boolean; ParamScreenObjectItem: TSfrParamIcalcItem; PSegValue: PSfrSegmentRecord);
	procedure WriteUnsatSegmentValues(upstream: Boolean; var CommentLine: string; var ValuesWriten: boolean; UnsatUpstreamValues: TSfrUnsatSegmentStorage; PSegUnsatValue: PSfrUnsatSegmentRecord);
	procedure WriteDataSet4d6c(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; StressPeriodIndex: integer; Segment: TSegment; SubSegIndex: integer);
	procedure WriteDataSet4e6d(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StressPeriod: integer; Segment: TSegment; SubSegIndex: integer);
	procedure WriteDataSet4f6e(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; Segment: TSegment; SubSegIndex: integer);
	procedure WriteDataSet8(Segment: TSegment; SubSegIndex, TimeIndex: integer; var StartUnitNumber: integer);
	procedure WriteDataSets5to7(var StartUnitNumber: integer);
	function FindConvertedSegment(OriginalSegmentNumber: integer; Direction: TStreamDirection): integer;
	procedure WriteGages(var StartUnitNumber: integer; Lines: TStrings);
	function GetSegment(Index: integer): TSegment;
	function GetSegmentCount: integer;
	procedure TestBedElevations;
	procedure CreateLgrSubSegments;
	procedure RenumberLgrSubSegments;
	procedure WriteSegment(Segment: TSegment; StartTime: double; SubSegIndex: integer; Item: TSfrParamIcalcItem; Boundary: TSfrBoundary; TimeIndex: integer; IsParameter: boolean; var StartUnitNumber: integer);
	procedure LgrAdjustSegmentValues( Segment: TSegment; StartTime: double; SubSegIndex: integer; StressPeriod: integer);
	procedure AdjustLgrParamValues;
	procedure AdjustLgrNonParamValues;
	procedure AdjustLgrValues;
	procedure InternalUpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);
	procedure AdjustReachLengths;
	class function Extension: string; override;
	function Package: TModflowPackageSelection; override;
	procedure SortSegments;
	procedure Evaluate;
	procedure AssociateLgrSubSegments(SfrWriterList: TSfrWriterList);
	Constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType); override;
	destructor Destroy; override;
	procedure WriteFile(const AFileName: string; var StartUnitNumber: integer; Lines: TStrings);
	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);

Properties

	property Segments[Index:integer]: TSegment read GetSegment;
	property SegmentCount: integer read GetSegmentCount;

Description

Fields

	FNameOfFile: string;

	FValues: TList;

	FSegments: TList;

	FLakes: TList;

	ISFROPT: integer;

	NSFRPAR: integer;

	FLgrUsed: Boolean;

	FIsChildModel: Boolean;

	NUMTAB: Integer;

	MAXVAL: Integer;

Methods

	function NewFormat: boolean;

	procedure CheckParamInstances;

	procedure WriteDataSet1a;

	procedure WriteDataSet1b;

	procedure WriteDataSet1c;

	procedure WriteDataSet2;

	procedure WriteDataSets3and4(var StartUnitNumber: integer);

	procedure WriteDataSet4b6a(StartTime: double; Segment: TSegment; ParamScreenObjectItem: TSfrParamIcalcItem; SfrBoundary: TSfrBoundary; DataSet4B: boolean; SubSegIndex: integer);

	procedure WriteDataSet4c6b(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; StressPeriodIndex: integer; Segment: TSegment; SubSegIndex: integer);

	procedure WriteSegmentValues(StressPeriodIndex: Integer; Parameter: Boolean; UpOrDownStreamValues: TSfrSegmentStorage; upstream: Boolean; var CommentLine: string; var ValuesWriten: boolean; ParamScreenObjectItem: TSfrParamIcalcItem; PSegValue: PSfrSegmentRecord);

	procedure WriteUnsatSegmentValues(upstream: Boolean; var CommentLine: string; var ValuesWriten: boolean; UnsatUpstreamValues: TSfrUnsatSegmentStorage; PSegUnsatValue: PSfrUnsatSegmentRecord);

	procedure WriteDataSet4d6c(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; StressPeriodIndex: integer; Segment: TSegment; SubSegIndex: integer);

	procedure WriteDataSet4e6d(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StressPeriod: integer; Segment: TSegment; SubSegIndex: integer);

	procedure WriteDataSet4f6e(Parameter: Boolean; SfrBoundary: TSfrBoundary; ParamScreenObjectItem: TSfrParamIcalcItem; StartTime: double; Segment: TSegment; SubSegIndex: integer);

	procedure WriteDataSet8(Segment: TSegment; SubSegIndex, TimeIndex: integer; var StartUnitNumber: integer);

	procedure WriteDataSets5to7(var StartUnitNumber: integer);

	function FindConvertedSegment(OriginalSegmentNumber: integer; Direction: TStreamDirection): integer;

	procedure WriteGages(var StartUnitNumber: integer; Lines: TStrings);

	function GetSegment(Index: integer): TSegment;

	function GetSegmentCount: integer;

	procedure TestBedElevations;

	procedure CreateLgrSubSegments;

	procedure RenumberLgrSubSegments;

	procedure WriteSegment(Segment: TSegment; StartTime: double; SubSegIndex: integer; Item: TSfrParamIcalcItem; Boundary: TSfrBoundary; TimeIndex: integer; IsParameter: boolean; var StartUnitNumber: integer);

	procedure LgrAdjustSegmentValues( Segment: TSegment; StartTime: double; SubSegIndex: integer; StressPeriod: integer);

	procedure AdjustLgrParamValues;

	procedure AdjustLgrNonParamValues;

	procedure AdjustLgrValues;

	procedure InternalUpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);

	procedure AdjustReachLengths;

	class function Extension: string; override;

	function Package: TModflowPackageSelection; override;

	procedure SortSegments;

	procedure Evaluate;

	procedure AssociateLgrSubSegments(SfrWriterList: TSfrWriterList);

	Constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType); override;

	destructor Destroy; override;

	procedure WriteFile(const AFileName: string; var StartUnitNumber: integer; Lines: TStrings);

	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);

Properties

	property Segments[Index:integer]: TSegment read GetSegment;

	property SegmentCount: integer read GetSegmentCount;