Lines Matching refs:npro
56 dimension yl(npro,nshl,nflow), iBCB(npro,ndiBCB),
57 & ycl(npro,nshl,ndof),
58 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb),
60 & xlb(npro,nenl,nsd),
61 & rl(npro,nshl,nflow), rml(npro,nshl,nflow)
63 dimension g1yi(npro,nflow), g2yi(npro,nflow),
64 & g3yi(npro,nflow), WdetJb(npro),
65 & bnorm(npro,nsd),
66 & dNadx(npro, nshl, nsd), !shape function gradient
67 & dNadn(npro, nshl), !dN_a/dx_i n_i, i.e. gradient normal to wall
68 & EGmass(npro, nshl, nshl)
70 dimension un(npro), rk(npro),
71 & u1(npro), u2(npro),
72 & u3(npro),
73 & rho(npro), pres(npro),
74 & T(npro), ei(npro),
75 & cp(npro)
77 dimension rou(npro), p(npro),
78 & F1(npro), F2(npro),
79 & F3(npro), F4(npro),
80 & F5(npro), Fv2(npro),
81 & Fv3(npro), Fv4(npro),
82 & Fv5(npro), Fh5(npro)
84 dimension rmu(npro), rlm(npro),
85 & rlm2mu(npro), con(npro),
86 & tau1n(npro),
87 & tau2n(npro), tau3n(npro),
88 & heat(npro)
90 dimension lnode(27), sgn(npro,nshl),
91 & shape(npro,nshl), shdrv(npro,nsd,nshl)
93 dimension xmudum(npro,ngauss)
326 do iel = 1, npro
430 dimension ycl(npro,nshl,ndof), iBCB(npro,ndiBCB),
431 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb),
432 & shglb(nsd,nshl,ngaussb), sgn(npro,nshl),
433 & xlb(npro,nenl,nsd), shape(npro,nshl),
434 & rtl(npro,nshl), rmtl(npro,nshl),
435 & shdrv(npro,nsd,nshl)
437 dimension u1(npro), u2(npro),
438 & u3(npro),
439 & g1yti(npro), g2yti(npro),
440 & g3yti(npro), WdetJb(npro),
441 & bnorm(npro,nsd)
443 dimension rho(npro), Sclr(npro),
444 & T(npro), cp(npro)
446 dimension rou(npro), F(npro),
447 & un(npro), Sclrn(npro)
449 dimension rmu(npro), rlm(npro),
450 & rlm2mu(npro), con(npro),
451 & heat(npro), srcp(npro)
454 real*8 sign_levelset(npro), sclr_ls(npro), mytmp(npro)
500 do ii=1,npro