Added storage of past element material number

src/find_mat_numbers_from_cloud.f90

@@ -23,7 +23,7 @@ use definitions
 !------------------------------------------------------------------------------|
 !(((((((((((((((( Purpose of the routine  ))))))))))))))))))))))))))))))))))))))
 !------------------------------------------------------------------------------|
-! This routine loops over all of the cloud particles and fills and array of    |
+! This routine loops over all of the cloud particles and fills an array of     |
 ! size nelem x nmat with the material numbers for the cloud particles within   |
 ! each element                                                                 |
 
@@ -62,6 +62,7 @@ do i = 1,cl%np
                         leaf,level,locc,x0,y0,z0,dxyz)
   cl_matnum = cl%matnum(i)
   cloud_elem_mat_bins(leaf,cl_matnum)=cloud_elem_mat_bins(leaf,cl_matnum)+1
+  osolve%matnump(leaf) = cl%ematnump(i)
 enddo
 
 end subroutine find_mat_numbers_from_cloud