My Project
programmer's documentation
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, rcodcl, rvcpfb, pndcpl, dofcpl)
 
subroutine csc2cl_init (nvcp, nfbcpl, nfbncp, icodcl, itypfb, lfbcpl, lfbncp)
 Initialization of the "itypfb(*, *) = icscpl" condition. More...
 

Detailed Description

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

Function/Subroutine Documentation

◆ csc2cl()

subroutine csc2cl ( integer  nvcp,
integer  nvcpto,
integer  nfbcpl,
integer  nfbncp,
integer, dimension(nfabor,nvar icodcl,
integer, dimension(nfabor)  itypfb,
integer, dimension(nfbcpl lfbcpl,
integer, dimension(nfbncp lfbncp,
double precision, dimension(ncelet)  dt,
double precision, dimension(nfabor,nvar,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 rough 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)
[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 roughness 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

◆ csc2cl_init()

subroutine csc2cl_init ( integer  nvcp,
integer  nfbcpl,
integer  nfbncp,
integer, dimension(nfabor,nvar icodcl,
integer, dimension(nfabor)  itypfb,
integer, dimension(nfbcpl lfbcpl,
integer, dimension(nfbncp lfbncp 
)

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

Parameters
[in]nvcp
[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 rough 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