Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
dout | Module: | File: ATURB_E1.f |
Author : Ye Cheng/G. Hartke
Version:
Declaration:
subroutine dout(ze, dz, u, v, t, q, ke, dtdz, dqdz, an2, as2, wt_nl, wq_nl, kh, km, e, lscale, uflx, vflx, tvflx, qflx, dbl, ldbl, i, j, n)
- p :
real*8, dimension(n)
- pressure at main grid z
- pe :
real*8, dimension(n)
- pressure at secondary grid ze
- u :
real*8, dimension(n), intent(in)
- west-east velocity component
- v :
real*8, dimension(n), intent(in)
- south-north velocity component
- t :
real*8, dimension(n), intent(in)
- virt. pot. temperature (referenced to 1mb)
- q :
real*8, dimension(n), intent(in)
- specific humidity
- e :
real*8, dimension(n), intent(in)
- turbulent kinetic energy
- ze :
real*8, dimension(n+1), intent(in)
- hight at edge lyer
- dz :
real*8, dimension(n), intent(in)
- (j) z(j+1)-z(j)
- dze :
- (j) ze(j+1)-ze(j)
- as2 :
real*8, dimension(n), intent(in)
- dudz^2+dvdz^2
- dtdz :
real*8, dimension(n), intent(in)
- z-derivative of t at edge grid ze
- dqdz :
real*8, dimension(n), intent(in)
- z-derivative of q at edge grid ze
- an2 :
real*8, dimension(n), intent(in)
- g_alpha*dtdz, brunt-vasala frequency
- km :
real*8, dimension(n), intent(in)
- turbulent viscosity for u and v equations
- kh :
real*8, dimension(n), intent(in)
- turbulent diffusivity for t,q
- ke :
real*8, dimension(n), intent(in)
- turbulent diffusivity for e
- lscale :
real*8, dimension(n), intent(in)
- turbulent length scale
- uflx :
real*8, intent(in)
- momentun flux -uw at surface, ze(1)
- vflx :
real*8, intent(in)
- momentun flux -vw at surface, ze(1)
- tvflx :
real*8, intent(in)
- heat flux -wt at surface, ze(1)
- qflx :
real*8, intent(in)
- moisture flux -wq at surface, ze(1)
- i :
integer, intent(in)
- /j horizontal location at which the output is written
- n :
integer, intent(in)
- number of vertical main layers
- pmid : used from atm_com
- pedn : used from atm_com
- pk : used from atm_com
- pek : used from atm_com
- ldbl :
integer, intent(in)
- j :
integer, intent(in)
- wt_nl :
real*8, dimension(n), intent(in)
- wq_nl :
real*8, dimension(n), intent(in)
- dbl :
real*8, intent(in)
- l :
integer
- loop variable
- z :
real*8
- ri :
real*8
- wt_lcl :
real*8
- wq_lcl :
real*8