routing__D8.F90 File Reference

Go to the source code of this file.

Modules
module	routing__d8

Functions/Subroutines
elemental integer(c_int) function, public	routing__d8::get_cell_index (iteration_index)
elemental integer(c_int) function, public	routing__d8::get_target_index (iteration_index)
elemental integer(c_int) function, public	routing__d8::get_sort_order (cell_index)
subroutine, public	routing__d8::routing_d8_initialize (lactive, sort_order)
integer(c_int) function	routing__d8::routing_d8_get_index (icol, irow)
subroutine	routing__d8::routing_d8_assign_downstream_row_col (lactive)
subroutine	routing__d8::routing_d8_determine_solution_order (lactive)

Variables
type(data_catalog_entry_t), pointer	routing__d8::pd8_flowdir
integer(c_int), dimension(:,:), allocatable	routing__d8::target_row
integer(c_int), dimension(:,:), allocatable	routing__d8::target_col
logical(c_bool), dimension(:,:), allocatable	routing__d8::is_downslope_target_marked
integer(c_int), dimension(:,:), allocatable, public	routing__d8::sum_of_upslope_cells
integer(c_int), dimension(:,:), allocatable, public	routing__d8::number_of_upslope_connections
integer(c_int), dimension(:,:), allocatable	routing__d8::row2d
	@TODO remove redundant data elements; row1d, col1d, etc. are now also stored in the model data structure.
integer(c_int), dimension(:,:), allocatable	routing__d8::col2d
integer(c_int), dimension(:), allocatable	routing__d8::row1d
integer(c_int), dimension(:), allocatable	routing__d8::col1d
integer(c_int), dimension(:), allocatable	routing__d8::row_index
integer(c_int), dimension(:), allocatable	routing__d8::column_index
integer(c_int), dimension(:), allocatable	routing__d8::sort_order_l
integer(c_int), dimension(:), allocatable	routing__d8::target_index_l
integer(c_int), parameter	routing__d8::d8_east = 1
integer(c_int), parameter	routing__d8::d8_southeast = 2
integer(c_int), parameter	routing__d8::d8_south = 4
integer(c_int), parameter	routing__d8::d8_southwest = 8
integer(c_int), parameter	routing__d8::d8_west = 16
integer(c_int), parameter	routing__d8::d8_northwest = 32
integer(c_int), parameter	routing__d8::d8_north = 64
integer(c_int), parameter	routing__d8::d8_northeast = 128
integer(c_int), parameter, public	routing__d8::d8_undetermined = -999