setvtz()

subroutine module_mp_nssl_2mom::setvtz ( integer ngscnt, real, dimension(ngs,lv:lhab) qx, real, dimension(lc:lhab) qxmin, real, dimension(ngs,ls:lhab) qxw, real, dimension(ngs,lc:lhab) cx, real, dimension(ngs) rho0, real, dimension(ngs) rhovt, real, dimension(ngs,lc:lhab,3) xdia, real, dimension(lc:lhab) cno, real, dimension(ngs) cnostmp, real, dimension(ngs,lc:lhab) xmas, real, dimension(ngs,lc:lhab,3) vtxbar, real, dimension(ngs,lc:lhab) xdn, real, dimension(lc:lhab) xvmn0, real, dimension(lc:lhab) xvmx0, real, dimension(ngs,lc:lhab) xv, real, dimension(lc:lhab) cdx, real, dimension(ngs,lc:lhab) cdxgs, integer ipconc1, integer ndebug1, integer ngs, integer nz, integer, dimension(ngs) kgs, real, dimension(ngs) fadvisc, real cwmasn, real cwmasx, real cwradn, real, dimension(ngs) cnina, real cimna, real cimxa, integer, intent(in) itype1a, integer, intent(in) itype2a, real, dimension(ngs) temcg, integer, intent(in) infdo, real, dimension(ngs,lc:lhab) alpha, integer, intent(in) ildo, real, dimension(ngs,lh:lhab) axx, real, dimension(ngs,lh:lhab) bxx )

private

Definition at line 6106 of file module_mp_nssl_2mom.F90.

References gamma_sp().

Referenced by nssl_2mom_gs(), and ziegfall1d().

Here is the call graph for this function:

Here is the caller graph for this function: