river_travel_time_coefficients Subroutine

  1. river.f95
  2. river
  3. river_travel_time_coefficients

public subroutine river_travel_time_coefficients(qq1, q2, tt1, tt2, p1, pp2)

Arguments

Type IntentOptional AttributesName
real(kind=dp) :: qq1
real(kind=dp) :: q2
real(kind=dp) :: tt1
real(kind=dp) :: tt2
real(kind=dp) :: p1
real(kind=dp) :: pp2

Called by

proc~~river_travel_time_coefficients~~CalledByGraph proc~river_travel_time_coefficients river_travel_time_coefficients proc~river_muskingum_travel_time river_muskingum_travel_time proc~river_muskingum_travel_time->proc~river_travel_time_coefficients proc~river_initialise_travel_time river_initialise_travel_time proc~river_initialise_travel_time->proc~river_muskingum_travel_time proc~initialise initialise proc~initialise->proc~river_initialise_travel_time program~swim swim program~swim->proc~initialise

Contents

Source Code

river_travel_time_coefficients

Source Code

  subroutine river_travel_time_coefficients(qq1, q2, tt1, tt2, p1, pp2)
    !**** PURPOSE: THIS SUBROUTINE CALCULATES coefficients p1 and pp2
    !**** CALLED IN: TTCOEFI
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    !**** Include common parameters

    real(dp) qq1, q2, tt1, tt2, p1, pp2

    pp2 = log(tt1 / tt2) / log(qq1 / q2)
    if (pp2 .lt. - 1.) pp2 = - 1.
    if (pp2 .gt. 1.5) pp2 = 1.5
    p1 = tt1 / (qq1 ** pp2)
    return
  end subroutine river_travel_time_coefficients