From 46c016fca743e78069e3278b47734c1dc3e13e0c Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 19:53:30 +0000
Subject: [PATCH] Fixed typo

---
 src/define_bc_nest.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/define_bc_nest.f90 b/src/define_bc_nest.f90
index b5bd4655..30683c20 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
-- 
GitLab