| /phasta/phSolver/incompressible/ |
| H A D | getfld.f | 42 rmu = datmat(1,2,1) 48 rmu = datmat(1,2,1) * (T/datmat(2,2,1))*sqrt(T/datmat(2,2,1)) 49 & * ( datmat(2,2,1) + datmat(3,2,1) ) / (T + datmat(3,2,1)) 61 rlm = (datmat(1,3,1) - pt66) * rmu 67 cp = datmat(1,3,1) 69 con = datmat(1,4,1)
|
| H A D | getdiff.f | 37 rho = datmat(1,1,1) ! single fluid model, i.e., only 1 density 38 rmu = datmat(1,2,1) 64 rho = datmat(1,1,2) + (datmat(1,1,1)-datmat(1,1,2))*prop_blend 65 rmu = datmat(1,2,2) + (datmat(1,2,1)-datmat(1,2,2))*prop_blend 119 xmut(i)=xi*xmut(i)+(one-xi)*(xmudmi(1,intp)+datmat(1,2,2)) 138 rho(:) = datmat(1,1,1) ! single fluid model, i.e., only 1 density 140 diffus(:) = datmat(1,4,1) 142 diffus(:) = datmat(1,2,1) 145 diffus(:) = datmat(1,2,1) 317 savarw = ev2sa(yl(e,n,6),datmat(1,2,1),saCv1) [all …]
|
| H A D | e3res.f | 86 omega(1)=datmat(1,6,1) 87 omega(2)=datmat(2,6,1) 88 omega(3)=datmat(3,6,1) 378 bfx = datmat(1,5,1) ! Boussinesq, g*alfap 379 bfy = datmat(2,5,1) 380 bfz = datmat(3,5,1) 387 Tref = datmat(2,2,1) 398 omega(1)=datmat(1,6,1) 399 omega(2)=datmat(2,6,1) 400 omega(3)=datmat(3,6,1)
|
| H A D | forces.f | 120 write(880,*) datmat(1,5,1),fnew 123 datmat(1,5,1)=fnew !* (one - tmp2) + datmat(1,5,1) * tmp2
|
| H A D | e3source.f | 18 if(datmat(2,5,1).eq. 0) then ! calc swirl 23 dpdz = datmat(1,5,1) 173 Re = 1.0/datmat(1,2,1) 382 viscInv = 1.0/datmat(1,2,1)
|
| H A D | genlmass.f | 186 rho=datmat(1,1,1) ! needs to be generalized for VOF or level set 228 rho=datmat(1,1,1) ! needs to be generalized for VOF or level set
|
| H A D | e3stab.f | 59 if(matflg(6,1).eq.1) omegasq = datmat(1,6,1)**2 60 . +datmat(2,6,1)**2 61 . +datmat(3,6,1)**2
|
| H A D | rstatic.f | 234 nrm = datmat(1,2,1)
|
| H A D | e3ivar.f | 450 rho = datmat(1,1,1) 451 rmu = datmat(1,2,1)
|
| /phasta/phSolver/compressible/ |
| H A D | getdiff.f | 74 rmu = datmat(1,2,2) + (datmat(1,2,1)-datmat(1,2,2)) 91 rmu(:)= datmat(1,2,1) 93 rmu(:)=fmax*datmat(1,2,1) 95 rmu(:)= datmat(1,2,1)*( 113 rmu(:)=datmat(1,2,1) 115 rmu(:)=fmax*datmat(1,2,1) 117 rmu(:)=datmat(1,2,1) 127 rmu = datmat(1,2,1) 137 rmu(:)=scaleCntrl*datmat(1,2,1) 156 rmu = datmat(1,2,1) * (T/datmat(2,2,1))*sqrt(T/datmat(2,2,1)) [all …]
|
| H A D | getthm.f | 131 fact = datmat(1,1,2)/datmat(1,1,1) 136 rsrhol(:) = datmat(1,1,1)* 186 rsrhol(:) = datmat(1,1,1)* 285 fact = datmat(1,1,2)/datmat(1,1,1) 290 rsrhol(:) = datmat(1,1,1)*
|
| H A D | itrdrv.f | 287 rmub=datmat(1,2,1) 295 datmat(1,2,1)=datmat(1,2,1)/xmulfact ! make first step right 297 rmue=datmat(1,2,1) ! keep constant 351 datmat(1,2,1)=xmulfact*datmat(1,2,1)
|
| H A D | e3source.f | 51 src(:,2) = rho(:) * datmat(1,5,1) 52 src(:,3) = rho(:) * datmat(2,5,1) 53 src(:,4) = rho(:) * datmat(3,5,1)
|
| /phasta/phSolver/common/ |
| H A D | input_fform.cc | 399 matdat.datmat[i][0][0] = vec[i]; in input_fform() 405 matdat.datmat[i][1][0] = vec[i]; in input_fform() 411 matdat.datmat[i][2][0] = 0; in input_fform() 417 matdat.datmat[i][3][0] = vec[i]; in input_fform() 489 matdat.datmat[i][4][0] = vec[0+i*3]; in input_fform() 490 matdat.datmat[i][4][1] = vec[1+i*3]; in input_fform() 491 matdat.datmat[i][4][2] = vec[2+i*3]; in input_fform() 497 matdat.datmat[i][6][0] = vec[0+i*3]; in input_fform() 498 matdat.datmat[i][6][1] = vec[1+i*3]; in input_fform() 499 matdat.datmat[i][6][2] = vec[2+i*3]; in input_fform() [all …]
|
| H A D | scatnu.f | 22 rmu=datmat(1,2,1)
|
| H A D | bctint.f | 93 vcl=datmat(1,5,1) ! velocity on centerline 94 rslc=datmat(2,5,1) ! shear layer center radius 95 bfz=datmat(3,5,1)
|
| H A D | elm3keps.f | 159 rho(:)=datmat(1,1,1) 160 rmu(:)=datmat(1,2,1)
|
| H A D | settauw.f | 28 rm=datmat(1,2,1)
|
| H A D | hierarchic.f | 369 rmu = datmat(1,2,1)
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 18 if(datmat(2,5,1).eq. 0) then ! calc swirl 23 dpdz = datmat(1,5,1) 37 c$$$ nu=datmat(1,2,1) 38 c$$$ omag=datmat(3,5,1) ! frame rotation rate 173 Re = 1.0/datmat(1,2,1) 344 viscInv = 1.0/datmat(1,2,1)
|
| H A D | e3source.fimplicit | 18 if(datmat(2,5,1).eq. 0) then ! calc swirl 23 dpdz = datmat(1,5,1) 37 c$$$ nu=datmat(1,2,1) 38 c$$$ omag=datmat(3,5,1) ! frame rotation rate 173 Re = 1.0/datmat(1,2,1) 358 viscInv = 1.0/datmat(1,2,1)
|
| /phasta/phSolver/Test_C/ |
| H A D | solver.inp | 36 Viscosity: 1.0e-2 # fills datmat (2 values REQUIRED if iLset=1)
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 384 double datmat[MAXTS][7][3]; member
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 384 double datmat[MAXTS][7][3]; member
|
| /phasta/phSolver/testIC-DSIM/ |
| H A D | solver.inp | 38 Viscosity: 0.01 # fills datmat (2 values REQUIRED if iLset=1)
|