Added initial allocation of ov%octree

src/define_bc_nest.f90

@@ -48,7 +48,7 @@ type (nest_info) nest
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
 
-type (octreev) ovls
+type (octreev) :: ovls
 integer :: i,j,k,nface,nlsf,np,kfixls,matnum,err
 logical :: is_plas
 double precision :: eps,xls,yls,zls,s,crit,e2d,evisc,dilatr,xlsf,current_time
@@ -59,6 +59,9 @@ double precision :: eps,xls,yls,zls,s,crit,e2d,evisc,dilatr,xlsf,current_time
 eps=1.d-10
 
 ovls%noctree=params%noctreemax
+allocate (ov%octree(ov%noctree),stat=err)
+!if (params%debug.gt.1) call heap (threadinfo,'ov%octree','main',size(ov%octree),'int',+1)
+
 ! Read in coarse model octree; needs to be stored in params @ end of step
 open (9,file=trim(nest%lsoutfile),status='old',form='unformatted')
 read (9) ovls%octree(3),&