Class TMt3dmsTobWriter

Unit

Mt3dmsTobWriterUnit

Declaration

type TMt3dmsTobWriter = class(TCustomPackageWriter)

Description

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

Hierarchy

• TObject
• TCustomFileWriter
• TCustomModflowWriter
• TCustomPackageWriter
• TMt3dmsTobWriter

Overview

Fields

	FNameOfFile: string;
	FObservations: TList;
	FStartTime: Double;
	FEndTime: Double;
	nConcObs: integer;
	FTobPackage: TMt3dmsTransportObservations;
	OUTNAM: string;
	FFluxObsList: TObsList;
	FMaxConcObs: Integer;
	FMaxFluxObs: Integer;
	inConcObs: Integer;
	inFluxObs: Integer;

Methods

	procedure EvaluateConcentrationObs(Purpose: TObservationPurpose);
	procedure WriteDataSet1;
	procedure WriteDataSet2;
	procedure WriteDataSets3to5;
	procedure WriteDatSets4and5(Index: integer);
	procedure WriteDataSet4(Observations: TMt3dmsTransObservations; CellList: TMt3dmsTobsCellList);
	procedure WriteDataSet5(Observations: TMt3dmsTransObservations; CellList: TMt3dmsTobsCellList);
	procedure WriteFluxObservations;
	procedure WriteDataSets7to9(ObsGroup: TMt3dmsFluxObservationGroup);
	procedure WriteFluxObsTime(const FOBSNAM: string; TimeItem: TMt3dmsFluxObservation);
	procedure WriteFluxObsCell(DataSets: TList; ACell: TCellAssignment; Expression: TExpression; Variables: TList; ObsFactor: TObservationFactor);
	procedure WriteDataSet7(ObsGroup: TMt3dmsFluxObservationGroup);
	procedure WriteDataSet8(ObsGroup: TMt3dmsFluxObservationGroup);
	procedure WriteDataSet9(ObsGroup: TMt3dmsFluxObservationGroup);
	procedure FillFluxObsList;
	class function Extension: string; override;
	function Package: TModflowPackageSelection; override;
	Constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType); override;
	destructor Destroy; override;
	procedure WriteFile(const AFileName: string; Purpose: TObservationPurpose);

Description

Fields

	FNameOfFile: string;

	FObservations: TList;
FObservations contains TMt3dmsTransObservations.

	FStartTime: Double;

	FEndTime: Double;

	nConcObs: integer;

	FTobPackage: TMt3dmsTransportObservations;

	OUTNAM: string;

	FFluxObsList: TObsList;

	FMaxConcObs: Integer;

	FMaxFluxObs: Integer;

	inConcObs: Integer;

	inFluxObs: Integer;

Methods

	procedure EvaluateConcentrationObs(Purpose: TObservationPurpose);

	procedure WriteDataSet1;

	procedure WriteDataSet2;

	procedure WriteDataSets3to5;

	procedure WriteDatSets4and5(Index: integer);

	procedure WriteDataSet4(Observations: TMt3dmsTransObservations; CellList: TMt3dmsTobsCellList);

	procedure WriteDataSet5(Observations: TMt3dmsTransObservations; CellList: TMt3dmsTobsCellList);

	procedure WriteFluxObservations;

	procedure WriteDataSets7to9(ObsGroup: TMt3dmsFluxObservationGroup);

	procedure WriteFluxObsTime(const FOBSNAM: string; TimeItem: TMt3dmsFluxObservation);

	procedure WriteFluxObsCell(DataSets: TList; ACell: TCellAssignment; Expression: TExpression; Variables: TList; ObsFactor: TObservationFactor);

	procedure WriteDataSet7(ObsGroup: TMt3dmsFluxObservationGroup);

	procedure WriteDataSet8(ObsGroup: TMt3dmsFluxObservationGroup);

	procedure WriteDataSet9(ObsGroup: TMt3dmsFluxObservationGroup);

	procedure FillFluxObsList;

	class function Extension: string; override;

	function Package: TModflowPackageSelection; override;

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

	destructor Destroy; override;

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