Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
find_pbl_top | Module: | File: ATURB.f |
Author : Ye Cheng
Version:
Declaration:
subroutine find_pbl_top(z, u, v, t, ustar, ustar2, tvflx, lmonin, dbl, ldbl, ldbl_max, n)
- z :
real*8, dimension(n), intent(in)
- main layer height (in meters)
- dbl :
real*8, intent(out)
- the pbl height (in meters)
- ldbl :
integer, intent(out)
- the level immediately above the pbl height
- tvflx :
real*8, intent(in)
- minus virtual heat flux at the surface
- ldbl_max :
integer, intent(in)
- the maximum allowable number of layers in the pbl
- n :
integer, intent(in)
- total number of layers
- find_phim0 : used from socpbl
- grav : used from constant
- teeny : used from constant
- by3 : used from constant
- u :
real*8, dimension(n), intent(in)
- v :
real*8, dimension(n), intent(in)
- t :
real*8, dimension(n), intent(in)
- ustar :
real*8, intent(in)
- ustar2 :
real*8, intent(in)
- lmonin :
real*8, intent(in)
- fac :
real*8, parameter
- Initial Value
= 100.
- ri_cr :
real*8, parameter
- Initial Value
= 0.50d0
- b :
real*8, parameter
- Initial Value
= 8.5d0
- dbl_max :
real*8, parameter
- Initial Value
= 4000.d0
- ri :
real*8, dimension(n)
- v2l :
real*8
- wtvs :
real*8
- wm :
real*8
- t1_w_excess :
real*8
- den :
real*8
- dbls :
real*8
- zet :
real*8
- phim :
real*8
- l :
integer
- ldbl :
integer, intent(out)
- the level immediately above the pbl height