Class TModflowDRT_Writer

Unit

ModflowDRT_WriterUnit

Declaration

type TModflowDRT_Writer = class(TCustomListWriter)

Description

TCustomListWriter is used as a base class for writing typical boundary condition files that allow for both parameter and non-parameter cells.

Hierarchy

• TObject
• TCustomFileWriter
• TCustomModflowWriter
• TCustomPackageWriter
• TCustomTransientWriter
• TCustomParameterTransientWriter
• TCustomListWriter
• TModflowDRT_Writer

Overview

Fields

	NPDRT: integer;
	MXL: integer;

Methods

	procedure WriteDataSet1;
	procedure WriteDataSets2And3;
	procedure WriteDataSets4To6;
	function CellType: TValueCellType; override;
	class function Extension: string; override;
	function GetBoundary(ScreenObject: TScreenObject): TModflowBoundary; override;
	procedure GetOption(var Option: string); override;
	function Package: TModflowPackageSelection; override;
	function ParameterType: TParameterType; override;
	procedure WriteParameterCells(CellList: TValueCellList; NLST: Integer; const VariableIdentifiers, DataSetIdentifier: string; AssignmentMethod: TUpdateMethod; MultiplierArrayNames: TTransientMultCollection; ZoneArrayNames: TTransientZoneCollection); override;
	procedure WriteCell(Cell: TValueCell; const DataSetIdentifier, VariableIdentifiers: string); override;
	procedure WriteFile(const AFileName: string);

Description

Fields

	NPDRT: integer;

	MXL: integer;

Methods

	procedure WriteDataSet1;

	procedure WriteDataSets2And3;

	procedure WriteDataSets4To6;

	function CellType: TValueCellType; override;

	class function Extension: string; override;

	function GetBoundary(ScreenObject: TScreenObject): TModflowBoundary; override;

	procedure GetOption(var Option: string); override;

	function Package: TModflowPackageSelection; override;

	function ParameterType: TParameterType; override;

	procedure WriteParameterCells(CellList: TValueCellList; NLST: Integer; const VariableIdentifiers, DataSetIdentifier: string; AssignmentMethod: TUpdateMethod; MultiplierArrayNames: TTransientMultCollection; ZoneArrayNames: TTransientZoneCollection); override;

	procedure WriteCell(Cell: TValueCell; const DataSetIdentifier, VariableIdentifiers: string); override;

	procedure WriteFile(const AFileName: string);