cv30_compress Subroutine

public subroutine cv30_compress(len, nloc, ncum, nd, ntra, iflag1, nk1, icb1, icbs1, plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, th1, tra1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	len
integer				::	nloc
integer				::	ncum
integer				::	nd
integer				::	ntra
integer				::	iflag1(len)
integer				::	nk1(len)
integer				::	icb1(len)
integer				::	icbs1(len)
real				::	plcl1(len)
real				::	tnk1(len)
real				::	qnk1(len)
real				::	gznk1(len)
real				::	pbase1(len)
real				::	buoybase1(len)
real				::	t1(len,nd)
real				::	q1(len,nd)
real				::	qs1(len,nd)
real				::	u1(len,nd)
real				::	v1(len,nd)
real				::	gz1(len,nd)
real				::	th1(len,nd)
real				::	tra1(len,nd,ntra)
real				::	h1(len,nd)
real				::	lv1(len,nd)
real				::	cpn1(len,nd)
real				::	p1(len,nd)
real				::	ph1(len,nd+1)
real				::	tv1(len,nd)
real				::	tp1(len,nd)
real				::	tvp1(len,nd)
real				::	clw1(len,nd)
real				::	sig1(len,nd)
real				::	w01(len,nd)
integer				::	iflag(nloc)
integer				::	nk(nloc)
integer				::	icb(nloc)
integer				::	icbs(nloc)
real				::	plcl(nloc)
real				::	tnk(nloc)
real				::	qnk(nloc)
real				::	gznk(nloc)
real				::	pbase(nloc)
real				::	buoybase(nloc)
real				::	t(nloc,nd)
real				::	q(nloc,nd)
real				::	qs(nloc,nd)
real				::	u(nloc,nd)
real				::	v(nloc,nd)
real				::	gz(nloc,nd)
real				::	th(nloc,nd)
real				::	tra(nloc,nd,ntra)
real				::	h(nloc,nd)
real				::	lv(nloc,nd)
real				::	cpn(nloc,nd)
real				::	p(nloc,nd)
real				::	ph(nloc,nd+1)
real				::	tv(nloc,nd)
real				::	tp(nloc,nd)
real				::	tvp(nloc,nd)
real				::	clw(nloc,nd)
real				::	sig(nloc,nd)
real				::	w0(nloc,nd)

Contents