Searched refs:inlf (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | INIprofile.f | 34 allocate(inlf(ninlet))
35 inlf(1:ninlet)=inlf_tmp(1:ninlet) ! generate map mapping inlet nodes to nshg nodes
37 nn=inlf(i)
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
92 xinlet=x(inlf(1),1)
|
| H A D | mod_BCsfIDmap.f | 3 integer, allocatable, dimension(:) :: inlf variable
|