first_patch_in_grid_cell_int32_2d

private subroutine first_patch_in_grid_cell_int32_2d(input_array, output_array, landpt)

Extracts the first patch value for each grid cell from a 2D integer array.

Type	Intent		Name
integer(kind=int32),	intent(in)	::	input_array(:,:)	The input array to be reduced. The first (i.e. fastest varying) dimension of this array must be the patch/tile dimension being reduced.
integer(kind=int32),	intent(out)	::	output_array(:,:)	The output array containing the reduced per grid cell values. The first (i.e. fastest varying) dimension of this array must be equal to the number of grid cells.
type(land_type),	intent(in)	::	landpt(:)	The `land_type` instance describing the starting and ending patch/tile indexes in the input array for each grid cell.