pure subroutine mo_optical_props_kernels::extract_subset::extract_subset_dim1_3d | ( | integer, intent(in) | ncol, |
integer, intent(in) | nlay, | ||
integer, intent(in) | ngpt, | ||
real(wp), dimension(ncol,nlay,ngpt), intent(in) | array_in, | ||
integer, intent(in) | cols, | ||
integer, intent(in) | cole, | ||
real(wp), dimension(cole-cols+1, nlay,ngpt), intent(out) | array_out ) |