subroutine module_mp_nssl_2mom::qvexcess |
( |
integer |
ngs, |
|
|
integer |
mgs, |
|
|
real, dimension(mgs) |
qwvp0, |
|
|
real, dimension(ngs) |
qv0, |
|
|
real, dimension(ngscnt) |
qcw1, |
|
|
real, dimension(ngs) |
pres, |
|
|
real, dimension(ngs) |
thetap0, |
|
|
real, dimension(ngs) |
theta0, |
|
|
real |
qvex, |
|
|
real, dimension(ngs) |
pi0, |
|
|
real, dimension(nqsat) |
tabqvs, |
|
|
integer |
nqsat, |
|
|
real |
fqsat, |
|
|
real |
cbw, |
|
|
real, dimension(ngs) |
fcqv1, |
|
|
real, dimension(ngs) |
felvcp, |
|
|
real |
ss1, |
|
|
real, dimension(ngs) |
pk, |
|
|
integer |
ngscnt |
|
) |
| |
|
private |