include file: box.common 12
	common/coord/x(in,jn,kn),y(in,jn,kn),z(in,jn,kn)

	common/bnds/ir(in),il(in),jt(jn),jb(jn),qr(in),ql(in),
     &              qt(jn),qb(jn),ku(kn),kd(kn),qu(kn),qd(kn),
     &              ir2(in),il2(in),jt2(jn),jb2(jn),ku2(kn),kd2(kn),
     &              qr2(in),ql2(in),qt2(jn),qb2(jn),qu2(kn),qd2(kn),
     &              ir3(in),il3(in),jt3(jn),jb3(jn),ku3(kn),kd3(kn),
     &              qr3(in),ql3(in),qt3(jn),qb3(jn),qu3(kn),qd3(kn),
     &              iru(in),ilu(in),jtu(jn),jbu(jn),kuu(kn),kdu(kn),
     &              irc(im),ilc(im),jtc(jm),jbc(jm),kuc(km),kdc(km),
     &              irp(im),ilp(im),jtp(jm),jbp(jm),kup(km),kdp(km)


	common/trans/tr(in),tl(in),tt(jn),tb(jn),tu(kn),td(kn),
     &               ird(in),icd(in),ild(in),
     &               jtd(jn),jcd(jn),jbd(jn),
     &               kud(kn),kcd(kn),kdd(kn)

	common/pgrid/c11(im,jm,km),c12(im,jm,km),c13(im,jm,km),
     &               c21(im,jm,km),c22(im,jm,km),c23(im,jm,km),
     &               c31(im,jm,km),c32(im,jm,km),c33(im,jm,km)


	common/ugrid/a11(in,jn,kn),a12(in,jn,kn),a13(in,jn,kn),
     &               a21(in,jn,kn),a22(in,jn,kn),a23(in,jn,kn),
     &               a31(in,jn,kn),a32(in,jn,kn),a33(in,jn,kn)

	common/metrics/g11(in,jn,kn),g12(in,jn,kn),g13(in,jn,kn),
     #		       g22(in,jn,kn),g23(in,jn,kn),g33(in,jn,kn),
     #		      d2z1(in,jn,kn),d2z2(in,jn,kn),d2z3(in,jn,kn),
     #			alpha(im,jm,km)


	common/adams/ab(3,3)
	dimension ap(100)
	common/fields/b(in,jn,kn),u(in,jn,kn),w(in,jn,kn),
     #                v(in,jn,kn),p(im,jm,km),vnu(kn)
	common/par/
     #  rei,reit,swirl,dtmax,alim,diff,pit,rlx,gamma,slip,
     #	order,ex2,ex3,ex4,
     #  time,cput,steps,dt,dt1,dt2
	equivalence (ap(1),rei)
	namelist/f/
     # 	rei,reit,swirl,dtmax,alim,diff,pit,rlx,gamma,slip,
     #	order,ex2,ex3,ex4