| /phasta/phSolver/compressible/ |
| H A D | e3mtrx.f | 3 & betaT, cp, rk,
54 & rk(npro),
89 A0(:,5,1) = drdp * (h + rk) - alfap * T ! e1p
92 e3p = rho * ( h + rk)
93 e4p = drdT * (h + rk) + rho * cp
251 e1bar = h - rk
255 e5bar = e1bar**2 - 2*e1bar*d + 2*rk*cv*T + cp*T/rho/betaT
292 dVdY(:,11) = -(h-rk)*fact2
|
| H A D | e3juel.f | 29 dimension rk(npro), rho(npro),
55 rk = pt5 * (yl(:,inod,2)**2 + yl(:,inod,3)**2 + yl(:,inod,4)**2)
59 & rk, rho, ei,
68 yl(:,inod,5) = rho * (ei + rk)
|
| H A D | e3.f | 73 & cp(npro), rk(npro),
136 & betaT, cp, rk,
151 & betaT, cp, rk,
166 & ei, rk, u1,
206 & ri, rmi, rk,
380 dimension rho(npro), rk(npro),
436 & rk, u1, u2,
454 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
496 & rti, rk, giju,
|
| H A D | e3ivar.f | 8 & betaT, cp, rk, argument
76 & rk(npro), cv(npro),
109 rk = pt5 * (dui(:,2)**2 + dui(:,3)**2 + dui(:,4)**2)
121 & rk, rho, ei,
131 dui(:,5) = rho * (ei + rk)
206 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
220 & rk, rho, ei,
497 & rk, u1, u2, argument
566 & rk(npro),
637 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
[all …]
|
| H A D | e3conv.f | 4 & ei, rk, u1, argument
55 & rk(npro), u1(npro),
80 ri(:, 5) = (- u1) * rho * (ei + rk) - u1 * pres
86 ri(:,10) = (- u2) * rho * (ei + rk) - u2 * pres
92 ri(:,15) = (- u3) * rho * (ei + rk) - u3 * pres
|
| H A D | e3visc.f | 55 & f5(npro), f6(npro), T(npro), rk(npro)
252 rk=pt5*(u1**2+u2**2+u3**2)
254 compK(:,10) = f1 * T * (con * T + two * rmu * rk + (rlm +
256 & + f3 * T * (con * T + two * rmu * rk + (rlm + rmu) *
259 & * T + two * rmu * rk + (rlm + rmu) * u3**2)
|
| H A D | e3bvar.f | 5 & cp, rk, argument
65 & rk(npro),
107 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
122 & rk, rho, ei,
425 & rk(npro), Sclr(npro),
468 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
475 & rk, rho, ei,
|
| H A D | e3ls.f | 6 & ri, rmi, rk, argument
66 & u3(npro), rk(npro),
193 & rLymi, tau, rk,
212 & rLymi, PTau, rk,
779 & rti, rk, giju, argument
835 & u3(npro), rk(npro),
894 & taut, rk, raLSt,
|
| H A D | getthm.f | 1 subroutine getthm (pres, T, Sclr, rk, rho, argument
50 & T(npro), rk(npro),
|
| H A D | e3source.f | 102 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
109 duitarg(id,5) = den * (ei + rk)
155 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
162 duitarg(id,5) = den * (ei + rk)
|
| H A D | e3tau.f | 4 & rLymi, tau, rk,
42 & dxidx(npro,nsd,nsd), rk(npro),
135 fact=h2o2u*h2o2u*rk*celt/rmu
288 & rLymi, Tau, rk,
327 & dxidx(npro,nsd,nsd), rk(npro),
749 & rLymi, Tau, rk,
789 & dxidx(npro,nsd,nsd), rk(npro),
1214 & taut, rk, raLSt,
1253 & dxidx(npro,nsd,nsd), rk(npro),
1318 taut(:)=min(taut(:),h2o2u*h2o2u*rk*pt66*saSigma/rmu)
|
| H A D | e3b.f | 70 dimension un(npro), rk(npro),
134 & rk, rou, p,
171 F5 = rou * (ei + rk) + un * p
|
| H A D | itrbc.f | 149 & rk, q1, tmp,
|