Lines Matching refs:ycl
1 subroutine e3ivar (yl, ycl, acl, argument
63 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof),
115 Sclr = Sclr + shape(:,n) * ycl(:,n,isc)
151 pres = pres + shape(:,n) * ycl(:,n,1)
152 u1 = u1 + shape(:,n) * ycl(:,n,2)
153 u2 = u2 + shape(:,n) * ycl(:,n,3)
154 u3 = u3 + shape(:,n) * ycl(:,n,4)
155 T = T + shape(:,n) * ycl(:,n,5)
214 Sclr = Sclr + shape(:,n) * ycl(:,n,isc)
229 call getDiff (T, cp, rho, ycl,
412 Sclr(i) = Sclr(i) + shape(i,n) * ycl(i,n,6) !scalar
416 gyti(i,1) = gyti(i,1) + shg(i,n,1) * ycl(i,n,6)
417 gyti(i,2) = gyti(i,2) + shg(i,n,2) * ycl(i,n,6)
418 gyti(i,3) = gyti(i,3) + shg(i,n,3) * ycl(i,n,6)
490 subroutine e3ivarSclr (ycl, acl, acti, argument
553 dimension ycl(npro,nshl,ndof),
601 pres = pres + shape(:,n) * ycl( :,n,1)
602 u1 = u1 + shape(:,n) * ycl( :,n,2)
603 u2 = u2 + shape(:,n) * ycl( :,n,3)
604 u3 = u3 + shape(:,n) * ycl( :,n,4)
605 T = T + shape(:,n) * ycl( :,n,5)
606 Sclr = Sclr + shape(:,n) * ycl(:,n,id)
679 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * ycl(:,n,2)
680 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * ycl(:,n,3)
681 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * ycl(:,n,4)
685 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * ycl(:,n,2)
686 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * ycl(:,n,3)
687 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * ycl(:,n,4)
691 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * ycl(:,n,2)
692 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * ycl(:,n,3)
693 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * ycl(:,n,4)
710 g1yti(:) = g1yti(:) + shg(:,n,1) * ycl(:,n,id)
711 g2yti(:) = g2yti(:) + shg(:,n,2) * ycl(:,n,id)
712 g3yti(:) = g3yti(:) + shg(:,n,3) * ycl(:,n,id)