programmer's documentation
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros Groups Pages
Functions/Subroutines
csc2cl.f90 File Reference

Translation of the "itypfb(*, *) = icscpl" condition. More...

Functions/Subroutines

subroutine csc2cl (nvcp, nvcpto, nfbcpl, nfbncp, icodcl, itypfb, lfbcpl, lfbncp, dt, rtp, rcodcl, rvcpfb, pndcpl, dofcpl)
 

Detailed Description

Translation of the "itypfb(*, *) = icscpl" condition.

Function/Subroutine Documentation

subroutine csc2cl ( integer  nvcp,
integer  nvcpto,
integer  nfbcpl,
integer  nfbncp,
integer, dimension(nfabor,nvarcl)  icodcl,
integer, dimension(nfabor)  itypfb,
integer, dimension(nfbcpl)  lfbcpl,
integer, dimension(nfbncp)  lfbncp,
double precision, dimension(ncelet)  dt,
double precision, dimension(ncelet,*)  rtp,
double precision, dimension(nfabor,nvarcl,3)  rcodcl,
double precision, dimension(nfbcpl,nvcpto)  rvcpfb,
double precision, dimension(nfbcpl)  pndcpl,
double precision, dimension(3,nfbcpl)  dofcpl 
)
Parameters
[in]nvcp
[in]nvcpto
[in]nfbcpl
[in]nfbncp
[out]icodclface boundary condition code:
  • 1 Dirichlet
  • 2 Radiative outlet
  • 3 Neumann
  • 4 sliding and $ \vect{u} \cdot \vect{n} = 0 $
  • 5 smooth wall and $ \vect{u} \cdot \vect{n} = 0 $
  • 6 rought wall and $ \vect{u} \cdot \vect{n} = 0 $
  • 9 free inlet/outlet (input mass flux blocked to 0)
  • 13 Dirichlet for the advection operator and Neumann for the diffusion operator
[in]lfbcpl
[in]lfbncp
[out]itypfbboundary face types
[in]dttime step (per cell)
[in]rtpcalculated variables at cell centers (at current time step)
[out]rcodclboundary condition values:
  • rcodcl(1) value of the dirichlet
  • rcodcl(2) value of the exterior exchange coefficient (infinite if no exchange)
  • rcodcl(3) value flux density (negative if gain) in w/m2 or roughtness in m if icodcl=6
    1. for the velocity $ (\mu+\mu_T) \gradv \vect{u} \cdot \vect{n} $
    2. for the pressure $ \Delta t \grad P \cdot \vect{n} $
    3. for a scalar $ cp \left( K + \dfrac{K_T}{\sigma_T} \right) \grad T \cdot \vect{n} $
[in]rvcpfb
[in]pndcpl
[in]dofcpl