c-------------------------------------------------------------------------------
c.........in order to include this file, one must have NPT,NX,NY among arguments
      dimension wnsp(npt,1), uwnd(npt,1), vwnd(npt,1), 
     *          ahum(nx*ny,1), atem(nx*ny,1), amhum(1), amth(1)
     *         , pp(1), qios(1), brne(1) ,tsnw(1)
     *         ,rlhi(1), shi(1), qlwi(1), qswi(1)
     *         ,rh(1)
 
      pointer (p_wnsp, wnsp),(p_uwnd, uwnd),(p_vwnd, vwnd),
     *        (p_ahum, ahum),(p_atem, atem),(p_amhum, amhum),(p_amth, amth)
     *        ,(p_pp,pp), (p_qios,qios), (p_brne, brne) ,(p_tsnw, tsnw)
     *        ,(p_rlhi,rlhi), (p_shi,shi), (p_qlwi,qlwi), (p_qswi, qswi)
     *        ,(p_rh,rh)

c-------------------------------------------------------------------------------
      dimension up(nx,ny), vp(nx,ny),
     *          thv(nx,ny), the(nx,ny), thve(nx,ny), thvs(nx,ny),
     *          pnuxp(nx,ny), pnuyp(nx,ny), qe(nx,ny), qs(nx,ny),
     *          c0(nx,ny), dx(nx,ny), dy(ny), lsm(nx,ny)
      pointer   (p_up, up), (p_vp, vp),
     *          (p_thv,thv), (p_the,the), (p_thve,thve), (p_thvs,thvs),
     *          (p_pnuxp,pnuxp), (p_pnuyp,pnuyp), (p_qe,qe), (p_qs,qs),
     *          (p_c0,c0), (p_dx,dx), (p_dy, dy), (p_lsm, lsm)
      common /pbl_data/ p_up, p_vp, p_thv, p_the, p_thve, p_thvs,
     *                  p_pnuxp, p_pnuyp, p_qe, p_qs, p_c0, p_dx, p_dy, p_lsm,
     *                  p_wnsp, p_uwnd, p_vwnd, p_ahum, p_atem, p_amhum, p_amth
     *        ,p_pp, p_qios, p_brne, p_tsnw
     *        ,p_rlhi, p_shi, p_qlwi, p_qswi ,p_rh
c-------------------------------------------------------------------------------
      common /pbl_param/ pbl_pnu,pbl_delta,pbl_pml,pbl_depth,pbl_betav,pbl_grad,
     *  nstep_pbl, ipbl_advec, ipbl_jsta,ipbl_jend, pbl_south,pbl_north,pbl_wmin
c-------------------------------------------------------------------------------