river_mannings_discharge Function

  1. river.f95
  2. river
  3. river_mannings_discharge

public function river_mannings_discharge(a, rh, xn, chslope)

Arguments

Type IntentOptional AttributesName
real(kind=dp) :: a
real(kind=dp) :: rh
real(kind=dp) :: xn
real(kind=dp) :: chslope

Return Value real(kind=dp)


Called by

proc~~river_mannings_discharge~~CalledByGraph proc~river_mannings_discharge river_mannings_discharge proc~river_muskingum_travel_time river_muskingum_travel_time proc~river_muskingum_travel_time->proc~river_mannings_discharge proc~river_transmission_loss river_transmission_loss proc~river_transmission_loss->proc~river_mannings_discharge proc~river_initialise_travel_time river_initialise_travel_time proc~river_initialise_travel_time->proc~river_muskingum_travel_time proc~river_route river_route proc~river_route->proc~river_transmission_loss proc~initialise initialise proc~initialise->proc~river_initialise_travel_time proc~time_process_day time_process_day proc~time_process_day->proc~river_route proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day program~swim swim program~swim->proc~initialise proc~time_process_years time_process_years program~swim->proc~time_process_years proc~time_process_years->proc~time_process_month

Contents

Source Code

river_mannings_discharge

Source Code

  function river_mannings_discharge(a, rh, xn, chslope)
    !**** PURPOSE: THIS SUBROUTINE CALCULATES FLOW USING MANNINGS EQUATION
    !**** CALLED IN: TTCOEFI
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    !**** Include common parameters

    real(dp) a, rh, xn, chslope, river_mannings_discharge

    river_mannings_discharge = a * rh ** .6666 * sqrt(chslope) / xn
    return
  end function river_mannings_discharge