orografi_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

drag_noro orodrag orosetup gwstress gwprofil lift_noro orolift sugwd

Subroutines

public subroutine drag_noro(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		Name
integer	::	nlon
integer	::	nlev
real	::	dtime
real	::	paprs(klon,klev+1)
real	::	pplay(klon,klev)
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(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, papm1, pgeom1, ptm1, pum1, pvm1, pmea, pstd, psig, pgamma, ptheta, ppic, pval, pulow, pvlow, pvom, pvol, pte)

Arguments

Type		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	::	pmea(nlon)
real	::	pstd(nlon)
real	::	psig(nlon)
real	::	pgamma(nlon)
real	::	ptheta(nlon)
real	::	ppic(nlon)
real	::	pval(nlon)
real	::	pulow(klon)
real	::	pvlow(klon)
real	::	pvom(nlon,nlev)
real	::	pvol(nlon,nlev)
real	::	pte(nlon,nlev)

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

Arguments

Type		Name
integer	::	nlon
integer	::	ktest(nlon)
integer	::	kkcrit(nlon)
integer	::	kkcrith(nlon)
integer	::	kcrit(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	::	pgamma(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(nlon, nlev, ktest, kcrit, kkenvh, kknu, prho, pstab, pvph, pstd, psig, pmea, ppic, ptau, pgeom1, pdmod)

Arguments

Type		Name
integer	::	nlon
integer	::	nlev
integer	::	ktest(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	::	ptau(nlon,nlev+1)
real	::	pgeom1(nlon,nlev)
real	::	pdmod(nlon)

public subroutine gwprofil(nlon, nlev, kgwd, kdx, ktest, kkcrith, kcrit, paphm1, prho, pstab, pvph, pri, ptau, pdmod, psig, pvar)

Arguments

Type		Name
integer	::	nlon
integer	::	nlev
integer	::	kgwd
integer	::	kdx(nlon)
integer	::	ktest(nlon)
integer	::	kkcrith(nlon)
integer	::	kcrit(nlon)
real	::	paphm1(nlon,nlev+1)
real	::	prho(nlon,nlev+1)
real	::	pstab(nlon,nlev+1)
real	::	pvph(nlon,nlev+1)
real	::	pri(nlon,nlev+1)
real	::	ptau(nlon,nlev+1)
real	::	pdmod(nlon)
real	::	psig(nlon)
real	::	pvar(nlon)

public subroutine lift_noro(nlon, nlev, dtime, paprs, pplay, plat, pmea, pstd, ppic, ktest, t, u, v, pulow, pvlow, pustr, pvstr, d_t, d_u, d_v)

Arguments

Type		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	::	ppic(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(nlon, nlev, ktest, ptsphy, paphm1, pgeom1, ptm1, pum1, pvm1, plat, pmea, pvaror, ppic, pulow, pvlow, pvom, pvol, pte)

Arguments

Type		Name
integer	::	nlon
integer	::	nlev
integer	::	ktest(nlon)
real	::	ptsphy
real	::	paphm1(nlon,nlev+1)
real	::	pgeom1(nlon,nlev)
real	::	ptm1(nlon,nlev)
real	::	pum1(nlon,nlev)
real	::	pvm1(nlon,nlev)
real	::	plat(nlon)
real	::	pmea(nlon)
real	::	pvaror(nlon)
real	::	ppic(nlon)
real	::	pulow(nlon)
real	::	pvlow(nlon)
real	::	pvom(nlon,nlev)
real	::	pvol(nlon,nlev)
real	::	pte(nlon,nlev)

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

Arguments

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

orografi_mod Module

Contents

Subroutines

Used by

Contents

Subroutines

Subroutines

public subroutine drag_noro(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

public subroutine orodrag(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, papm1, pgeom1, ptm1, pum1, pvm1, pmea, pstd, psig, pgamma, ptheta, ppic, pval, pulow, pvlow, pvom, pvol, pte)

Arguments

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

Arguments

public subroutine gwstress(nlon, nlev, ktest, kcrit, kkenvh, kknu, prho, pstab, pvph, pstd, psig, pmea, ppic, ptau, pgeom1, pdmod)

Arguments

public subroutine gwprofil(nlon, nlev, kgwd, kdx, ktest, kkcrith, kcrit, paphm1, prho, pstab, pvph, pri, ptau, pdmod, psig, pvar)

Arguments

public subroutine lift_noro(nlon, nlev, dtime, paprs, pplay, plat, pmea, pstd, ppic, ktest, t, u, v, pulow, pvlow, pustr, pvstr, d_t, d_u, d_v)

Arguments

public subroutine orolift(nlon, nlev, ktest, ptsphy, paphm1, pgeom1, ptm1, pum1, pvm1, plat, pmea, pvaror, ppic, pulow, pvlow, pvom, pvol, pte)

Arguments

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

Arguments