subroutine module_mp_nssl_2mom::setvtz |
( |
integer |
ngscnt, |
|
|
real, dimension(ngs,lv:lhab) |
qx, |
|
|
real, dimension(lc:lhab) |
qxmin, |
|
|
real, dimension(ngs,ls:lhab) |
qxw, |
|
|
real, dimension(ngs,lc:lhab) |
cx, |
|
|
real, dimension(ngs) |
rho0, |
|
|
real, dimension(ngs) |
rhovt, |
|
|
real, dimension(ngs,lc:lhab,3) |
xdia, |
|
|
real, dimension(lc:lhab) |
cno, |
|
|
real, dimension(ngs) |
cnostmp, |
|
|
real, dimension(ngs,lc:lhab) |
xmas, |
|
|
real, dimension(ngs,lc:lhab,3) |
vtxbar, |
|
|
real, dimension(ngs,lc:lhab) |
xdn, |
|
|
real, dimension(lc:lhab) |
xvmn0, |
|
|
real, dimension(lc:lhab) |
xvmx0, |
|
|
real, dimension(ngs,lc:lhab) |
xv, |
|
|
real, dimension(lc:lhab) |
cdx, |
|
|
real, dimension(ngs,lc:lhab) |
cdxgs, |
|
|
integer |
ipconc1, |
|
|
integer |
ndebug1, |
|
|
integer |
ngs, |
|
|
integer |
nz, |
|
|
integer, dimension(ngs) |
kgs, |
|
|
real, dimension(ngs) |
fadvisc, |
|
|
real |
cwmasn, |
|
|
real |
cwmasx, |
|
|
real |
cwradn, |
|
|
real, dimension(ngs) |
cnina, |
|
|
real |
cimna, |
|
|
real |
cimxa, |
|
|
integer, intent(in) |
itype1a, |
|
|
integer, intent(in) |
itype2a, |
|
|
real, dimension(ngs) |
temcg, |
|
|
integer, intent(in) |
infdo, |
|
|
real, dimension(ngs,lc:lhab) |
alpha, |
|
|
integer, intent(in) |
ildo, |
|
|
real, dimension(ngs,lh:lhab) |
axx, |
|
|
real, dimension(ngs,lh:lhab) |
bxx |
|
) |
| |
|
private |