subroutine lw |
( |
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), intent(in) |
PCCO2, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PCLDLD, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PCLDLU, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PDP, |
|
|
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) |
PPMB, |
|
|
real(kind=jprb), dimension(klon,klev), intent(in) |
PQOF, |
|
|
real(kind=jprb), dimension(klon,klev+1), intent(in) |
PTL, |
|
|
real(kind=jprb), dimension(klon,6,klev), intent(in) |
PAER, |
|
|
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), intent(inout) |
PEMIT, |
|
|
real(kind=jprb), dimension(klon,2,klev+1), intent(out) |
PFLUX, |
|
|
real(kind=jprb), dimension(klon,2,klev+1), intent(inout) |
PFLUC |
|
) |
| |