| /phasta/phSolver/incompressible/ |
| H A D | itrPC.f | 17 if( rhoinf(itseq).lt.0.or.rhoinf(itseq).gt.1) then ! backward Euler
23 almi = (three-rhoinf(itseq))/(one+rhoinf(itseq))/two
24 alfi = one/(one+rhoinf(itseq))
36 if (impl(itseq) .eq. 3) then
38 impl(itseq) = 2
43 if (ipred.eq.4 .and. itseq .eq. 1 ) then
45 if ( rhoinf(itseq) .eq. 0.0 ) then
52 Dtgl = one / Delt(itseq) ! caution: inverse of time step
53 CFLfld = CFLfl(itseq)
54 CFLsld = CFLsl(itseq)
[all …]
|
| H A D | rstatic.f | 38 call sumgatN( abs(gami*Delt(itseq)
41 call sumgatN( abs(gami*alfi*Delt(itseq)
63 if (impl(itseq) .ge. 9) then
146 if (loctim(itseq) .eq. 0) then
238 call sumgat( abs(gami*Delt(itseq)*Dy(:)),1,rdy1)
|
| H A D | itrdrv.f | 234 itseq = itsq
239 nstp = nstep(itseq)
240 nitr = niter(itseq)
241 LCtime = loctim(itseq)
242 dtol(:)= deltol(itseq,:)
332 call CalcHopRCR (Delt(itseq), lstep, numRCRSrfs)
542 & istep.eq.nstep(itseq)) then
564 write(*,*) 'istep,nstep,irs',istep,nstep(itseq),irs
645 & istep.eq.nstep(itseq)) then
1715 & istep+1.eq.nstep(itseq) .or. ioybar == 1) then
|
| H A D | bflux.f | 255 & istep .eq. nstep(itseq) .or. ioybar == 1) then
387 & istep .eq. nstep(itseq) ) then
|
| H A D | e3lhs.f | 53 lhsFct = alfi * gami * Delt(itseq)
299 lhsFct = alfi * gami * Delt(itseq)
|
| H A D | e3bvar.f | 773 rKwall_glob = rKwall_glob*betai*Delt(itseq)*Delt(itseq)*alfi
|
| H A D | stats.f | 364 & nTimeStep .eq. nstep(itseq) ) then
|
| /phasta/phSolver/compressible/ |
| H A D | itrPC.f | 16 if( rhoinf(itseq).lt.0.or.rhoinf(itseq).gt.1) then ! backward Euler
22 almi = (three-rhoinf(itseq))/(one+rhoinf(itseq))/two
23 alfi = one/(one+rhoinf(itseq))
31 if(ipred.eq.4 .and. itseq .eq. 1 )
37 if(ipred.eq.4 .and. rhoinf(itseq) .eq. 0.0 ) ipred=3
42 Dtgl = one / Delt(itseq) ! caution: inverse of time step
43 CFLfld = CFLfl(itseq)
44 CFLsld = CFLsl(itseq)
118 if (LCtime .eq. 0) time = time + Delt(itseq)
|
| H A D | itrdrv.f | 244 itseq = itsq
248 nstp = nstep(itseq)
249 nitr = niter(itseq)
250 LCtime = loctim(itseq)
255 niter(itseq)=0 ! count number of flow solves in a step
258 if(stepseq(i).eq.0) niter(itseq)=niter(itseq)+1
260 nitr = niter(itseq)
448 if (impl(itseq) .eq. 0) then
450 & call error('itrdrv ','impl ',impl(itseq))
|
| H A D | rstatCheck.f | 61 if (loctim(itseq) .eq. 0) then
150 if (loctim(itseq) .eq. 0) then
|
| H A D | elmgmrpetsc.f | 358 intrul = intg (1,itseq)
435 intrul = intg (2,itseq)
|
| H A D | bflux.f | 175 intrul = intg (1,itseq)
|
| H A D | elmgmr.f | 672 intrul = intg (1,itseq)
803 intrul = intg (2,itseq)
|
| H A D | rstat.f | 211 if (loctim(itseq) .eq. 0) then
|
| /phasta/phSolver/common/ |
| H A D | getdmc.f | 68 intrul=intg(1,itseq)
|
| H A D | input.f | 298 & etol, lstep, ifunc, itseq, istep, iter,
|
| H A D | common_c.h | 544 int itseq; member
|
| H A D | aveprep.f | 314 intrul=intg(1,itseq)
|
| H A D | common.h | 253 & etol, lstep, ifunc, itseq, istep, iter,
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 466 int itseq; member
|
| H A D | commonM2N.h | 212 & etol, lstep, ifunc, itseq, istep, iter,
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 465 int itseq; member
|
| H A D | commonAcuStat.h | 211 & etol, lstep, ifunc, itseq, istep, iter,
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 465 int itseq; member
|
| H A D | commonM2NFixBnd.h | 211 & etol, lstep, ifunc, itseq, istep, iter,
|