management_is_transfer_subbasin Function

  1. management.f95
  2. management
  3. management_is_transfer_subbasin

public function management_is_transfer_subbasin(sub)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: sub

Return Value logical


Called by

proc~~management_is_transfer_subbasin~~CalledByGraph proc~management_is_transfer_subbasin management_is_transfer_subbasin proc~management_total_demand management_total_demand proc~management_total_demand->proc~management_is_transfer_subbasin proc~vegetation_water_stress vegetation_water_stress proc~vegetation_water_stress->proc~management_is_transfer_subbasin proc~management_external_supply management_external_supply proc~management_external_supply->proc~management_is_transfer_subbasin proc~runsubbasin runsubbasin proc~runsubbasin->proc~management_is_transfer_subbasin proc~hydrotope_process hydrotope_process proc~runsubbasin->proc~hydrotope_process proc~time_process_day time_process_day proc~time_process_day->proc~management_is_transfer_subbasin proc~time_process_day->proc~management_total_demand proc~time_process_day->proc~management_external_supply proc~time_process_day->proc~runsubbasin proc~river_route_add river_route_add proc~time_process_day->proc~river_route_add proc~management_read_ctrl management_read_ctrl proc~management_read_ctrl->proc~management_is_transfer_subbasin proc~river_route_add->proc~management_is_transfer_subbasin proc~hydrotope_process->proc~management_is_transfer_subbasin proc~crop_process crop_process proc~hydrotope_process->proc~crop_process proc~vegetation_process vegetation_process proc~hydrotope_process->proc~vegetation_process proc~management_initialise management_initialise proc~management_initialise->proc~management_read_ctrl proc~crop_process->proc~vegetation_water_stress proc~vegetation_process->proc~vegetation_water_stress proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day proc~initialise initialise proc~initialise->proc~management_initialise proc~time_process_years time_process_years proc~time_process_years->proc~time_process_month program~swim swim program~swim->proc~initialise program~swim->proc~time_process_years

Contents

Source Code

management_is_transfer_subbasin

Source Code

  logical function management_is_transfer_subbasin(sub)
    ! returns .true. if water transfer actions take place in this subbasin
    integer, intent(in) :: sub

    management_is_transfer_subbasin = .false.
    if (sub > 0) then
      if (wamTSub(sub) % subnum > 0 ) management_is_transfer_subbasin = .true.
    end if

  end function management_is_transfer_subbasin