river_initialise_travel_time Subroutine

public subroutine river_initialise_travel_time(mb)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: mb

Calls

proc~~river_initialise_travel_time~~CallsGraph proc~river_initialise_travel_time river_initialise_travel_time proc~river_muskingum_travel_time river_muskingum_travel_time proc~river_initialise_travel_time->proc~river_muskingum_travel_time proc~river_mannings_discharge river_mannings_discharge proc~river_muskingum_travel_time->proc~river_mannings_discharge proc~river_travel_time_coefficients river_travel_time_coefficients proc~river_muskingum_travel_time->proc~river_travel_time_coefficients

Called by

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

Contents


Source Code

  subroutine river_initialise_travel_time(mb)
    integer, intent(in) :: mb
    integer j

    do j = 1, mb
      call river_muskingum_travel_time(j)
    end do
  end subroutine river_initialise_travel_time