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 |