TankModel_ Derived Type

type, public :: TankModel_

Components

Type	Visibility	Attributes		Name		Initial
type(Tank_),	public,	allocatable	::	tanks(:)

Type-Bound Procedures

procedure, public :: init => initTankModel_TankModelClass

public subroutine initTankModel_TankModelClass(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this

procedure, public, pass :: addTankModel_TankModelClass

public subroutine addTankModel_TankModelClass(this, tank)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
type(Tank_),	intent(in)			::	tank

generic, public :: add => addTankModel_TankModelClass

public subroutine addTankModel_TankModelClass(this, tank)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
type(Tank_),	intent(in)			::	tank

procedure, public :: connect => connectTankModel_TankModelClass

public subroutine connectTankModel_TankModelClass(this, tankIdx, coeff, height)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	tankIdx(1:2)
real(kind=real64),	intent(in)			::	coeff
real(kind=real64),	intent(in)			::	height

procedure, public :: optimize => optimizeTankModel_TankModelClass

public function optimizeTankModel_TankModelClass(this, rainfall, waterheads, GLs, dt) result(params)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
real(kind=real64),	intent(in)			::	rainfall(:)
real(kind=real64),	intent(in)			::	waterheads(:,:)
real(kind=real64),	intent(in)			::	GLs(:)
real(kind=real64),	intent(in)			::	dt

Return Value real(kind=real64), allocatable, (:)

procedure, public :: simulate => simulateTankModel_TankModelClass

public function simulateTankModel_TankModelClass(this, rainfall, GLs, dt) result(waterheads)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
real(kind=real64),	intent(in)			::	rainfall(:)
real(kind=real64),	intent(in)			::	GLs(:)
real(kind=real64),	intent(in)			::	dt

Return Value real(kind=real64), allocatable, (:,:)

procedure, public :: setParams => setParamsTankModel_TankModelClass

public subroutine setParamsTankModel_TankModelClass(this, params)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(inout)			::	this
real(kind=real64),	intent(in)			::	params(:)

procedure, public :: showUnit => showUnit_TankModelClass

public subroutine showUnit_TankModelClass(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(in)			::	this

procedure, public :: show => show_TankModelClass

public subroutine show_TankModelClass(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(TankModel_),	intent(in)			::	this