orografi_strato_mod Module

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.

Contents

Subroutines

drag_noro_strato orodrag_strato orosetup_strato gwstress_strato lift_noro_strato orolift_strato sugwd_strato

Subroutines

public subroutine drag_noro_strato(partdrag, nlon, nlev, dtime, paprs, pplay, pmea, pstd, psig, pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, pustr, pvstr, d_t, d_u, d_v)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	partdrag
integer				::	nlon
integer				::	nlev
real				::	dtime
real				::	paprs(nlon,nlev+1)
real				::	pplay(nlon,nlev)
real				::	pmea(nlon)
real				::	pstd(nlon)
real				::	psig(nlon)
real				::	pgam(nlon)
real				::	pthe(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
integer				::	kgwd
integer				::	kdx(nlon)
integer				::	ktest(nlon)
real				::	t(nlon,nlev)
real				::	u(nlon,nlev)
real				::	v(nlon,nlev)
real				::	pulow(nlon)
real				::	pvlow(nlon)
real				::	pustr(nlon)
real				::	pvstr(nlon)
real				::	d_t(nlon,nlev)
real				::	d_u(nlon,nlev)
real				::	d_v(nlon,nlev)

public subroutine orodrag_strato(partdrag, nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, papm1, pgeom1, ptm1, pum1, pvm1, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, pvlow, pvom, pvol, pte)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	partdrag
integer				::	nlon
integer				::	nlev
integer				::	kgwd
integer				::	kdx(nlon)
integer				::	ktest(nlon)
real				::	ptsphy
real				::	paphm1(nlon,nlev+1)
real				::	papm1(nlon,nlev)
real				::	pgeom1(nlon,nlev)
real				::	ptm1(nlon,nlev)
real				::	pum1(nlon,nlev)
real				::	pvm1(nlon,nlev)
real				::	pmea(nlon)
real				::	pstd(nlon)
real				::	psig(nlon)
real				::	pgam(nlon)
real				::	pthe(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
real				::	pulow(nlon)
real				::	pvlow(nlon)
real				::	pvom(nlon,nlev)
real				::	pvol(nlon,nlev)
real				::	pte(nlon,nlev)

public subroutine orosetup_strato(nlon, nlev, ktest, kkcrit, kkcrith, kcrit, ksect, kkhlim, kkenvh, kknu, kknu2, paphm1, papm1, pum1, pvm1, ptm1, pgeom1, pstd, prho, pri, pstab, ptau, pvph, ppsi, pzdep, pulow, pvlow, ptheta, pgam, pmea, ppic, pval, pnu, pd1, pd2, pdmod)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
integer				::	nlev
integer				::	ktest(nlon)
integer				::	kkcrit(nlon)
integer				::	kkcrith(nlon)
integer				::	kcrit(nlon)
integer				::	ksect(nlon)
integer				::	kkhlim(nlon)
integer				::	kkenvh(nlon)
integer				::	kknu(klon)
integer				::	kknu2(klon)
real				::	paphm1(nlon,klev+1)
real				::	papm1(nlon,klev)
real				::	pum1(nlon,klev)
real				::	pvm1(nlon,klev)
real				::	ptm1(nlon,klev)
real				::	pgeom1(nlon,klev)
real				::	pstd(nlon)
real				::	prho(nlon,klev+1)
real				::	pri(nlon,klev+1)
real				::	pstab(nlon,klev+1)
real				::	ptau(nlon,klev+1)
real				::	pvph(nlon,klev+1)
real				::	ppsi(nlon,klev+1)
real				::	pzdep(nlon,klev)
real				::	pulow(nlon)
real				::	pvlow(nlon)
real				::	ptheta(nlon)
real				::	pgam(nlon)
real				::	pmea(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
real				::	pnu(nlon)
real				::	pd1(nlon)
real				::	pd2(nlon)
real				::	pdmod(nlon)

public subroutine gwstress_strato(nlon, nlev, kkcrit, ksect, kkhlim, ktest, kkcrith, kcrit, kkenvh, kknu, prho, pstab, pvph, pstd, psig, pmea, ppic, pval, ptfr, ptau, pgeom1, pgamma, pd1, pd2, pdmod, pnu)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
integer				::	nlev
integer				::	kkcrit(nlon)
integer				::	ksect(nlon)
integer				::	kkhlim(nlon)
integer				::	ktest(nlon)
integer				::	kkcrith(nlon)
integer				::	kcrit(nlon)
integer				::	kkenvh(nlon)
integer				::	kknu(nlon)
real				::	prho(nlon,nlev+1)
real				::	pstab(nlon,nlev+1)
real				::	pvph(nlon,nlev+1)
real				::	pstd(nlon)
real				::	psig(nlon)
real				::	pmea(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
real				::	ptfr(nlon)
real				::	ptau(nlon,nlev+1)
real				::	pgeom1(nlon,nlev)
real				::	pgamma(nlon)
real				::	pd1(nlon)
real				::	pd2(nlon)
real				::	pdmod(nlon)
real				::	pnu(nlon)

public subroutine lift_noro_strato(nlon, nlev, dtime, paprs, pplay, plat, pmea, pstd, psig, pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, pustr, pvstr, d_t, d_u, d_v)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
integer				::	nlev
real				::	dtime
real				::	paprs(klon,klev+1)
real				::	pplay(klon,klev)
real				::	plat(nlon)
real				::	pmea(nlon)
real				::	pstd(nlon)
real				::	psig(nlon)
real				::	pgam(nlon)
real				::	pthe(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
integer				::	kgwd
integer				::	kdx(nlon)
integer				::	ktest(nlon)
real				::	t(nlon,nlev)
real				::	u(nlon,nlev)
real				::	v(nlon,nlev)
real				::	pulow(nlon)
real				::	pvlow(nlon)
real				::	pustr(nlon)
real				::	pvstr(nlon)
real				::	d_t(nlon,nlev)
real				::	d_u(nlon,nlev)
real				::	d_v(nlon,nlev)

public subroutine orolift_strato(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, papm1, pgeom1, ptm1, pum1, pvm1, plat, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, pvlow, pvom, pvol, pte)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
integer				::	nlev
integer				::	kgwd
integer				::	kdx(nlon)
integer				::	ktest(nlon)
real				::	ptsphy
real				::	paphm1(nlon,nlev+1)
real				::	papm1(nlon,nlev)
real				::	pgeom1(nlon,nlev)
real				::	ptm1(nlon,nlev)
real				::	pum1(nlon,nlev)
real				::	pvm1(nlon,nlev)
real				::	plat(nlon)
real				::	pmea(nlon)
real				::	pstd(nlon)
real				::	psig(nlon)
real				::	pgam(nlon)
real				::	pthe(nlon)
real				::	ppic(nlon)
real				::	pval(nlon)
real				::	pulow(nlon)
real				::	pvlow(nlon)
real				::	pvom(nlon,nlev)
real				::	pvol(nlon,nlev)
real				::	pte(nlon,nlev)

public subroutine sugwd_strato(nlon, nlev, paprs, pplay)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
integer				::	nlev
real				::	paprs(nlon,nlev+1)
real				::	pplay(nlon,nlev)