reservoir_routing Subroutine

  1. reservoir.f95
  2. reservoir
  3. reservoir_routing

public subroutine reservoir_routing(icodes, inum1s, mb, mhyd)

Arguments

Type IntentOptional AttributesName
integer, intent(in), dimension(:):: icodes
integer, intent(in), dimension(:):: inum1s
integer, intent(in) :: mb
integer, intent(in) :: mhyd

Called by

proc~~reservoir_routing~~CalledByGraph proc~reservoir_routing reservoir_routing proc~reservoir_initialise reservoir_initialise proc~reservoir_initialise->proc~reservoir_routing proc~initialise initialise proc~initialise->proc~reservoir_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

reservoir_routing

Source Code

  subroutine reservoir_routing(icodes, inum1s, mb, mhyd)
    integer, dimension(:), intent(in) :: icodes
    integer, dimension(:), intent(in) :: inum1s
    integer, intent(in) :: mb
    integer, intent(in) :: mhyd
    ! reading the routing structure in order to identify the hydrograph storage locations (ihout)
    ! that are inputs to the reservoir subbasins
    integer :: i

    do i = 1, mhyd
      if (icodes(i) > 0) then
        select case (icodes(i))
          case (1) ! SUBBASIN command
            ! do nothing

          case (2) ! ROUTE command
            if (inum1s(i) <= mb ) then
              if (rsvSubbasin(inum1s(i)) > 0 ) &
                bRsvHydrograph(i) = .true.
            end if
          case (3) ! not implemented
            ! do nothing

          case (4) ! not implemented
            ! do nothing

          case (5) ! ADD command
            !call indAdd(ihout, inum1, inum2)

          case default ! do nothing
        end select
      end if
    end do
  end subroutine reservoir_routing