Class TChildModel

DescriptionHierarchyFieldsMethodsProperties

Unit

PhastModelUnit

Declaration

type TChildModel = class(TCustomModel)

Description

no description available, TCustomModel description follows
no description available, TBaseModel description follows

Hierarchy

Overview

Fields

Private FParentModel: TCustomModel;
Private FModelName: string;
Private FDiscretization: TChildDiscretizationCollection;
Private FChildCellsPerParentCell: integer;
Private FHorizontalPositionScreenObject: TScreenObject;
Private FCanUpdateGrid: Boolean;
Private FShouldUpdateGrid: Boolean;
Private FFirstCol: Integer;
Private FLastCol: Integer;
Private FFirstRow: Integer;
Private FLastRow: Integer;
Private FCreating: Boolean;
Private FStartingHeadSource: TStartingHeadSource;
Private FMaxIterations: integer;
Private FLgrPrintChoice: TLgrPrintChoice;
Private FFluxRelaxationFactor: double;
Private FHeadRelaxationFactor: double;
Private FFluxClosureCriterion: double;
Private FHeadClosureCriterion: double;
Private FCouplingMethod: TCouplingMethod;

Methods

Private function GetSomeSegmentsUpToDate: boolean; override;
Private procedure SetSomeSegmentsUpToDate(const Value: boolean); override;
Private procedure SetModelName(const Value: string);
Private procedure SetDiscretization(const Value: TChildDiscretizationCollection);
Private procedure SetChildCellsPerParentCell(const Value: integer);
Private procedure SetHorizontalPositionScreenObject(const Value: TScreenObject);
Private procedure GetRowColPositions(const StartPosition, EndPosition: integer; const ParentPositions: TOneDRealArray; out ChildPostions: TOneDRealArray);
Private procedure SetCanUpdateGrid(const Value: Boolean);
Private function ParentPositionToChildPositions(ViewDirection: TViewDirection; APosition: integer): TGridRange;
Private function MaxPosition(ViewDirection: TViewDirection): integer;
Private procedure SetStartingHeadSource(const Value: TStartingHeadSource);
Private procedure SetMaxIterations(const Value: integer);
Private procedure SetLgrPrintChoice(const Value: TLgrPrintChoice);
Private procedure SetFluxRelaxationFactor(const Value: double);
Private procedure SetHeadRelaxationFactor(const Value: double);
Private procedure SetFluxClosureCriterion(const Value: double);
Private procedure SetHeadClosureCriterion(const Value: double);
Private function ConvertIntegerParentArray(ParentArray: TOneDIntegerArray): TOneDIntegerArray;
Private function ConvertRealParentArray(ParentArray: TOneDRealArray): TOneDRealArray;
Private procedure SetCouplingMethod(const Value: TCouplingMethod);
Private procedure AdjustCellPosition(var Column, Row, Layer: integer); overload;
Private function GetSaveBfhBoundaryConditions: boolean; override;
Private procedure SetSaveBfhBoundaryConditions(const Value: boolean); override;
Protected function StoreHydrogeologicUnits: Boolean; override;
Protected function GetScreenObjects(const Index: integer): TScreenObject; override;
Protected function GetScreenObjectCount: integer; override;
Protected function GetModflowSteadyParameters: TModflowSteadyParameters; override;
Protected function GetLayerStructure: TLayerStructure; override;
Protected procedure SetLayerStructure(const Value: TLayerStructure); override;
Protected function GetModflowStressPeriods: TModflowStressPeriods; override;
Protected procedure SetModflowStressPeriods(const Value: TModflowStressPeriods); override;
Protected procedure SetSoluteTransport(const Value: boolean); override;
Protected function GetSoluteTransport: boolean; override;
Protected procedure SetUseWaterTable(const Value: boolean); override;
Protected function GetUseWaterTable: boolean; override;
Protected function GetFreeSurface: boolean; override;
Protected procedure SetFreeSurface(const Value: boolean); override;
Protected procedure SetChemistryOptions(const Value: TChemistryOptions); override;
Protected function GetChemistryOptions: TChemistryOptions; override;
Protected function GetObservationPurpose: TObservationPurpose; override;
Protected procedure SetObservationPurpose(const Value: TObservationPurpose); override;
Protected procedure SetHufParameters(const Value: THufModflowParameters); override;
Protected function GetHufParameters: THufModflowParameters; override;
Protected function GetModflowTransientParameters: TModflowTransientListParameters; override;
Protected procedure SetModflowTransientParameters( const Value: TModflowTransientListParameters); override;
Protected function GetModflowOutputControl: TModflowOutputControl; override;
Protected procedure SetModflowOutputControl(const Value: TModflowOutputControl); override;
Protected function GetProgramLocations: TProgramLocations; override;
Protected procedure SetProgramLocations(const Value: TProgramLocations); override;
Protected function GetModflowFullStressPeriods: TModflowStressPeriods; override;
Protected procedure SetModflowSteadyParameters(const Value: TModflowSteadyParameters); override;
Protected function GetModelSelection: TModelSelection; override;
Protected function GetSelectedModel: TCustomModel; override;
Protected procedure SetSelectedModel(const Value: TCustomModel); override;
Protected function GetFormulaManager: TFormulaManager; override;
Protected procedure Loaded; override;
Protected procedure DefineProperties(Filer: TFiler); override;
Protected procedure ReadFluxRelaxationFactor(Reader: TReader);
Protected procedure ReadHeadRelaxationFactor(Reader: TReader);
Protected procedure WriteFluxRelaxationFactor(Writer: TWriter);
Protected procedure WriteHeadRelaxationFactor(Writer: TWriter);
Protected procedure ReadHeadClosureCriterion(Reader: TReader);
Protected procedure ReadFluxClosureCriterion(Reader: TReader);
Protected procedure WriteHeadClosureCriterion(Writer: TWriter);
Protected procedure WriteFluxClosureCriterion(Writer: TWriter);
Protected function GetDisplayName: string; override;
Protected procedure SetContourFont(const Value: TFont) ; override;
Protected procedure SetShowContourLabels(const Value: boolean); override;
Protected function GetContourFont: TFont; override;
Protected function GetShowContourLabels: boolean; override;
Protected procedure SetMt3dmsOutputControl(const Value: TMt3dmsOutputControl); override;
Protected function GetMt3dmsOutputControl: TMt3dmsOutputControl; override;
Protected function GetMt3dmsTimes: TMt3dmsTimeCollection; override;
Protected procedure SetMt3dmsTimes(const Value: TMt3dmsTimeCollection); override;
Protected function GetImmobileComponents: TChemSpeciesCollection; override;
Protected function GetMobileComponents: TMobileChemSpeciesCollection; override;
Protected procedure SetImmobileComponents(const Value: TChemSpeciesCollection); override;
Protected procedure SetMobileComponents(const Value: TMobileChemSpeciesCollection); override;
Protected function GetSfrStreamLinkPlot: TSfrStreamLinkPlot; override;
Protected procedure SetSfrStreamLinkPlot(const Value: TSfrStreamLinkPlot); override;
Public function LayerGroupUsed(LayerGroup: TLayerGroup): boolean; override;
Public function LayerFractions(LayerGroup: TCustomLayerGroup): TDoubleDynArray; override;
Public function LayerCount: integer; override;
Public function FirstOverlappedLayer: integer;
Public procedure UpdateDisplayUseList(NewUseList: TStringList; ParamType: TParameterType; DataIndex: integer; const DisplayName: string); override;
Public procedure Assign(Source: TPersistent); override;
Public constructor Create(AnOwner: TComponent); override;
Public destructor Destroy; override;
Public procedure Invalidate; override;
Public function GetScreenObjectByName(AName: string): TScreenObject; override;
Public procedure UpdateLayerCount;
Public procedure UpdateGrid;
Public procedure UpdateDataSetConnections;
Public function ChildColToParentCol(ACol: integer): integer;
Public function ChildRowToParentRow(ARow: integer): integer;
Public function ChildLayerToParentLayer(ALayer: integer): integer;
Public function ParentColToChildCols(ACol: integer): TGridRange;
Public function ParentRowToChildRows(ARow: integer): TGridRange;
Public function ParentLayerToChildLayers(ALayer: integer): TGridRange;
Public function EdgeIndex: integer;
Public function Child_NameFile_Name(const Parent_NameFile_Name: string): string;
Public function ModflowLayerCount: integer; override;
Public function ModflowConfiningBedCount: integer; override;
Public procedure WriteLAYCB(const DiscretizationWriter: TObject); override;
Public function IsLayerSimulated(const LayerID: integer): boolean; override;
Public Function Laytyp: TOneDIntegerArray; override;
Public Function Layavg: TOneDIntegerArray; override;
Public function Chani: TOneDIntegerArray; override;
Public Function Layvka: TOneDIntegerArray; override;
Public function Trpy: TOneDRealArray; override;
Public Function TRPT: TOneDRealArray; override;
Public function TRPV: TOneDRealArray; override;
Public Function DMCOEF: TOneDRealArray; override;
Public function GetLayerGroupByLayer(const Layer: integer): TLayerGroup; override;
Public function ModflowLayerBottomDescription(const LayerID: integer): string; override;
Public Function ModflowLayerToDataSetLayer(ModflowLayer: integer): integer; override;
Public function DataSetLayerToModflowLayer(DataSetLayer: integer): integer; override;
Public procedure AdjustCellPosition(AValueCell: TValueCell); overload; override;
Public procedure AdjustCellPosition(ACellAssignment: TCellAssignment); overload; override;
Public procedure AdjustDataArray(ADataArray: TDataArray); override;
Public function DefaultModflowOutputFileName: string; override;
Public procedure UpdateMt3dmsChemDataSets; override;

Properties

Public property CanUpdateGrid: Boolean read FCanUpdateGrid write SetCanUpdateGrid;
Public property ParentModel: TCustomModel read FParentModel;
Public property HorizontalPositionScreenObject: TScreenObject read FHorizontalPositionScreenObject write SetHorizontalPositionScreenObject;
Public property FirstCol: Integer read FFirstCol;
Public property LastCol: Integer read FLastCol;
Public property FirstRow: Integer read FFirstRow;
Public property LastRow: Integer read FLastRow;
Published property ModelName: string read FModelName write SetModelName;
Published property Discretization: TChildDiscretizationCollection read FDiscretization write SetDiscretization;
Published property ChildCellsPerParentCell: integer read FChildCellsPerParentCell write SetChildCellsPerParentCell default 3;
Published property StartingHeadSource: TStartingHeadSource read FStartingHeadSource write SetStartingHeadSource default shsSelf;
Published property CouplingMethod: TCouplingMethod read FCouplingMethod write SetCouplingMethod stored True;
Published property MaxIterations: integer read FMaxIterations write SetMaxIterations default 20;
Published property LgrPrintChoice: TLgrPrintChoice read FLgrPrintChoice write SetLgrPrintChoice default lpcListing;
Published property HeadRelaxationFactor: double read FHeadRelaxationFactor write SetHeadRelaxationFactor;
Published property FluxRelaxationFactor: double read FFluxRelaxationFactor write SetFluxRelaxationFactor;
Published property HeadClosureCriterion: double read FHeadClosureCriterion write SetHeadClosureCriterion;
Published property FluxClosureCriterion: double read FFluxClosureCriterion write SetFluxClosureCriterion;

Description

Fields

Private FParentModel: TCustomModel;
 
Private FModelName: string;
 
Private FDiscretization: TChildDiscretizationCollection;
 
Private FChildCellsPerParentCell: integer;
 
Private FHorizontalPositionScreenObject: TScreenObject;
 
Private FCanUpdateGrid: Boolean;
 
Private FShouldUpdateGrid: Boolean;
 
Private FFirstCol: Integer;
 
Private FLastCol: Integer;
 
Private FFirstRow: Integer;
 
Private FLastRow: Integer;
 
Private FCreating: Boolean;
 
Private FStartingHeadSource: TStartingHeadSource;
 
Private FMaxIterations: integer;
 
Private FLgrPrintChoice: TLgrPrintChoice;
 
Private FFluxRelaxationFactor: double;
 
Private FHeadRelaxationFactor: double;
 
Private FFluxClosureCriterion: double;
 
Private FHeadClosureCriterion: double;
 
Private FCouplingMethod: TCouplingMethod;
 

Methods

Private function GetSomeSegmentsUpToDate: boolean; override;
 
Private procedure SetSomeSegmentsUpToDate(const Value: boolean); override;
 
Private procedure SetModelName(const Value: string);
 
Private procedure SetDiscretization(const Value: TChildDiscretizationCollection);
 
Private procedure SetChildCellsPerParentCell(const Value: integer);
 
Private procedure SetHorizontalPositionScreenObject(const Value: TScreenObject);
 
Private procedure GetRowColPositions(const StartPosition, EndPosition: integer; const ParentPositions: TOneDRealArray; out ChildPostions: TOneDRealArray);
 
Private procedure SetCanUpdateGrid(const Value: Boolean);
 
Private function ParentPositionToChildPositions(ViewDirection: TViewDirection; APosition: integer): TGridRange;
 
Private function MaxPosition(ViewDirection: TViewDirection): integer;
 
Private procedure SetStartingHeadSource(const Value: TStartingHeadSource);
 
Private procedure SetMaxIterations(const Value: integer);
 
Private procedure SetLgrPrintChoice(const Value: TLgrPrintChoice);
 
Private procedure SetFluxRelaxationFactor(const Value: double);
 
Private procedure SetHeadRelaxationFactor(const Value: double);
 
Private procedure SetFluxClosureCriterion(const Value: double);
 
Private procedure SetHeadClosureCriterion(const Value: double);
 
Private function ConvertIntegerParentArray(ParentArray: TOneDIntegerArray): TOneDIntegerArray;
 
Private function ConvertRealParentArray(ParentArray: TOneDRealArray): TOneDRealArray;
 
Private procedure SetCouplingMethod(const Value: TCouplingMethod);
 
Private procedure AdjustCellPosition(var Column, Row, Layer: integer); overload;
 
Private function GetSaveBfhBoundaryConditions: boolean; override;
 
Private procedure SetSaveBfhBoundaryConditions(const Value: boolean); override;
 
Protected function StoreHydrogeologicUnits: Boolean; override;
 
Protected function GetScreenObjects(const Index: integer): TScreenObject; override;
 
Protected function GetScreenObjectCount: integer; override;
 
Protected function GetModflowSteadyParameters: TModflowSteadyParameters; override;
 
Protected function GetLayerStructure: TLayerStructure; override;
 
Protected procedure SetLayerStructure(const Value: TLayerStructure); override;
 
Protected function GetModflowStressPeriods: TModflowStressPeriods; override;
 
Protected procedure SetModflowStressPeriods(const Value: TModflowStressPeriods); override;
 
Protected procedure SetSoluteTransport(const Value: boolean); override;
 
Protected function GetSoluteTransport: boolean; override;
 
Protected procedure SetUseWaterTable(const Value: boolean); override;
 
Protected function GetUseWaterTable: boolean; override;
 
Protected function GetFreeSurface: boolean; override;
 
Protected procedure SetFreeSurface(const Value: boolean); override;
 
Protected procedure SetChemistryOptions(const Value: TChemistryOptions); override;
 
Protected function GetChemistryOptions: TChemistryOptions; override;
 
Protected function GetObservationPurpose: TObservationPurpose; override;
 
Protected procedure SetObservationPurpose(const Value: TObservationPurpose); override;
 
Protected procedure SetHufParameters(const Value: THufModflowParameters); override;
 
Protected function GetHufParameters: THufModflowParameters; override;
 
Protected function GetModflowTransientParameters: TModflowTransientListParameters; override;
 
Protected procedure SetModflowTransientParameters( const Value: TModflowTransientListParameters); override;
 
Protected function GetModflowOutputControl: TModflowOutputControl; override;
 
Protected procedure SetModflowOutputControl(const Value: TModflowOutputControl); override;
 
Protected function GetProgramLocations: TProgramLocations; override;
 
Protected procedure SetProgramLocations(const Value: TProgramLocations); override;
 
Protected function GetModflowFullStressPeriods: TModflowStressPeriods; override;
 
Protected procedure SetModflowSteadyParameters(const Value: TModflowSteadyParameters); override;
 
Protected function GetModelSelection: TModelSelection; override;
 
Protected function GetSelectedModel: TCustomModel; override;
 
Protected procedure SetSelectedModel(const Value: TCustomModel); override;
 
Protected function GetFormulaManager: TFormulaManager; override;
 
Protected procedure Loaded; override;
 
Protected procedure DefineProperties(Filer: TFiler); override;
 
Protected procedure ReadFluxRelaxationFactor(Reader: TReader);
 
Protected procedure ReadHeadRelaxationFactor(Reader: TReader);
 
Protected procedure WriteFluxRelaxationFactor(Writer: TWriter);
 
Protected procedure WriteHeadRelaxationFactor(Writer: TWriter);
 
Protected procedure ReadHeadClosureCriterion(Reader: TReader);
 
Protected procedure ReadFluxClosureCriterion(Reader: TReader);
 
Protected procedure WriteHeadClosureCriterion(Writer: TWriter);
 
Protected procedure WriteFluxClosureCriterion(Writer: TWriter);
 
Protected function GetDisplayName: string; override;
 
Protected procedure SetContourFont(const Value: TFont) ; override;
 
Protected procedure SetShowContourLabels(const Value: boolean); override;
 
Protected function GetContourFont: TFont; override;
 
Protected function GetShowContourLabels: boolean; override;
 
Protected procedure SetMt3dmsOutputControl(const Value: TMt3dmsOutputControl); override;
 
Protected function GetMt3dmsOutputControl: TMt3dmsOutputControl; override;
 
Protected function GetMt3dmsTimes: TMt3dmsTimeCollection; override;
 
Protected procedure SetMt3dmsTimes(const Value: TMt3dmsTimeCollection); override;
 
Protected function GetImmobileComponents: TChemSpeciesCollection; override;
 
Protected function GetMobileComponents: TMobileChemSpeciesCollection; override;
 
Protected procedure SetImmobileComponents(const Value: TChemSpeciesCollection); override;
 
Protected procedure SetMobileComponents(const Value: TMobileChemSpeciesCollection); override;
 
Protected function GetSfrStreamLinkPlot: TSfrStreamLinkPlot; override;
 
Protected procedure SetSfrStreamLinkPlot(const Value: TSfrStreamLinkPlot); override;
 
Public function LayerGroupUsed(LayerGroup: TLayerGroup): boolean; override;
 
Public function LayerFractions(LayerGroup: TCustomLayerGroup): TDoubleDynArray; override;
 
Public function LayerCount: integer; override;
 
Public function FirstOverlappedLayer: integer;
 
Public procedure UpdateDisplayUseList(NewUseList: TStringList; ParamType: TParameterType; DataIndex: integer; const DisplayName: string); override;
 
Public procedure Assign(Source: TPersistent); override;
 
Public constructor Create(AnOwner: TComponent); override;
 
Public destructor Destroy; override;
 
Public procedure Invalidate; override;
 
Public function GetScreenObjectByName(AName: string): TScreenObject; override;
 
Public procedure UpdateLayerCount;
 
Public procedure UpdateGrid;
 
Public procedure UpdateDataSetConnections;
 
Public function ChildColToParentCol(ACol: integer): integer;
 
Public function ChildRowToParentRow(ARow: integer): integer;
 
Public function ChildLayerToParentLayer(ALayer: integer): integer;
 
Public function ParentColToChildCols(ACol: integer): TGridRange;
 
Public function ParentRowToChildRows(ARow: integer): TGridRange;
 
Public function ParentLayerToChildLayers(ALayer: integer): TGridRange;
 
Public function EdgeIndex: integer;
 
Public function Child_NameFile_Name(const Parent_NameFile_Name: string): string;
 
Public function ModflowLayerCount: integer; override;
 
Public function ModflowConfiningBedCount: integer; override;
 
Public procedure WriteLAYCB(const DiscretizationWriter: TObject); override;
 
Public function IsLayerSimulated(const LayerID: integer): boolean; override;
 
Public Function Laytyp: TOneDIntegerArray; override;
 
Public Function Layavg: TOneDIntegerArray; override;
 
Public function Chani: TOneDIntegerArray; override;
 
Public Function Layvka: TOneDIntegerArray; override;
 
Public function Trpy: TOneDRealArray; override;
 
Public Function TRPT: TOneDRealArray; override;
 
Public function TRPV: TOneDRealArray; override;
 
Public Function DMCOEF: TOneDRealArray; override;
 
Public function GetLayerGroupByLayer(const Layer: integer): TLayerGroup; override;
 
Public function ModflowLayerBottomDescription(const LayerID: integer): string; override;
 
Public Function ModflowLayerToDataSetLayer(ModflowLayer: integer): integer; override;
 
Public function DataSetLayerToModflowLayer(DataSetLayer: integer): integer; override;
 
Public procedure AdjustCellPosition(AValueCell: TValueCell); overload; override;
 
Public procedure AdjustCellPosition(ACellAssignment: TCellAssignment); overload; override;
 
Public procedure AdjustDataArray(ADataArray: TDataArray); override;
 
Public function DefaultModflowOutputFileName: string; override;
 
Public procedure UpdateMt3dmsChemDataSets; override;
 

Properties

Public property CanUpdateGrid: Boolean read FCanUpdateGrid write SetCanUpdateGrid;
 
Public property ParentModel: TCustomModel read FParentModel;
 
Public property HorizontalPositionScreenObject: TScreenObject read FHorizontalPositionScreenObject write SetHorizontalPositionScreenObject;
 
Public property FirstCol: Integer read FFirstCol;
 
Public property LastCol: Integer read FLastCol;
 
Public property FirstRow: Integer read FFirstRow;
 
Public property LastRow: Integer read FLastRow;
 
Published property ModelName: string read FModelName write SetModelName;
 
Published property Discretization: TChildDiscretizationCollection read FDiscretization write SetDiscretization;
 
Published property ChildCellsPerParentCell: integer read FChildCellsPerParentCell write SetChildCellsPerParentCell default 3;
 
Published property StartingHeadSource: TStartingHeadSource read FStartingHeadSource write SetStartingHeadSource default shsSelf;
 
Published property CouplingMethod: TCouplingMethod read FCouplingMethod write SetCouplingMethod stored True;
 
Published property MaxIterations: integer read FMaxIterations write SetMaxIterations default 20;
 
Published property LgrPrintChoice: TLgrPrintChoice read FLgrPrintChoice write SetLgrPrintChoice default lpcListing;
 
Published property HeadRelaxationFactor: double read FHeadRelaxationFactor write SetHeadRelaxationFactor;
 
Published property FluxRelaxationFactor: double read FFluxRelaxationFactor write SetFluxRelaxationFactor;
 
Published property HeadClosureCriterion: double read FHeadClosureCriterion write SetHeadClosureCriterion;
 
Published property FluxClosureCriterion: double read FFluxClosureCriterion write SetFluxClosureCriterion;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:58