diff --git a/src/define_bc_nest.f90 b/src/define_bc_nest.f90 index bf65b4d9c1049d6acfda8aa870538189165b57a7..98b975636c859770e5590093e2b1f7e20eedac8a 100644 --- a/src/define_bc_nest.f90 +++ b/src/define_bc_nest.f90 @@ -18,7 +18,7 @@ !------------------------------------------------------------------------------| !------------------------------------------------------------------------------| -subroutine define_bc_nest (nnode,kfix,kfixt,x,y,z,u,v,w,temp,vo,nest) +subroutine define_bc_nest (nnode,kfix,kfixt,x,y,z,u,v,w,temp,vo,params,nest) !------------------------------------------------------------------------------| !(((((((((((((((( Purpose of the routine )))))))))))))))))))))))))))))))))))))) @@ -41,6 +41,7 @@ double precision :: x(nnode),y(nnode),z(nnode) double precision :: u(nnode),v(nnode),w(nnode) double precision :: temp(nnode) type (void) vo +type (parameters) params type (nest_info) nest !------------------------------------------------------------------------------|