Home
last modified time | relevance | path

Searched refs:ycl (Results 1 – 22 of 22) sorted by relevance

/phasta/phSolver/compressible/
H A De3qvar.f1 subroutine e3qvar (ycl, shp, shgl, rho, argument
40 dimension ycl(npro,nshl,ndof), rho(npro),
72 pres = pres + shp(:,n) * ycl(:,n,1)
73 u1 = u1 + shp(:,n) * ycl(:,n,2)
74 u2 = u2 + shp(:,n) * ycl(:,n,3)
75 u3 = u3 + shp(:,n) * ycl(:,n,4)
76 T = T + shp(:,n) * ycl(:,n,5)
89 Sclr = Sclr + shp(:,n) * ycl(:,n,isc)
120 g1yi(:,1) = g1yi(:,1) + shg(:,n,1) * ycl(:,n,1)
121 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * ycl(:,n,2)
[all …]
H A De3ivar.f1 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,
[all …]
H A Dasbmfg.f22 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
39 call localy(y, ycl, ienb, ndofl, 'gather ')
54 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
89 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
102 call localy (y, ycl, ienb, ndofl, 'gather ')
112 call e3bSclr (ycl, iBCB, BCB,
H A Dasigmr.f29 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndof),
52 call localy(y, ycl, ien, ndofl, 'gather ')
75 call e3 (ycl, ycl, acl, shp,
111 call timeseries(ycl,xl,ien,sgn)
150 dimension ycl(npro,nshl,ndof),
166 call localy (y, ycl, ien, ndof, 'gather ')
181 call e3Sclr (ycl, acl,
H A Dgetdiff.f1 subroutine getDiff (T, cp, rho, ycl, argument
44 & ycl(npro,nshl,ndof), shp(npro,nshl),
68 Sclr = Sclr + shp(:,n) * ycl(:,n,isc)
196 u1=ycl(e,n,2)
197 u2=ycl(e,n,3)
198 u3=ycl(e,n,4)
215 evisc = evisc + ycl(e,n,6)
245 savar = savar + shp(e,n) * ycl(e,n,6)
H A Dasiflx.f22 dimension ycl(npro,nshl,ndof), acl(npro,nshl,ndof),
43 call localy(y, ycl, ien, ndof, 'gather ')
63 call e3 (ycl, ycl, acl, shp(lcsyst,1:nshl,:),
H A Dasbflx.f23 dimension ycl(npro,nshl,ndof), xlb(npro,nenl,nsd),
46 call localy(y, ycl, ienb, ndofl, 'gather ')
53 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
H A Dasiq.f34 dimension ycl(npro,nshl,ndof), xl(npro,nenl,nsd),
50 call localy(y, ycl, ien, ndof, 'gather ')
58 call e3q (ycl, shp, shgl,
H A Dasimfg.f27 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndofl),
49 call localy(y, ycl, ien, ndofl, 'gather ')
77 call e3 (ycl, ycl, acl, shp,
H A De3q.f1 subroutine e3q (ycl, shp, shgl, argument
24 dimension ycl(npro,nshl,ndof),
80 call e3qvar (ycl, shape, shdrv,
92 call getDiff (T, cp, rho, ycl,
210 g1yti(:) = g1yti(:) + shg(:,n,1) * ycl(:,n,6)
211 g2yti(:) = g2yti(:) + shg(:,n,2) * ycl(:,n,6)
212 g3yti(:) = g3yti(:) + shg(:,n,3) * ycl(:,n,6)
H A Dasbres.f23 & ycl(npro,nshl,ndof), rml(npro,nshl,nflow)
37 call localy(yc, ycl, ienb, ndof, 'gather ')
43 call e3b (yl, ycl, iBCB, BCB, shpb, shglb,
H A De3bvar.f1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
54 & ycl(npro,nshl,ndof),
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
376 subroutine e3bvarSclr(ycl, BCB, shpb, shglb, argument
414 dimension ycl(npro,nshl,ndof), BCB(npro,nshlb,ndBCB),
458 pres = pres + shpb(:,nodlcl) * ycl(:,nodlcl,1)
459 u1 = u1 + shpb(:,nodlcl) * ycl(:,nodlcl,2)
460 u2 = u2 + shpb(:,nodlcl) * ycl(:,nodlcl,3)
461 u3 = u3 + shpb(:,nodlcl) * ycl(:,nodlcl,4)
462 T = T + shpb(:,nodlcl) * ycl(:,nodlcl,5)
[all …]
H A Dasires.f23 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndofl),
56 call localy(yc, ycl, ien, ndofl, 'gather ')
78 call e3 (yl, ycl, acl, shp,
H A De3b.f1 subroutine e3b (yl, ycl, iBCB, BCB, shpb, shglb, argument
57 & ycl(npro,nshl,ndof),
127 call e3bvar (yl, ycl, BCB, shape,
190 call getDiff (T, cp, rho, ycl,
388 subroutine e3bSclr (ycl, iBCB, BCB, argument
430 dimension ycl(npro,nshl,ndof), iBCB(npro,ndiBCB),
483 call e3bvarSclr (ycl, BCB,
505 & + shape(ii,jj) * ycl(ii,jj,6)
H A De3.f1 subroutine e3 (yl, ycl, acl, shp, argument
50 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof),
101 call e3ql (ycl, shp, shgl, xl, ql, xmudmi, sgn)
129 call e3ivar (yl, ycl, acl,
311 subroutine e3Sclr (ycl, acl, argument
359 dimension ycl(npro,nshl,ndof),
429 call e3ivarSclr(ycl, acl, acti,
449 & ycl, shape, u1,
H A De3ql.f1 subroutine e3ql (ycl, shp, shgl, argument
24 dimension ycl(npro,nshl,ndof),
74 call e3qvar (ycl, shape, shdrv,
87 call getDiff (T, cp, rho, ycl,
H A Dtimeseries.f2 subroutine timeseries(ycl, xl, ien, sgn) argument
7 dimension shape(nshl), ycl(npro,nshl,ndofl),
227 & +ycl(founde,i,1:ndofl)*shape(i)
231 & +ycl(founde,i,1:ndofl)*shape(i)*sgn(founde,i)
H A De3source.f229 & ycl, shape, u1,
259 dimension Sclr (npro), ycl(npro,nshl,ndof),
442 & + shape(ii,jj) * ycl(ii,jj,6)
/phasta/phSolver/common/
H A Dasithf.f7 dimension ien(npro,nshl), ycl(npro,nshl,ndof),
18 call localy (y, ycl, ien, 5, 'gather ')
23 ycl (:,:,1) = ycl(:,:,1) / (Rgas * ycl(:,:,5)) !get density
25 ycl(:,:,1) = one ! Even if density non unity, it would cancel out
89 fresli(:,22) = fresli(:,22)+shp(i,intp)*ycl(:,i,1) !density at
112 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*ycl(:,i,iv)
120 fresli(:,13) = fresli(:,13)+shg(:,i,2)*ycl(:,i,2)
121 & +shg(:,i,1)*ycl(:,i,3)
122 fresli(:,14) = fresli(:,14)+shg(:,i,3)*ycl(:,i,2)
123 & +shg(:,i,1)*ycl(:,i,4)
[all …]
H A Dhierarchic.f247 real*8, allocatable :: ycl(:,:,:) local
272 allocate ( ycl(npro,nshl,ndof ) )
279 call localy( ycoeff, ycl, mien(iblk)%p, ndof, 'gather ')
282 call eval ( xl, ycl, yvl,
293 deallocate ( ycl )
317 subroutine eval( xl, ycl, yvl, argument
325 real*8 ycl(npro,nshl,ndof), yvl(npro,nshl,nvars), local
345 yvl(:,intp,j) = yvl(:,intp,j) + shape(:,i) * ycl(:,i,j)
356 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * ycl(:,n,2)
357 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * ycl(:,n,3)
[all …]
H A Dsolvecon.f166 dimension ycl(npro,nshl,ndof), xl(npro,nenl,nsd),
204 call localy(y, ycl, ien, ndof, 'gather ')
247 Sclr = Sclr + shape(:,i) * ycl(:,i,7) !d^kbar
248 sclrtmp = sclrtmp + shape(:,i) * ycl(:,i,6) !d^0
/phasta/phSolver/incompressible/
H A Dtimeseries.f2 subroutine timeseries(ycl, xl, ien, sgn) argument
7 dimension shape(nshl), ycl(npro,nshl,ndofl),
227 & +ycl(founde,i,1:ndofl)*shape(i)
231 & +ycl(founde,i,1:ndofl)*shape(i)*sgn(founde,i)