subroutine rrtmg_lw::cldprmc |
( |
integer(kind=im), intent(in) | nlayers, |
|
|
integer(kind=im), intent(in) | inflag, |
|
|
integer(kind=im), intent(in) | iceflag, |
|
|
integer(kind=im), intent(in) | liqflag, |
|
|
real(kind=rb), dimension(:,:), intent(in) | cldfmc, |
|
|
real(kind=rb), dimension(:,:), intent(in) | ciwpmc, |
|
|
real(kind=rb), dimension(:,:), intent(in) | clwpmc, |
|
|
real(kind=rb), dimension(:,:), intent(in) | cswpmc, |
|
|
real(kind=rb), dimension(:), intent(in) | reicmc, |
|
|
real(kind=rb), dimension(:), intent(in) | relqmc, |
|
|
real(kind=rb), dimension(:), intent(in) | resnmc, |
|
|
integer(kind=im), intent(out) | ncbands, |
|
|
real(kind=rb), dimension(:,:), intent(inout) | taucmc, |
|
|
character(len=*), intent(inout) | errmsg, |
|
|
integer, intent(inout) | errflg ) |
|
private |