How do I 'slice' an array in fortran

[PumpedUpKicks]

Essentially i have function that gives an output as REAL, DIMENSION(1:3, 1:1), but i only want the first two variables so i want REAL, DIMENSION(1:2, 1:1), basically keeping the x and y values and ignoring the z value
sorry if this is not clear and thank you

 

[xwb]

Here is a generic slicing example

program main
   integer:: p3d(1:3,1:1), p2d(1:2)
   
   p3d = reshape((/ 10, 20, 30 /), shape(p3d))
   p2d = p3d(1:2,1)
   
   print *, p2d(1), p2d(2)
   p2d = p3d(2:3,1)
   print *, p2d(1), p2d(2)
   stop
end