Home
last modified time | relevance | path

Searched refs:d2wall (Results 1 – 11 of 11) sorted by relevance

/phasta/phSolver/common/
H A Dturbsa.f8 real*8, allocatable :: d2wall(:) variable
62 allocate ( d2wall(numnp) )
71 call read_d2wall(myrank,numnp,d2wall,ifoundd2wall)
188 d2wall=1.0e32
194 if ( d2wall(i).gt.distance ) d2wall(i) = distance
197 d2wall=sqrt(d2wall)
H A Dproces.f124 if(bcinterp(j,1).gt.d2wall(i)) then !bound found
125 xi=(d2wall(i)-bcinterp(j-1,1))/
132 write(*,*) 'failure in finterp, ynint=',d2wall(i)
H A DblowerControl.f90380 & min(1.0d0, d2wall(imapped)*deltaBLinv)
406 & min(1.0d0, d2wall(imapped)*deltaBLinv)
/phasta/phSolver/incompressible/
H A Dasiq.f56 call localx (d2wall, dwl, ien, 1, 'gather ')
114 call localx (d2wall, dwl, ien, 1, 'gather ')
H A Dasbmfg.f47 call local(d2wall, dwl, ienb, 1, 'gather ')
115 call local(d2wall, dwl, ienb, 1, 'gather ')
H A Dasigmr.f63 call localx (d2wall, dwl, ien, 1, 'gather ')
168 & call localx(d2wall, dwl, ien, 1, 'gather ')
H A Dasbflx.f54 call local(d2wall, dwl, ienb, 1, 'gather ')
H A Ditrdrv.f727 call write_field(myrank,'a','dwal',4,d2wall,'d',
763 deallocate(d2wall)
/phasta/phSolver/compressible/
H A DMachControl.f9070 MC_vscale(i) = min(one, d2wall(imapped)/MC_BLdelta)
H A Dasigmr.f171 call localx (d2wall, dwl, ien, 1, 'gather ')
H A Ditrdrv.f901 & d2wall,'d'//char(0), nshg, 1, lstep)