subbasin_initialise_area Subroutine

  1. subbasin.f95
  2. subbasin
  3. subbasin_initialise_area

public subroutine subbasin_initialise_area(da)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: da

Called by

proc~~subbasin_initialise_area~~CalledByGraph proc~subbasin_initialise_area subbasin_initialise_area proc~initialise initialise proc~initialise->proc~subbasin_initialise_area program~swim swim program~swim->proc~initialise

Contents

Source Code

subbasin_initialise_area

Source Code

  subroutine subbasin_initialise_area(da)
    real(dp), intent(in) :: da

    integer id
    !**** COMPUTE DRAINAGE AREA FOR EACH SUBBASIN
    do id = 1, mhyd
      if (icodes(id) .eq. 0) exit
      if (icodes(id) .eq. 1) then
        dart(ihouts(id)) = da * flu(inum1s(id))
      end if
      if (icodes(id) .eq. 2) then
        dart(ihouts(id)) = dart(inum2s(id))
      end if
      if (icodes(id) .eq. 3) then
        dart(ihouts(id)) = dart(inum2s(id))
      end if
      if (icodes(id) .eq. 5) then
        dart(ihouts(id)) = dart(inum1s(id)) + dart(inum2s(id))
      end if
      if (icodes(id) .eq. 6) then
        dart(ihouts(id)) = 0.
      end if
    end do
  end subroutine subbasin_initialise_area