orografi_mod Module


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

Type IntentOptional Attributes 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 IntentOptional 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 :: 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 IntentOptional Attributes 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 IntentOptional Attributes 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 IntentOptional Attributes 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 IntentOptional 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 :: 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 IntentOptional Attributes 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 IntentOptional Attributes Name
integer :: nlon
integer :: nlev
real :: paprs(nlon,nlev+1)
real :: pplay(nlon,nlev)