Home
last modified time | relevance | path

Searched refs:lstep (Results 1 – 25 of 44) sorted by relevance

12

/phasta/phSolver/compressible/
H A Dbflux.f98 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
101 write (fname1,fmt1) lstep
102 write (fname2,fmt2) lstep
121 write (iout, 1000) title, lstep, time, gamma, Rgas
123 & write (ichmou,1000) title, lstep, time
126 write (iout) nshg, lstep, time, gamma, Rgas
130 write (ichmou) nshg, lstep, time
314 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
316 write (fname1,fmt1) lstep
324 write (iflux, 1000) title, lstep, time
H A DrstatCheck.f162 if((lstep.gt.0).and.(lstepLast.eq.lstep)) then
164 lstep = lstep+1
172 lstepLast=lstep
H A Drstat.f84 write (iforce,1000) lstep+1, (Force(i), i=1,nsd), HFlux,
124 write(*, 2000, advance="no") lstep+1, cputme,
129 write(*, 2000) lstep+1, cputme,
134 write(ihist, 2000) lstep+1, cputme,
236 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
238 write (ihist,2000) lstep+1, cputme, totres, jtotrs, nrsmax,
330 write (iforce,1000) lstep+1, (Force(i), i=1,nsd), HFlux,
355 write(*, 2000) lstep+1, cputme,
359 write(ihist, 2000) lstep+1, cputme,
427 print 2000, lstep+1, cputme, totres, jtotrs, nrsmax,
[all …]
H A Ditrdrv.f115 write(fvarts, "('./varts/varts.', I0, '.dat')") lstep
124 call MC_init(Delt, lstep, BC)
152 call BC_init(Delt, lstep, BC) !Note: sets BC_enable
356 if(itvn.gt.0) call BCint((lstep+1)*Delt(1), shp, shgl,
663 lstep = lstep + 1
689 if(mod(lstep,ntout).eq.0 ) call MC_writeState(lstep)
700 if(mod(lstep, ntout) == 0) call BC_writePhase(lstep)
762 & mod(lstep, ntout) == 0 .or. !Checkpoint
769 if(ntout.le.lstep) then ! user also wants file output
841 call MC_writeState(lstep)
[all …]
H A DBCprofileKW.f15 PresSin=PresAmp*sin(two*pi*PresFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance
18 Alpha=AlphaAmp*sin(two*pi*AlphaFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance
H A Dtimedata.f90188 if (mod(lstep,freq).eq.0) then
240 vartsBuffStep(ivartsBuff) = lstep
283 if(mod(lstep, nbuff) .eq. 0) flush = .true.
H A Dvorticity.f213 & 'd'//char(0),nshg,1,lstep)
215 & 'd'//char(0),nshg,1,lstep)
217 & 'd'//char(0),nshg,1,lstep)
219 & 'd'//char(0),nshg,3,lstep)
H A Dwtime.f18 ftime = trim(ftime) // cname(lstep)
/phasta/phSolver/incompressible/
H A Ditrdrv.f131 lskeep=lstep
143 fnamepold = trim(fnamepold)//trim(cname2(lstep))
226 lstep0 = lstep+1
227 nsteprcr = nstep(1)+lstep
300 & 'stopjob,lstep,istep', stopjob,lstep,istep
301 if(stopjob.eq.lstep) then
303 if ((irs .ge. 1) .and. (mod(lstep, ntout) .eq. 0)) then
318 if(itvn.gt.0) call BCint((lstep+1)*Delt(1), shp, shgl,
332 call CalcHopRCR (Delt(itseq), lstep, numRCRSrfs)
333 call CalcRCRConvCoef(lstep,numRCRSrfs)
[all …]
H A Dforces.f36 & write (76,1000) lstep+1, dke,dke
39 write (76,1000) lstep+1, dkesum,dkesum
97 write (iforce,1000) lstep, (Force(i), i=1,nsd),
249 write(iunit,"(i7,1p10e20.12)") lstep, SFlux
H A Drstatic.f178 print 2000, lstep+1, cputme, totres, jtotrs, rmaxdyU,
182 write (ihist,2000) lstep+1, cputme, totres, jtotrs,
261 print 802, lstep+1, cputme, totres, rmaxdyT,
263 write (ihist,802) lstep+1, cputme, totres,
H A Dusr.c243 Integer* lstep,
275 …rite_Field(myrank,"a","projection vectors",&name_length, (void *)projVec,"d", nshg, &nPrjs, lstep);
298 …Field(myrank,"a","pressure projection vectors",&name_length, projVec,"d", nshg, &nPresPrjs, lstep);
308 Integer* lstep ,
340 phstr_appendInt(filename, *lstep);
H A Dbflux.f254 if ((irs .ge. 1) .and. (mod(lstep, ntoutv) .eq. 0) .or.
386 if ((irs .ge. 1) .and. (mod(lstep, ntoutv) .eq. 0) .or.
390 & wallssVec,'d',nshg,ndofwss,lstep)
H A DBCprofile.f18 …r_time_factor = r_amp*sin(two*pi*r_freq*(lstep+1)*Delt(1)) ! BC set for next time step - all phase…
/phasta/phSolver/common/
H A Dgenini.f83 call BCint(lstep*Delt(1),shp,shgl,shpb,shglb,x, BC, iBC)
108 allocate (RCRConvCoef(nstep(1)+lstep+2,numRCRSrfs)) !for convolution coeff
110 allocate (QHistRCR(nstep(1)+lstep+1,numRCRSrfs)) !for flow history
112 if(lstep.ne.0) then
114 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
121 do j=1,lstep+1
H A Drwvelb.f77 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
79 write (fname1,fmt1) lstep
85 write (irstou) machin, nshg, lstep
H A Drestar.f83 call write_restart(myrank, lstep, nshg, ndof,
101 write(72,*) lstep
H A Dproces.f93 lstep = 0
135 if(lstep.eq.0) then ! apply this inlet bl as an IC if on step 0
H A Dreadnblk.f80 lstep=irstart ! in case restart files have no fields
503 lstep=intfromfile(3)
540 lstep=intfromfile(3)
571 lstep=intfromfile(3)
H A Dphasta.cc134 return timdat.lstep; in run()
306 return timdat.lstep; in phasta()
H A Dd2wall.c61 phstr_appendInt(filename, timdat.lstep); in read_d2wall()
H A Dgetvel.f106 denom=max(one*(lstep),one)
H A Dgetdmc.f38 denom=max(1.0d0*(lstep),one)
374 write(34,*)lstep,tmp1,tmp2
/phasta/M2NFixBnd/src/
H A Dreadnblk.f156 lstep=irstart ! in case restart files have no fields
332 lstep=intfromfile(3)
785 call Write_M2NFixBnd_SolOnly(myrank, lstep, nshg,
792 & nshg,ndofybar,lstep)
799 & nshg,ndoferrors,lstep)
808 & nshg,ndofyphbar,lstep)
816 & nshg,ndofvort,lstep)
823 & nshg,1,lstep)
/phasta/M2N/src/
H A Dreadnblk.f184 lstep=irstart ! in case restart files have no fields
346 lstep=intfromfile(3)
1421 call Write_M2N_SolOnly(myrank,irankN,lstep,nshgN,ndof,qoldN)
1426 & nshgN,ndofybar,lstep)
1432 & nshgN,ndoferrors,lstep)
1440 & nshgN,ndofyphbar,lstep)
1447 & vortN,'d',nshgN,ndofvort,lstep)
1453 & nshgN,1,lstep)

12