management_external_supply Subroutine

public subroutine management_external_supply(sub, day, ida, iyr)

if destination subbasin receives water from external source

TSub (current subbasin)

add external supply to destination subbasin inflow

TWU (current water user)

calculate volume delivered to water user

Water user type: IRRIGATION, unlimited external source, from input file

Put on the field what is provided by external source

TWU (current water user)

TSub (current subbasin)

!! pWU%supplied should not be added to %inflow, because the irrigation supply is added in hydrotope !! %inflow is added to sda or varoute in "subbasin" and/or "add"

Water user type: IRRIGATION, unlimited external source, demand from plant deficit

assuming an unlimited source providing exactly the required irrigation demand

TWU (current water user)

TSub (current subbasin)

!! pWU%supplied should not be added to %inflow, because the irrigation supply is added in hydrotope !! %inflow is added to sda or varoute in "subbasin" and/or "add"

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: sub
integer, intent(in) :: day
integer, intent(in) :: ida
integer, intent(in) :: iyr

Calls

proc~~management_external_supply~~CallsGraph proc~management_external_supply management_external_supply proc~log_warn log_warn proc~management_external_supply->proc~log_warn proc~management_is_active_period management_is_active_period proc~management_external_supply->proc~management_is_active_period proc~management_is_transfer_subbasin management_is_transfer_subbasin proc~management_external_supply->proc~management_is_transfer_subbasin proc~management_subbasin_pointer management_subbasin_pointer proc~management_external_supply->proc~management_subbasin_pointer proc~management_user_pointer management_user_pointer proc~management_external_supply->proc~management_user_pointer proc~log_message log_message proc~log_warn->proc~log_message proc~log_error log_error proc~management_user_pointer->proc~log_error proc~log_error->proc~log_message proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~log_write log_write proc~log_message->proc~log_write proc~colourise colourise proc~log_format_message->proc~colourise proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~to_string to_string proc~log_write->proc~to_string proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~management_external_supply~~CalledByGraph proc~management_external_supply management_external_supply proc~time_process_day time_process_day proc~time_process_day->proc~management_external_supply 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