Class TModflowMNW2_Writer

Unit

ModflowMNW2_WriterUnit

Declaration

type TModflowMNW2_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
• TModflowMNW2_Writer

Overview

Fields

	FNameOfFile: string;
	FValues: TList;
	FWells: TList;
	FWellNames: TStringList;
	NNODES: Integer;
	FMnwiWells: TList;
	FMnwPackage: TMultinodeWellSelection;

Methods

	procedure WriteDataSet1;
	procedure WriteDataSet2;
	procedure WriteDataSet2A(WellBoundary: TMnw2Boundary; Well: TMultinodeWell);
	procedure WriteDataSet2B(WellBoundary: TMnw2Boundary; Well: TMultinodeWell);
	procedure WriteDataSet2C(ConstantWellLossParameters: Boolean; WellBoundary: TMnw2Boundary; Well: TMultinodeWell);
	procedure WriteDataSet2D(ConstantWellLossParameters: boolean; WellBoundary: TMnw2Boundary; Well: TMultinodeWell);
	procedure WriteDataSet2E(Well: TMultinodeWell; WellBoundary: TMnw2Boundary);
	procedure WriteDataSet2F(WellBoundary: TMnw2Boundary);
	procedure WriteDataSet2G(WellBoundary: TMnw2Boundary);
	procedure WriteDataSet2H(WellBoundary: TMnw2Boundary);
	procedure WriteDataSets3and4;
	procedure WriteDataSet3(StartTime: Double; StressPeriod: integer);
	procedure WriteDataSet4A(WellBoundary: TMnw2Boundary; TimeItem: TMnw2TimeItem);
	function GetQCut(Item: TMnw2TimeItem): Integer;
	procedure WriteDataSet4B(WellBoundary: TMnw2Boundary; TimeItem: TMnw2TimeItem);
	procedure WriteDataSet4(StartTime: Double);
	procedure EvaluateMnwi;
	procedure WriteMnwiDataSet1(AFileName: string);
	procedure WriteMnwiDataSet2;
	procedure WriteMnwiDataSet3(var StartUnitNumber: Integer; AFileName: string);
	procedure EvaluateVerticalScreenFormula(var Expression: TExpression; const ADataName: string; var Formula: string; Compiler: TRbwParser; WellBoundary: TMnw2Boundary);
	procedure CheckWells;
	function CountNodes: integer;
	function Package: TModflowPackageSelection; override;
	class function Extension: string; override;
	procedure Evaluate;
	Constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType); override;
	destructor Destroy; override;
	procedure WriteFile(const AFileName: string);
	procedure WriteMnwiFile(const AFileName: string; var StartUnitNumber: integer);
	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);

Description

Fields

	FNameOfFile: string;

	FValues: TList;

	FWells: TList;

	FWellNames: TStringList;

	NNODES: Integer;

	FMnwiWells: TList;

	FMnwPackage: TMultinodeWellSelection;

Methods

	procedure WriteDataSet1;

	procedure WriteDataSet2;

	procedure WriteDataSet2A(WellBoundary: TMnw2Boundary; Well: TMultinodeWell);

	procedure WriteDataSet2B(WellBoundary: TMnw2Boundary; Well: TMultinodeWell);

	procedure WriteDataSet2C(ConstantWellLossParameters: Boolean; WellBoundary: TMnw2Boundary; Well: TMultinodeWell);

	procedure WriteDataSet2D(ConstantWellLossParameters: boolean; WellBoundary: TMnw2Boundary; Well: TMultinodeWell);

	procedure WriteDataSet2E(Well: TMultinodeWell; WellBoundary: TMnw2Boundary);

	procedure WriteDataSet2F(WellBoundary: TMnw2Boundary);

	procedure WriteDataSet2G(WellBoundary: TMnw2Boundary);

	procedure WriteDataSet2H(WellBoundary: TMnw2Boundary);

	procedure WriteDataSets3and4;

	procedure WriteDataSet3(StartTime: Double; StressPeriod: integer);

	procedure WriteDataSet4A(WellBoundary: TMnw2Boundary; TimeItem: TMnw2TimeItem);

	function GetQCut(Item: TMnw2TimeItem): Integer;

	procedure WriteDataSet4B(WellBoundary: TMnw2Boundary; TimeItem: TMnw2TimeItem);

	procedure WriteDataSet4(StartTime: Double);

	procedure EvaluateMnwi;

	procedure WriteMnwiDataSet1(AFileName: string);

	procedure WriteMnwiDataSet2;

	procedure WriteMnwiDataSet3(var StartUnitNumber: Integer; AFileName: string);

	procedure EvaluateVerticalScreenFormula(var Expression: TExpression; const ADataName: string; var Formula: string; Compiler: TRbwParser; WellBoundary: TMnw2Boundary);

	procedure CheckWells;

	function CountNodes: integer;

	function Package: TModflowPackageSelection; override;

	class function Extension: string; override;

	procedure Evaluate;

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

	destructor Destroy; override;

	procedure WriteFile(const AFileName: string);

	procedure WriteMnwiFile(const AFileName: string; var StartUnitNumber: integer);

	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists);