Non-standard boundary conditions : setting a pressure drop
Posted: Thu Mar 18, 2010 6:18 pm
Hi,
I know this question has already been discussed in an other topic, but I didn't solve my problem.
I simulate a laminar flow through two rough surfaces, and I would like to impose a pressure drop between the inlet and the outlet. I have made several tests.
My first calculation is carried out with the following usclim.F file in unsteady state :
With this boundary condition, calculations diverge whatever the time step used. I also tried to use a time step variable in time. Listing file is given in attachment.
If I use the following condition at the inlet :
calculations converge in few iterations (about 200). However, I have some questions. Indeed, from the documentation, if ICODCL(IFAC,IU(IPHAS)) = 9 and if the mass flow is coming in, which is true here, a zero value is imposed to the velocity but not the mass flow. How the velocity can be zero but not the mass flow ? is there a source ? And is there a solution to have a non zero velocity at the inlet ?
Thanks
I know this question has already been discussed in an other topic, but I didn't solve my problem.
I simulate a laminar flow through two rough surfaces, and I would like to impose a pressure drop between the inlet and the outlet. I have made several tests.
My first calculation is carried out with the following usclim.F file in unsteady state :
Code: Select all
CALL GETFBR('entree',NLELT,LSTELT)
C
DO ILELT = 1, NLELT
IFAC = LSTELT(ILELT)
ITYPFB(IFAC,1) = IENTRE
CC ON IMPOSE UNE CONDTION DE TYPE DIRICHLET EN ENTREE SUR LA PRESSION
ICODCL(IFAC,IPR(IPHAS)) = 1
RCODCL(IFAC,IPR(IPHAS),1) = 2.D5
C CL DE TYPE NEUMANN POUR LES AUTRES VARIABLES
ICODCL(IFAC,IU(IPHAS)) = 3
ICODCL(IFAC,IV(IPHAS)) = 3
ICODCL(IFAC,IW(IPHAS)) = 3
ENDDO CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C CL en sortie CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CALL GETFBR('sortie',NLELT,LSTELT)
CC
DO ILELT = 1, NLELT
IFAC = LSTELT(ILELT)
ITYPFB(IFAC,1) = ISOLIB
ICODCL(IFAC,IPR(IPHAS)) = 1
RCODCL(IFAC,IPR(IPHAS),1) = 1.D5
ICODCL(IFAC,IU(IPHAS)) = 3
ICODCL(IFAC,IV(IPHAS)) = 3
ICODCL(IFAC,IW(IPHAS)) = 3
ENDDO
If I use the following condition at the inlet :
Code: Select all
ICODCL(IFAC,IU(IPHAS)) = 9
ICODCL(IFAC,IV(IPHAS)) = 9
ICODCL(IFAC,IW(IPHAS)) = 9
Thanks