#include "YOMCST.h"
#include "YOETHF.h"
#include "FCTTRE.h"
#include "thermcell.h"
Go to the source code of this file.
|
subroutine | cloudth (ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, ztla, zthl, ratqs, zqs, t) |
|
subroutine | cloudth_vert (ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, ztla, zthl, ratqs, zqs, t) |
|
subroutine cloudth |
( |
integer |
ngrid, |
|
|
integer |
klev, |
|
|
integer |
ind2, |
|
|
real, dimension(ngrid,klev) |
ztv, |
|
|
real, dimension(ngrid) |
po, |
|
|
real, dimension(ngrid,klev) |
zqta, |
|
|
real, dimension(ngrid,klev+1) |
fraca, |
|
|
real, dimension(ngrid) |
qcloud, |
|
|
real, dimension(ngrid,klev) |
ctot, |
|
|
real, dimension(ngrid,klev) |
zpspsk, |
|
|
real, dimension(ngrid,klev+1) |
paprs, |
|
|
real, dimension(ngrid,klev) |
ztla, |
|
|
real, dimension(ngrid,klev) |
zthl, |
|
|
real, dimension(ngrid,klev) |
ratqs, |
|
|
real, dimension(ngrid) |
zqs, |
|
|
real, dimension(ngrid,klev) |
t |
|
) |
| |
subroutine cloudth_vert |
( |
integer |
ngrid, |
|
|
integer |
klev, |
|
|
integer |
ind2, |
|
|
real, dimension(ngrid,klev) |
ztv, |
|
|
real, dimension(ngrid) |
po, |
|
|
real, dimension(ngrid,klev) |
zqta, |
|
|
real, dimension(ngrid,klev+1) |
fraca, |
|
|
real, dimension(ngrid) |
qcloud, |
|
|
real, dimension(ngrid,klev) |
ctot, |
|
|
real, dimension(ngrid,klev) |
zpspsk, |
|
|
real, dimension(ngrid,klev+1) |
paprs, |
|
|
real, dimension(ngrid,klev) |
ztla, |
|
|
real, dimension(ngrid,klev) |
zthl, |
|
|
real, dimension(ngrid,klev) |
ratqs, |
|
|
real, dimension(ngrid) |
zqs, |
|
|
real, dimension(ngrid,klev) |
t |
|
) |
| |