My Project
programmer's documentation
Functions/Subroutines
vericl.f90 File Reference

Check boundary condition code. More...

Functions/Subroutines

subroutine vericl (nvar, nscal, itypfb, icodcl, rcodcl)
 
subroutine sync_bc_err (nerloc, nerrcd, errcod)
 synchronize boundary condition error logging across MPI ranks. More...
 

Detailed Description

Check boundary condition code.

Function/Subroutine Documentation

◆ sync_bc_err()

subroutine sync_bc_err ( integer  nerloc,
integer  nerrcd,
integer, dimension(nerrcd)  errcod 
)

synchronize boundary condition error logging across MPI ranks.

Parameters
[in,out]nerlocnumber of errors (local rank in, global out)
[in]nerrcdnumber of codes saved at error faces
[in,out]errcodcodes saved at one error face (local in,

◆ vericl()

subroutine vericl ( integer  nvar,
integer  nscal,
integer, dimension(nfabor)  itypfb,
integer, dimension(nfabor,nvar icodcl,
double precision, dimension(nfabor,nvar,3)  rcodcl 
)
Parameters
[in]nvartotal number of variables
[in]nscaltotal number of scalars
[in,out]itypfbface boundary condition type
[in,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,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} $