cv30_routines_mod – Fortran Program

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Subroutines

cv30_param cv30_prelim cv30_feed cv30_undilute1 cv30_trigger cv30_compress cv30_undilute2 cv30_closure cv30_mixing cv30_unsat cv30_yield cv30_tracer cv30_uncompress cv30_epmax_fn_cape

Variables

Type	Visibility		Name
integer,	public	::	noff
integer,	public	::	minorig
integer,	public	::	nl
integer,	public	::	nlp
integer,	public	::	nlm
real,	public	::	sigd
real,	public	::	spfac
real,	public	::	pbcrit
real,	public	::	ptcrit
real,	public	::	omtrain
real,	public	::	dtovsh
real,	public	::	dpbase
real,	public	::	dttrig
real,	public	::	dtcrit
real,	public	::	tau
real,	public	::	beta
real,	public	::	alpha
real,	public	::	delta
real,	public	::	betad

Subroutines

public subroutine cv30_param(nd, delt)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nd
real				::	delt

public subroutine cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, th)

Arguments

Type		Name
integer	::	len
integer	::	nd
integer	::	ndp1
real	::	t(len,nd)
real	::	q(len,nd)
real	::	p(len,nd)
real	::	ph(len,ndp1)
real	::	lv(len,nd)
real	::	cpn(len,nd)
real	::	tv(len,nd)
real	::	gz(len,nd)
real	::	h(len,nd)
real	::	hm(len,nd)
real	::	th(len,nd)

public subroutine cv30_feed(len, nd, t, q, qs, p, ph, hm, gz, nk, icb, icbmax, iflag, tnk, qnk, gznk, plcl)

Arguments

Type		Name
integer	::	len
integer	::	nd
real	::	t(len,nd)
real	::	q(len,nd)
real	::	qs(len,nd)
real	::	p(len,nd)
real	::	ph(len,nd+1)
real	::	hm(len,nd)
real	::	gz(len,nd)
integer	::	nk(len)
integer	::	icb(len)
integer	::	icbmax
integer	::	iflag(len)
real	::	tnk(len)
real	::	qnk(len)
real	::	gznk(len)
real	::	plcl(len)

public subroutine cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, clw, icbs)

Arguments

Type		Name
integer	::	len
integer	::	nd
real	::	t(len,nd)
real	::	q(len,nd)
real	::	qs(len,nd)
real	::	gz(len,nd)
real	::	plcl(len)
real	::	p(len,nd)
integer	::	nk(len)
integer	::	icb(len)
real	::	tp(len,nd)
real	::	tvp(len,nd)
real	::	clw(len,nd)
integer	::	icbs(len)

public subroutine cv30_trigger(len, nd, icb, plcl, p, th, tv, tvp, pbase, buoybase, iflag, sig, w0)

Arguments

Type		Name
integer	::	len
integer	::	nd
integer	::	icb(len)
real	::	plcl(len)
real	::	p(len,nd)
real	::	th(len,nd)
real	::	tv(len,nd)
real	::	tvp(len,nd)
real	::	pbase(len)
real	::	buoybase(len)
integer	::	iflag(len)
real	::	sig(len,nd)
real	::	w0(len,nd)

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		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)

public subroutine cv30_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, ep, sigp, buoy)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
integer	::	icb(nloc)
integer	::	icbs(nloc)
integer	::	nk(nloc)
real	::	tnk(nloc)
real	::	qnk(nloc)
real	::	gznk(nloc)
real	::	t(nloc,nd)
real	::	q(nloc,nd)
real	::	qs(nloc,nd)
real	::	gz(nloc,nd)
real	::	p(nloc,nd)
real	::	h(nloc,nd)
real	::	tv(nloc,nd)
real	::	lv(nloc,nd)
real	::	pbase(nloc)
real	::	buoybase(nloc)
real	::	plcl(nloc)
integer	::	inb(nloc)
real	::	tp(nloc,nd)
real	::	tvp(nloc,nd)
real	::	clw(nloc,nd)
real	::	hp(nloc,nd)
real	::	ep(nloc,nd)
real	::	sigp(nloc,nd)
real	::	buoy(nloc,nd)

public subroutine cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, sig, w0, cape, m)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
integer	::	icb(nloc)
integer	::	inb(nloc)
real	::	pbase(nloc)
real	::	p(nloc,nd)
real	::	ph(nloc,nd+1)
real	::	tv(nloc,nd)
real	::	buoy(nloc,nd)
real	::	sig(nloc,nd)
real	::	w0(nloc,nd)
real	::	cape(nloc)
real	::	m(nloc,nd)

public subroutine cv30_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, ph, t, rr, rs, u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, vent, sij, elij, ments, qents, traent)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
integer	::	na
integer	::	ntra
integer	::	icb(nloc)
integer	::	nk(nloc)
integer	::	inb(nloc)
real	::	ph(nloc,nd+1)
real	::	t(nloc,nd)
real	::	rr(nloc,nd)
real	::	rs(nloc,nd)
real	::	u(nloc,nd)
real	::	v(nloc,nd)
real	::	tra(nloc,nd,ntra)
real	::	h(nloc,na)
real	::	lv(nloc,na)
real	::	qnk(nloc)
real	::	hp(nloc,na)
real	::	tv(nloc,na)
real	::	tvp(nloc,na)
real	::	ep(nloc,na)
real	::	clw(nloc,na)
real	::	m(nloc,na)
real	::	sig(nloc,nd)
real	::	ment(nloc,na,na)
real	::	qent(nloc,na,na)
real	::	uent(nloc,na,na)
real	::	vent(nloc,na,na)
real	::	sij(nloc,na,na)
real	::	elij(nloc,na,na)
real	::	ments(nloc,nd,nd)
real	::	qents(nloc,nd,nd)
real	::	traent(nloc,nd,nd,ntra)

public subroutine cv30_unsat(nloc, ncum, nd, na, ntra, icb, inb, t, rr, rs, gz, u, v, tra, p, ph, th, tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, mp, rp, up, vp, trap, wt, water, evap, b, wdtraina, wdtrainm)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
integer	::	na
integer	::	ntra
integer	::	icb(nloc)
integer	::	inb(nloc)
real	::	t(nloc,nd)
real	::	rr(nloc,nd)
real	::	rs(nloc,nd)
real	::	gz(nloc,na)
real	::	u(nloc,nd)
real	::	v(nloc,nd)
real	::	tra(nloc,nd,ntra)
real	::	p(nloc,nd)
real	::	ph(nloc,nd+1)
real	::	th(nloc,na)
real	::	tv(nloc,na)
real	::	lv(nloc,na)
real	::	cpn(nloc,na)
real	::	ep(nloc,na)
real	::	sigp(nloc,na)
real	::	clw(nloc,na)
real	::	m(nloc,na)
real	::	ment(nloc,na,na)
real	::	elij(nloc,na,na)
real	::	delt
real	::	plcl(nloc)
real	::	mp(nloc,na)
real	::	rp(nloc,na)
real	::	up(nloc,na)
real	::	vp(nloc,na)
real	::	trap(nloc,na,ntra)
real	::	wt(nloc,na)
real	::	water(nloc,na)
real	::	evap(nloc,na)
real	::	b(nloc,na)
real	::	wdtraina(nloc,na)
real	::	wdtrainm(nloc,na)

public subroutine cv30_yield(nloc, ncum, nd, na, ntra, icb, inb, delt, t, rr, u, v, tra, gz, p, ph, h, hp, lv, cpn, th, ep, clw, m, tp, mp, rp, up, vp, trap, wt, water, evap, b, ment, qent, uent, vent, nent, elij, traent, sig, tv, tvp, iflag, precip, vprecip, ft, fr, fu, fv, ftra, upwd, dnwd, dnwd0, ma, mike, tls, tps, qcondc, wd)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
integer	::	na
integer	::	ntra
integer	::	icb(nloc)
integer	::	inb(nloc)
real	::	delt
real	::	t(nloc,nd)
real	::	rr(nloc,nd)
real	::	u(nloc,nd)
real	::	v(nloc,nd)
real	::	tra(nloc,nd,ntra)
real	::	gz(nloc,na)
real	::	p(nloc,nd)
real	::	ph(nloc,nd+1)
real	::	h(nloc,na)
real	::	hp(nloc,na)
real	::	lv(nloc,na)
real	::	cpn(nloc,na)
real	::	th(nloc,na)
real	::	ep(nloc,na)
real	::	clw(nloc,na)
real	::	m(nloc,na)
real	::	tp(nloc,na)
real	::	mp(nloc,na)
real	::	rp(nloc,na)
real	::	up(nloc,na)
real	::	vp(nloc,na)
real	::	trap(nloc,nd,ntra)
real	::	wt(nloc,nd)
real	::	water(nloc,na)
real	::	evap(nloc,na)
real	::	b(nloc,na)
real	::	ment(nloc,na,na)
real	::	qent(nloc,na,na)
real	::	uent(nloc,na,na)
real	::	vent(nloc,na,na)
integer	::	nent(nloc,na)
real	::	elij(nloc,na,na)
real	::	traent(nloc,na,na,ntra)
real	::	sig(nloc,nd)
real	::	tv(nloc,nd)
real	::	tvp(nloc,nd)
integer	::	iflag(nloc)
real	::	precip(nloc)
real	::	vprecip(nloc,nd+1)
real	::	ft(nloc,nd)
real	::	fr(nloc,nd)
real	::	fu(nloc,nd)
real	::	fv(nloc,nd)
real	::	ftra(nloc,nd,ntra)
real	::	upwd(nloc,nd)
real	::	dnwd(nloc,nd)
real	::	dnwd0(nloc,nd)
real	::	ma(nloc,nd)
real	::	mike(nloc,nd)
real	::	tls(nloc,nd)
real	::	tps(nloc,nd)
real	::	qcondc(nloc,nd)
real	::	wd(nloc)

public subroutine cv30_tracer(nloc, len, ncum, nd, na, ment, sij, da, phi, phi2, d1a, dam, ep, vprecip, elij, clw, epmlmmm, eplamm, icb, inb)

Arguments

Type		Name
integer	::	nloc
integer	::	len
integer	::	ncum
integer	::	nd
integer	::	na
real	::	ment(nloc,na,na)
real	::	sij(nloc,na,na)
real	::	da(nloc,na)
real	::	phi(nloc,na,na)
real	::	phi2(nloc,na,na)
real	::	d1a(nloc,na)
real	::	dam(nloc,na)
real	::	ep(nloc,na)
real	::	vprecip(nloc,nd+1)
real	::	elij(nloc,na,na)
real	::	clw(nloc,nd)
real	::	epmlmmm(nloc,na,na)
real	::	eplamm(nloc,na)
integer	::	icb(nloc)
integer	::	inb(nloc)

public subroutine cv30_uncompress(nloc, len, ncum, nd, ntra, idcum, iflag, precip, vprecip, evap, ep, sig, w0, ft, fq, fu, fv, ftra, inb, ma, upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp, phi2, d1a, dam, sij, elij, clw, epmlmmm, eplamm, wdtraina, wdtrainm, epmax_diag, iflag1, precip1, vprecip1, evap1, ep1, sig1, w01, ft1, fq1, fu1, fv1, ftra1, inb1, ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1, phi21, d1a1, dam1, sij1, elij1, clw1, epmlmmm1, eplamm1, wdtraina1, wdtrainm1, epmax_diag1)

Arguments

Type		Name
integer	::	nloc
integer	::	len
integer	::	ncum
integer	::	nd
integer	::	ntra
integer	::	idcum(nloc)
integer	::	iflag(nloc)
real	::	precip(nloc)
real	::	vprecip(nloc,nd+1)
real	::	evap(nloc,nd)
real	::	ep(nloc,nd)
real	::	sig(nloc,nd)
real	::	w0(nloc,nd)
real	::	ft(nloc,nd)
real	::	fq(nloc,nd)
real	::	fu(nloc,nd)
real	::	fv(nloc,nd)
real	::	ftra(nloc,nd,ntra)
integer	::	inb(nloc)
real	::	ma(nloc,nd)
real	::	upwd(nloc,nd)
real	::	dnwd(nloc,nd)
real	::	dnwd0(nloc,nd)
real	::	qcondc(nloc,nd)
real	::	wd(nloc)
real	::	cape(nloc)
real	::	da(nloc,nd)
real	::	phi(nloc,nd,nd)
real	::	mp(nloc,nd)
real	::	phi2(nloc,nd,nd)
real	::	d1a(nloc,nd)
real	::	dam(nloc,nd)
real	::	sij(nloc,nd,nd)
real	::	elij(nloc,nd,nd)
real	::	clw(nloc,nd)
real	::	epmlmmm(nloc,nd,nd)
real	::	eplamm(nloc,nd)
real	::	wdtraina(nloc,nd)
real	::	wdtrainm(nloc,nd)
real	::	epmax_diag(nloc)
integer	::	iflag1(len)
real	::	precip1(len)
real	::	vprecip1(len,nd+1)
real	::	evap1(len,nd)
real	::	ep1(len,nd)
real	::	sig1(len,nd)
real	::	w01(len,nd)
real	::	ft1(len,nd)
real	::	fq1(len,nd)
real	::	fu1(len,nd)
real	::	fv1(len,nd)
real	::	ftra1(len,nd,ntra)
integer	::	inb1(len)
real	::	ma1(len,nd)
real	::	upwd1(len,nd)
real	::	dnwd1(len,nd)
real	::	dnwd01(len,nd)
real	::	qcondc1(nloc,nd)
real	::	wd1(nloc)
real	::	cape1(nloc)
real	::	da1(nloc,nd)
real	::	phi1(nloc,nd,nd)
real	::	mp1(nloc,nd)
real	::	phi21(len,nd,nd)
real	::	d1a1(len,nd)
real	::	dam1(len,nd)
real	::	sij1(len,nd,nd)
real	::	elij1(len,nd,nd)
real	::	clw1(len,nd)
real	::	epmlmmm1(len,nd,nd)
real	::	eplamm1(len,nd)
real	::	wdtraina1(len,nd)
real	::	wdtrainm1(len,nd)
real	::	epmax_diag1(len)

public subroutine cv30_epmax_fn_cape(nloc, ncum, nd, cape, ep, hp, icb, inb, clw, nk, t, h, lv, epmax_diag)

Arguments

Type		Name
integer	::	nloc
integer	::	ncum
integer	::	nd
real	::	cape(nloc)
real	::	ep(nloc,nd)
real	::	hp(nloc,nd)
integer	::	icb(nloc)
integer	::	inb(nloc)
real	::	clw(nloc,nd)
integer	::	nk(nloc)
real	::	t(nloc,nd)
real	::	h(nloc,nd)
real	::	lv(nloc,nd)
real	::	epmax_diag(nloc)

cv30_routines_mod Module

Contents

Variables

Subroutines

Used by

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine cv30_param(nd, delt)

Arguments

public subroutine cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, th)

Arguments

public subroutine cv30_feed(len, nd, t, q, qs, p, ph, hm, gz, nk, icb, icbmax, iflag, tnk, qnk, gznk, plcl)

Arguments

public subroutine cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, clw, icbs)

Arguments

public subroutine cv30_trigger(len, nd, icb, plcl, p, th, tv, tvp, pbase, buoybase, iflag, sig, w0)

Arguments

Arguments

public subroutine cv30_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, ep, sigp, buoy)

Arguments

public subroutine cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, sig, w0, cape, m)

Arguments

public subroutine cv30_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, ph, t, rr, rs, u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, vent, sij, elij, ments, qents, traent)

Arguments

public subroutine cv30_unsat(nloc, ncum, nd, na, ntra, icb, inb, t, rr, rs, gz, u, v, tra, p, ph, th, tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, mp, rp, up, vp, trap, wt, water, evap, b, wdtraina, wdtrainm)

Arguments

Arguments

public subroutine cv30_tracer(nloc, len, ncum, nd, na, ment, sij, da, phi, phi2, d1a, dam, ep, vprecip, elij, clw, epmlmmm, eplamm, icb, inb)

Arguments

Arguments

public subroutine cv30_epmax_fn_cape(nloc, ncum, nd, cape, ep, hp, icb, inb, clw, nk, t, h, lv, epmax_diag)

Arguments