subroutine srtm_cldprop |
( |
integer(kind=jpim), intent(in) |
KLEV, |
|
|
integer(kind=jpim), intent(out) |
K_ICLDATM, |
|
|
integer(kind=jpim), intent(in) |
K_INFLAG, |
|
|
integer(kind=jpim), intent(in) |
K_ICEFLAG, |
|
|
integer(kind=jpim), intent(in) |
K_LIQFLAG, |
|
|
integer(kind=jpim), intent(in) |
K_NSTR, |
|
|
real(kind=jprb), dimension(jplay), intent(in) |
P_CLDFRAC, |
|
|
real(kind=jprb), dimension(jplay), intent(in) |
P_CLDDAT1, |
|
|
real(kind=jprb), dimension(jplay), intent(in) |
P_CLDDAT2, |
|
|
real(kind=jprb), dimension(jplay), intent(in) |
P_CLDDAT3, |
|
|
real(kind=jprb), dimension(jplay), intent(in) |
P_CLDDAT4, |
|
|
real(kind=jprb), dimension(0:16,jplay), intent(in) |
P_CLDDATMOM, |
|
|
real(kind=jprb), dimension(jplay,jpband), intent(inout) |
P_TAUCLDORIG, |
|
|
real(kind=jprb), dimension(jplay,jpband), intent(inout) |
P_TAUCLOUD, |
|
|
real(kind=jprb), dimension(jplay,jpband), intent(out) |
P_SSACLOUD, |
|
|
real(kind=jprb), dimension(0:16,jplay,jpband), intent(out) |
P_XMOM |
|
) |
| |