soil_curve_number_peak_runoff Subroutine

  1. soil.f95
  2. soil
  3. soil_curve_number_peak_runoff

public subroutine soil_curve_number_peak_runoff(j)

Arguments

Type IntentOptional AttributesName
integer :: j

Called by

proc~~soil_curve_number_peak_runoff~~CalledByGraph proc~soil_curve_number_peak_runoff soil_curve_number_peak_runoff proc~runsubbasin runsubbasin proc~runsubbasin->proc~soil_curve_number_peak_runoff proc~time_process_day time_process_day proc~time_process_day->proc~runsubbasin 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

soil_curve_number_peak_runoff

Source Code

  subroutine soil_curve_number_peak_runoff(j)
    !**** PURPOSE: THIS SUBROUTINE COMPUTES THE PEAK RUNOFF RATE
    !     USING A MODIFICATION OF THE RATIONAL FORMULA
    !**** CALLED IN: SUBBASIN
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    !     PARAMETERS & VARIABLES
    !
    !      >>>>> COMMON PARAMETERS & VARIABLES
    !      al(j) = fun(tc, tp5, tp6, flu, da), calc in readsub
    !      pr = peak runoff rate, m3/sec.
    !      r1 = alpha for rainfall, the fraction of total rainfall
    !               occuring during 0.5h
    !      tc(j) = time of concentration, hours, calc in readsub
    !      xqd = surface runoff, mm, calc in volq
    !      >>>>>
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    !**** Include common parameters

    integer j

    pr = r1 * al(j) * xqd / tc(j)
    return
  end subroutine soil_curve_number_peak_runoff