Lines Matching refs:rho
74 & rho(nshg),
98 rho(:) = yold(:,1) / (Rgas * yold(:,5)) ! get density at nodes.
100 rho(:) = one ! unit density
174 rls(:,1) = hfres(:,6) - hfres(:,1)*hfres(:,1)/rho(:)
175 rls(:,2) = hfres(:,7) - hfres(:,2)*hfres(:,2)/rho(:)
176 rls(:,3) = hfres(:,8) - hfres(:,3)*hfres(:,3)/rho(:)
184 rls(:,4) = hfres(:,9) - hfres(:,1)*hfres(:,2)/rho(:)
185 rls(:,5) = hfres(:,10) - hfres(:,1)*hfres(:,3)/rho(:)
186 rls(:,6) = hfres(:,11) - hfres(:,2)*hfres(:,3)/rho(:)
681 & u3(npro), rho(npro),
754 rho = zero
756 rho = rho+shp(i,intp)*yl(:,i,1) !density at qpt
759 rho = rho * WdetJ !rho * WdetJ
773 fresli(:,i,1) = rho * u1 * shp(i,intp) !rho * u1 * WdetJ
774 fresli(:,i,2) = rho * u2 * shp(i,intp) !rho * u2 * WdetJ
775 fresli(:,i,3) = rho * u3 * shp(i,intp) !rho * u3 * WdetJ
776 fresli(:,i,4) = rho * shp(i,intp) !rho * WdetJ
779 fresli(:,i,6) = rho * u1 * u1 * shp(i,intp) !rho * u1 * u1 * WdetJ
780 fresli(:,i,7) = rho * u2 * u2 * shp(i,intp) !rho * u2 * u2 * WdetJ
781 fresli(:,i,8) = rho * u3 * u3 * shp(i,intp) !rho * u3 * u3 * WdetJ
782 fresli(:,i,9) = rho * u1 * u2 * shp(i,intp) !rho * u1 * u2 * WdetJ
783 fresli(:,i,10)= rho * u1 * u3 * shp(i,intp) !rho * u1 * u3 * WdetJ
784 fresli(:,i,11)= rho * u2 * u3 * shp(i,intp) !rho * u2 * u3 * WdetJ