subroutine swu |
( |
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), intent(in) |
PSCT, |
|
|
real(kind=jprb), intent(in) |
PCARDI, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PCLDSW, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(in) |
PPMB, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PPSOL, |
|
|
real(kind=jprb), dimension(klon), intent(in) |
PRMU0, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PTAVE, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PWV, |
|
|
real(kind=jprb), dimension(klon,2,nsw), intent(out) |
PAKI, |
|
|
real(kind=jprb), dimension(klon,klev), intent(inout) |
PCLD, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PCLEAR, |
|
|
real(kind=jprb), dimension(klon,klev), intent(out) |
PDSIG, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PFACT, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PRMU, |
|
|
real(kind=jprb), dimension(klon), intent(out) |
PSEC, |
|
|
real(kind=jprb), dimension(klon,5,klev+1), intent(out) |
PUD |
|
) |
| |