Home
last modified time | relevance | path

Searched refs:kk (Results 1 – 7 of 7) sorted by relevance

/phasta/phSolver/incompressible/
H A DBCprofile.f24 do kk=1,nshg
25 if(ndsurf(kk).eq.18) then ! this means diaphragm for the Cube Test case
37 if(mod(ndsurf(kk)-1,factor) == 0) then
45 if(mod(ndsurf(kk)+1,factor) == 0) then
54 if (ndsurf(kk) == -factor) then
61 BC(kk,3)=r_time_factor*vbc_prof(kk,1)*offphase
62 BC(kk,4)=r_time_factor*vbc_prof(kk,2)*offphase
63 BC(kk,5)=r_time_factor*vbc_prof(kk,3)*offphase
85 do kk=1,nshg
87 if(ndsurf(kk).eq.18) then
[all …]
H A Dsoldir.f76 write(543,20) (globMas(i0+ii,j0+kk), kk=1,4)
/phasta/phSolver/compressible/
H A DBCprofile.f57 do kk=1,numnp
58 if(vbc_prof(kk,1).ne.zero) then
59 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
60 if(abs(vbc_prof(kk,1)).gt.rmaxvtop) then
61 kmaxtop=kk
62 rmaxvtop=abs(vbc_prof(kk,1))
66 if(vbc_prof(kk,1).gt.rmaxvinflow) then
67 kmaxinf=kk
68 rmaxvinflow=vbc_prof(kk,1)
72 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
[all …]
H A DBCprofileKW.f21 do kk=1,nshg
22 if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet
25 BC(kk,1)=11597+PresSin
30 do kk=1,nshg
31 if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet
33 BC(kk,3)=VelBase*cos((pi/180)*Alpha)
34 BC(kk,4)=VelBase*sin((pi/180)*Alpha)
58 do kk=1,nshg
60 if(ndsurf(kk).eq.801) then
62 PresBase=BC(kk,1)
[all …]
/phasta/phSolver/common/
H A DslpwBC.f77 kk=nmax(ck1,ck2,ck3)
79 if(kk.eq.1)then ! u has the largest freedom, v and w should be constrained
87 elseif(kk.eq.2)then
94 elseif(kk.eq.3)then
122 kk=nmax(ck1,ck2,ck3)
123 if(kk.eq.1)then ! u has the largest freedom
130 elseif(kk.eq.2)then
137 elseif(kk.eq.3)then
246 kk=nmax(ck1,ck2,ck3)
247 if(kk.eq.1)then ! u has the largest freedom
[all …]
H A Delm3keps.f137 & kk, kqInv, nuInv, Rey, Ret, Rey_k, local
199 kk = k * k
228 Ret = kk * epsInv * nuInv
237 Ret_eps = -kk * epsP2Inv * nuInv
/phasta/phSolver/AMG/
H A Dramg_paratools.f714 kk = 1 ! pointer to amg_ilwork array
719 kk = kk+1
720 amg_ilwork(lvl)%p(kk) = iother ! first put iother
721 kk = kk+1
722 amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg
727 kk = kk+1
728 amg_ilwork(lvl)%p(kk)=lvlmap(k)