diff --git a/define_ov.f90 b/define_ov.f90 index 4eb44ecd8ec4b441c3917767ac29418bcd28507f..0904036cca22c258fc370591bb5e215c35d39cb5 100644 --- a/define_ov.f90 +++ b/define_ov.f90 @@ -88,7 +88,7 @@ if (params%irestart.eq.0) then call octree_find_node_connectivity (ov%octree,ov%noctree,ov%icon, & ov%nleaves,ov%x,ov%y,ov%z,ov%nnode) ! ov%nnode has been changed by octree_find_node_connectivity, so re-size x, y, z - call octreev_shrink_xyz(osolve, threadinfo) + call octreev_shrink_xyz(ov, threadinfo) ! now that ov%nnode is known we can allocate the others allocate (ov%unode(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%unode','define_ov',size(ov%unode),'dp',+1)