ziegfall1d()

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

Definition at line 7492 of file module_mp_nssl_2mom.F90.

References setvtz().

Referenced by sediment1d().

Here is the call graph for this function:

Here is the caller graph for this function: