Lines Matching refs:rho
1 subroutine e3mtrx (rho, pres, T, argument
49 dimension rho(npro), pres(npro),
87 drdp = rho * betaT
88 drdT = -rho * alfap
92 e3p = rho * ( h + rk)
93 e4p = drdT * (h + rk) + rho * cp
105 A0(:,2,2) = rho
112 A0(:,3,3) = rho
119 A0(:,4,4) = rho
123 A0(:,5,2) = rho * u1
124 A0(:,5,3) = rho * u2
125 A0(:,5,4) = rho * u3
133 A1(:,1,2) = rho
139 A1(:,2,2) = two *rho * u1
145 A1(:,3,2) = rho * u2
146 A1(:,3,3) = rho * u1
151 A1(:,4,2) = rho * u3
153 A1(:,4,4) = rho * u1
157 A1(:,5,2) = e3p + rho * u1 * u1
158 A1(:,5,3) = rho * u1 * u2
159 A1(:,5,4) = rho * u1 * u3
166 A2(:,1,3) = rho
171 A2(:,2,2) = rho * u2
172 A2(:,2,3) = rho * u1
178 A2(:,3,3) = two * rho * u2
184 A2(:,4,3) = rho * u3
185 A2(:,4,4) = rho * u2
189 A2(:,5,2) = rho * u1 * u2
190 A2(:,5,3) = e3p + rho * u2 * u2
191 A2(:,5,4) = rho * u2 * u3
199 A3(:,1,4) = rho
203 A3(:,2,2) = rho * u3
205 A3(:,2,4) = rho * u1
210 A3(:,3,3) = rho * u3
211 A3(:,3,4) = rho * u2
217 A3(:,4,4) = two *rho * u3
221 A3(:,5,2) = rho * u1 * u3
222 A3(:,5,3) = rho * u2 * u3
223 A3(:,5,4) = e3p + rho * u3 * u3
239 s1 = one/(rho**2 * betaT * T)
240 cv = cp - (alfap**2 * T/rho/betaT)
241 A0DC(:,1) = (rho * betaT)**2*s1
242 A0DC(:,2) = -rho*alfap*rho*betaT*s1
243 A0DC(:,3) = rho/T
244 A0DC(:,4) = (-rho*alfap)**2 * s1 + (rho*cv/T**2)
249 fact1 = one/(rho*cv*T**2)
250 d = alfap*T/rho/betaT
255 e5bar = e1bar**2 - 2*e1bar*d + 2*rk*cv*T + cp*T/rho/betaT
282 dVdY( :,1) = fact1/rho
304 subroutine e3mtrxSclr (rho, argument
338 dimension rho(npro),
351 A0t(:) = rho(:)
352 A1t(:) = rho(:)*u1(:)
353 A2t(:) = rho(:)*u2(:)
354 A3t(:) = rho(:)*u3(:)