octree_interpolate_many -> octree_interpolate_threeoctree_interpolate_three

interpolate_velocity_on_surface.f90

@@ -65,7 +65,7 @@ do is=1,params%ns
       yi=surface(is)%y(i)
       zi=surface(is)%z(i)
 
-      call octree_interpolate_many (3,ov%octree,ov%noctree,ov%icon,ov%nleaves, &
+      call octree_interpolate_three (3,ov%octree,ov%noctree,ov%icon,ov%nleaves, &
                                     ov%nnode,xi,yi,zi,ov%unode,u,ov%vnode,v,ov%wnode,w)
 !      call octree_interpolate3 (ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%unode,ov%x,ov%y,ov%z,ov%nnode,xi,yi,zi,u)
 !      call octree_interpolate3 (ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%vnode,ov%x,ov%y,ov%z,ov%nnode,xi,yi,zi,v)

move_cloud.f90

@@ -87,7 +87,7 @@ do i=1+iproc,cl%np,nproc
       xi=(x0+x)/2.d0
       yi=(y0+y)/2.d0
       zi=(z0+z)/2.d0
-      call octree_interpolate_many(3,ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%nnode,xi,yi,zi,ov%unode,u,ov%vnode,v,ov%wnode,w)
+      call octree_interpolate_three(3,ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%nnode,xi,yi,zi,ov%unode,u,ov%vnode,v,ov%wnode,w)
 !      call octree_interpolate3 (ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%unode,ov%x,ov%y,ov%z,ov%nnode,xi,yi,zi,u)
 !      call octree_interpolate3 (ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%vnode,ov%x,ov%y,ov%z,ov%nnode,xi,yi,zi,v)
 !      call octree_interpolate3 (ov%octree,ov%noctree,ov%icon,ov%nleaves,ov%wnode,ov%x,ov%y,ov%z,ov%nnode,xi,yi,zi,w)

update_cloud_fields.f90

@@ -188,7 +188,7 @@ temp=0.d0
 press=0.d0
 
 do k=1+iproc,cl%np,nproc
-   call octree_interpolate_many (3,ov%octree,ov%noctree,ov%icon, &
+   call octree_interpolate_three (3,ov%octree,ov%noctree,ov%icon, &
                                  ov%nleaves,ov%nnode, &
                                  cl%x(k),cl%y(k),cl%z(k), &
                                  lsf,lsf0(k), &