river_transfer Subroutine

public subroutine river_transfer()

Arguments

None

Called by

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


Source Code

  subroutine river_transfer()
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    !**** PURPOSE: THIS SUBROUTINE CONTROLS THE CHANNEL ROUTING, NOT USED!
    !**** CALLED IN: MAIN, "sleeping subroutine"
  end subroutine river_transfer