Lines Matching refs:kk
24 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
92 vbc_prof(kk,1)=0.d0
93 vbc_prof(kk,2)=-1.6*1E7*(x(kk,1)-x1)*(x(kk,1)-x2)*
94 & (x(kk,3)-z1)*(x(kk,3)-z2)
95 vbc_prof(kk,3)=0.d0
97 write(789,987) kk,vbc_prof(kk,1),vbc_prof(kk,2),
98 & vbc_prof(kk,3)
101 vbc_prof(kk,:)=zero