Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
find_pbl_top | Module: | File: ATURB_E1.f |
Author : Ye Cheng
Version:
Declaration:
subroutine find_pbl_top(e, ze, dbl, ldbl, n)
- e :
real*8, dimension(n), intent(in)
- turbulent kinetic energy
- ze :
real*8, dimension(n+1), intent(in)
- height at the edge level (meters)
- ldbl :
integer, intent(out)
- the (main) layer corresponding to top of pbl
- dbl :
real*8, intent(out)
- the height (in meters) of the pbl, at main layer
- n :
integer, intent(in)
- number of layers
- dbl_max :
real*8, parameter
- Initial Value
= 5000.
- fraction :
real*8, parameter
- Initial Value
= 0.1d0
- e1p :
real*8
- zl :
real*8
- l :
integer