diff --git a/src/define_bc_nest.f90 b/src/define_bc_nest.f90 index b5bd4655f3b4572a8614259d50786c430c5fb67e..30683c2076fb220e34cb3f28da4e4bbc66999902 100644 --- a/src/define_bc_nest.f90 +++ b/src/define_bc_nest.f90 @@ -59,7 +59,7 @@ 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) +allocate (ovls%octree(ovls%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