!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ngrid | |||
| integer, | intent(in) | :: | klev | |||
| integer, | intent(in) | :: | ind2 | |||
| real, | intent(in), | dimension(ngrid,klev) | :: | ztv | ||
| real, | intent(in), | dimension(ngrid) | :: | po | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | zqta | ||
| real, | intent(in), | dimension(ngrid,klev+1) | :: | fraca | ||
| real, | intent(out), | dimension(ngrid) | :: | qcloud | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | ctot | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | ctot_vol | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | zpspsk | ||
| real, | intent(in), | dimension(ngrid,klev+1) | :: | paprs | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | pplay | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | ztla | ||
| real, | intent(inout), | dimension(ngrid,klev) | :: | zthl | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | ratqs | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | sigma_qtherm | ||
| real, | intent(in), | dimension(ngrid) | :: | zqs | ||
| real, | intent(in), | dimension(ngrid,klev) | :: | t | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | cloudth_sth | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | cloudth_senv | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | cloudth_sigmath | ||
| real, | intent(out), | dimension(ngrid,klev) | :: | cloudth_sigmaenv |