irrigation_type Derived Type

type, public :: irrigation_type

Components

Type	Visibility	Attributes		Name		Initial
real(kind=r8),	public,	pointer	::	qflx_irrig_patch(:)
real(kind=r8),	public,	pointer	::	qflx_irrig_col(:)

Type-Bound Procedures

procedure, public :: Init => IrrigationInit

private subroutine IrrigationInit(this, bounds, NLFilename, soilstate_inst, soil_water_retention_curve)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds
character(len=*),	intent(in)			::	NLFilename
type(soilstate_type),	intent(in)			::	soilstate_inst
class(soil_water_retention_curve_type),	intent(in)			::	soil_water_retention_curve

procedure, public :: Restart

private subroutine Restart(this, bounds, ncid, flag)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type)				::	this
type(bounds_type),	intent(in)			::	bounds
type(file_desc_t),	intent(inout)			::	ncid
character(len=*),	intent(in)			::	flag

procedure, public :: ApplyIrrigation

private subroutine ApplyIrrigation(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: CalcIrrigationNeeded

private subroutine CalcIrrigationNeeded(this, bounds, num_exposedvegp, filter_exposedvegp, elai, t_soisno, eff_porosity, h2osoi_liq, volr, rof_prognostic)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds
integer,	intent(in)			::	num_exposedvegp
integer,	intent(in)			::	filter_exposedvegp(:)
real(kind=r8),	intent(in)			::	elai(bounds%begp:)
real(kind=r8),	intent(in)			::	t_soisno(bounds%begc:,1:)
real(kind=r8),	intent(in)			::	eff_porosity(bounds%begc:,1:)
real(kind=r8),	intent(in)			::	h2osoi_liq(bounds%begc:,1:)
real(kind=r8),	intent(in)			::	volr(bounds%begg:)
logical,	intent(in)			::	rof_prognostic

procedure, public :: Clean => IrrigationClean

private subroutine IrrigationClean(this)

Arguments

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

procedure, public :: InitForTesting

private subroutine InitForTesting(this, bounds, params, dtime, relsat_wilting_point, relsat_target)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds
type(irrigation_params_type),	intent(in)			::	params
integer,	intent(in)			::	dtime
real(kind=r8),	intent(in)			::	relsat_wilting_point(bounds%begc:,1:)
real(kind=r8),	intent(in)			::	relsat_target(bounds%begc:,1:)

procedure, public :: RelsatToH2osoi

private pure function RelsatToH2osoi(this, relsat, eff_porosity, dz) result(h2osoi_liq)

Arguments

Type	Intent	Optional	Attributes		Name
class(irrigation_type),	intent(in)			::	this
real(kind=r8),	intent(in)			::	relsat
real(kind=r8),	intent(in)			::	eff_porosity
real(kind=r8),	intent(in)			::	dz

Return Value real(kind=r8)