Lines Matching refs:y
1 subroutine INIprofile(BC,y,x) argument
5 real*8 y(nshg,ndof) local
9 call TakeBCfromIC_ScaleInlVelX(BC,y,x)
13 call setInitial(x,y)
19 subroutine TakeBCfromIC_ScaleInlVelX(BC,y,x) argument
28 real*8 y(nshg,ndof) local
38 if(y(nn,1).gt.u_max)u_max=y(nn,1)
50 BC(inlf(:),2) = y(inlf(:),5) ! set temp
51 BC(inlf(:),3) = y(inlf(:),1)/u_max_all*inletVelX ! set and scale x velocity
55 BC(inlf(:),7) = y(inlf(:),6) ! set scalar_1
68 subroutine setInitial(x,y) argument
77 real*8 y(nshg,ndof) local
81 y(:,1)= xvel_ini
82 y(:,4)= pres_ini
83 y(:,2)=yvel_ini
84 y(:,3)=zvel_ini
85 y(:,5)=temp_ini
87 y(:,6)=evis_ini
112 y(nn,1)= xvel_ini + (inletVelX-xvel_ini)*xdel
113 y(nn,4)= outPres1 + (pres_ini-outPres1)*xdel
115 y(:,2)=yvel_ini
116 y(:,3)=zvel_ini
117 y(:,5)=temp_ini
119 y(:,6)=evis_ini