subroutine lwbv |
( |
integer(kind=jpim), intent(in) |
KIDIA, |
|
|
integer(kind=jpim), intent(in) |
KFDIA, |
|
|
integer(kind=jpim), intent(in) |
KLON, |
|
|
integer(kind=jpim), intent(in) |
KLEV, |
|
|
integer(kind=jpim), intent(in) |
KMODE, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PDT0, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PEMIS, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PEMIW, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(in) |
PTL, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PTAVE, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PEMIT, |
|
|
real(kind=jprb), dimension(klon,2,klev+1), intent(out) |
PFLUC, |
|
|
real(kind=jprb), dimension(klon,nua,3*klev+1), intent(in) |
PABCU, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(inout) |
PBINT, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PBSUI, |
|
|
real(kind=jprb), dimension(klon,klev+1,klev+1), intent(out) |
PCNTRB |
|
) |
| |