Lines Matching refs:yl
678 dimension ien(npro,nshl), yl(npro,nshl,nflow),
689 call local (y, yl, ien, 5, 'gather ')
694 yl (:,:,1) = yl(:,:,1) / (Rgas * yl(:,:,5)) !get density
696 yl (:,:,1) = one
756 rho = rho+shp(i,intp)*yl(:,i,1) !density at qpt
765 u1 = u1 + shp(i,intp)*yl(:,i,2)
766 u2 = u2 + shp(i,intp)*yl(:,i,3)
767 u3 = u3 + shp(i,intp)*yl(:,i,4)
832 dimension ien(npro,nshl), yl(npro,nshl,nflow),
844 call local (y, yl, ien, 5, 'gather ')
849 yl (:,:,1) = yl(:,:,1) / (Rgas * yl(:,:,5)) !get density
851 yl (:,:,1) = one
914 fresli(:,22) = fresli(:,22)+shp(i,intp)*yl(:,i,1) ! density at qpt
960 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*yl(:,i,iv)
968 fresli(:,13) = fresli(:,13)+shg(:,i,2)*yl(:,i,2)
969 & +shg(:,i,1)*yl(:,i,3)
970 fresli(:,14) = fresli(:,14)+shg(:,i,3)*yl(:,i,2)
971 & +shg(:,i,1)*yl(:,i,4)
972 fresli(:,15) = fresli(:,15)+shg(:,i,3)*yl(:,i,3)
973 & +shg(:,i,2)*yl(:,i,4)
1003 u1 = u1 + shp(i,intp)*yl(:,i,2)
1004 u2 = u2 + shp(i,intp)*yl(:,i,3)
1005 u3 = u3 + shp(i,intp)*yl(:,i,4)
1075 dimension yl(npro,nshl,nflow), xl(npro,nenl,nsd),
1080 call local (y, yl, ien, 5, 'gather ')
1086 yl (:,:,1) = one ! Unit density
1170 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*yl(:,i,iv)
1178 fresli(:,13) = fresli(:,13)+shg(:,i,2)*yl(:,i,2)
1179 & +shg(:,i,1)*yl(:,i,3)
1180 fresli(:,14) = fresli(:,14)+shg(:,i,3)*yl(:,i,2)
1181 & +shg(:,i,1)*yl(:,i,4)
1182 fresli(:,15) = fresli(:,15)+shg(:,i,3)*yl(:,i,3)
1183 & +shg(:,i,2)*yl(:,i,4)