subroutine module_mp_nssl_2mom::calcnfromz1d |
( |
integer |
nx, |
|
|
integer |
ny, |
|
|
integer |
nz, |
|
|
integer |
nor, |
|
|
integer |
na, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-nor+1:nz+nor,na) |
a, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-nor+1:nz+nor) |
t0, |
|
|
integer |
ixe, |
|
|
integer |
kze, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:nz+nor,lr:lhab) |
z0, |
|
|
real, dimension(nx,nz+1) |
db, |
|
|
integer |
jgs, |
|
|
integer |
ipconc, |
|
|
real |
alpha, |
|
|
integer |
l, |
|
|
integer |
ln, |
|
|
real |
qmin, |
|
|
real |
xvmn, |
|
|
real |
xvmx, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-nor+1:nz+nor) |
t1, |
|
|
integer |
lvol, |
|
|
real |
rho_qx, |
|
|
integer |
infall, |
|
|
integer |
ixcol |
|
) |
| |
|
private |