Go to the source code of this file.
|
subroutine | lwc (KIDIA, KFDIA, KLON, KLEV, PBINT, PBSUI, PCLDLD, PCLDLU, PCNTRB, PEMIT, PFLUC, PFLUX) |
|
subroutine lwc |
( |
integer(kind=jpim), intent(in) |
KIDIA, |
|
|
integer(kind=jpim), intent(in) |
KFDIA, |
|
|
integer(kind=jpim), intent(in) |
KLON, |
|
|
integer(kind=jpim), intent(in) |
KLEV, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(in) |
PBINT, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PBSUI, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PCLDLD, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PCLDLU, |
|
|
real(kind=jprb), dimension(klon,klev+1,klev+1), intent(in) |
PCNTRB, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PEMIT, |
|
|
real(kind=jprb), dimension(klon,2,klev+1), intent(in) |
PFLUC, |
|
|
real(kind=jprb), dimension(klon,2,klev+1), intent(out) |
PFLUX |
|
) |
| |