Home
last modified time | relevance | path

Searched refs:isclr (Results 1 – 25 of 47) sorted by relevance

12

/phasta/phSolver/compressible/
H A Ditrdrv.f235 isclr=1 ! fix scalar
253 isclr=0
304 isclr=1 ! fix scalar
400 isclr = zero
402 do isclr=1,nsclr
528 isclr=isolve
529 … etol=epstol(isclr+2) ! note that for both epstol and LHSupd 1 is flow 2 temp isclr+2 for scalars
530 ifuncs(isclr+2) = ifuncs(isclr+2) + 1
532 & .and.(isclr.eq.2)) then
556 lhs = 1 - min(1,mod(ifuncs(isclr+2)-1,
[all …]
H A Ditrbc.f217 if(isclr.ne.0) then
218 id=5+isclr
219 ibb=6+isclr
220 ib=4+isclr
H A DitrPC.f162 is=5+isclr
185 if(iLset.eq.2 .and. isclr.eq.2) then
H A De3b.f459 id = isclr + 5
460 ib = isclr + 4
461 ibb = isclr + 6
492 if (ilset.eq.2 .and. isclr.eq.2) then !we are redistancing level-sets
H A De3.f453 if (ilset.eq.2 .and. isclr.eq.2) then
505 if ((idcsclr(2).eq.1 .and. isclr.eq.1) .or.
506 & (idcsclr(2).eq.2 .and. isclr.eq.2)) then ! scalar with dc
H A Dbc3res.f236 id = isclr+5
/phasta/phSolver/common/
H A Dgenbc1.f33 do isclr=1,nsclr
34 where (btest(iBC,5+isclr)) BC(:,6+isclr) = BCtmp(:,12+isclr)
H A Dgenini.f146 isclr=0
149 do isclr=1,nsclr
H A Dasbwmod.f28 isclr = 1
H A Dgendat.f180 do isclr=1,nsclr
186 & ior(miBCB(iblk)%p(i,1),2**(4+isclr))
H A Delm3keps.f409 if(isclr.eq.1)then ! kay
412 else if (isclr.eq.2) then ! epsilon
/phasta/phSolver/incompressible/
H A Ditrdrv.f288 isclr=1 ! fix scalar
289 do isclr=1,nsclr
366 isclr=0
369 do isclr=1,nsclr
408 isclr=0
412 isclr=isolve
413 ifuncs(isclr+2) = ifuncs(isclr+2) + 1
414 j=isclr+nsolt
416 & .and.(isclr.eq.2)) then
439 lhs = 1 - min(1,mod(ifuncs(isclr+2)-1,
[all …]
H A Dbc3diag.f150 if(isclr.eq.0) then
161 ib=5+isclr
H A Dbc3res.f146 if(isclr.eq.0) then
155 is=isclr+5
H A Ditrbc.f148 if(isclr.eq.0) then ! this is temperature
153 ib=5+isclr
H A DitrPC.f156 is=5+isclr
188 is=5+isclr
275 if(iLSet .eq.2 .and. isclr .eq. 2) then
H A De3b.f422 if(isclr.eq.0) then
427 ib=4+isclr+iwalljump
428 ibb=6+isclr
470 if(isclr.eq.0) HFlux = sum(flux)
H A Dgetdiff.f139 if(isclr.eq.0) then ! solving the temperature equation
146 if(isclr.eq.2) then
153 diffus = scdiff(isclr)
H A De3source.f495 if(isclr.eq.1) srcL = srcJac(:,1)
496 if(isclr.eq.2) srcL = srcJac(:,4)
512 if (isclr.eq.1) then
517 elseif (isclr.eq.2) then !we are redistancing level-sets
H A Dsolfar.f438 jsol=nsolt+isclr
483 lesId = numeqns(1+nsolt+isclr)
519 nsolsc=5+isclr
H A De3.f251 if ((idcsclr(2).eq.1 .and. isclr.eq.1) .or.
252 & (idcsclr(2).eq.2 .and. isclr.eq.2)) then ! scalar with dc
H A De3qvar.f169 id=5+isclr
H A De3res.f318 if ((idcsclr(2).eq.1 .and. isclr.eq.1) .or.
319 & (idcsclr(2).eq.2 .and. isclr.eq.2)) then ! scalar with dc
H A De3lhs.f341 if ((idcsclr(2).eq.1 .and. isclr.eq.1) .or.
342 & (idcsclr(2).eq.2 .and. isclr.eq.2)) then ! scalar with dc
H A De3stab.f560 if ((idcsclr(2).eq.1 .and. isclr.eq.1) .or.
561 & (idcsclr(2).eq.2 .and. isclr.eq.2)) then ! scalar with dc

12