Lines Matching refs:kk
57 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
73 if(vbc_prof(kk,2).gt.rmaxvbot) then
74 kmaxbot=kk
75 rmaxvbot=vbc_prof(kk,2)
130 do kk=1,numnp
131 if(vbc_prof(kk,1).ne.zero) then
132 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
134 BC(kk,3)=ctrl_a(3)*vbc_prof(kk,1)
135 BC(kk,4)=ctrl_a(3)*vbc_prof(kk,2)
139 BC(kk,3)=ctrl_a(1)*vbc_prof(kk,1)
142 BC(kk,7) = 0.0d0 ! scalar_1 set to zero for zero flow
145 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
147 BC(kk,4)=ctrl_a(2)*vbc_prof(kk,2)
150 BC(kk,7) = 0.0d0 ! scalar_1 set to zero for zero flow