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), pdens(1), * extra(1),extram(1),extraw(1), * um(1),vm(1),wm(1),hm(1),tm(1),salm(1),densm(1), qm(1),trm(1), * taux(1), tauy(1), vcm(1),trsm(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), pclim(1), * iox(1), mask(1), prcp(1),convnm(1), * fs(1), fhs(1), fhd(1), dfhd(1), pgfx(1), pgfy(1), corx(1), cory(1), * dept(1), ubar(1), vbar(1), uforc(1), vforc(1), * psi(1),rhs(1),cor(1),gradH(1),gradE(1),psim(1),pgf(1),psin(1), * zmld(1),tfu(1),tfv(1),xmld(1), * hc_top(1), uc_top(1), vc_top(1), sc_top(1), dh_top(1), * blcf(1), im2d(1), ixd(1),tp(1), tr(1), ftr(1), qr(1), qb(1), * wnd(1), qsr(1),tpdata(1),trs(1),dpres(1),ddens(1), * isk(1),iyk(1),nzi(1),isxk(1),isyk(1),nzibx(1),nziby(1) * ,uice(1),vice(1),pice(1),etaC(1),etaB(1),tauwx(1),tauwy(1) * ,hflx_mean(1),sflx_mean(1) * ,plat_mean(1),sens_mean(1),plon_mean(1),defi_mean(1) * ,amhum_mean(1),amth_mean(1) * ,ft_ha(1),ft_va(1),ft_hd(1),ft_vd(1),ft_ca(1),ft_sp(1),ftr_sp(1) * ,fsal_ha(1),fsal_va(1),fsal_hd(1),fsal_vd(1),fsal_ca(1),fsal_sp(1) * ,ftr_ha(1),ftr_va(1),ftr_hd(1),ftr_vd(1),ftr_ca(1),fsal_ri(1) * ,t_old(1),sal_old(1),tr_old(1),trflx(1) * ,fcice(1),fhice(1),fthice(1),inx(1),iny(1),dx2i(1),dy2i(1),ycos(1) * ,sourct(1),vvc(1),vdc(1),hblt(1),sourctr(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_extra,extra),(p_extram,extram), * (p_extraw,extraw), * (p_t,t),(p_ft,ft), (p_sal,sal),(p_fsal,fsal),(p_dens, dens), * (p_hflx_mean,hflx_mean),(p_sflx_mean,sflx_mean), * (p_plat_mean,plat_mean), * (p_plon_mean,plon_mean), * (p_sens_mean,sens_mean), * (p_defi_mean,defi_mean), * (p_amhum_mean,amhum_mean),(p_amth_mean,amth_mean), * (p_pdens,pdens), * (p_um,um),(p_vm,vm),(p_wm,wm),(p_hm,hm),(p_tm,tm), * (p_vcm,vcm),(p_trs,trs),(p_trflx,trflx), * (p_densm,densm),(p_salm,salm),(p_qm,qm),(p_trm,trm), * (p_taux, taux), (p_tauy, tauy), (p_trsm,trsm), * (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_convnm,convnm), * (p_hclim,hclim), (p_pclim,pclim), (p_prcp,prcp), * (p_iox, iox), (p_mask, mask), * (p_fhs, fhs), (p_fs, fs),(p_fhd, fhd),(p_pgfx, pgfx), * (p_dfhd, dfhd), * (p_pgfy, pgfy),(p_corx,corx),(p_cory,cory),(p_rhs,rhs), * (p_dept,dept),(p_ubar,ubar),(p_vbar,vbar), * (p_uforc,uforc),(p_vforc,vforc), * (p_psi, psi),(p_cor,cor),(p_psim,psim),(p_pgf,pgf),(p_psin,psin), * (p_tfu,tfu),(p_tfv,tfv), * (p_gradH, gradH),(p_gradE,gradE), * (p_zmld, zmld),(p_xmld,xmld), * (p_hc_top,hc_top),(p_sc_top,sc_top),(p_uc_top,uc_top),(p_vc_top,vc_top), * (p_blcf, blcf), (p_im2d, im2d), (p_ixd, ixd),(p_dh_top,dh_top), * (p_tp, tp), (p_tr, tr),(p_ftr, ftr), (p_qr,qr),(p_qb,qb), * (p_dpres, dpres),(p_ddens,ddens), * (p_wnd,wnd),(p_qsr,qsr),(p_tpdata,tpdata), * (p_isk,isk),(p_iyk,iyk),(p_nzi,nzi),(p_inx,inx),(p_iny,iny), * (p_isxk,isxk),(p_isyk,isyk),(p_nzibx,nzibx),(p_nziby,nziby) * ,(p_uice,uice),(p_vice,vice) * ,(p_fcice,fcice),(p_fhice,fhice),(p_fthice,fthice) * ,(p_pice,pice),(p_etaC,etaC),(p_etaB,etaB) * ,(p_tauwx,tauwx) ,(p_tauwy,tauwy) * ,(p_ft_ha ,ft_ha) ,(p_ft_va ,ft_va) * ,(p_ft_hd ,ft_hd) ,(p_ft_vd ,ft_vd) ,(p_ft_ca ,ft_ca) * ,(p_fsal_ha ,fsal_ha) ,(p_fsal_va ,fsal_va) * ,(p_fsal_hd ,fsal_hd) ,(p_fsal_vd ,fsal_vd) ,(p_fsal_ca ,fsal_ca) * ,(p_ftr_ha ,ftr_ha) ,(p_ftr_va ,ftr_va),(p_fsal_ri ,fsal_ri) * ,(p_ftr_hd ,ftr_hd) ,(p_ftr_vd ,ftr_vd) ,(p_ftr_ca ,ftr_ca) * ,(p_t_old ,t_old) ,(p_sal_old ,sal_old) ,(p_tr_old ,tr_old) * ,(p_ft_sp ,ft_sp) ,(p_fsal_sp ,fsal_sp),(p_ftr_sp ,ftr_sp) * ,(p_dx2i,dx2i),(p_dy2i,dy2i),(p_ycos,ycos) * ,(p_sourct,sourct),(p_vvc,vvc),(p_vdc,vdc),(p_hblt,hblt) * ,(p_sourctr,sourctr) 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_pdens, p_extra, p_extram, * p_extraw, * p_um,p_vm,p_vcm,p_wm,p_hm,p_tm,p_salm,p_densm,p_qm,p_trm,p_trsm, * p_taux, p_tauy, p_convn,p_convnm, * p_q, p_sst,p_sss,p_ep,p_cld,p_dtx,p_dty,p_solr,p_prcp, * p_dclim, p_tclim, p_sclim, p_hclim, p_pclim, * p_iox, p_mask, p_fs, p_fhs, p_fhd,p_pgfx,p_pgfy,p_corx,p_cory, * p_rhs, p_dept, p_ubar,p_vbar,p_uforc,p_vforc,p_psi,p_psim,p_psin, * p_zmld, p_pgf, p_xmld, * p_hc_top,p_sc_top,p_uc_top,p_vc_top,p_dh_top, * p_dfhd,p_tfu,p_tfv,p_trflx, * p_cor,p_blcf, p_im2d, p_ixd, p_gradH, p_gradE,p_tpdata, * p_tp,p_tr,p_ftr, p_qr, p_qb,p_wnd,p_qsr,p_trs,p_dpres,p_ddens, * p_isk,p_iyk,p_nzi,p_isxk,p_isyk,p_nzibx,p_nziby * ,p_uice,p_vice,p_pice,p_etaC,p_etaB,p_tauwx,p_tauwy * ,p_hflx_mean,p_sflx_mean,p_plat_mean,p_plon_mean,p_sens_mean * ,p_amhum_mean,p_amth_mean,p_defi_mean * ,p_ft_ha,p_ft_va,p_ft_hd,p_ft_vd,p_ft_ca * ,p_fsal_ha,p_fsal_va,p_fsal_hd,p_fsal_vd,p_fsal_ca,p_fsal_ri * ,p_ftr_ha,p_ftr_va,p_ftr_hd,p_ftr_vd,p_ftr_ca * ,p_t_old,p_sal_old,p_tr_old * ,p_fcice,p_fhice,p_fthice * ,p_ft_sp, p_fsal_sp,p_ftr_sp,p_inx,p_iny * ,p_dx2i,p_dy2i,p_ycos * ,p_sourct,p_vvc,p_vdc,p_hblt,p_sourctr 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 vcint(1),psiv(1),q_ha(1),q_hd(1),q_sp(1),ep_ha(1),ep_hd(1), * ep_sp(1),hflx_y(1),sflx_y(1),ep_ri(1) pointer (p_vcint,vcint),(p_psiv,psiv), * (p_q_ha,q_ha),(p_q_hd,q_hd),(p_q_sp,q_sp), * (p_ep_ha,ep_ha),(p_ep_hd,ep_hd),(p_ep_sp,ep_sp),(p_ep_ri,ep_ri), * (p_hflx_y,hflx_y),(p_sflx_y,sflx_y) common /mosf/ p_vcint, p_psiv, p_q_ha,p_q_hd,p_q_sp,p_ep_ha,p_ep_hd, * p_ep_sp,p_hflx_y,p_sflx_y,p_ep_ri c---------------------------------------------------------------------------- dimension f(1), emx(1), emy(1), emx2(1), emy2(1), area(1) dimension sxm(1),sym(1) dimension cosl(1),cosli(1) dimension saxmk(1), saxpk(1), saymk(1), saypk(1), sxp(1), syp(1), y_deg(1) dimension sponge(1), relax(1) pointer (p_f, f), (p_emx, emx), (p_emy, emy), * (p_emx2, emx2), (p_emy2, emy2), (p_area, area) * , (p_relax, relax), (p_sponge, sponge) * , (p_saxmk, saxmk), (p_saymk, saymk) * , (p_saxpk, saxpk), (p_saypk, saypk) * , (p_sxp, sxp), (p_syp, syp), (p_y_deg,y_deg) * , (p_cosl, cosl), (p_cosli, cosli) * , (p_sxm, sxm), (p_sym, sym) common/data_geom/ p_f,p_emx,p_emy,p_emx2,p_emy2,p_area * ,p_relax,p_sponge,p_cosl,p_cosli, * p_saxmk,p_saxpk,p_saymk,p_saypk,p_sxp,p_syp,p_sxm,p_y_deg,p_sym c---------------------------------------------------------------------------- common /tank/ itank, cint_fac, bint_fac