Lines Matching refs:vbc_prof
2 subroutine BCprofileScale(vbc_prof,BC,yold) argument
5 real*8 vbc_prof(nshg,3) local
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
77 subroutine BCprofileInit(vbc_prof,x) argument
81 real*8 vbc_prof(nshg,3), x(numnp,nsd) local
92 vbc_prof(kk,1)=0.d0
93 vbc_prof(kk,2)=-1.6*1E7*(x(kk,1)-x1)*(x(kk,1)-x2)*
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