Home
last modified time | relevance | path

Searched refs:BC (Results 1 – 25 of 69) sorted by relevance

123

/phasta/phSolver/compressible/
H A Dbc3bdg.f1 subroutine bc3BDg (y, iBC, BC, BDiag, iper, ilwork) argument
27 & BC(nshg,ndofBC),
83 BDiag(:,5,4) = BDiag(:,5,4) - BC(:,5) * BDiag(:,5,2)
84 BDiag(:,5,3) = BDiag(:,5,3) - BC(:,4) * BDiag(:,5,2)
86 BDiag(:,4,5) = BDiag(:,4,5) - BC(:,5) * BDiag(:,2,5)
87 BDiag(:,3,5) = BDiag(:,3,5) - BC(:,4) * BDiag(:,2,5)
89 BDiag(:,4,1) = BDiag(:,4,1) - BC(:,5) * BDiag(:,2,1)
90 BDiag(:,3,1) = BDiag(:,3,1) - BC(:,4) * BDiag(:,2,1)
92 BDiag(:,1,4) = BDiag(:,1,4) - BC(:,5) * BDiag(:,1,2)
93 BDiag(:,1,3) = BDiag(:,1,3) - BC(:,4) * BDiag(:,1,2)
[all …]
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
26 & ac(nshg,nflow), BC(nshg,ndofBC)
63 y(:,5) = BC(:,2)
79 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
80 & - BC(:,5) * y(:,3)
86 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
87 & - BC(:,5) * y(:,3)
93 y(:,1) = BC(:,3) - BC(:,4) * y(:,3)
94 y(:,2) = BC(:,5) - BC(:,6) * y(:,3)
100 y(:,3) = BC(:,3) - BC(:,4) * y(:,1)
[all …]
H A Dbc3res.f1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
24 & BC(nshg,ndofBC),
31 res(:,5) = res(:,5) + BC(:,1)*Rgas* res(:,1) !IDEAL GAS ASSUMED
79 res(:,3) = res(:,3) - BC(:,4) * res(:,2)
80 res(:,4) = res(:,4) - BC(:,5) * res(:,2)
87 res(:,2) = res(:,2) - BC(:,4) * res(:,3)
88 res(:,4) = res(:,4) - BC(:,5) * res(:,3)
95 res(:,4) = res(:,4) - BC(:,4) * res(:,2) - BC(:,6) * res(:,3)
103 res(:,2) = res(:,2) - BC(:,4) * res(:,4)
104 res(:,3) = res(:,3) - BC(:,5) * res(:,4)
[all …]
H A DBCprofileKW.f2 subroutine BCprofileScaleKW(PresBase,VelBase,BC,yold) argument
7 real*8 BC(nshg,ndofBC), yold(nshg,ndof) local
25 BC(kk,1)=11597+PresSin
33 BC(kk,3)=VelBase*cos((pi/180)*Alpha)
34 BC(kk,4)=VelBase*sin((pi/180)*Alpha)
44 subroutine BCprofileInitKW(PresBase,VelBase,BC) argument
51 real*8 BC(nshg,ndofBC) local
62 PresBase=BC(kk,1)
63 VelBase=BC(kk,3)
H A DBCprofile.f12 subroutine initBCprofileScale(vbc_prof,BC,yold,x) argument
20 real*8 BC(nshg,ndofBC),yold(nshg,ndof),x(nshg,3) local
87 call BCprofileScale(vbc_prof,BC,yold)
92 subroutine BCprofileScale(vbc_prof,BC,yold) argument
100 real*8 BC(nshg,ndofBC),yold(nshg,ndof),mdotNow(3) local
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
147 BC(kk,4)=ctrl_a(2)*vbc_prof(kk,2)
[all …]
H A Ditrdrv.f2 & iBC, BC, argument
48 & BC(nshg,ndofBC), ilwork(nlwork),
124 call MC_init(Delt, lstep, BC)
128 call MC_applyBC(BC)
152 call BC_init(Delt, lstep, BC) !Note: sets BC_enable
154 if(BC_enable) call itrBC (yold, ac, iBC, BC, iper, ilwork)
228 BC(imapInlet(i),7)=evis_IC_BC
236 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
301 call initBCprofileScale(vbc_prof,BC,yold,x)
303 call itrBC (yold, ac, iBC, BC, iper, ilwork)
[all …]
H A Dbc3lhs.f1 subroutine bc3LHS (iBC, BC, iens, EGmass ) argument
25 & BC(nshg,11), EGmass(npro,nedof,nedof)
76 & - BC(in,4) * EGmass(iel,i2,i)
78 & - BC(in,5) * EGmass(iel,i2,i)
82 & - BC(in,4) * EGmass(iel,i,i2)
84 & - BC(in,5) * EGmass(iel,i,i2)
98 & - BC(in,4) * EGmass(iel,i3,i)
100 & - BC(in,5) * EGmass(iel,i3,i)
104 & - BC(in,4) * EGmass(iel,i,i3)
106 & - BC(in,5) * EGmass(iel,i,i3)
[all …]
H A DsetBlowing_Duct2.f6 subroutine setBlowing_Duct2(x,BC,y,iTurbWall,istp) argument
16 real*8 BC(nshg,ndofBC) local
82 BC(nn,2) = 317 ! Temp
83 BC(nn,4) = blowingVel ! set and scale y velocity
84 BC(nn,3) = 0
85 BC(nn,5) = 0
86 BC(nn,7) = 1.825e-5
H A Ditrfdi.f3 & iBC, BC, iper,
43 & iBC(nshg), BC(nshg,ndofBC),
72 & BC, shpb,
106 & BC, shpb,
123 & BC, shpb,
153 & iBC, BC, engBC, iper,
193 & iBC(nshg), BC(nshg,ndofBC),
211 & BC, engBC, shpb,
237 & BC, engBC, shpb,
249 & BC, engBC, shpb,
/phasta/phSolver/incompressible/
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
24 & ac(nshg,nflow), BC(nshg,ndofBC)
41 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
42 & - BC(:,5) * y(:,3)
48 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
49 & - BC(:,5) * y(:,3)
55 y(:,1) = BC(:,3) - BC(:,4) * y(:,3)
56 y(:,2) = BC(:,5) - BC(:,6) * y(:,3)
62 y(:,3) = BC(:,3) - BC(:,4) * y(:,1)
63 & - BC(:,5) * y(:,2)
[all …]
H A Dbc3diag.f1 subroutine bc3Diag (iBC, BC, res) argument
22 dimension iBC(nshg), BC(nshg,ndofBC),
50 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
51 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
58 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
59 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
66 res(:,3) = res(:,3) - BC(:,4) * res(:,1) - BC(:,6) * res(:,2)
74 res(:,1) = res(:,1) - BC(:,4) * res(:,3)
75 res(:,2) = res(:,2) - BC(:,5) * res(:,3)
82 res(:,2) = res(:,2) - BC(:,4) * res(:,1) - BC(:,6) * res(:,3)
[all …]
H A Dbc3res.f1 subroutine bc3Res ( iBC, BC, res, iper, ilwork) argument
23 & BC(nshg,ndofBC),
56 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
57 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
64 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
65 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
72 res(:,3) = res(:,3) - BC(:,4) * res(:,1) - BC(:,6) * res(:,2)
80 res(:,1) = res(:,1) - BC(:,4) * res(:,3)
81 res(:,2) = res(:,2) - BC(:,5) * res(:,3)
88 res(:,2) = res(:,2) - BC(:,4) * res(:,1) - BC(:,6) * res(:,3)
[all …]
H A Dbc3lhs.f1 subroutine bc3LHS (iBC, BC, iens, xKebe ) argument
26 & BC(nshg,ndofBC), xKebe(npro,9,nshl,nshl)
85 & - BC(in,4) * xKebe(iel,irem1,i,inod)
87 & - BC(in,4) * xKebe(iel,irem2,i,inod)
89 & - BC(in,4) * xKebe(iel,irem3,i,inod)
105 & - BC(in,5) * xKebe(iel,irem1,i,inod)
107 & - BC(in,5) * xKebe(iel,irem2,i,inod)
109 & - BC(in,5) * xKebe(iel,irem3,i,inod)
142 & - BC(in,4) * xKebe(iel,irem1,inod,i)
144 & - BC(in,4) * xKebe(iel,irem2,inod,i)
[all …]
/phasta/phSolver/common/
H A DslpwBC.f1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
8 real*8 BC(ndofBC) local
37 BC(3)= 0
38 BC(4)= wn1(2)/wn1(1)
39 BC(5)= wn1(3)/wn1(1)
42 BC(3)=0
43 BC(4)=wn1(1)/wn1(2)
44 BC(5)=wn1(3)/wn1(2)
47 BC(3)=0
48 BC(4)=wn1(1)/wn1(3)
[all …]
H A Dgenbc1.f1 subroutine genBC1 (BCtmp, iBC, BC) argument
27 & BC(nshg,ndofBC),tmpbc(4)
34 where (btest(iBC,5+isclr)) BC(:,6+isclr) = BCtmp(:,12+isclr)
39 where (btest(iBC,0)) BC(:,1) = BCtmp(:,1) ! density
40 where (btest(iBC,1)) BC(:,2) = BCtmp(:,2) ! temperature
41 where (btest(iBC,2)) BC(:,1) = BCtmp(:,3) ! pressure
47 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,4)
48 BC(:,4) = BCtmp(:,5) / BCtmp(:,4)
49 BC(:,5) = BCtmp(:,6) / BCtmp(:,4)
56 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,5)
[all …]
H A DsetSuction_Duct3.f905 subroutine setSuction_Duct3(x,BC,y, ilwork) argument
18 real*8 BC(nshg,ndofBC) local
62 BC(nn, 3) = nvel_su*wnorm(nn, 1) ! set xVel
63 BC(nn, 4) = nvel_su*wnorm(nn, 2) ! set yVel
64 BC(nn, 5) = nvel_su*wnorm(nn, 3) ! set zVel
66 BC(nn, 3) = nvel_sl*wnorm(nn, 1) ! set xVel
67 BC(nn, 4) = nvel_sl*wnorm(nn, 2) ! set yVel
68 BC(nn, 5) = nvel_sl*wnorm(nn, 3) ! set zVel
74 BC(nn, 3) = nvel_t*wnorm(nn, 1) ! set xVel using wall normal
75 BC(nn, 4) = nvel_t*wnorm(nn, 2) ! set yVel
[all …]
H A DsetBlowing_Duct3.f3 subroutine setBlowing_Duct3(x,BC,iTurbWall) argument
11 real*8 BC(nshg,ndofBC) local
68 BC(nn,2) = Temp ! Temp
69 BC(nn,3) = veloMag*jetnx ! set x velocity
70 BC(nn,4) = veloMag*jetny ! set y velocity
71 BC(nn,5) = 0 ! set zVel=0
73 BC(nn,2) = qold(nn,5) ! Temp
74 BC(nn,3) = 0 ! set x velocity
75 BC(nn,4) = qold(nn,3) ! set y velocity
76 BC(nn,5) = 0 ! set zVel=0
[all …]
H A DsetBlowing_Duct.f7 subroutine setBlowing_Duct(BC,iTurbWall) argument
15 real*8 BC(nshg,ndofBC) local
30 BC(nn,2) = qold(nn,5) ! set Temp
31 BC(nn,3) = 0 ! set xVel=0
32 BC(nn,4) = qold(nn,3) ! set and scale y velocity
33 BC(nn,5) = 0 ! set zVel=0
34 BC(nn,7) = qold(nn,6) ! set SA variable
H A DBCprofile2.f3 subroutine SetUniOutPres(BC) argument
12 real*8 BC(nshg,ndofBC) local
20 BC(nn,1)=outPres1
28 subroutine setInlet_Duct(x,BC,iTurbWall) argument
34 real*8 BC(nshg,ndofBC) local
86 BC(nn,2) = Temp !Temp
87 BC(nn,3) = xVel ! set and scale x velocity
88 BC(nn,4) = 0
89 BC(nn,5) = 0
H A DINIprofile.f1 subroutine INIprofile(BC,y,x) argument
4 real*8 BC(nshg,ndofBC) local
9 call TakeBCfromIC_ScaleInlVelX(BC,y,x)
19 subroutine TakeBCfromIC_ScaleInlVelX(BC,y,x) argument
27 real*8 BC(nshg,ndofBC) local
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
52 BC(inlf(:),4) = 0 ! set y velocity
53 BC(inlf(:),5) = 0 ! set z velocity
55 BC(inlf(:),7) = y(inlf(:),6) ! set scalar_1
H A Dgenini.f1 subroutine genini (iBC, BC, y, ac, iper, ilwork, argument
33 & BC(nshg,ndofBC), y(nshg,ndof),
60 call INIprofile(BC,y,x)
82 call initBCt( x, iBC, BC)
83 call BCint(lstep*Delt(1),shp,shgl,shpb,shglb,x, BC, iBC)
142 call itrBC (y, ac, iBC, BC, iper, ilwork)
147 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
150 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
/phasta/phSolver/AMG/
H A Dramg_driver.f17 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
35 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
53 & ilwork,BC,iBC,iper)
65 & ilwork,BC,iBC,iper,2) !dx1
69 & ilwork,BC,iBC,iper,1)
75 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
78 & ilwork,BC,iBC,iper) ! v2hat
84 & ilwork,BC,iBC,iper,1)
107 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,iterNum) argument
125 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
[all …]
H A Dramg_smoother.f6 & ilwork,BC,iBC,iper, argument
18 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
27 call commOut(v,ilwork,1,iper,iBC,BC)
29 call commIn(utmp,ilwork,3,iper,iBC,BC)
41 call commOut(utmp4,ilwork,4,iper,iBC,BC)
43 call commIn(u,ilwork,1,iper,iBC,BC)
98 & ilwork,BC,iBC,iper) argument
113 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
129 call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
169 & ilwork,BC,iBC,iper) argument
[all …]
H A Dramg_mls.f10 & ilwork,BC,iBC,iper) argument
28 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
137 & ilwork,BC,iBC,iper,1)
141 & ilwork,BC,iBC,iper)
190 & ilwork,BC,iBC,iper) argument
208 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
317 & ilwork,BC,iBC,iper,1)
321 & ilwork,BC,iBC,iper)
367 subroutine ramg_mls_coeff(level,ilwork,BC,iBC,iper) argument
372 & ilwork,BC,iBC,iper) argument
[all …]
H A Dramg_control.f8 & ilwork,BC,iBC,iper) argument
19 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC local
36 & ilwork,BC,iBC,iper)
38 call ramg_prep(ilwork,BC,iBC,iper)
39 call ramg_init_ilwork(ilwork,BC,iBC,iper)
43 & ilwork,BC,iBC,iper)
46 & ilwork,BC,iBC,iper)
57 call ramg_ggb_setup(colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
67 subroutine ramg_prep(ilwork,BC,iBC,iper)
75 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC variable
[all …]

123