wam_correct_irrigationdemand Function

  1. management.f95
  2. management
  3. wam_correct_irrigationdemand

public function wam_correct_irrigationdemand(pWU, plantDemand)

Arguments

Type IntentOptional AttributesName
type(TWaterUser), POINTER:: pWU
real(kind=dp), intent(in) :: plantDemand

Return Value real(kind=dp)


Called by

proc~~wam_correct_irrigationdemand~~CalledByGraph proc~wam_correct_irrigationdemand wam_correct_irrigationdemand proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->proc~wam_correct_irrigationdemand proc~crop_process crop_process proc~crop_process->proc~vegetation_water_stress proc~vegetation_process vegetation_process proc~vegetation_process->proc~vegetation_water_stress proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~crop_process proc~hydrotope_process->proc~vegetation_process proc~runsubbasin runsubbasin proc~runsubbasin->proc~hydrotope_process proc~time_process_day time_process_day proc~time_process_day->proc~runsubbasin proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day proc~time_process_years time_process_years proc~time_process_years->proc~time_process_month program~swim swim program~swim->proc~time_process_years

Contents

Source Code

wam_correct_irrigationdemand

Source Code

    real(dp) function wam_correct_irrigationdemand(pwu, plantdemand)
    TYPE (TWaterUser), POINTER :: pWU
    real(dp), intent(in) :: plantDemand
    real(dp) :: irr_fac = 0.

    ! To satisfy the required plant demand, the actual demand will be higher due to irrigation losses.
    ! This depends on irrigation practices. These losses are incorporated here.
    if (pWU % irr_practice == 1) irr_fac = 1. / wam_eff_sprinkler ! sprinkler irrigation
    if (pWU % irr_practice == 2) irr_fac = 1. / wam_eff_drip ! drip irrigation

    wam_correct_irrigationDemand = plantDemand * irr_fac * pWU % irr_deficit_fac * (1. / pWU % tr_eff) ! m3 / s

  end function wam_correct_irrigationDemand