Provide support for assessing the effect of irrigation on recharge values by estimating the irrigation required to maintain soil moisture levels for specific crop types. More...

Functions/Subroutines
elemental real(c_double) function	adjust_depletion_fraction_p (landuse_index, reference_et0)
	Adjust the depletion fraction based on current reference ET0.
subroutine	actual_et_fao56_two_stage_initialize ()
elemental subroutine	update_evaporable_water_storage (evaporable_water_storage, evaporable_water_deficit, infiltration, landuse_index, soil_group)
elemental real(c_double) function	calculate_evaporation_reduction_coefficient_kr (landuse_index, soil_group, evaporable_water_deficit)
impure elemental real(c_float) function	calculate_fraction_exposed_and_wetted_soil_fc (landuse_index, kcb, current_plant_height)
	This function estimates the fraction of the ground covered by vegetation during the growing season.
elemental real(c_double) function	calculate_surface_evap_coefficient_ke (landuse_index, kcb, kcb_max, kr, fraction_exposed_and_wetted_soil)
	This function estimates Ke, the bare surface evaporation coefficient.
elemental subroutine	calculate_total_available_water (taw, raw, adjusted_depletion_fraction_p, current_rooting_depth, awc)
	This subroutine updates the total available water (TAW) (water within the rootzone) for a gridcell.
elemental real(c_float) function	update_plant_height (landuse_index, it_is_growing_season, kcb)
	This function updates the plant height by scaling values relative to the position of the current Kcb value on the Kcb curve.
elemental real(c_double) function	calculate_water_stress_coefficient_ks (taw, raw, soil_moisture_deficit)
	This function estimates Ks, water stress coefficient.
impure elemental subroutine	calculate_actual_et_fao56_two_stage (actual_et, crop_etc, bare_soil_evap, taw, raw, fraction_exposed_and_wetted_soil, kr, ke, ks, adjusted_depletion_fraction_p, soil_moisture_deficit, evaporable_water_storage, evaporable_water_deficit, it_is_growing_season, kcb, landuse_index, soil_group, awc, current_rooting_depth, current_plant_height, soil_storage, soil_storage_max, reference_et0, infiltration)

Variables
real(c_float), dimension(:,:), allocatable	rew_l
real(c_float), dimension(:,:), allocatable	tew_l
real(c_float), dimension(:), allocatable	depletion_fraction
real(c_float), dimension(:), allocatable	mean_plant_height
real(c_float), dimension(:), allocatable	min_fraction_covered_soil

Detailed Description

Provide support for assessing the effect of irrigation on recharge values by estimating the irrigation required to maintain soil moisture levels for specific crop types.

Function/Subroutine Documentation

◆ actual_et_fao56_two_stage_initialize()

subroutine actual_et__fao56__two_stage::actual_et_fao56_two_stage_initialize

Determine how many landuse codes are present

Definition at line 59 of file actual_et__fao56__two_stage.F90.

Here is the call graph for this function:

◆ adjust_depletion_fraction_p()

elemental real (c_double) function actual_et__fao56__two_stage::adjust_depletion_fraction_p	(	integer ( c_int), intent(in)	landuse_index,
		real (c_double), intent(in)	reference_et0 )

Adjust the depletion fraction based on current reference ET0.

From FAO-56: "The fraction p is a function of the evaporation power of the atmosphere. At low rates of ETc, the p values listed in Table 22 are higher than at high rates of ETc. For hot dry weather conditions, where ETc is high, p is 10-25% less than the values presented in Table 22, and the soil is still relatively wet when the stress starts to occur. When the crop evapotranspiration is low, p will be up to 20% more than the listed values.

Parameters

[in]	p_table_22	This is the unadjusted depletion fraction value; FAO-56 table 22 gives values of the depletion fraction relative to a reference ET0 value of 5mm.
[in]	reference_et0	The reference ET0 to which the depletion fraction will be adjusted.

Note: Discussed as a footnote to Table 22, FAO-56, Allen and others. See http://www.fao.org/docrep/x0490e/x0490e0e.htm#TopOfPage for details.

Definition at line 43 of file actual_et__fao56__two_stage.F90.

◆ calculate_actual_et_fao56_two_stage()

impure elemental subroutine actual_et__fao56__two_stage::calculate_actual_et_fao56_two_stage	(	real (c_double), intent(inout)	actual_et,
		real (c_float), intent(inout)	crop_etc,
		real (c_float), intent(inout)	bare_soil_evap,
		real (c_double), intent(inout)	taw,
		real (c_double), intent(inout)	raw,
		real (c_float), intent(inout)	fraction_exposed_and_wetted_soil,
		real (c_double), intent(inout)	kr,
		real (c_double), intent(inout)	ke,
		real (c_double), intent(inout)	ks,
		real (c_double), intent(inout)	adjusted_depletion_fraction_p,
		real (c_double), intent(inout)	soil_moisture_deficit,
		real (c_float), intent(inout)	evaporable_water_storage,
		real (c_float), intent(inout)	evaporable_water_deficit,
		logical (c_bool), intent(in)	it_is_growing_season,
		real (c_float), intent(in)	kcb,
		integer (c_int), intent(in)	landuse_index,
		integer (c_int), intent(in)	soil_group,
		real (c_float), intent(in)	awc,
		real (c_float), intent(in)	current_rooting_depth,
		real (c_float), intent(inout)	current_plant_height,
		real (c_double), intent(in)	soil_storage,
		real (c_float), intent(in)	soil_storage_max,
		real (c_double), intent(in)	reference_et0,
		real (c_float), intent(in)	infiltration )

Definition at line 305 of file actual_et__fao56__two_stage.F90.

Here is the call graph for this function:

◆ calculate_evaporation_reduction_coefficient_kr()

elemental real (c_double) function actual_et__fao56__two_stage::calculate_evaporation_reduction_coefficient_kr	(	integer (c_int), intent(in)	landuse_index,
		integer (c_int), intent(in)	soil_group,
		real (c_float), intent(in)	evaporable_water_deficit )

Definition at line 134 of file actual_et__fao56__two_stage.F90.

◆ calculate_fraction_exposed_and_wetted_soil_fc()

impure elemental real (c_float) function actual_et__fao56__two_stage::calculate_fraction_exposed_and_wetted_soil_fc	(	integer (c_int), intent(in)	landuse_index,
		real (c_float), intent(in)	kcb,
		real (c_float), intent(in)	current_plant_height )

This function estimates the fraction of the ground covered by vegetation during the growing season.

Note: Implemented as equation 76, FAO-56, Allen and others

Definition at line 167 of file actual_et__fao56__two_stage.F90.

◆ calculate_surface_evap_coefficient_ke()

elemental real (c_double) function actual_et__fao56__two_stage::calculate_surface_evap_coefficient_ke	(	integer (c_int), intent(in)	landuse_index,
		real (c_float), intent(in)	kcb,
		real (c_float), intent(in)	kcb_max,
		real (c_double), intent(in)	kr,
		real (c_float), intent(in)	fraction_exposed_and_wetted_soil )

This function estimates Ke, the bare surface evaporation coefficient.

Note: Implemented as equation 71, FAO-56, Allen and others

Definition at line 202 of file actual_et__fao56__two_stage.F90.

◆ calculate_total_available_water()

elemental subroutine actual_et__fao56__two_stage::calculate_total_available_water	(	real (c_double), intent(inout)	taw,
		real (c_double), intent(inout)	raw,
		real (c_double), intent(in)	adjusted_depletion_fraction_p,
		real (c_float), intent(in)	current_rooting_depth,
		real (c_float), intent(in)	awc )

This subroutine updates the total available water (TAW) (water within the rootzone) for a gridcell.

Definition at line 227 of file actual_et__fao56__two_stage.F90.

◆ calculate_water_stress_coefficient_ks()

elemental real (c_double) function actual_et__fao56__two_stage::calculate_water_stress_coefficient_ks	(	real (c_double), intent(in)	taw,
		real (c_double), intent(in)	raw,
		real (c_double), intent(in)	soil_moisture_deficit )

This function estimates Ks, water stress coefficient.

Note: Implemented as equation 84, FAO-56, Allen and others

Definition at line 279 of file actual_et__fao56__two_stage.F90.

◆ update_evaporable_water_storage()

elemental subroutine actual_et__fao56__two_stage::update_evaporable_water_storage	(	real (c_float), intent(inout)	evaporable_water_storage,
		real (c_float), intent(inout)	evaporable_water_deficit,
		real (c_float), intent(in)	infiltration,
		integer (c_int), intent(in)	landuse_index,
		integer (c_int), intent(in)	soil_group )

Definition at line 113 of file actual_et__fao56__two_stage.F90.

◆ update_plant_height()

elemental real (c_float) function actual_et__fao56__two_stage::update_plant_height	(	integer (c_int), intent(in)	landuse_index,
		logical (c_bool), intent(in)	it_is_growing_season,
		real (c_float), intent(in)	kcb )