Skip to content
Snippets Groups Projects
Commit efbfd1ea authored by Douglas Guptill's avatar Douglas Guptill
Browse files

typo

parent 7c3eef86
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment