Class TModflowHobWriter

Unit

ModflowHOB_WriterUnit

Declaration

type TModflowHobWriter = class(TCustomPackageWriter)

Description

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

Hierarchy

• TObject
• TCustomFileWriter
• TCustomModflowWriter
• TCustomPackageWriter
• TModflowHobWriter

Overview

Fields

	NH: Integer;
	MOBS: Integer;
	MAXM: Integer;
	IUHOBSV: Integer;
	FObservations: TList;
	FStartTime: Double;
	FEndTime: Double;
	IREFSP: Integer;
	FStartingTimes: TRealList;

Methods

	procedure Evaluate(Purpose: TObservationPurpose);
	procedure WriteDataSet1;
	procedure WriteDataSet2;
	procedure WriteDataSet3to6(Index: integer);
	procedure WriteDataSet3(Observations: THobBoundary; CellList: TObsCellList);
	procedure WriteDataSet4(Observations: THobBoundary; CellList: TObsCellList);
	procedure WriteDataSet5(Observations: THobBoundary);
	procedure WriteDataSet6(Observations: THobBoundary);
	class function Extension: string; override;
	function Package: TModflowPackageSelection; override;
	Constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType); override;
	destructor Destroy; override;
	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists; ParameterIndicies: TByteSet; Purpose: TObservationPurpose);
	procedure WriteFile(const AFileName: string; Purpose: TObservationPurpose);

Description

Fields

	NH: Integer;

	MOBS: Integer;

	MAXM: Integer;

	IUHOBSV: Integer;

	FObservations: TList;
FObservations contains the THobBoundarys that are used.

	FStartTime: Double;

	FEndTime: Double;

	IREFSP: Integer;

	FStartingTimes: TRealList;

Methods

	procedure Evaluate(Purpose: TObservationPurpose);

	procedure WriteDataSet1;

	procedure WriteDataSet2;

	procedure WriteDataSet3to6(Index: integer);

	procedure WriteDataSet3(Observations: THobBoundary; CellList: TObsCellList);

	procedure WriteDataSet4(Observations: THobBoundary; CellList: TObsCellList);

	procedure WriteDataSet5(Observations: THobBoundary);

	procedure WriteDataSet6(Observations: THobBoundary);

	class function Extension: string; override;

	function Package: TModflowPackageSelection; override;

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

	destructor Destroy; override;

	procedure UpdateDisplay(TimeLists: TModflowBoundListOfTimeLists; ParameterIndicies: TByteSet; Purpose: TObservationPurpose);

	procedure WriteFile(const AFileName: string; Purpose: TObservationPurpose);