Lines Matching refs:e0
27 rho_inv = 1.0e0/u(1,i,j,k,c);
32 square(i,j,k,c) = 0.5e0* (
69 (u(1,i+1,j,k,c) - 2.0e0*u(1,i,j,k,c) +
74 (u(2,i+1,j,k,c) - 2.0e0*u(2,i,j,k,c) +
76 xxcon2*con43 * (up1 - 2.0e0*uijk + um1) -
84 (u(3,i+1,j,k,c) - 2.0e0*u(3,i,j,k,c) +
86 xxcon2 * (vs(i+1,j,k,c) - 2.0e0*vs(i,j,k,c) +
92 (u(4,i+1,j,k,c) - 2.0e0*u(4,i,j,k,c) +
94 xxcon2 * (ws(i+1,j,k,c) - 2.0e0*ws(i,j,k,c) +
100 (u(5,i+1,j,k,c) - 2.0e0*u(5,i,j,k,c) +
102 xxcon3 * (qs(i+1,j,k,c) - 2.0e0*qs(i,j,k,c) +
104 xxcon4 * (up1*up1 - 2.0e0*uijk*uijk +
107 2.0e0*u(5,i,j,k,c)*rho_i(i,j,k,c) +
126 ( 5.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i+1,j,k,c) +
133 (-4.0e0*u(m,i-1,j,k,c) + 6.0e0*u(m,i,j,k,c) -
134 4.0e0*u(m,i+1,j,k,c) + u(m,i+2,j,k,c));
145 ( u(m,i-2,j,k,c) - 4.0e0*u(m,i-1,j,k,c) +
146 6.0*u(m,i,j,k,c) - 4.0e0*u(m,i+1,j,k,c) +
160 ( u(m,i-2,j,k,c) - 4.0e0*u(m,i-1,j,k,c) +
161 6.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i+1,j,k,c) );
167 ( u(m,i-2,j,k,c) - 4.e0*u(m,i-1,j,k,c) +
168 5.e0*u(m,i,j,k,c) );
184 (u(1,i,j+1,k,c) - 2.0e0*u(1,i,j,k,c) +
188 (u(2,i,j+1,k,c) - 2.0e0*u(2,i,j,k,c) +
190 yycon2 * (us(i,j+1,k,c) - 2.0e0*us(i,j,k,c) +
195 (u(3,i,j+1,k,c) - 2.0e0*u(3,i,j,k,c) +
197 yycon2*con43 * (vp1 - 2.0e0*vijk + vm1) -
204 (u(4,i,j+1,k,c) - 2.0e0*u(4,i,j,k,c) +
206 yycon2 * (ws(i,j+1,k,c) - 2.0e0*ws(i,j,k,c) +
211 (u(5,i,j+1,k,c) - 2.0e0*u(5,i,j,k,c) +
213 yycon3 * (qs(i,j+1,k,c) - 2.0e0*qs(i,j,k,c) +
215 yycon4 * (vp1*vp1 - 2.0e0*vijk*vijk +
218 2.0e0*u(5,i,j,k,c)*rho_i(i,j,k,c) +
237 ( 5.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i,j+1,k,c) +
246 (-4.0e0*u(m,i,j-1,k,c) + 6.0e0*u(m,i,j,k,c) -
247 4.0e0*u(m,i,j+1,k,c) + u(m,i,j+2,k,c));
258 ( u(m,i,j-2,k,c) - 4.0e0*u(m,i,j-1,k,c) +
259 6.0*u(m,i,j,k,c) - 4.0e0*u(m,i,j+1,k,c) +
272 ( u(m,i,j-2,k,c) - 4.0e0*u(m,i,j-1,k,c) +
273 6.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i,j+1,k,c) );
281 ( u(m,i,j-2,k,c) - 4.e0*u(m,i,j-1,k,c) +
282 5.e0*u(m,i,j,k,c) );
299 (u(1,i,j,k+1,c) - 2.0e0*u(1,i,j,k,c) +
303 (u(2,i,j,k+1,c) - 2.0e0*u(2,i,j,k,c) +
305 zzcon2 * (us(i,j,k+1,c) - 2.0e0*us(i,j,k,c) +
310 (u(3,i,j,k+1,c) - 2.0e0*u(3,i,j,k,c) +
312 zzcon2 * (vs(i,j,k+1,c) - 2.0e0*vs(i,j,k,c) +
317 (u(4,i,j,k+1,c) - 2.0e0*u(4,i,j,k,c) +
319 zzcon2*con43 * (wp1 - 2.0e0*wijk + wm1) -
326 (u(5,i,j,k+1,c) - 2.0e0*u(5,i,j,k,c) +
328 zzcon3 * (qs(i,j,k+1,c) - 2.0e0*qs(i,j,k,c) +
330 zzcon4 * (wp1*wp1 - 2.0e0*wijk*wijk +
333 2.0e0*u(5,i,j,k,c)*rho_i(i,j,k,c) +
352 ( 5.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i,j,k+1,c) +
363 (-4.0e0*u(m,i,j,k-1,c) + 6.0e0*u(m,i,j,k,c) -
364 4.0e0*u(m,i,j,k+1,c) + u(m,i,j,k+2,c));
375 ( u(m,i,j,k-2,c) - 4.0e0*u(m,i,j,k-1,c) +
376 6.0*u(m,i,j,k,c) - 4.0e0*u(m,i,j,k+1,c) +
389 ( u(m,i,j,k-2,c) - 4.0e0*u(m,i,j,k-1,c) +
390 6.0e0*u(m,i,j,k,c) - 4.0e0*u(m,i,j,k+1,c) );
400 ( u(m,i,j,k-2,c) - 4.e0*u(m,i,j,k-1,c) +
401 5.e0*u(m,i,j,k,c) );