#include "clesphys.h"
Go to the source code of this file.
|
subroutine | lwu (KIDIA, KFDIA, KLON, KLEV, PAER, PCCO2, PDP, PPMB, PQOF, PTAVE, PVIEW, PWV, PABCU) |
|
subroutine lwu |
( |
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,6,klev), intent(in) |
PAER, |
|
|
real(kind=jprb), intent(in) |
PCCO2, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PDP, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(in) |
PPMB, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PQOF, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PTAVE, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PVIEW, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PWV, |
|
|
real(kind=jprb), dimension(klon,nua,3*klev+1), intent(out) |
PABCU |
|
) |
| |