| /phasta/phSolver/compressible/ |
| H A D | e3source.f | 94 do id=1,npro
95 rsq=xx(id,1)*xx(id,1) + xx(id,2)*xx(id,2)
97 bcool(id)=grthOSponge*(rsq-zoutSponge)**2
98 bcool(id)=min(bcool(id),betamax)
100 den = ytargeti(id,1) / (Rgas * ytargeti(id,5))
101 ei = ytargeti(id,5) * ( Rgas / gamma1 )
102 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
103 & +ytargeti(id,4)**2 )
105 duitarg(id,1) = den
106 duitarg(id,2) = den * ytargeti(id,2)
[all …]
|
| H A D | itrbc.f | 218 id=5+isclr
225 if(ylimit(1,id).gt.0)
226 & y(:,id)=min(ylimit(3,id),max(ylimit(2,id),y(:,id)))
231 where (btest(iBC,id))
232 y(:,id) = BC(:,ibb)
239 y(i,id) = y(iper(i),id)
240 ac(i,id) = ac(iper(i),id)
247 T=y(:,id)
249 y(:,id)=T
250 T=ac(:,id)
[all …]
|
| H A D | bc3res.f | 236 id = isclr+5
239 where (btest(iBC,id))
|
| H A D | e3ivar.f | 596 id = isclr + 5
606 Sclr = Sclr + shape(:,n) * ycl(:,n,id)
624 acti(:) = acti(:) + shape(:,n) * acl(:,n,id)
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)
|
| H A D | e3bvar.f | 452 id = isclr+5
463 Sclr = Sclr + shpb(:,nodlcl) * ycl(:,nodlcl,id)
587 gl1yti(:) = gl1yti(:) + shglb(:,1,n) * ycl(:,n,id)
588 gl2yti(:) = gl2yti(:) + shglb(:,2,n) * ycl(:,n,id)
589 gl3yti(:) = gl3yti(:) + shglb(:,3,n) * ycl(:,n,id)
|
| H A D | bc3lhs.f | 331 id = isclr+5
348 if ( btest(iBC(in),id) ) then
|
| H A D | bc3bdg.f | 422 id = isclr+5
426 where (btest(iBC,id))
|
| H A D | e3b.f | 459 id = isclr + 5
|
| H A D | solgmr.f | 833 id = isclr+5
|
| /phasta/phSolver/incompressible/ |
| H A D | itrbc.f | 151 id=5
155 id=ib
160 if(ylimit(1,id).gt.0)
161 & y(:,id)=min(ylimit(3,id),max(ylimit(2,id),y(:,id)))
168 y(:,id) = BC(:,ibb)
174 y(i,id) = y(iper(i),id)
175 ac(i,id) = ac(iper(i),id)
181 T=y(:,id)
183 y(:,id)=T
184 T=ac(:,id)
[all …]
|
| H A D | usr.c | 109 Integer id, in usrPointer() argument
120 if ( id == LES_RES_PNT ) { in usrPointer()
123 id = 0 ; in usrPointer()
125 } else if ( id == LES_SOL_PNT ) { in usrPointer()
128 id = 0 ; in usrPointer()
130 } else if ( id < 0 ) { in usrPointer()
133 id = id + usrHd->nPermDims ; in usrPointer()
138 id = id ; in usrPointer()
145 pnt = pnt + (id + offset) * usrHd->nNodes ; in usrPointer()
|
| H A D | e3qvar.f | 169 id=5+isclr
175 gradT(:,1) = gradT(:,1) + shg(:,n,1) * yl(:,n,id)
176 gradT(:,2) = gradT(:,2) + shg(:,n,2) * yl(:,n,id)
177 gradT(:,3) = gradT(:,3) + shg(:,n,3) * yl(:,n,id)
|
| H A D | e3ivar.f | 359 id=isclr+5
364 Sclr = Sclr + shpfun(:,n) * yl(:,n,id)
372 Sdot = Sdot + shpfun(:,n) * acl(:,n,id)
387 gradS(:,1) = gradS(:,1) + shg(:,n,1) * yl(:,n,id)
388 gradS(:,2) = gradS(:,2) + shg(:,n,2) * yl(:,n,id)
389 gradS(:,3) = gradS(:,3) + shg(:,n,3) * yl(:,n,id)
|
| H A D | usr.h | 137 int id,
|
| /phasta/phSolver/common/ |
| H A D | bctint.f | 101 do id=1,numnp
102 radsqr=x(id,2)**2+x(id,1)**2
106 zval=max(x(id,3),zstart)
111 ytarget(id,1) = zero
112 ytarget(id,2) = zero
113 ytarget(id,3) = utarget
114 ytarget(id,4) = ptarget
115 ytarget(id,5) = Ttarget
|
| H A D | findslpw.f | 76 do id=1,nslpwnd
77 nn=idxslpw(id)
|
| /phasta/phSolver/AMG/ |
| H A D | amgread.txt | 80 by group in parallel. For each node, there is a "group id" assigned to
81 it. For all interior node, the "group id" is the rank of the local
|