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

References setvtz().

Referenced by sediment1d().

Here is the call graph for this function:

Here is the caller graph for this function: