Searched refs:mdotNow (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | BCprofile.f | 100 real*8 BC(nshg,ndofBC),yold(nshg,ndof),mdotNow(3) local
104 call rampedMdot(mdotNow)
126 ctrl_a(1) = ctrl_factor(1)*mdotNow(1)/ctrl_pr(1) ! inlet
127 ctrl_a(2) = ctrl_factor(2)*mdotNow(2)/ctrl_pr(2) ! bottom FC
128 ctrl_a(3) = ctrl_factor(3)*mdotNow(3)/ctrl_pr(3) ! top FC
166 subroutine rampedMdot(mdotNow) argument
170 real*8 mdotNow(3),xi,cstep,rnstep local
176 mdotNow(:)=rampmdot(1,:)+xi*(rampmdot(2,:)-rampmdot(1,:))
|