nucond()

subroutine module_mp_nssl_2mom::nucond ( integer  nx, integer  ny, integer  nz, integer  na, integer  jyslab, integer  nor, integer  norz, real  dtp, integer  nxi, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  dz3d, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  t0, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  t9, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz,na)  an, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  dn, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  p2, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  pn, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  w, real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz,nxtra)  axtra, logical  io_flag, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  ssfilt, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  t00, real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz)  t77, logical  flag_qndrop  )

private

References qvexcess().

Referenced by nssl_2mom_driver().

Here is the call graph for this function:

Here is the caller graph for this function: