reservoir_init_subbasin Subroutine

  1. reservoir.f95
  2. reservoir
  3. reservoir_init_subbasin

public subroutine reservoir_init_subbasin()

Arguments

None

Called by

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

Contents

Source Code

reservoir_init_subbasin

Source Code

  subroutine reservoir_init_subbasin
    ! rsvSubbasin(subtot) is initialised with 0 in RSV_allocate_reservoir
    ! here the reservoir subbasins will stored at the corresponding array indices
    ! if rsvSubbasin() = 0, subbasin is no reservoir
    ! if rsvSubbasin() /= 0, subbasin is reservoir
    integer i

    do i = 1, rsv_nReservoirs
      rsvSubbasin(rsv_ResSubbasins(i)) = rsv_ResSubbasins(i)
    end do
  end subroutine reservoir_init_subbasin