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