c---------------------------------------------------------------------------
      dimension u(1), uc(1), fu(1), v(1), vc(1), fv(1), w(1), h(1), fh(1),
     *       t(1), ft(1), sal(1), fsal(1), dens(1), 
     *       um(1),vm(1),wm(1),hm(1),tm(1),salm(1),densm(1), qm(1),trm(1),
     *       taux(1), tauy(1), 
     *       q(1), sst(1), sss(1),ep(1), cld(1), dtx(1), dty(1), solr(1),
     *       tclim(1), dclim(1), sclim(1),convn(1), hclim(1), 
     *       iox(1), mask(1), 
     *       fs(1), fhs(1), fhd(1), pgfx(1), pgfy(1), corx(1), cory(1),
     *       xnl(1), ynl(1), vertx(1), verty(1), rhsx(1), rhsy(1),
     *       crhsx(1), crhsy(1),
     *       dept(1), ubar(1), vbar(1), bdiv(1), uforc(1), vforc(1),
     *       psi(1),zfu(1),zfv(1),
     *       blcf(1), im2d(1), ixd(1),tp(1), tr(1), ftr(1), qr(1), qb(1),
     *       isk(1),iyk(1),nzi(1),isxk(1),isyk(1),nzi_b(1)

      pointer (p_u,u),(p_uc,uc),(p_fu, fu), (p_v,v),(p_vc,vc),(p_fv,fv),
     *        (p_w,w),(p_h,h),(p_fh,fh),
     *        (p_t,t),(p_ft,ft), (p_sal,sal),(p_fsal,fsal),(p_dens, dens),
     *        (p_um,um),(p_vm,vm),(p_wm,wm),(p_hm,hm),(p_tm,tm),
     *        (p_densm,densm),(p_salm,salm),(p_qm,qm),(p_trm,trm),
     *        (p_taux, taux), (p_tauy, tauy), 
     *        (p_q,q), (p_sst,sst), (p_sss,sss),(p_ep,ep), (p_cld,cld),
     *        (p_dtx,dtx),(p_dty,dty),(p_solr,solr),
     *        (p_dclim,dclim), (p_tclim,tclim), (p_sclim,sclim),(p_convn,convn),
     *        (p_hclim,hclim), 
     *        (p_iox, iox), (p_mask, mask), 
     *        (p_fhs, fhs), (p_fs, fs),(p_fhd, fhd),(p_pgfx, pgfx),
     *        (p_pgfy, pgfy),(p_corx,corx),(p_cory,cory),
     *        (p_xnl, xnl),(p_ynl,ynl),
     *        (p_vertx, vertx),(p_verty,verty),
     *        (p_rhsx, rhsx),(p_rhsy,rhsy),
     *        (p_crhsx, crhsx),(p_crhsy,crhsy),
     *        (p_dept,dept),(p_ubar,ubar),(p_vbar,vbar),(p_bdiv,bdiv),
     *        (p_uforc,uforc),(p_vforc,vforc),
     *        (p_psi, psi),(p_zfu,zfu),(p_zfv,zfv),
     *        (p_blcf, blcf), (p_im2d, im2d), (p_ixd, ixd), 
     *        (p_tp, tp), (p_tr, tr),(p_ftr, ftr), (p_qr,qr),(p_qb,qb),
     *        (p_isk,isk),(p_iyk,iyk),(p_nzi,nzi),(p_nzi_b,nzi_b),
     *        (p_isxk,isxk),(p_isyk,isyk)

      common /data_addr/ p_u, p_uc, p_fu, p_v, p_vc, p_fv, p_w, p_h, p_fh,
     *       p_t, p_ft, p_sal, p_fsal, p_dens,
     *       p_um,p_vm,p_wm,p_hm,p_tm,p_salm,p_densm,p_qm,p_trm,
     *       p_taux, p_tauy, p_convn,
     *       p_q, p_sst,p_sss,p_ep,p_cld,p_dtx,p_dty,p_solr,
     *       p_dclim, p_tclim, p_sclim, p_hclim, 
     *       p_iox, p_mask, p_fs, p_fhs, p_fhd,p_pgfx,p_pgfy,p_corx,p_cory,
     *       p_xnl,p_ynl,p_vertx,p_verty,p_rhsx,p_rhsy,p_crhsx,p_crhsy,
     *       p_dept, p_ubar,p_vbar,p_bdiv,p_uforc,p_vforc,p_psi,
     *       p_zfu,p_zfv,p_blcf, p_im2d, p_ixd,
     *       p_tp,p_tr,p_ftr, p_qr, p_qb,
     *       p_isk,p_iyk,p_nzi,p_isxk,p_isyk,p_nzi_b

      dimension xm(1),ym(1), xp(1),yp(1), xd(1),yd(1)
      pointer (p_xm,xm),(p_ym,ym),(p_xp,xp),(p_yp,yp),(p_xd,xd),(p_yd,yd)
      common /grid_addr/ p_xm, p_ym, p_xp, p_yp, p_xd, p_yd
c----------------------------------------------------------------------------

      dimension wint(1),psiw(1)
      pointer (p_wint,wint),(p_psiw,psiw)
      common /mosf/ p_wint, p_psiw


c----------------------------------------------------------------------------
      dimension f(1), emx(1), emy(1), emxy(1), emx2(1), emy2(1), area(1), relax(1)
      pointer (p_f, f), (p_emx, emx), (p_emy, emy), (p_emxy, emxy),
     *        (p_emx2, emx2), (p_emy2, emy2), (p_area, area), (p_relax, relax)
      common/data_geom/ p_f,p_emx,p_emy,p_emxy,p_emx2,p_emy2, p_area, p_relax