subroutine lwvn |
( |
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) |
KUAER, |
|
|
real(kind=jprb), dimension(klon,nua,3*klev+1), intent(in) |
PABCU, |
|
|
real(kind=jprb), dimension(klon,nsil,klev*2), intent(in) |
PDBSL, |
|
|
real(kind=jprb), dimension(klon,nipd,2,klev), intent(in) |
PGA, |
|
|
real(kind=jprb), dimension(klon,nipd,2,klev), intent(in) |
PGB, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(out) |
PADJD, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(out) |
PADJU, |
|
|
real(kind=jprb), dimension(klon,klev+1,klev+1), intent(out) |
PCNTRB, |
|
|
real(kind=jprb), dimension(klon,nsil,klev), intent(out) |
PDBDT, |
|
|
real(kind=jprb), dimension(klon,nsil), intent(inout) |
PDWFSU |
|
) |
| |