subroutine module_mp_nssl_2mom::ziegfall1d |
( |
integer |
nx, |
|
|
integer |
ny, |
|
|
integer |
nz, |
|
|
integer |
nor, |
|
|
integer |
norz, |
|
|
integer |
na, |
|
|
real |
dtp, |
|
|
integer |
jgs, |
|
|
integer, intent(in) |
ixcol, |
|
|
real, dimension(nz+1,nx,3,lc:lhab) |
xvt, |
|
|
real, dimension(nz,nx) |
rhovtzx, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-nor+ng1:nz+nor,na) |
an, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-nor+ng1:nz+nor) |
dn, |
|
|
integer |
ipconc0, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-nor+ng1:nz+nor) |
t0, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-nor+ng1:nz+nor) |
t7, |
|
|
real |
cwmasn, |
|
|
real |
cwmasx, |
|
|
real |
cwradn, |
|
|
real, dimension(lc:lhab) |
qxmin, |
|
|
real, dimension(lc:lhab) |
xdnmx, |
|
|
real, dimension(lc:lhab) |
xdnmn, |
|
|
real, dimension(lc:lhab) |
cdx, |
|
|
real, dimension(lc:lhab) |
cno, |
|
|
real, dimension(lc:lhab) |
xdn0, |
|
|
real, dimension(lc:lhab) |
xvmn, |
|
|
real, dimension(lc:lhab) |
xvmx, |
|
|
integer |
ngs, |
|
|
real, dimension(ngs,lv:lhab) |
qx, |
|
|
real, dimension(ngs,ls:lhab) |
qxw, |
|
|
real, dimension(ngs,lc:lhab) |
cx, |
|
|
real, dimension(ngs,lc:lhab) |
xv, |
|
|
real, dimension(ngs,lc:lhab,3) |
vtxbar, |
|
|
real, dimension(ngs,lc:lhab) |
xmas, |
|
|
real, dimension(ngs,lc:lhab) |
xdn, |
|
|
real, dimension(ngs,lc:lhab,3) |
xdia, |
|
|
real, dimension(ngs,li:lhab) |
vx, |
|
|
real, dimension(ngs,lc:lhab) |
alpha, |
|
|
real, dimension(ngs,lr:lhab) |
zx, |
|
|
integer, dimension(ngs) |
igs, |
|
|
integer, dimension(ngs) |
kgs, |
|
|
real, dimension(ngs) |
rho0, |
|
|
real, dimension(ngs) |
temcg, |
|
|
real, dimension(ngs) |
temg, |
|
|
real, dimension(ngs) |
rhovt, |
|
|
real, dimension(ngs) |
cwnc, |
|
|
real, dimension(ngs) |
cinc, |
|
|
real, dimension(ngs) |
fadvisc, |
|
|
real, dimension(ngs) |
cwdia, |
|
|
real, dimension(ngs) |
cipmas, |
|
|
real, dimension(ngs) |
cnina, |
|
|
real, dimension(ngs) |
cimas, |
|
|
real, dimension(ngs) |
cnostmp, |
|
|
integer |
infdo, |
|
|
integer, intent(in) |
ildo, |
|
|
double precision, optional |
timesetvt |
|
) |
| |
|
private |