reservoir_get Function

  1. reservoir.f95
  2. reservoir
  3. reservoir_get

public function reservoir_get(sub)

Arguments

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

Return Value integer


Called by

proc~~reservoir_get~~CalledByGraph proc~reservoir_get reservoir_get proc~reservoir_subbasin reservoir_subbasin proc~reservoir_subbasin->proc~reservoir_get proc~reservoir_process reservoir_process proc~reservoir_process->proc~reservoir_get proc~reservoir_is_operational reservoir_is_operational proc~reservoir_is_operational->proc~reservoir_get proc~time_process_day time_process_day proc~time_process_day->proc~reservoir_subbasin proc~time_process_day->proc~reservoir_process proc~time_process_day->proc~reservoir_is_operational 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

reservoir_get

Source Code

  integer function reservoir_get(sub)
    integer, intent(in) :: sub
    integer :: i

    reservoir_get = 0
    do i = 1, rsv_nReservoirs
      if (rsv_ResSubbasins(i) == sub ) reservoir_get = i
    end do

  end function reservoir_get